Converter USB-phone to RS232

ini contoh program untuk conversi dari usb phone ke pc untuk konfersi data lewat serial comunicationnya
agar bisa di akses melalui serial com....

program milik yudha panji rahman

Source Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Connect" Then
            Button2.Text = "Disconnect"
            SerialPort1.PortName = TextBox1.Text
            SerialPort2.PortName = TextBox7.Text
            SerialPort1.Open()
            SerialPort2.Open()

            Timer1.Enabled = True
        Else
            Timer1.Enabled = False
            SerialPort1.Close()
            SerialPort2.Close()
            Button2.Text = "Connect"

        End If


    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim A, B As String
        A = SerialPort1.ReadExisting
        If A <> "" Then SerialPort2.Write(A)


        B = SerialPort2.ReadExisting
        If B <> "" Then SerialPort1.Write(B)


        TextBox9.Text = TextBox9.Text & A
        TextBox10.Text = TextBox10.Text & B

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class

semoga bermanfaat

thx