MicroHacker Forum

Code: Select all

Public Class Form1
    'This aplication is example of comunication ELM327 to Visual basic software
    'Programmed for https://microhacker.denkdose.de/ by Oscarboiro




    'Declarate variables
    Dim myPort As Array


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.CenterToParent()

        BaudBox.SelectedItem = "38400"

        'Read COM ports in the system
        COMBox.Items.Clear()

        Dim i As Integer
        myPort = IO.Ports.SerialPort.GetPortNames()
        COMBox.Items.AddRange(myPort)
        i = COMBox.Items.Count
        i = i - 1
        Try
            COMBox.SelectedIndex = i
        Catch ex As Exception
            Dim result As DialogResult
            result = MessageBox.Show("com port not detected", "Warning !!!", MessageBoxButtons.OK)
            COMBox.Text = ""
            COMBox.Items.Clear()
            Call Form1_Load(Me, e)
        End Try

        COMBox.SelectedItem = "COM1"
    End Sub

    Private Sub ConnectButton_Click(sender As Object, e As EventArgs) Handles ConnectButton.Click

        Timer1.Enabled = True
        SerialPort1.BaudRate = BaudBox.SelectedItem
        SerialPort1.PortName = COMBox.SelectedItem
        SerialPort1.Open()
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'Read serial port constantly
        Try
            Dim i As String = SerialPort1.ReadExisting
            SerialVisor.Text &= i

        Catch ex As Exception

        End Try
    End Sub

    Private Sub WriteButton_Click(sender As Object, e As EventArgs) Handles WriteButton.Click
        'Send data to serial port
        SerialPort1.Write(TextBox1.Text & vbCr)
    End Sub
End Class