Hallo,
ich habe folgendes Problem,ich möchte von einem Array die Checksumme bilden und nutze dafür folgenden Code:
Function SemiCRC(ByVal source() As Byte) As Integer
Dim crc, temp As Integer, i As Long
Const divisor As Integer = 32768
For i = 0 To source.GetUpperBound(0)
temp = 0
If crc \ divisor Then temp = 1
crc = (((crc * 2) And &HFFFF&) + temp) Xor CLng(source(i))
Next
Return crc
End Function
Allerdings tritt ein Problem auf an der Stelle crc\divisor auf, mit der Fehlermeldung das keine Konvertierung von Integer auf Boolean zugelassen wird. Auch an der Stelle CLng(source(i)) kommt die Fehlermeldung das keine Konvertierung von Long auf Integer zugelassen wird.Da ich dieses Beispiel von der Seite www.vb2themax.com habe wundert dies mich.(Das soll Fehler nicht ausschliesen)
Welche Modifizierungen muss ich denn vornehmen? Habe schon so ziemlich alles versucht!
Danke schonmal für die Hilfe
| Betreff |
Von |
Datum |
|
|
  |
Re: CRC Problem
| Hallo ?,<br><br>ähm die Zeile [If crc \ divisor Then] ist kein Wahrheitswert also was soll der Compiler denn da auswerten?<br><br>cu<br><br>Tobi |
|
|
|
|
|
Tobi
Ulm
|
29.10.2003 15:26 |
|
|
|
Re: CRC Problem
| Sorry,<br><br>Missverständnis, ich komme noch nicht einmal bis zum Compiler diese Fehler werden direkt angezeigt wenn ich diesen Code in meine Projekt kopiere, von der angegebenen Seite aus! Genau das ist... |
|
|
|
|
|
G.
Guest
|
29.10.2003 15:42 |
|
|
|
Re: CRC Problem
| Hallo ?<br><br>Was glaubst du, was Visual Studio macht, um den Fehler anzuzeigen? Compilieren?<br><br>mfg<br><br>Till |
|
|
|
|
|
Till
Groos
|
30.10.2003 15:42 |
|
|
|
Re: CRC Problem
| Hi,<br>also bei mir (unter MS-Visual Studio.Net) funzt der Code ohne Probleme.<br><br>Bei If ist 0 übrigens false und der Rest true :-)<br><br>Beispiel (Mal im DebugModus verfolgen):<br><br>Dim a As String<br>If 1 -... |
|
|
|
|
|
Thomas
Golla
|
05.11.2003 10:07 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
