Probleme mit MSComm1.Input

Computer: Software & Programmierung Visual Basic
#1

Hallo,
Ich versuche von meinem Handy den Empfangswert anzeigen zu lassen.
überHyperTerminal ist das kein Problem einfach den Befehl AT+CSQ abschicken und schon kommt der derzeitige Empfangswert.
Aber was ist bei meinem VB6 script falsch das ich den wert nicht zurück bekomme ?
Microsoft com control 6.0 ist „an“

Private Sub Command1_Click()
MSComm1.CommPort = 11
MSComm1.Settings = „9600,N,8,1“
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.InputLen = 0

Dim Eingang As String

MSComm1.Output = „AT+CSQ“ + vbCr
MSComm1.Input = Eingang
Text1.Text = Eingang

End Sub

Private Sub Form_Load()

End Sub

Private Sub MSComm1_OnComm()

End Sub

mfg joe

#2

Hallo Joe.

Ist zwar schon eine ganze Zeit her, daß ich mit dem Com-Port zu tun hatte aber ich versuche mich trotzdem mal daran…

Ich denke, der Fehler liegt in dieser Zeile:

MSComm1.Input = Eingang

Hier versuchst Du MSComm1.Input den Wert der Variable Eingang zuzweisen, um den Wert der Variablen in der nächsten Zeile abzufragen.

Wenn Du „Eingang = MSComm1.Input“ eintipperst sollte das Problem gelöst sein und die nächste Zeile den Text ausgeben.

Wenn es funzt spart Dir „Text1.Text = MSComm1.Input“ übrigens die Variable Eingang.

HTH
Michael