Hi,
So würde ich es auch machen. Allerdings als Text.Beide Variablen in eine Variable packen:
Ist aber eine "macke" von mir, alles mit Text zu senden.
Dauert halt länger als direkt ein Byte zu übertragen.
Aber wenn man ASCII sendet, kann man sich das schön im Hyperterminal angucken![]()
Ich setze immer ein oder zwei Starbytes vorne dran um den Anfang besser erkennen zu können.
In VB kann man den String wieder bequem mit dem MID Befehl auseinanderkriegen
GrußCode:$crystal = 8000000 Baud = 9600 Dim Temperatur1 as integer Dim Temperatur2 as integer Dim Temp1 as String*3 Dim Temp2 as String*3 Dim Temperatur As String * 7 Dim Startbyte As String * 1 Startbyte = "T" Do Gosub Messe_temperaturen Gosub Umwandeln Gosub Senden Loop End Senden: Temperatur = Startbyte + Temp1 + Temp2 Print Temperatur Return Umwandeln: Temp1 = Str(temperatur1) Temp2 = Str(temperatur2) Temp1 = Format(temp1 , "000") Temp2 = Format(temp2 , "000") Return messe_temperaturen: Temperatur1 = 88 'Beispielwert Temperatur2 = 124 'Beispielwert '* '* '* return
Christopher






Zitieren

Lesezeichen