SerialPort Taster

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von flexy1994.

    SerialPort Taster

    Hallo,

    Ich hab ne frag und zwar möchte ich mit VB 2008 über die rs232 schnitstelle einen Taster anschließen. nun ist meine fragewie ich nun auslesen kann ob der taster gedrückt ist oder nicht.
    ich habe hier: linuxfocus.org/Deutsch/January2001/article186.shtml mir den Schltplan dafür raus gesucht. Ich habe auch ein Weiteres programm im Netz gefunden bei dem wenn der Taster gedrückt eine anzeige kommtbei der "DCD" aktiv ist. Ich hoffe ihr könnt mir weiter helfen...!

    M.f.G.: Flexy1994

    P.S.: habe schon einen Beitrag! Der ist aber noch un beantwortet. Bitte auch reinschauen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „flexy1994“ ()

    Hier mein Quellcode hab ihn halt ein bischen verändert rest ist unwichtig...

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. If SerialPort1.CtsHolding Then
    3. '' Damit der Taster erst wieder geöffnet werden muss
    4. If ctsholding = "0" Then
    5. ctsholding = "1"
    6. MsgBox("Taster gedrückt")
    7. End If
    8. Else
    9. ctsholding = "0"
    10. End If
    11. End Sub


    Insgesamt kann man bis zu 3 Taster/Schalter anhängen.

    dazu muss lediglich:
    Serialport.ctsholding
    durch
    .cdholding oder
    .dsrholding ersetzt werden.

    hoffe das hilft weiter sonst nochmal fragen.

    M.f.G.: Flexy1994