Keskustelu: Ohjelmointikysymykset: VB6 8 ja 16 bittinen tarkistesumma

Tarvitsisin hieman taas apua tehdä vastaavat VB net juttut VB6:lla

Eli nuo Cbyte ja CUShort käskyt, vastaako tuo Cbyte käsky samma kun luvusta vähennetään aina 256 jos luku on suurempi kuin 255 kun niitä lukuja lasketaan yhteen ?

8 bittinen tarkiste:

Dim i As Integer = startAddr

Do While (i <= endAddr)
num = Cbyte((num + buffer(i)))
i+=1
Loop
num=-num

ja sitten 16 bittinen tarkiste:

Dim i As Integer = startAddr

Do While (i <= endAddr)
num = CUShort((num + buffer(i)))
i+=1
Loop
num=-num
Num1 = Cbyte((num>>8))
Num2 = Cbyte(num)