Hjælp til beregning af checksum.

Vi skal nok se lidt mere for ar kunne hjaelpe.

:-)

Det jeg søger er metoden til at beregne checksum af en tekst streng.

Strengen er som vist her i parenteser
(vbcr 1S3)

Checksummen skal iflg. manualen til interfacet være de sidste 4 bytes + 1

her er det der er i eksempel koden vb.5

Private Sub Command10_Click()
checksum = (255 - ((((13 + address + Asc("S") + Asc("3")) / 256) - Int((13 + address + Asc("S") + Asc("3")) / 256)) * 256)) + 1

messagestring = Chr$(13) & Chr$(address) & "S3" & Chr$(checksum)
messagestring = messagestring & messagestring
messagestring = messagestring & messagestring
comm.Output = messagestring
End Sub

Bruger vb.11

Hvis du søger en metode til at lave checksum på en streng a vilkårlig længde i stedet for det "faste" indhold i eksemplet, kunne det lægges i en funktion som dette:

function csum(cstr)
dim i,j,s
j=0
s=right(cstr,4)
for i=1 to len(s) : j=j+asc(mid(s,i,1)) : next
csum=(j and 255)+1
end function

Bemærk, at dette er VBscript, da jeg ikke kender noget til VB.net - det burde dog let kunne overføres.

Takker for hjælpen.
Har fået det til at virke.