vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
CRC16 mit VB6 (Letzte rettung) 
Autor: LonelySuicide666
Datum: 23.04.03 20:23
Hallo,

ich suche nach einer Möglichkeit einen CRC16-CITT anhand einer
vorausberechneten Tabelle zu berechnen. Ich habe bereits eine
Funktionierende Funktion schreiben können aber eine Funktion unter
Verwendung einer Tabelle will mir nicht glücken. Liegt das vielleicht an der
VB6 Interpretation des Integer wertes (-32xxx bis +32xxx) ? Wäre nett wenn
mir jemand einen Denkanstoß oder gar ein Beispiel (auch eines anderen CRC16
mechanismusses) geben könnte !

CRC Infos:

CRCWidth = 16
Initvalue = &H0000
Poly = &H1021
XOrOut = &H0000

Folgender Quellcode klappt Prima ist aber sehr langsam ! 

Public Function CalcCrc(CRC As Integer, ByVal Char As Byte)
     Dim TmpB As Boolean, I As Byte
 
     For I = 1 To 8
          If CRC And &H8000 Then
               If CRC And &H4000 Then
                    CRC = ((CRC And &H3FFF) * &H2& Or &H8000) Or ((Char And _
                      &HFF80) \ &H80&) Xor &H1021
               Else
                    CRC = ((CRC And &H3FFF) * &H2& Or ((Char And &HFF80) \ _
                      &H80&)) Xor &H1021
               End If
          Else
               If CRC And &H4000 Then
                    CRC = ((CRC And &H3FFF) * &H2& Or &H8000) Or ((Char And _
                      &HFF80) \ &H80&)
               Else
                    CRC = ((CRC And &H3FFF) * &H2& Or ((Char And &HFF80) \ _
                      &H80&))
               End If
          End If
 
          Char = (Char * &H2&) And &HFF
     Next I
End Function
Für Hilfe wäre ich sehr Dankbar,

Mfg,

Matthias

P.S. Bitte kommt mir nicht mit Links zu PlanteSourceCode.com - da steht nur mist ! Ich habe diese Nachricht schon zu hundert Foren geschickt, ich hoffe hier wird mir geholfen !
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
CRC16 mit VB6 (Letzte rettung)834LonelySuicide66623.04.03 20:23
Re: CRC16 mit VB6 (Letzte rettung)4.384unbekannt23.04.03 20:40
Re: CRC16 mit VB6 (Letzte rettung)505LonelySuicide66624.04.03 20:26
Re: CRC16 mit VB6 (Letzte rettung)4.506Wöllmi23.04.03 21:53
Hier der Code4.581Wöllmi23.04.03 21:56
Re: Hier der Code Teil 24.451Wöllmi23.04.03 21:57
Re: Hier der Code498LonelySuicide66624.04.03 19:47
Re: Hier der Code4.680unbekannt24.04.03 22:03
Re: Hier der Code477LonelySuicide66625.04.03 06:00
Re: Hier der Code4.411unbekannt25.04.03 17:22
Oh Mann natürlich umgekehrt 4.292unbekannt25.04.03 17:30
Re: Oh Mann natürlich umgekehrt 488LonelySuicide66625.04.03 20:15
Re: Oh Mann natürlich umgekehrt 4.274unbekannt25.04.03 20:28
Re: Oh Mann natürlich umgekehrt 476LonelySuicide66626.04.03 12:29
Re: CRC16 mit VB6 (Letzte rettung)484Analyzer26.04.03 12:59
Noch näher an der Beschreibung:488Analyzer26.04.03 13:49
Re: Noch näher an der Beschreibung:475LonelySuicide66626.04.03 15:27
Re: Noch näher an der Beschreibung:470Analyzer26.04.03 17:12
Re: Noch näher an der Beschreibung:464LonelySuicide66626.04.03 20:56
Anregung: CRC16 mit Tabelle5.428Wöllmi26.04.03 23:00
Habe Routine für CRC16 Tabelle5.269Wöllmi27.04.03 22:39
Re: Habe Routine für CRC16 Tabelle472LonelySuicide66628.04.03 10:47
Re: Habe Routine für CRC16 Tabelle4.962Wöllmi28.04.03 22:58
&h270C muß rauskommen4.380Wöllmi28.04.03 23:00
Re: CRC16 mit VB6 (Letzte rettung)4.590Swiss Ueli30.04.03 18:26
Re: CRC16 mit VB6 (Letzte rettung) - Teil 24.487Swiss Ueli30.04.03 18:30

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel