Click here to Skip to main content
15,888,802 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Paging in Datagrids Pin
Henry Minute7-Apr-09 1:48
Henry Minute7-Apr-09 1:48 
Questionvb and flash Pin
ahlamissa6-Apr-09 2:38
ahlamissa6-Apr-09 2:38 
AnswerRe: vb and flash Pin
Dave Kreskowiak6-Apr-09 10:45
mveDave Kreskowiak6-Apr-09 10:45 
AnswerRe: vb and flash Pin
Christian Graus6-Apr-09 16:58
protectorChristian Graus6-Apr-09 16:58 
AnswerRe: vb and flash Pin
Anubhava Dimri6-Apr-09 21:50
Anubhava Dimri6-Apr-09 21:50 
Questionurgent: vb6 code to calculate 16 bit CRC-CCITT Pin
singende6-Apr-09 2:15
singende6-Apr-09 2:15 
AnswerRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
Jay Royall6-Apr-09 2:24
Jay Royall6-Apr-09 2:24 
AnswerRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
CPallini6-Apr-09 3:32
mveCPallini6-Apr-09 3:32 
the following is VBA (VB6 is dead on my system)
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


Smile | :)

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.

This is going on my arrogant assumptions. You may have a superb reason why I'm completely wrong.
-- Iain Clarke

[My articles]

GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
singende6-Apr-09 4:08
singende6-Apr-09 4:08 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
0x3c06-Apr-09 4:11
0x3c06-Apr-09 4:11 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
CPallini6-Apr-09 5:01
mveCPallini6-Apr-09 5:01 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
0x3c06-Apr-09 5:53
0x3c06-Apr-09 5:53 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
CPallini6-Apr-09 10:44
mveCPallini6-Apr-09 10:44 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
0x3c06-Apr-09 23:24
0x3c06-Apr-09 23:24 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
CPallini6-Apr-09 23:31
mveCPallini6-Apr-09 23:31 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
0x3c07-Apr-09 1:36
0x3c07-Apr-09 1:36 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
CPallini7-Apr-09 1:48
mveCPallini7-Apr-09 1:48 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
singende6-Apr-09 5:11
singende6-Apr-09 5:11 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
Vimalsoft(Pty) Ltd6-Apr-09 21:05
professionalVimalsoft(Pty) Ltd6-Apr-09 21:05 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
Dave Kreskowiak6-Apr-09 10:43
mveDave Kreskowiak6-Apr-09 10:43 
JokeRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
CPallini6-Apr-09 10:46
mveCPallini6-Apr-09 10:46 
AnswerRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
Christian Graus6-Apr-09 16:59
protectorChristian Graus6-Apr-09 16:59 
GeneralRe: urgent: vb6 code to calculate 16 bit CRC-CCITT Pin
DaveyM697-Apr-09 0:37
professionalDaveyM697-Apr-09 0:37 
QuestionHow to maintain two seperate bindings Pin
bhagyashri.biyani5-Apr-09 21:35
bhagyashri.biyani5-Apr-09 21:35 
Questionhelp on sending and receiving sms via VB.NET Pin
geok lin5-Apr-09 17:59
geok lin5-Apr-09 17:59 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.