Hallo Forum - Mitglieder,
ich nutze VB 2010 Express und versuche gerade zwei USBREL64 Karten von Quancom zum laufen zu bringen.
Also ich habe alles installiert. Abweichend von der Beschreibung bei Quancom habe ich aber nicht die QLib.bas importiert (das führt immer zu Fehlermeldungen beim compile) sondern die Qlib.vb.
Beide Karen habe ich mit dem Demoprogramm überprüft und funktionieren einwandfrei. Das Demoprogramm erlaubt es die einzelnen Ausgänge ein- bzw auszuschalten und wenn man es aufruft werden die eingeschalteten Relais markiert, die nicht eingeschalteten eben nicht.
Dann habe ich ein einfaches Programm geschrieben das einzelne Relais ein- bzw ausschaltet und den Status ausgeben soll.
Dim handle As Integer
Dim xxx As Integer
handle = QAPIExtOpenCard(USBREL64, 0)
If (handle <> 0) Then
CALL QAPIExtWriteDO1(handle, NumericUpDown1.Value, 1, 0)
xxx = QAPIExtReadDI1(handle, NumericUpDown1.Value, 0)
Label1.Text = xxx.ToString
Call QAPIExtCloseCard(handle)
End If
End Sub
Egal was ich aber mache erhalte ich immer den Wert 0 zurück.
Bin für alle Ideen dankbar da sich der Support von Quancom nicht meldet.
Grüße, schönes Wochenende usw ....
ich nutze VB 2010 Express und versuche gerade zwei USBREL64 Karten von Quancom zum laufen zu bringen.
Also ich habe alles installiert. Abweichend von der Beschreibung bei Quancom habe ich aber nicht die QLib.bas importiert (das führt immer zu Fehlermeldungen beim compile) sondern die Qlib.vb.
Beide Karen habe ich mit dem Demoprogramm überprüft und funktionieren einwandfrei. Das Demoprogramm erlaubt es die einzelnen Ausgänge ein- bzw auszuschalten und wenn man es aufruft werden die eingeschalteten Relais markiert, die nicht eingeschalteten eben nicht.
Dann habe ich ein einfaches Programm geschrieben das einzelne Relais ein- bzw ausschaltet und den Status ausgeben soll.
Dim handle As Integer
Dim xxx As Integer
handle = QAPIExtOpenCard(USBREL64, 0)
If (handle <> 0) Then
CALL QAPIExtWriteDO1(handle, NumericUpDown1.Value, 1, 0)
xxx = QAPIExtReadDI1(handle, NumericUpDown1.Value, 0)
Label1.Text = xxx.ToString
Call QAPIExtCloseCard(handle)
End If
End Sub
Egal was ich aber mache erhalte ich immer den Wert 0 zurück.
Bin für alle Ideen dankbar da sich der Support von Quancom nicht meldet.
Grüße, schönes Wochenende usw ....