Serial-Port ansteuerung

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Eierlein.

    Serial-Port ansteuerung

    Hallo,

    ich möchte bei der seriellen Schnittstelle unter VB 2012 die Leitungen TxD, DTR und RTS einzeln (und unabhängig voneinander) auf high bzw. low setzen.

    Problem: TxD lässt sich wunderbar über SerialPort1.BreakState = True setzen. Setze ich nun aber SerialPort1.RtsEnable = True fällt TxD wieder auf low (gleiches bei DTR)
    Ich kann zwar TxD im Anschluss gleich wieder auf "True" setzen, dieses "gepulste" TxD stört allerings das Endgerät.

    Wenn ich auf einen anderen Basic-Dialekt verlinken darf: freebasic-portal.de/code-beisp…en-comport-winapi-78.html
    Hier funktioniert dies problemlos, nur würde ich ein grafisches Setup und die Möglichkeit der Weiterverarbeitung der Daten in VB vorziehen.

    Handshake ist nicht aktiviert. Auch das Thema "Bitwackeln" über die Suche habe ich schon, soweit mir als VB-Neuling nachvollziehbar, durch.

    Grüße, Börny

    Hallo fraju,

    richtig, ich benutze zwei COM-Ports welche über USB-Adapter (FTDI-Chipsatz) angeschlossen sind. Dies müsste dann aber ein Problem der Ansteuerung unter VB sein, da beide Ports unter FreeBasic einwandfrei arbeiten. Echte Com-Ports werden bei PCs oder Notebooks anscheinend nicht mehr benötigt, sind nur noch selten anzutreffen.
    Kann ich dieses Ansteuerungs-Problem evtl. umgehen? Ich habe öfters was von "MSCOMM32.OCX" und diversen DLLs gelesen, jedoch wird hier nur das Senden und Empfangen von Zeichenketten beschrieben. Ich muss jedoch nur bestimmte Pins der Schnittstelle auf high/low schalten und bekomme auf einem Pin eine Bitfolge zur Auswertung zurück.

    Danke, Börny

    Für die direkte Ansteurung musst du, wie bei FreeBasic, über API-Aufrufe gehen.
    (Wie die API Deklaration in Vb.net funktioniert und wie du an den COM-Handle kommst, musst du selber rausfinden).

    Quellcode

    1. 'Deklaration für VB(6,A)
    2. 'FÜR VB.NET Long durch Integer ersetzen!
    4. Declare Function EscapeCommFunction Lib "kernel32.dll" ( _
    5. ByVal nCid As Long, _
    6. ByVal nFunc As Long) As Long
    8. nCid --> Handle des COMPorts
    10. Werte für nFunc:
    11. Entweder als Konstanten deklarieren oder die Zahlen verwenden
    13. SETDTR ----> 5
    14. CLRDTR ----> 6
    15. SETRTS ----> 3
    16. CLRRTS ----> 4
    17. SETBREAK --> 8
    18. CLRBREAK --> 9

    @Boerny:: Kannst Du dieses Kabel einfach abklemmen und im Stecker direkt auf High oder Low legen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Eierlein

    das habe ich auch schon gefunden, leider ist das hier msdn.microsoft.com/de-de/library/bb979092.aspx#ID0EVD nicht gerade verständlich für Einsteiger (zumindest für mich) geschrieben. Und wieder wird mit Zeichenketten hin und her geschickt, das kann ich leider nicht umsetzen.

    @Rod

    naja, können täte ich schon, dann wäre aber das hier alles sinnfrei. TxD ist für die Stromversorgung der angeschlossenen Schaltung zuständig und sollte durch die Software schaltbar sein.

    Börny

    Boerny schrieb:

    und sollte durch die Software schaltbar sein.
    Dann aber nicht über ein Signalkabel!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hier ein compilierbares Consolen-Programm zum testen:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Runtime.InteropServices
    3. '-------------------------------------------------------------------------
    5. Module Module1
    7. <DllImport("kernel32.dll")> Function _
    8. EscapeCommFunction( _
    9. ByVal nCid As Integer, _
    10. ByVal nFunc As Integer) As Integer
    11. End Function
    14. <DllImport("kernel32.dll")> Function _
    15. EscapeCommFunction(ByVal hFile As Integer, ByVal ifunc As Long) As Boolean
    16. End Function
    19. <DllImport("kernel32.dll")> Function _
    20. CreateFile(<MarshalAs(UnmanagedType.LPStr)> ByVal lpFileName As String, _
    21. ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, _
    22. ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, _
    23. ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer
    24. End Function
    26. <DllImport("kernel32.dll")> Function _
    27. CloseHandle(ByVal hObject As Integer) As Integer
    28. End Function
    32. Sub Main()
    33. Dim hComm1 As Integer, hComm4 As Integer
    35. hComm1 = OpenCom("Com1")
    36. hComm4 = OpenCom("Com4")
    38. TXT_An(hComm4)
    39. Console.WriteLine("Enter drücken") : Console.ReadLine()
    40. DTR_An(hComm4)
    41. Console.WriteLine("Enter drücken") : Console.ReadLine()
    42. RTS_An(hComm4)
    43. Console.WriteLine("Enter drücken") : Console.ReadLine()
    44. DTR_Aus(hComm4)
    45. Console.WriteLine("Enter drücken") : Console.ReadLine()
    46. RTS_Aus(hComm4)
    47. Console.WriteLine("Enter drücken") : Console.ReadLine()
    48. DTR_An(hComm4)
    49. Console.WriteLine("Enter drücken") : Console.ReadLine()
    50. TXT_Aus(hComm4)
    51. Console.WriteLine("Enter drücken") : Console.ReadLine()
    54. CloseCom(hComm1)
    55. CloseCom(hComm4)
    56. End Sub
    58. Sub DTR_An(ByVal nCid As Integer)
    59. EscapeCommFunction(nCid, 5)
    60. End Sub
    61. Sub RTS_An(ByVal nCid As Integer)
    62. EscapeCommFunction(nCid, 3)
    63. End Sub
    65. Sub TXT_An(ByVal nCid As Integer)
    66. EscapeCommFunction(nCid, 8)
    67. End Sub
    69. Sub DTR_Aus(ByVal nCid As Integer)
    70. EscapeCommFunction(nCid, 6)
    71. End Sub
    73. Sub RTS_Aus(ByVal nCid As Integer)
    74. EscapeCommFunction(nCid, 4)
    75. End Sub
    76. Sub TXT_Aus(ByVal nCid As Integer)
    77. EscapeCommFunction(nCid, 9)
    78. End Sub
    80. Function tt()
    82. End Function
    83. Sub CloseCom(ByVal nCid As Integer)
    84. CloseHandle(nCid)
    85. End Sub
    87. Function OpenCom(ByVal ComNr As String) As Integer
    88. Dim nCid As Integer
    89. nCid = CreateFile(ComNr, _
    90. &H80000000 Or &H40000000, 0, 0, _
    91. 3, 0, 0)
    92. If nCid <> -1 Then
    93. OpenCom = nCid
    94. Else
    95. OpenCom = 0
    96. End If
    97. End Function
    99. End Module

    Ich möchte euch nicht von eurem Weg abbringen, möchte aber dies noch schreiben.
    Dies kommt bei einigen USB to Serial Adaptern vor, in Verbindung mit VB.net.

    Hatte dieses Problem vor Jahren auch, bis ich verschiedene USB to232 Wandler testete.
    Könnte sein das dies hier sogar im Forum steht.
    Gruß

    @ Eierlein,

    habe den Code in eine Windows-Anwendung übernommen und drei Check-Buttons hinzugefügt. Dankeschön, das klappt so nun einwandfrei mit der getrennten Ansteuerung der drei Ausgänge (zumindest auf einer Testplatine am Com-USB-Adapter)
    Jetzt wahrscheinlich eine dämliche Frage: Könnte man darüber auch Eingangsleitungen abfragen oder muss das über den VB-Internen Serialport gemacht werden?

    Frohes neues Jahr,
    Börny

    Könnte man darüber auch Eingangsleitungen abfragen


    Kann man. (Konnte ich allerdings noch nicht testen).


    Statt GetCommModemStatus hatte ich EscapeCommFunction 2-mal deklariert.
    Hier noch mal alle benötigten Deklarationen:

    VB.NET-Quellcode

    1. <DllImport("kernel32.dll")> Function _
    2. EscapeCommFunction( _
    3. ByVal nCid As Integer, _
    4. ByVal nFunc As Integer) As Integer
    5. End Function
    7. <DllImport("kernel32.dll")> Function _
    8. GetCommModemStatus( _
    9. ByVal hFile As Integer, _
    10. ByVal lpModemStat As Integer) As Integer
    11. End Function
    14. <DllImport("kernel32.dll")> Function _
    15. CreateFile(<MarshalAs(UnmanagedType.LPStr)> ByVal lpFileName As String, _
    16. ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, _
    17. ByVal lpSecurityAttributes As Integer, ByVal dwCreationDisposition As Integer, _
    18. ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer
    19. End Function
    21. <DllImport("kernel32.dll")> Function _
    22. CloseHandle(ByVal hObject As Integer) As Integer
    23. End Function

    ------------------------------------

    'Beispiel um den CTS Status abzufragen

    VB.NET-Quellcode

    1. CTSStatus = CTS(hCOMMx)


    ------------------------------------

    VB.NET-Quellcode

    1. Function CTS(ByVal nCid As Integer) As Integer
    2. Dim status As Integer
    3. GetCommModemStatus(nCid, status)
    4. If (status And &H10%) = &H10% Then CTS = 1 Else CTS = 0
    5. End Function
    7. Function DSR(ByVal nCid As Integer) As Integer
    8. Dim status As Integer
    9. GetCommModemStatus(nCid, status)
    10. If (status And &H10%) = &H10% Then DSR = 1 Else DSR = 0
    11. End Function
    13. Function RI(ByVal nCid As Integer) As Integer
    14. Dim status As Integer
    15. GetCommModemStatus(nCid, status)
    16. If (status And &H40%) = &H40% Then RI = 1 Else RI = 0
    17. End Function
    19. Function DCD(ByVal nCid As Integer) As Integer
    20. Dim status As Integer
    21. GetCommModemStatus(nCid, status)
    22. If (status And &H80%) = &H80% Then DCD = 1 Else DCD = 0
    23. End Function


    Falls du lieber die Konstanten verwenden willst, hier die Werte:

    Konstanten für EscapeCommFunction:

    Quellcode

    1. SETXOFF = 1 ' Simulate XOFF received
    2. SETXON = 2 ' Simulate XON received
    3. SETRTS = 3 ' Set RTS high
    4. CLRRTS = 4 ' Set RTS low
    5. SETDTR = 5 ' Set DTR high
    6. CLRDTR = 6 ' Set DTR low
    7. RESETDEV = 7 ' Reset device if possible
    8. SETBREAK = 8 ' Set the device break line.
    9. CLRBREAK = 9 ' Clear the device break line.

    Konstanten für GetCommModemStatus:

    Quellcode

    1. MS_CTS_ON = &H10%
    2. MS_DSR_ON = &H20%
    3. MS_RING_ON = &H40%
    4. MS_RLSD_ON = &H80% 'DCD


    Müssen dann mit CONST deklariert werden

Facebook
Telefonspende