Kann nicht vom Serialport lesen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Kann nicht vom Serialport lesen

    Hallo zusammen,

    ich möchte mein Handy (Samsung Star) per Serialport ansteuern, um SMS zu versenden und zu empfangen. Leider scheitere ich schon an der Verbindung zum Handy. In Putty kann ich eingeben, verbinde zu COM4, dann habe ich ne Konsole und kann Befehle wie "at" eingeben und bekomme Antwort vom Handy.

    In VB klappt das aber nicht.

    Quellcode

    VB.NET-Quellcode

    1. Imports System.IO.Ports
    2. Public Class Form1
    4. Public cmd As String = ""
    5. Public pin As String = "2508"
    6. Public t As Threading.Thread
    7. Public u As Threading.Thread
    9. Public WithEvents sp As SerialPort
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. Dim minutesS As String = InputBox("Zeitspanne in Minuten, 0 für einmalig")
    13. If minutesS = Nothing Then Exit Sub
    14. Dim minutes As Integer = CInt(minutesS)
    17. cmd = pin & " " & "LOCATE"
    20. If minutes <> 0 Then
    21. cmd = cmd & " " & minutes.ToString()
    22. End If
    24. SendCmdToPhone(cmd)
    25. End Sub
    27. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    28. sp = New SerialPort("COM4", 9600)
    29. Try
    30. sp.Close()
    31. Catch ex As Exception
    33. End Try
    35. sp.Open()
    36. t = New Threading.Thread(AddressOf checkSMS)
    37. t.Start()
    38. u = New Threading.Thread(AddressOf checkPortConnection)
    39. u.Start()
    44. End Sub
    46. Private Sub checkSMS()
    47. ' Do
    48. ' sp.
    49. '
    53. ' Loop
    54. End Sub
    55. Private Sub checkPortConnection()
    56. Do
    57. If Not sp.IsOpen Then
    58. MsgBox("not open")
    59. sp.Open()
    60. Else
    61. sp.WriteLine("at")
    62. Dim x As String = sp.ReadLine()
    63. If Not x.Trim.ToLower.Contains("ok") Then
    64. sp.Close()
    65. sp.Open()
    66. MsgBox("not connected, but open")
    67. Else
    68. MsgBox("working")
    69. End If
    70. End If
    71. System.Threading.Thread.Sleep(120000)
    72. Loop
    73. End Sub
    74. Private Sub checkPortConnectionOnce()
    75. If Not sp.IsOpen Then
    76. MsgBox("not open")
    77. sp.Open()
    78. Else
    79. sp.Write("at" & Environment.NewLine)
    81. End If
    83. End Sub
    85. Private Function SendCmdToPhone(ByVal cmd As String) As Boolean
    87. End Function
    89. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    90. checkPortConnectionOnce()
    91. End Sub
    93. Private Sub sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
    94. MsgBox(sp.ReadExisting)
    95. End Sub
    96. End Class


    Nach dem sp.write("at" & Environment.NewLine) kommt einfach nix mehr, das Programm steht. Obwohl ich mit Putty ein "ok" bekomme.

    Warum? Wie komme ich an die Daten hinter dem Serialport?

    leseratte

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Leseratte“ ()

    @Leseratte: Such mal in diesem Thread nach SerialPort, da gibt es Beispiele, wie es richtig geht.
    Einen separaten Thread benötigst Du nicht.
    Möglicherweise ist das Environment.NewLine das falsche Trennzeichen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was sagt denn die Beschreibung des Herstellers?
    Nutze ggf. einen Serial-Port-Monitor und kommuniziere über Putty.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende