JCB

[try]

Прошу модераторов сильно меня не пинать.

Нужен пинок, 5 часов - мозг вскипел!

JCB какой-то свежий: 3 стрелки - обороты, топливо, температура и еще стрелочные часы.

память 24С16.

Можно все вытереть , оставив одну строку.

Любое изменение в строке - на дисплее 00 (ошибка)

 

с часами понятно, но как прилеплены еще 2 "кусочка" (3 байта и 4 байта) ?

JCB_new.rar

[EduardNN]

Важны последние 4ре, даже два последних - контролька однако....

[try]

АГА! Спасиб!

Что контролька , понял, не понятно было где она.

Не сообразил что контролькой могут быть 2 байта.

Завтра продолжу.

[salexo]

блин, а на твоем месте наверно должен был быть я, но до меня он не доехал, даже ценник не успел сказать

[try]

наверно повезло тебе, хотя процесс интересен, но:

Ни хрена не понимаю с контролькой!

Люди!!!

Дайте пару - тройку дампов.

[try]

Неужели ни у кого не было?

Пошукайте , плиззз.

[DASHMASTER]

Это CRC-16/CCITT .

[Andron_h]

Public Function getCRC16(ByVal strInput As String)

       Dim lngCheck As Long
       Dim Power(7) As Integer
       Dim I As Integer
       Dim J As Integer
       Dim Poly As Long
       Dim CRC As Long
       Dim TestBit As Boolean
       Dim TestBit1 As Boolean
       Dim TestBit2 As Boolean

       Poly = &H1021
       CRC = &HFFFF

       For J = 0 To 7
           Power(J) = 2 ^ J
       Next J

       For I = 1 To Len(strInput) Step 2
           lngCheck = Val("&H" & Mid$(strInput, I, 2))
           For J = 7 To 0 Step -1
               If (CRC And 32768) = 32768 Then
                   TestBit1 = True
               Else
                   TestBit1 = False
               End If

               If (lngCheck And Power(J)) = Power(J) Then
                   TestBit2 = True
               Else
                   TestBit2 = False
               End If

               TestBit = TestBit1 Xor TestBit2
               CRC = (CRC And 32767) * 2
               If TestBit = True Then
                   CRC = CRC Xor Poly
               End If

           Next J
       Next I

       Dim tmp As String
       tmp = Hex(CRC)
       getCRC16 = tmp

   End Function

Private Sub Command1_Click()
MsgBox getCRC16("0005E3E800016C37000000000334")
End Sub

 

на выходе &H2490

Изменено 26 февраля, 2012 пользователем Andron_h

[EduardNN]

Тут online калькулятор CRC16

[try]

М-да ,не зря Вы все тут!

Спасибо!

Пошел на одной строке попробую, поздно уже у нас.

или все одинаковые засадить?

___________________

Забил одинаково, нормально.

Изменено 26 февраля, 2012 пользователем try

[sab]

М-да ,не зря Вы все тут!

Спасибо!

Пошел на одной строке попробую, поздно уже у нас.

или все одинаковые засадить?

___________________

Забил одинаково, нормально.

давай подробнее, не понятно тебя!

[try]

Вот

1584.bin