Непростой вопрос про 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы