pcmhacking.net

Code: Select all

 SerialPort1.BaudRate = ComboBoxBaudRate.SelectedItem
        SerialPort1.PortName = ComboBoxCom.SelectedItem
        SerialPort1.DataBits = 8
        SerialPort1.Handshake = IO.Ports.Handshake.None
        SerialPort1.NewLine = vbCr
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.ReadTimeout = 1000

Code: Select all

 Public Function DetectElmDeviceGetResponse(SentFrame As String)
        Dim ReceivedFrame As String = ""
        Dim Counts2Exit As Integer = 0
        Do 'do until exited
            Try
                'if there is something there.. read it!
                ReceivedFrame = SerialPort1.ReadLine 'Read Message!
                If ReceivedFrame <> SentFrame Then 'check if received frame matches sent.. ignore if so
                    If ReceivedFrame.Contains("SEARCHING...") Then 'ignore.. move onto next
                        'ignore this
                    ElseIf ReceivedFrame.Contains("NO DATA") Then 'ELm says no response.. fail! Shouldnt happen since gtting Elm info!
                        Return "Failed"
                    Else
                        Return ReceivedFrame 'hopefully out response
                    End If
                End If
            Catch ex As TimeoutException 'if nothings available, timout after 1 second.
                Counts2Exit += 1
                If Counts2Exit = 5 Then 'fail after timeout 4times
                    SetRichTextBox_ThreadSafe("Timed Out!", RichTextBoxReceive)
                    Return "Failed"
                Else
                    SetRichTextBox_ThreadSafe("Timed out.. Searching again.." & Counts2Exit, RichTextBoxReceive)
                End If
            End Try
        Loop
    End Function

Code: Select all

Received: ?
Sent: ELM327 v1.5
Received: ATZ
Sent: ELM327 v1.5
Received: ATE0
Sent: OK
Received: ATL0
Sent: OK
Received: ATRV
Sent: 12.3V
Received: ATSP 2
Sent: OK
Received: 01 00
Sent: 41 00 BE 1F B8 10
Received: ATH1
Sent: OK
Received: 01 00
Sent: 68 F1 10 41 00 BE 1F B8 10
Received: ATSH 68 6A F1
Sent: OK
Received: 09 02
Received: 09 02
Received: 09 02
Received: 09 02
Received: 01 00
Sent: 68 F1 10 41 00 BE 1F B8 10
Received: AT@1
Received: AT@1
Received: AT@1
Received: AT@1
Received: 01 00
Sent: 68 F1 10 41 00 BE 1F B8 10
Received: 01 00
Sent: 68 F1 10 41 00 BE 1F B8 10
Received: 01 00