Непростой вопрос про 8-битовую сумму (XOR) - VB
Формулировка задачи:
Привет всем.
такая вот у меня возникла задачка:
'Создать процедуру, подсчитывающую 8-битовую сумму (XOR) ACSII кодов всех символов строки. Результат записать в явном виде.'
Может кто подскажет в каком направлении рыть-копать ??
Решение задачи: «Непростой вопрос про 8-битовую сумму (XOR)»
textual
Листинг программы
Sub Main() Dim st As String, sCode As Byte, i As Integer, sum As Byte st = 'GPRMC,164336.000,A,5020.0531,N,00845.4969,E,8.63,,260104,,' sum = Asc(Mid$(st, 1, 1)) For i = 2 To Len(st) sCode = Asc(Mid$(st, i, 1)) sum = sum Xor sCode Next i Debug.Print sum ' напечатает 31, т.е. 1F End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д