Hallo,
kurze Frage:
Ein aus einem Kombinationfeld ausgewählter Wert möchte ich einem
anderen Wert zuweisen und in einem Textfeld ausgeben.
Ist das verständlich?
Beispiel:
Combobox beinhaltet die Buchstaben A, B,F,D,S. Wenn A ausgewählt ist
soll in einem Texfeld Affe stehen.
Danke für die Hilfe
Hi Mc,
also von dieser Idee hab ich jetzt schon öfters gelesen.
Ich danke Dir für die Hilfe. Ich werde mich mal dran setzen.
Oje ich sehe ein langes Wochenende auf mich zukommen.
Hallo McTristan,
also ich hab den Link von tacticus mir angeschaut,
und ich bin der meinung der ist in VB oder liege ich da ganz falsch.
Also ich hab ein anderes fertiges Programm in VB aber der rechnet mir
eine Checksumme von dem String z.B. "Hallo Welt"
ich möchte aber eine Hex String eingeben.
z.B. 01 03 03 02 00 14
die Checksumme ist 41E4
Vll kann man diesen Programml leicht umschreiben.
Aber ich weiss nicht wie.
ich denke man muss dort irgendwie die Bytes umwandeln oder so.
Hier mal der Code. ich bin Anfänger also entschuldigt die nicht fachgerechten
Ausdrücke.
' CRC16
Option Explicit
Private Sub Command1_Click()
Dim mask, j, n, Crc As Integer
Crc = -1 ' crc mit $ffff initalisieren
For n = 1 To Len(Text1.Text)
j = Asc(Mid(Text1.Text, n, 1)) ' crc immer als ascii
Debug.Print j
Crc = Crc Xor j
For j = 1 To 8
mask = 0
If Crc / 2 <> Int(Crc / 2) Then mask = &HA001
Crc = Int(Crc / 2) And &H7FFF: Crc = Crc Xor mask
Next j
Next n
Text2.Text = Hex$(Crc) ' crc anzeigen
End Sub
Hi,
vielen vielen Dank für den Link.
Habe den Code mal kopiert und laufen lassen.
Er meckert zwar nicht, aber wo kann ich denn jetzt
dort eine Eingabe machen.
Hi,
ich beschäftige mich auch gerade mit CRC16
Prüfsummen.
Bist Du schon fündig geworden?
Ich suche ein Code mit dem ich solch eine
Check Summe mit Visual Basic berechnen kann.
gruss Sio
