DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

help with serial port....

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Sep 2008

Posts: 23

Reputation: gopi17 is an unknown quantity at this point

Solved Threads: 0

gopi17

Offline

Newbie Poster

help with serial port....

Sep 13th, 2009

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..

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
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
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