Hi,
Beide Variablen in eine Variable packen:
So würde ich es auch machen. Allerdings als Text.
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
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
Gruß
Christopher
Lesezeichen