Visual Basic

singende wrote:

Private Sub CommandButton1_Click()
Dim crc As Long
Dim n As String
Dim values(13) As Byte
Dim k As Integer
Dim i As Integer

crc = &HFFFF&
n = text1.Text

k = 0
For i = 1 To Len(n)
values(k) = "&H" & Mid(n, i, 2)
i = i + 1
k = k + 1
Next i

For k = 0 To 12
crc = calc_crc(crc, values(k))
Next k
MsgBox ("Crc " & Hex(crc))

End Sub

Private Sub CommandButton1_Click()
    Dim crc As Long
    Dim n As Integer
    Dim values() As Byte
    Dim length As Long
    Dim sval As String
    
    sval = text1.Text
    length = Len(sval) / 2
    
    ReDim values(length) As Byte
    
    
    crc = &HFFFF&
    
    For n = 0 To length - 1
        values(n) = CLng("&H" & Mid(sval, 1 + n * 2, 2))
    Next n
    For n = 0 To length - 1
        row = n + 1
        crc = calc_crc(crc, values(n))
    Next n
    MsgBox ("Crc " & crc)
   
End Sub

Luc Pattyn wrote:

You have been called Blessed

Luc Pattyn wrote:

and Schmuck

Luc Pattyn wrote:

By your own principles, you should not support CRC code whatsoever

• VB6 programmers are really, really cursed people, pietas is noblesse oblige with them.
• What the fu*k: Klingon warriors obey no General!

Luc Pattyn wrote:

Your MVP status is at stake here.

CPallini wrote:

Klingons don't care about whatever MVP status (just kidding Chris, just kidding... Roll eyes )

l = name.IndexOf(".")
If name.Contains("Groupe") Then 
  Grp = True   NbOfSpaces = NbOfCar(name, " ") + 2
ElseIf Grp And NbOfCar(name, " ") = NbOfSpaces Then  
 name = (name.Substring(0, l) & Trim(comp) & name.Substring(l, (name.Length - l) - Nb) & desF.Insert(0, a) & desAF & desA & desAA & ecn & dnf & repDNF & repASM)   
 sw.WriteLine(name.Remove(0, 2))
Else    
Grp = False
End If