質問: チェックサムの実装方法について チェックサムの実装方法について データの送信で送信対象データの1バイト毎の合計とチェックサムを加算した値が0x0000になるようなpgをvb.net(バージョン問わず)で作成したいと考えています。
回答: チェックサムの算出範囲の大きさはどの程度なのでしょう? 1byte,2byte,4byte データの配列が byte型ならば function myneg( ardata() as byte ) as integer dim nsum, nneg, n as integer for n = 0 to ardata.length - 1 nsum = nsum and &hff ' 1byteでいいならば ' 2byteならば &hffffとします ' 4byteならば nsum nnegを long型にして &hffffffff nsum += ardata(n) next nneg = &h100 - nsum ' 1byteならば ' 2byteならば &h10000 - nsum ' 4byteならば &h100000000 - nsum retunr nneg end function といった具合でしょう