Serialport - Modem

  • VB.NET

    Serialport - Modem

    Hi, versuche z.Z. folgendes:
    Ein Modem (Handy - Serialport) soll ein "ata" bekommen, wenn vom Handy ein "RING" kommt, um einen eingehenden Anruf anzunehmen.

    Ich habs probiert:

    Quellcode

    1. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, _
    6. ByVal e As System.EventArgs) Handles MyBase.Load
    10. End Sub
    13. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    15. cellphone.Open()
    16. addLog("Verbunden")
    17. End Sub
    18. Private Sub addLog(ByVal text As String)
    19. TextBox1.AppendText(My.Computer.Clock.LocalTime.ToString("U") + " - " + text + vbNewLine)
    20. End Sub
    22. Private Sub Button1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Load
    24. End Sub
    26. Private Sub cellphone_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles cellphone.DataReceived
    27. Control.CheckForIllegalCrossThreadCalls = False
    28. TextBox2.AppendText(cellphone.ReadExisting())
    29. End Sub
    31. Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    32. cellphone.Write("ati5" + vbNewLine)
    33. End Sub
    35. End Class


    Funktioniert aber nicht )-:

    Kann mir jemand helfen?

    MfG Tobias

Facebook
Telefonspende