string in zahl ändern
27.06.2006 08:17:41
F
ich lese mit diesem Code eine Anzeigeeinheit aus:
Private Sub CommandButton3_Click()
Dim s As String
Dim t As String
OPENCOM "COM1:9600,N,7,1"
'SENDSTRING "RX" & Chr$(13) & Chr$(10)
DELAY 100
s = Space$(11) '11 Leerzeichen (VBA)
READSTRING s 'Auf 11 Zeichen warten
MsgBox "readstring =" & s
CLOSECOM
t = s
t = Right(t, Len(t) - InStrRev(t, " "))
MsgBox "text =" & t
End Sub
t ist dann ein string, der so ausehen kann:
+0005.123
oder
-0006.125
kann mir jemand sagen, wie ich diesen string in eine Zahl ändern kann,
da ich mit diesen Werten weiter rechnen muß.
Mit freundlichen Grüssen Frank
Anzeige