Hilfe bei CH341A seriell/parallelwandler Ansteuerung mit VB6 ?

  • VB6

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von -Franky-.

    Hilfe bei CH341A seriell/parallelwandler Ansteuerung mit VB6 ?

    Hallo Freunde des gepflegten programmierens,

    ich bin etwas am Verzweifeln, weil ich das was ich dachte - daß es einfach sein müßte - nicht hinbekomme.
    Ich hatte vor 15 Jahren einmal einen Chip, der von USB auf Druckerport parallel umgewandelt hat und der war ganz einfach anzusteuern.
    Der wird nur nicht mehr hergestellt. Damals habe ich an die Ausgänge 0-7 je einen Optotriac angeschlossen und konnte damit 8 Glühbirnen über ein Programm steuern.
    War lustig für die private Kellerdisco! Der Chip ist kaputt und jetzt siuche ich nach einer Alternative und dachte mit diesem seriell/parallelwandler müßte das genauso funktionieren.
    Aber meine Programmierkenntnisse reichen nicht aus, um die API Beschreibung in ein funktionierendes VB6 Prog umzusetzen.
    Kann mir jemand helfen? Ich habe die CH341DLL.DLL installiert. Beschreibung ist im Anhang hochgeladen.

    Ich möchte nur 8 LED's an den Ausgängen D0-D7 anschliessen und sie dann vom Computer aus über USB ein- und ausschalten können.
    Kann mir jemand das als BV6 Script posten?

    Bei mir hakt es schon mit den Deklarationen bei denen ich nicht weiß wie ich damit umgehen muß.
    Function CH341OpenDevice(iIndex: cardinal): integer; Stdcall; external 'CH341DLL.DLL'
    iIndex ist in der API beschrieben, aber was ist cardinal und der Rest???

    Nach meinem Verständnis müßte das "einfach" funktionieren?

    # Also Verbindung mit CH341A herstellen - Parallele Datenübertragung
    Function CH341InitParallel(iIndex: cardinal; iMode :cardinal): boolean; Stdcall; external 'CH341DLL.DLL';
    Function CH341WriteData0(iIndex:cardinal; iBuffer: PVOID; ioLength: PULONG :( boolean; Stdcall; external 'CH341DLL.DLL';
    # Data senden an Kanal + Status? Kanal D0 einschalten mit Senden von 1 ausschalten mit 0
    iIndex = D0: cardinal = 1
    # schliessen der Prozedur
    procedure CH341CloseDevice(iIndex: cardinal); Stdcall; external 'CH341DLL.DLL';

    Oder muß man die Druckerversion verwenden?
    Bei AMAZON gibt es die Platine mit dieser Beschreibung:
    amazon.de/DollaTek-CH341A-UART…llelwandler/dp/B07DJZDRKG

    Arbeitsmodus (Jumper-Kappe rechts von USB):
    (1) UART-Modell: Die Jumper-Kappe wird in den UART gesteckt, die D2-Kontrollleuchte (blau) eingeschaltet;
    (2) I2C / SPI und EPP / MEM Parallelbetrieb: Die Jumperkappe wird in die I2C / SPI eingelegt, die D1-Kontrollleuchte (rot) eingeschaltet;
    (3) Der Parallel-Port-Modus des Druckers: die Notwendigkeit, die Jumper zu trennen, und SDA und SCL miteinander verbunden sind.

    SDA und SCL finde ich aber auch nicht...

    Kann mir das jemand so bauen, daß es funktionieren müßte?
    Ich schaffe das mit meinen VB6 Kenntnissen nicht.

    Vieeeeelen Dank !
    Bilder

    • 51gZHQCI96L._AC_SL1000_b.jpg

      41,4 kB, 868×458, 56 mal angesehen

    • 51Pq0Fe4h2L._AC_SL1000_a.jpg

      59,08 kB, 855×502, 71 mal angesehen
    Dateien

    Hi. Datentyp Cardinal -> oreilly.com/library/view/delphi-in-a/1565926595/re33.html VB6 kennt aber keine unsigned Datentypen (z.B. ULong), bis auf Byte. Ich würde dennoch einfach mal den Datentyp Long (32bit) verwenden.
    Mfg -Franky-

    Vielen lieben Dank!
    Aber das ist mir schon zu hoch.
    Ich kann Funktionen programmieren, aber bei Function Deklarationen hakt es.
    Kann mir das jemand so zusammenbauen, daß ich verstehe iwe ich Daten zu dem Teil schicken kann?

    Meine Derklaration vom alten Chip sieht so aus:
    Damit konnte ich die USB Portnummer einstellen und meine 8 LEDs ein- und Ausschalten.
    Kann mir das jemand so schnitzen, daß das auch mit diesem Chip funktioniert?
    Oder mir eine Chipplatine empfehlen, mit der das funktioniert und wo es ein VB6 Beispielprog. dafür gibt?
    Wär echt super!!!
    Danke Leute

    USBModul:

    Visual Basic-Quellcode

    1. Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, _
    2. ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
    3. ByVal lpSecurityAttributes As Long, _
    4. ByVal dwCreationDisposition As Long, _
    5. ByVal dwFlagsAndAttributes As Long, _
    6. ByVal hTemplateFile As Long) As Long
    7. Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, _
    8. lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, _
    9. ByVal nOutBufferSize As Long, lpBytesReturned As Long, _
    10. lpOverlapped As Any) As Long
    11. Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    13. Public Const GENERIC_READ = &H80000000 'Public hinzugefügt, damit ich auch in Form1 damit arbeiten kann
    14. Public Const GENERIC_WRITE = &H40000000
    15. Public Const FILE_SHARE_WRITE = &H2
    16. Public Const FILE_SHARE_READ = &H1
    17. Public Const OPEN_EXISTING = &H3


    USBForm:

    Visual Basic-Quellcode

    1. Private Sub Form_Load()
    2. For i = 0 To 127
    3. List1.AddItem i
    4. Next i
    5. List1.ListIndex = 0
    6. End Sub
    8. Sub USB_IO()
    9. sFileName = "\\.\CompuLABusb_" & List1
    10. hgDrvrHnd = CreateFile(sFileName, GENERIC_WRITE Or GENERIC_READ, FILE_SHARE_WRITE Or FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0)
    11. lTemp = DeviceIoControl(hgDrvrHnd, 4&, lIn, lInSize, lOut, lOutSize, lSize, gOverlapped)
    12. htemp = CloseHandle(hgDrvrHnd)
    13. End Sub
    15. Sub WrPort(Wert)
    16. lIn = 65536 * Wert + 0 * 256 + 21
    17. lInSize = 3
    18. lOutSize = 1
    19. USB_IO
    20. End Sub
    22. Private Sub Timer1_Timer()
    23. dat = 0
    24. dat = dat + Check1.Value
    25. dat = dat + Check2.Value * 2
    26. dat = dat + Check3.Value * 4
    27. dat = dat + Check4.Value * 8
    28. dat = dat + Check5.Value * 16
    29. dat = dat + Check6.Value * 32
    30. dat = dat + Check7.Value * 64
    31. dat = dat + Check8.Value * 128
    32. WrPort dat
    34. If Check1.Value = 1 Then
    35. Image1.Visible = False
    36. Else
    37. Image1.Visible = True
    38. End If
    39. If Check2.Value = 1 Then
    40. Image2.Visible = False
    41. Else
    42. Image2.Visible = True
    43. End If
    44. If Check3.Value = 1 Then
    45. Image3.Visible = False
    46. Else
    47. Image3.Visible = True
    48. End If
    49. If Check4.Value = 1 Then
    50. Image4.Visible = False
    51. Else
    52. Image4.Visible = True
    53. End If
    54. If Check5.Value = 1 Then
    55. Image5.Visible = False
    56. Else
    57. Image5.Visible = True
    58. End If
    59. If Check6.Value = 1 Then
    60. Image6.Visible = False
    61. Else
    62. Image6.Visible = True
    63. End If
    64. If Check7.Value = 1 Then
    65. Image7.Visible = False
    66. Else
    67. Image7.Visible = True
    68. End If
    69. If Check8.Value = 1 Then
    70. Image8.Visible = False
    71. Else
    72. Image8.Visible = True
    73. End If
    74. End Sub


    Code-Tags eingefügt. ~Thunderbolt

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

    stefan67 schrieb:

    Function CH341InitParallel(iIndex: cardinal; iMode :cardinal): boolean; Stdcall; external 'CH341DLL.DLL';

    Würde ich folgendermaßen nach VB6 übersetzen:
    Private Declare Function CH341InitParallel Lib "CH341DLL.DLL" (ByVal iIndex as Long, ByVal iMode as Long) As Long.

    stefan67 schrieb:

    procedure CH341CloseDevice(iIndex: cardinal); Stdcall; external 'CH341DLL.DLL';

    Könnte ein Sub sein. Private Declare Sub CH341CloseDevice Lib "CH341DLL.DLL" (ByVal iIndex As Long)

    stefan67 schrieb:

    Function CH341WriteData0(iIndex:cardinal; iBuffer: PVOID; ioLength: PULONG boolean; Stdcall; external 'CH341DLL.DLL';

    Hier bin ich mir nicht zu 100% sicher. Könnte aber so aussehen. Private Declare Function CH341WriteData0 Lib "CH341DLL.DLL" (ByVal iIndex as Long, ByVal iBuffer as Long, ByRef ioLenght as Long) As Long
    iBuffer könnte man evtl. auch As Any probieren. Je nachdem ob die lieber einen Pointer per VarPtr(Buffer(0)) -> ByVal oder direkt den Buffer -> ByRef iBuffer As Any übergeben möchtest. iBuffer könnte ein LongArray sein. ioLenght könnte ein [In],Out Parameter sein wo die Größe des Arrays übergeben wird und nach Aufruf der API steht dann hier wieviel Daten geschrieben wurden. Auch wenn bei den Funktionen as Rückgabe :boolean steht, würde ich das als As Long auslegen. Die Rückgabe wandelst dann mit CBool in ein Boolean um.
    Mfg -Franky-