Visual Basic

Private Sub CommandButton1_Click()
    Dim crc As Long
    Dim n As Integer
    Dim values(8) As Byte
    crc = &HFFFF&
    
    For n = 0 To 7
        values(n) = &H30 + n
    Next n
    For n = 0 To 7
        crc = calc_crc(crc, values(n))
    Next n
    MsgBox ("Crc " & crc)
   
End Sub

Private Function calc_crc(ByVal crc_buff As Long, ByVal inp As Byte) As Long
    Dim i As Byte
    Dim x16 As Long
    For i = 0 To 7
    
        If ((crc_buff And 1) Xor (inp And 1)) = 1 Then
            x16 = &H8408&
        Else
            x16 = 0
        End If
        crc_buff = crc_buff \ 2
        crc_buff = crc_buff Xor x16
        inp = inp \ 2
    Next i
    calc_crc = crc_buff
End Function

Computafreak wrote:

Doesn't VB6 implicitly pass all parameters by reference?

CPallini wrote:

Private Function calc_crc(ByVal crc_buff As Long, ByVal inp As Byte) As Long
    Dim i As Byte
    Dim x16 As Long
    For i = 0 To 7
    
        If ((crc_buff And 1) Xor (inp And 1)) = 1 Then
            x16 = &H8408&
        Else
            x16 = 0
        End If
        <big>crc_buff = crc_buff \ 2</big>
        <big>crc_buff = crc_buff Xor x16</big>
        <big>inp = inp \ 2</big>
    Next i
    calc_crc = crc_buff
End Function

Christian Graus wrote:

Why are you using VB6 ? Do you hate yourself ?