RS232 USV gebrückte Pins abfragen

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von T.S..

    RS232 USV gebrückte Pins abfragen

    Guten Morgen Zusammen,


    ich steh mal wieder vor einer ganz tollen Aufgabe:
    Hier im Rack steht eine USV die zwar ziemlich alt ist aber
    neue Akkus hat, daher soll sie nicht ersetzt werden.

    Die Kommunikation läuft über eine COM Schnittstelle, die Software vom Hersteller ist aber leider ziemlich bescheiden.
    Aus dem Manual geht heraus, dass der Ground-Pin 4 und der Pin 3 sich brücken wenn die USV auf Batteriebetrieb umstellt.

    Ich hab schon was ähnliches gefunden, siehe Zitat unten.
    Leider bin ich mir nicht ganz sicher wie ich die Abfrage für den (Pin 3 gebrückt mit 4) gestalte.
    Hab mein "5 Minuten Wissen" von hier arcelect.com/rs232.htm

    Vielleicht kann mir ja einer nen Denkanstoß geben

    Edit: Auch wenn es unsauber ist, würde ich gerne ohne COM Kabel arbeiten, das heißt nur die zwei Adern werden angeschlossen

    flexy1994 schrieb:

    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
    4. If SerialPort1.CtsHolding Then
    6. '' Damit der Taster erst wieder geöffnet werden muss
    8. If ctsholding = "0" Then
    10. ctsholding = "1"
    11. MsgBox("Taster gedrückt")
    14. End If
    16. Else
    17. ctsholding = "0"
    18. End If
    19. 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

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „T.S.“ ()

    T.S. schrieb:

    Insgesamt kann man bis zu 3 Taster/Schalter anhängen.
    Dann frag in einem separaten Testprogramm mit einem Timer permanent alle möglichen Zustände ab und zeige sie an.
    Dann legst Du an die Pins die richtigen (!) Brücken (Kurzschlüsse) und siehst, welche Bits wackeln.
    ----
    Und gib Deinem Projekt Option Strict On. ctsholding sollte kein Sring sein.
    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!

    Mir würden jetzt nur in einem Timer ein haufen Abfragen wie SerialPort1.CtsHolding usw einfallen.
    Wie ich direkt die Bits rauslese wüsste ich jetzt nicht

    Gerade weil es ja keine handshake und nichts gibt. Ich hab einfach nur die zwei Adern

    T.S. schrieb:

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

    T.S. schrieb:

    Ich hab einfach nur die zwei Adern
    Interessante Verteilung.
    Probier mal so was:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    2. Dim cd = Me.SerialPort1.CDHolding
    3. Dim cts = Me.SerialPort1.CtsHolding
    4. Dim dsr = Me.SerialPort1.DsrHolding
    5. Dim dtr = Me.SerialPort1.DtrEnable
    6. Dim rts = Me.SerialPort1.RtsEnable
    8. Dim txt = String.Format("cd = {0}; cts = {1}; dsr = {2}; dtr = {3}; rts = {4}", cd, cts, dsr, dtr, rts)
    9. Me.TextBox1.Text = txt
    10. End Sub
    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!

    Danke dir für den Tipp; Ich hab mir dazu mal was gebastelt:



    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    4. If CheckBox1.Checked = True Then
    5. Check()
    6. End If
    7. End Sub
    9. Private Sub Check()
    11. SerialPort1.PortName = ComboBox1.SelectedItem
    12. SerialPort1.Open()
    14. TextBox1.Text = SerialPort1.CDHolding
    15. TextBox2.Text = SerialPort1.CtsHolding
    16. TextBox3.Text = SerialPort1.DsrHolding
    17. TextBox4.Text = SerialPort1.DtrEnable
    18. TextBox5.Text = SerialPort1.RtsEnable
    20. SerialPort1.Close()
    22. Label7.Text = "[" & Format(Now, "hh:mm:ss") & "] Checked: " & Me.SerialPort1.PortName
    24. End Sub
    26. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    28. 'Suche COM Ports
    29. For Each sp As String In My.Computer.Ports.SerialPortNames
    30. ComboBox1.Items.Add(sp)
    31. Next
    34. End Sub
    36. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. Check()
    38. End Sub
    39. End Class


    Leider passiert nichts wenn ich die Pins brücke, vielleicht mache ich es auch falsch?

    Grüße

    Verlinkten Code eingefügt. ~Thunderbolt

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

    T.S. schrieb:

    vielleicht mache ich es auch falsch?
    Verstehe dies:

    RodFromGermany schrieb:

    T.S. schrieb: schrieb:

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

    T.S. schrieb: schrieb:

    Ich hab einfach nur die zwei Adern
    Interessante Verteilung.
    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!

    T.S. schrieb:

    Was ja einem Taster gleich kommt.
    Was hat das mit einem SerialPort zu tun?
    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!

    Der Taster kommt von der Schaltung her den zwei Adern der USV gleich.
    Drück man den Taster bildet er einen Durchgang, das gleiche machen die zwei Adern der USV wenn Sie auf Batteriebetrieb umschaltet.

    Der Plan ist die zwei Adern an die COM Schnittstelle anzuklemmen und via VB zu prüfen ob ein Durchgang vorhanden ist oder nicht.


    Edit:

    Also C++ Konsolenanwendung funktioniert es perfekt:
    C++ Anwendung

    C-Quellcode

    1. ​
    2. #include <stdafx.h>
    3. #include <iostream>
    4. #include <stdio.h>
    5. #include <windows.h>
    6. #include <conio.h>
    7. #include <winioctl.h>
    9. using namespace std;
    11. int main(void)
    12. {
    13. DWORD dwfreq=800, dwDuration=200;
    14. DWORD dwEvtMask;
    15. int anzahl=0;
    16. BOOL succ;
    17. ///////////////////////////////////////////////////
    18. DCB dcb;
    20. memset(&dcb, sizeof(dcb), 0);
    22. dcb.DCBlength = sizeof(dcb);
    23. dcb.BaudRate = CBR_600;
    24. dcb.fBinary = TRUE;
    25. dcb.fParity = TRUE; // enable parity checking
    26. dcb.fOutxCtsFlow = FALSE; // CTS output flow control
    27. dcb.fOutxDsrFlow = FALSE; // DSR output flow control
    28. dcb.fDtrControl = DTR_CONTROL_ENABLE; // DTR flow control type
    29. dcb.fDsrSensitivity = FALSE; // DSR sensitivity
    30. dcb.fTXContinueOnXoff = FALSE; // XOFF continues Tx
    31. dcb.fOutX = FALSE; // XON/XOFF out flow control
    32. dcb.fInX = FALSE; // XON/XOFF in flow control
    33. dcb.fErrorChar = FALSE; // enable error replacement
    34. dcb.fNull = 0; // enable null stripping
    35. dcb.fRtsControl = RTS_CONTROL_ENABLE; // RTS flow control
    36. dcb.fAbortOnError = FALSE; // abort on error
    37. dcb.fDummy2 = 0; // reserved
    38. dcb.wReserved = 0; // not currently used
    39. dcb.XonLim = 0; // transmit XON threshold
    40. dcb.XoffLim =0; // transmit XOFF threshold
    41. dcb.ByteSize = 8; // number of bits/byte, 4-8
    42. dcb.Parity = NOPARITY; // 0-4=no,odd,even,mark,space
    43. dcb.StopBits = ONESTOPBIT; // 0,1,2 = 1, 1.5, 2
    44. dcb.XonChar = 0; // Tx and Rx XON character
    45. dcb.XoffChar = 0; // Tx and Rx XOFF character
    46. dcb.ErrorChar = 0; // error replacement character
    47. dcb.EofChar = 0; // end of input character
    48. dcb.EvtChar = 0; // received event character
    49. dcb.wReserved1 =0; // reserved; do not use
    50. ///////////////////////////////////////////////////
    52. HANDLE hCOM = CreateFileA ("COM4",GENERIC_READ | GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,NULL);
    54. //////////////////////////////
    55. start:
    56. //////////////////////////////
    57. //warteschelife - damit das signal nicht gleich 2 mal abgegriffen wird
    58. system("cls");
    59. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    60. cout <<"Status : Initialisiere COM-PORT"<<endl;
    61. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    62. Sleep(2000);
    63. system("cls");
    64. //warteschleife ende
    65. //////////////////////////////
    67. succ= SetCommState(hCOM, &dcb);
    69. //////////////////////////////
    70. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    71. cout <<"Status : Bereit"<<endl;
    72. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    74. SetCommMask(hCOM,EV_DSR);
    75. WaitCommEvent(hCOM,&dwEvtMask,NULL);
    77. if(dwEvtMask & EV_DSR)
    78. {
    79. system("cls");
    80. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    81. cout <<"Status : Signal erkannt!"<<endl;
    82. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    83. Beep (dwfreq,dwDuration);
    84. }
    86. goto start;
    87. //////////////////////////////
    89. CloseHandle(hCOM);
    90. return 0;
    91. }[/spoiler]

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „T.S.“ ()

    T.S. schrieb:

    die zwei Adern an die COM Schnittstelle anzuklemmen
    Stelle sicher, dass das funktioniert.
    Du willst also die RS232 als digitales Input-Interface benutzen.
    Dann solltest Du Dir mal bei Dir einen Elektroniker greifen, mit dem Du die hardware-relevanten Details lösen kannst, z.B. ob da eine Spannung anliegt oder lediglich ein potenzialfreier Kurzschluss detektiert werden soll.
    Wenn dann irgendein Signal am Port ankommt, ist Dein Problem gelöst.
    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!

    T.S. schrieb:

    guck dir mal
    diese Bemerkung an:

    RodFromGermany schrieb:

    ob da eine Spannung anliegt oder lediglich ein potenzialfreier Kurzschluss detektiert werden soll
    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!

    RodFromGermany schrieb:

    T.S. schrieb:

    die zwei Adern an die COM Schnittstelle anzuklemmen
    Stelle sicher, dass das funktioniert.
    Du willst also die RS232 als digitales Input-Interface benutzen.
    Dann solltest Du Dir mal bei Dir einen Elektroniker greifen, mit dem Du die hardware-relevanten Details lösen kannst, z.B. ob da eine Spannung anliegt oder lediglich ein potenzialfreier Kurzschluss detektiert werden soll.
    Wenn dann irgendein Signal am Port ankommt, ist Dein Problem gelöst.


    petaod schrieb:

    Der C-Code überprüft aber DSR und nicht CTS.


    Das heißt für mich Konkret was?

    T.S. schrieb:

    Konkret
    dies:

    RodFromGermany schrieb:

    Dann solltest Du Dir mal bei Dir einen Elektroniker greifen, mit dem Du die hardware-relevanten Details lösen kannst, z.B. ob da eine Spannung anliegt oder lediglich ein potenzialfreier Kurzschluss detektiert werden soll.
    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!

    Für was denn??

    In dem C++ Programm funktioniert es so wie es ist nur mit nem Schraubenzieher am COM Port(zum testen) wenn ich die PINS kurzschließe dann gibt das Programm laut.
    Da brauch ich doch keine Elektriker dafür um das irgendwie umzumodeln.
    Wenn ich den Quellcode ins VB.NET übersetze dann sollte es ja laufen

    T.S. schrieb:

    ins VB.NET
    Poste mal bitte den kompletten VB-Code.
    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!

    Das ist der funktionierende C++ Code:

    Spoiler anzeigen
    ​

    C-Quellcode

    1. ​#include <stdafx.h>
    2. #include <iostream>
    3. #include <stdio.h>
    4. #include <windows.h>
    5. #include <conio.h>
    6. #include <winioctl.h>
    8. using namespace std;
    10. int main(void)
    11. {
    12. DWORD dwfreq=800, dwDuration=200;
    13. DWORD dwEvtMask;
    14. int anzahl=0;
    15. BOOL succ;
    16. ///////////////////////////////////////////////////
    17. DCB dcb;
    19. memset(&dcb, sizeof(dcb), 0);
    21. dcb.DCBlength = sizeof(dcb);
    22. dcb.BaudRate = CBR_600;
    23. dcb.fBinary = TRUE;
    24. dcb.fParity = TRUE; // enable parity checking
    25. dcb.fOutxCtsFlow = FALSE; // CTS output flow control
    26. dcb.fOutxDsrFlow = FALSE; // DSR output flow control
    27. dcb.fDtrControl = DTR_CONTROL_ENABLE; // DTR flow control type
    28. dcb.fDsrSensitivity = FALSE; // DSR sensitivity
    29. dcb.fTXContinueOnXoff = FALSE; // XOFF continues Tx
    30. dcb.fOutX = FALSE; // XON/XOFF out flow control
    31. dcb.fInX = FALSE; // XON/XOFF in flow control
    32. dcb.fErrorChar = FALSE; // enable error replacement
    33. dcb.fNull = 0; // enable null stripping
    34. dcb.fRtsControl = RTS_CONTROL_ENABLE; // RTS flow control
    35. dcb.fAbortOnError = FALSE; // abort on error
    36. dcb.fDummy2 = 0; // reserved
    37. dcb.wReserved = 0; // not currently used
    38. dcb.XonLim = 0; // transmit XON threshold
    39. dcb.XoffLim =0; // transmit XOFF threshold
    40. dcb.ByteSize = 8; // number of bits/byte, 4-8
    41. dcb.Parity = NOPARITY; // 0-4=no,odd,even,mark,space
    42. dcb.StopBits = ONESTOPBIT; // 0,1,2 = 1, 1.5, 2
    43. dcb.XonChar = 0; // Tx and Rx XON character
    44. dcb.XoffChar = 0; // Tx and Rx XOFF character
    45. dcb.ErrorChar = 0; // error replacement character
    46. dcb.EofChar = 0; // end of input character
    47. dcb.EvtChar = 0; // received event character
    48. dcb.wReserved1 =0; // reserved; do not use
    49. ///////////////////////////////////////////////////
    51. HANDLE hCOM = CreateFileA ("COM4",GENERIC_READ | GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,NULL);
    53. //////////////////////////////
    54. start:
    55. //////////////////////////////
    56. //warteschelife - damit das signal nicht gleich 2 mal abgegriffen wird
    57. system("cls");
    58. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    59. cout <<"Status : Initialisiere COM-PORT"<<endl;
    60. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    61. Sleep(2000);
    62. system("cls");
    63. //warteschleife ende
    64. //////////////////////////////
    66. succ= SetCommState(hCOM, &dcb);
    68. //////////////////////////////
    69. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    70. cout <<"Status : Bereit"<<endl;
    71. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    73. SetCommMask(hCOM,EV_DSR);
    74. WaitCommEvent(hCOM,&dwEvtMask,NULL);
    76. if(dwEvtMask & EV_DSR)
    77. {
    78. system("cls");
    79. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    80. cout <<"Status : Signal erkannt!"<<endl;
    81. cout <<"*-----------------------------------------------------------------------------*"<<endl;
    82. Beep (dwfreq,dwDuration);
    83. }
    85. goto start;
    86. //////////////////////////////
    88. CloseHandle(hCOM);
    89. return 0;
    90. }



    Der VB Code dazu bereitet mir noch Kopfweh da ich es eigentlich nicht genauso wollte sondern bisschen anders.
    Es soll im VB in einem Timer alle paar Sekunden abgefragt werden ob die PINS gebrückt sind oder nicht.
    Code habe ich bis jetzt im VB nur den von dir

    T.S. schrieb:

    C++ Code:
    Den hatten wir bereits.

    RodFromGermany schrieb:

    VB-Code.
    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!

    Kannst du mir hier zur Hand gehen?

    C-Quellcode

    1. ​
    2. SetCommMask(hCOM,EV_DSR); //
    3. WaitCommEvent(hCOM,&dwEvtMask,NULL); // auf tastendruck warten
    5. printf("%d",dwEvtMask);
    6. cout <<"<--->"<<endl;
    7. printf("%d",EV_DSR);
    9. if(dwEvtMask & EV_DSR)
    10. {

    Den Rest habe ich schon (Com port öffnen, baud rate usw...)

Facebook
Telefonspende