RS232 Terminal

[feitzi]

Hallo
Ich möchte gerne in VBA ein Auswertung erstellen. Dazu sende ich vom AVR über Print einen codierten Wert. zB Sensor-1 wird mit 11000 addiert. in VBA kommt dann zB 11034 an ich brauche dann in VBA eine Auswertung: ist Wert >10999 und Wert < 12000 dann Sensor-1 = Wert - 11000. In VBA bekomme ich die Werte in einer Text Zeile mit dem Befehl Me.Text=Me.Text+MSComm.Input. Ich hab versucht den Wert zu zerlegen aber ich bekomms einfach nicht hin.

[shedepe]

Könntest du deine Frage vllt noch einmal in anderen Worten stellen..ich verstehe deine Frage grade nicht ganz

[peterfido]

Mit

dim wert as integer
if isnumeric(text) then
wert =cint (text)
end if

wandelst Du einen Zahlenwert um. Diesen kannst du dann abfragen.

if wert > 10999 and wert < 12000 then wert = wert -11000