VB 2010 Komnikace RS232   otázka

VB.NET, I/O operace

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
nahlásit spamnahlásit spam 0 odpovědětodpovědět

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

nahlásit spamnahlásit spam 0 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback