dotNETportal.cz

Dobrý den, začal jsem s VB asi před 14 dny a řeším pro mne zapeklitý problém.

Mam kód, který mi vypíše data co příjmu po RS232 v textboxu. To funguje precizně ale mam problem že potřebuji i data porovnavat se select case a to nemůžu dát dohromady.

Myslíte že byste mě mohli navést na správnou cestu??

Můj kod

    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        
'Prichozitext(SerialPort1.ReadExisting())

        If Me.InvokeRequired() Then
            Dim dr As New DataRecievedDelegate(AddressOf DataRecieved)
            Me.Invoke(dr, e, SerialPort1.ReadLine)
        Else
            DataRecieved(e, SerialPort1.ReadLine)
        End If
    End Sub

    Sub DataRecieved(ByVal e As System.IO.Ports.SerialDataReceivedEventArgs, ByVal linka As String)

        Dim _cmd As String = linka
        Select Case _cmd
            Case "ahoj"
                MsgBox("ahoj")
        End Select

    End Sub

    'Private Sub Prichozitext(ByVal [text] As String)
    '    If Me.TextBox5.InvokeRequired Then
    'Dim x As New settextcallback(AddressOf Prichozitext)
    '        Me.Invoke(x, New Object() {(text)})
    '    Else
    '        Me.TextBox5.Text &= [text]
    '    End If

    ' End Sub

Zdravím,

Číst data z portu by se mělo až v "sub dataRecieved".

No podivejte se co máte v proměnné "linka". Jestli příjímáte z mobilu, bude tam něco jinýho než jen ahoj.

Jan