0

hey can't seem to send and receive data...i followed an instruction from another site...but its not working...can u guys help me out..

Private Sub conn_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles conn_button.Click
        LoginPanel.Hide()
        dport.Text = ComboBox1.SelectedItem
        drate.Text = ComboBox2.SelectedItem
        SerialPort1.PortName = ComboBox1.SelectedItem
        SerialPort1.BaudRate = ComboBox2.SelectedItem

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendButton.Click
        ListBox1.Items.Add(nameBox.Text & " : " & ChatBox.Text)
        ChatBox.Clear()
        ChatBox.Select()
        SerialPort1.Open()
        SerialPort1.Write(ChatBox.Text)
        SerialPort1.Close()

        SerialPort1.Open()
        ListBox1.Items.Add(SerialPort1.ReadChar())
        SerialPort1.Close()

    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        MsgBox("This is a software", MsgBoxStyle.OkOnly)

    End Sub

    Private Sub Dis_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dis_button.Click
        LoginPanel.Show()
    End Sub

.

thanks guys...

2
Contributors
1
Reply
2
Views
8 Years
Discussion Span
Last Post by omoridi
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.