USB-relay per USB ein und ausschalten

  • C#
  • .NET (FX) 4.5–4.8

Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von johannes 123456.

    Hallo,

    da sind ganz andere ICs verbaut. Unter Anderem ein FTDI-Chip. Da lässt sich im Treiber der VCP aktivieren. Bei dem, was Du hast, ist ein Atmel-IC verbaut. Die Software von Sigma passt also nicht.

    C++-Projekte kann man z.B. mit Visual Studio > C++ bearbeiten. Ich gehe davon aus, dass die Express-Versionen nich kostenlos zu haben sind. Ansonsten mal bissel in Api-Programmierung einlesen und wie man DLLs anspricht. Dann geht das auch mit VB.

    Ob da wirklich ein ComPort von der Relais-Platine eingerichtet wird, siehst Du, wenn Du den Gerätemanager ohne angeschlossene Platine ansiehst. Ist Com1 dann immer noch da, ist es ein anderer.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

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

    Ich schaffe es einfach nicht komme nicht weiter.

    Wenn mir das jemand von euch machen könnte das ich es benutzen kann würde ich euch auch etwas dafür Bezahlen.
    Das ist für mich zu schwierig. Bitte um Hilfe!!!

    Das ist der Link zu dem Projekt was ich nicht in vb bekomme.
    m5.img.dxcdn.com/CDDriver/CD/sku.289998.rar

    Mfg
    Johannes

    Edit: Bin so am Verzweifeln:(

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „johannes 123456“ ()

    Hallo,

    Deine HomeAutomation vom April letzten Jahres wird doch einige API-Aufrufe haben. Ich habe mir mal Deine 40 Posts durchgelesen. Von geben und nehmen hier im Forum kann ich leider nix erkennen.

    Selbst wenn sich jemand findet, der das macht, dann sollte dieser auch eine solche Platine besitzen oder Deine während der Programmierphase zur Verfügung haben. Er wird bei den Enums nur auf "keinen gefunden" stossen und kann die restlichen Funktionen nicht testen können. Ansonsten installier Dir VC++ und passe das Programm so an, dass es sich von einer VB-Anwendung steuern lässt / mit dieser Kommuniziert. Visual Studio Express 2012 ist kostenlos zu bekommen. Das 2015 für Windows 10 Apps ist nicht geeignet.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „peterfido“ ()

    Hallo,

    als VB6 Programmierer ist das für mich auch nicht einfach. Ich würde erstmal alles nach VB2012 (oder so) übersetzen. Danach Fehler suchen und beseitigen. Das ist nicht mal eben schnell gemacht.

    Die usb_relay_device.h könnte z.B. so aussehen (Bestimmt nich Fehler drin):

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Enum usb_relay_device_type As Byte
    4. USB_RELAY_DEVICE_ONE_CHANNEL = 1
    5. USB_RELAY_DEVICE_TWO_CHANNEL = 2
    6. USB_RELAY_DEVICE_FOUR_CHANNEL = 4
    7. USB_RELAY_DEVICE_EIGHT_CHANNEL = 8
    8. End Enum
    10. Structure usb_relay_device_info
    11. Public serial_number As String
    12. Public device_path As String
    13. Public usb_relais_device_type As Byte
    14. Public usb_relais_device_info As String
    15. End Structure
    17. Module mdlRelais
    18. <DllImport("usb_relay_device.dll")> _
    19. Public Sub usb_relay_init()
    20. End Sub
    21. Public Sub usb_relay_exit()
    22. End Sub
    23. Public Sub usb_relay_device_enumerate(ByRef array() As usb_relay_device_info)
    24. End Sub
    25. Public Sub usb_relay_device_free_enumerate(ByRef usb_relay_device_info As usb_relay_device_info)
    26. End Sub
    27. Public Sub usb_relay_device_open_with_serial_number(ByRef serial_number As String, ByRef len As Byte)
    28. End Sub
    29. Public Sub usb_relay_device_open(ByRef usb_relay_device_info As usb_relay_device_info)
    30. End Sub
    31. Public Sub usb_relay_device_close(ByRef hHandle As Integer)
    32. End Sub
    33. Public Sub usb_relay_device_open_one_relay_channel(ByRef hHandle As Integer, ByRef index As Integer)
    34. End Sub
    35. Public Sub usb_relay_device_open_all_relay_channel(ByRef hHandle As Integer)
    36. End Sub
    37. Public Sub usb_relay_device_close_one_relay_channel(ByRef hHandle As Integer, ByRef index As Integer)
    38. End Sub
    39. Public Sub usb_relay_device_close_all_relay_channel(ByRef hHandle As Integer)
    40. End Sub
    41. Public Sub usb_relay_device_get_status(ByRef hHandle As Integer, ByRef status As Integer)
    42. End Sub
    44. End Module


    In der Form dann die Initialisierung machen und schauen, was läuft und wo noch korrigiert werden muss.

    VB.NET-Quellcode

    1. Public Class frmRelais
    2. Shared USB_Relais() As usb_relay_device_info
    4. Protected Overrides Sub Finalize()
    5. MyBase.Finalize()
    6. Try
    7. usb_relay_exit()
    8. Catch ex As Exception
    9. MsgBox("Fehler beim Schließen der DLL")
    10. End Try
    11. End Sub
    13. Public Sub New()
    15. ' Dieser Aufruf ist für den Designer erforderlich.
    16. InitializeComponent()
    18. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
    19. Try
    20. usb_relay_init()
    21. Catch ex As Exception
    22. MsgBox("Fehler beim öffnen der DLL")
    23. Exit Sub
    24. End Try
    26. Try
    27. usb_relay_device_enumerate(USB_Relais)
    28. Catch ex As Exception
    29. MsgBox("Fehler beim Auflisten der Relais")
    30. Exit Sub
    31. End Try
    33. Try
    34. MsgBox(UBound(USB_Relais))
    36. Catch ex As Exception
    37. MsgBox("Keine Relais gefunden")
    38. Try
    39. usb_relay_exit()
    40. Catch ex1 As Exception
    41. Application.DoEvents()
    42. End Try
    43. Endzeit.Enabled = True 'Beenden per Timer. (Quick n Dirty) Die Form muss erst zuende geladen werden, sonst Fehler.
    44. End Try
    45. End Sub
    47. Private Sub Endzeit_Tick(sender As Object, e As EventArgs) Handles Endzeit.Tick
    48. Application.Exit()
    49. End Sub
    50. End Class


    Weiter kommt man ohne Relais nicht. - Und nein, ich mache da auch nicht weiter. Das sollte Dir aber schon mal helfen, um zu beginnen. Für den Rest würde ich einzelne Fragen im Forum stellen. Z.B. weiß ich nicht, ob ich das mit den Strukturen richtig gemacht habe, ob die DLL per ByRef ansprechbar ist, dllimport jedesmal neu angegeben werden muss und eine Funktion statt Sub benötigt wird, und und und.

    Edit:

    Als Funktionen würde das so aussehen. Was nun richtig ist, weiß ich nicht.

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Enum usb_relay_device_type As Byte
    4. USB_RELAY_DEVICE_ONE_CHANNEL = 1
    5. USB_RELAY_DEVICE_TWO_CHANNEL = 2
    6. USB_RELAY_DEVICE_FOUR_CHANNEL = 4
    7. USB_RELAY_DEVICE_EIGHT_CHANNEL = 8
    8. End Enum
    10. Structure usb_relay_device_info
    11. Public serial_number As String
    12. Public device_path As String
    13. Public usb_relais_device_type As Byte
    14. Public usb_relais_device_info As String
    15. End Structure
    17. Module mdlRelais
    18. <DllImport("usb_relay_device.dll")> _
    19. Public Function usb_relay_init()
    20. End Function
    21. <DllImport("usb_relay_device.dll")> _
    22. Public Function usb_relay_exit()
    23. End Function
    24. <DllImport("usb_relay_device.dll")> _
    25. Public Function usb_relay_device_enumerate(ByRef array() As usb_relay_device_info)
    26. End Function
    27. <DllImport("usb_relay_device.dll")> _
    28. Public Function usb_relay_device_free_enumerate(ByRef usb_relay_device_info As usb_relay_device_info)
    29. End Function
    30. <DllImport("usb_relay_device.dll")> _
    31. Public Function usb_relay_device_open_with_serial_number(ByRef serial_number As String, ByRef len As Byte)
    32. End Function
    33. <DllImport("usb_relay_device.dll")> _
    34. Public Function usb_relay_device_open(ByRef usb_relay_device_info As usb_relay_device_info)
    35. End Function
    36. <DllImport("usb_relay_device.dll")> _
    37. Public Function usb_relay_device_close(ByRef hHandle As Integer)
    38. End Function
    39. <DllImport("usb_relay_device.dll")> _
    40. Public Function usb_relay_device_open_one_relay_channel(ByRef hHandle As Integer, ByRef index As Integer)
    41. End Function
    42. <DllImport("usb_relay_device.dll")> _
    43. Public Function usb_relay_device_open_all_relay_channel(ByRef hHandle As Integer)
    44. End Function
    45. <DllImport("usb_relay_device.dll")> _
    46. Public Function usb_relay_device_close_one_relay_channel(ByRef hHandle As Integer, ByRef index As Integer)
    47. End Function
    48. <DllImport("usb_relay_device.dll")> _
    49. Public Function usb_relay_device_close_all_relay_channel(ByRef hHandle As Integer)
    50. End Function
    51. <DllImport("usb_relay_device.dll")> _
    52. Public Function usb_relay_device_get_status(ByRef hHandle As Integer, ByRef status As Integer)
    53. End Function
    55. End Module


    Da es nun Funktionen sind, müssen die Aufrufe im Formular angepasst werden.

    Visual Basic-Quellcode

    1. Ergebnis = Funktion(bla)

    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „peterfido“ ()

    Wow wirklich Danke dafür.

    Das mit der usb_relay_device.h habe ich nicht so ganz kapiert. Wo und wie erstelle ich die ?

    Erstelle ich die in meinem Program ? Vll steh ich auch nur gerade voll auf dem Schlauch.


    Den unteren Code mit den Funktionen könnte ich doch ganz normal in meiner Form nutzen und dann die jeweilige Funktion zB per Button verwenden oder ?

    Edit:
    Hätte gestern probiert die dll ins program zu importieren da hat er mir aber einen Fehler angezeigt.

    Hallo,

    Zeile 17 gibt den entsprechenden Hinweis. Das ist ein Modul. Sollte aber auch in der Form laufen. Module haben den Vorteil, dass man diese in anderen Projekten weiternutzen kann. Nutzt man nur FORM, dann muss man sich das nötige immer wieder neu raus suchen.

    Auch möglich, dass es jedesmal die dllimport braucht und dann auf SUBs gehen muss. Es gibt halt viele Möglichkeiten.

    Edit:
    das Ganze kannst Du Dir (fast) sparen. Im Download ist doch ein Kommandozeilenprogramm enthalten. Das kannst Du mit jedem Programm fernsteuern. Dazu einfach mal die Readme.txt lesen.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

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

    Weil ich das nicht verstehe wie ich das machen soll.

    vll könntest du mir helfen.


    Habe das jetzt mit der CommandApp ausprobiert schaffe es aber nicht.

    in der readme steht:
    1. Open the first relay of the device serial number is afEd5
    CommandApp_USBRelay afEd5 open 01
    Wie mache ich das kann mir da bitte jemand helfen?

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

Facebook
Telefonspende