Hallo liebe Community
Ich habe ein Problem und hoffe du kannst mir dabei helfen.
ich habe ein Gerät, welches 4 Steckdosen hat. Diese können per USB angesteuert werden.
Ich will es so machen, dass zb bei dem Aufrum der 2ten Folie ein Makro gestartet wird, welches die erste Steckdose auf ON setz.
Ich bekam dazu vom Hersteller noch 2 Dateien, eine USBaccess.dll und eine USBswitchAX.ocx
Ich habe beide in den system32 kopiert, und die USBswitchAx.ocx mit der regsvr32 in die Registry registriert. Das stand im Manual dazu.
Weiteres hab ich im Powerpoint im Visual Basic Editor über Tool-References die .ocx eingefügt.
Ich habe von VB noch überhaupt keine Ahnung(Neuland für mich), und so hat mir ein Kollege diesen Code geschrieben
Der Fehler, der nun ausgegeben wird lautet: Object variable or With block variable not set
Und der Fehler liegt auf dem
USBSwitchAX1.SwitchState = 1
Das Manual zu allem befindet sich auf dieser Seite
cleware.de/API.pdf
Aus diesem hab ich auch den Code, jedoch eben nur gerade eine Hilfreiche Zeile.
Ich hoffe ihr Profis könnt mir helfen, da es für das Geschäft ist, ist es sehr wichtig. Hab schon in anderen Foren angefragt, jedoch denke ich dass dieses Forum besser dafür geeignet ist.
lg shinoda
Edit by Mad Andy:
VB-Tag eingefügt. Bitte verwende für VB-Quelltext immer den VB-Tag.
Ich habe ein Problem und hoffe du kannst mir dabei helfen.
ich habe ein Gerät, welches 4 Steckdosen hat. Diese können per USB angesteuert werden.
Ich will es so machen, dass zb bei dem Aufrum der 2ten Folie ein Makro gestartet wird, welches die erste Steckdose auf ON setz.
Ich bekam dazu vom Hersteller noch 2 Dateien, eine USBaccess.dll und eine USBswitchAX.ocx
Ich habe beide in den system32 kopiert, und die USBswitchAx.ocx mit der regsvr32 in die Registry registriert. Das stand im Manual dazu.
Weiteres hab ich im Powerpoint im Visual Basic Editor über Tool-References die .ocx eingefügt.
Ich habe von VB noch überhaupt keine Ahnung(Neuland für mich), und so hat mir ein Kollege diesen Code geschrieben
VB.NET-Quellcode
- ' Property declaration
- Dim USBSwitchAX1 as USBSwitchAX
- Dim USBSwitchAX2 as USBSwitchAX
- Dim USBSwitchAX3 as USBSwitchAX
- Dim USBSwitchAX4 as USBSwitchAX
- Sub Relais1ON() ' Sets Relais 1
- USBswitchAX1.SwitchState = 1
- End Sub
- Sub Relais1OFF() ' Unsets Relais 1
- USBswitchAX1.SwitchState = 0
- End Sub
- Sub Relais2ON() ' Sets Relais 2
- USBswitchAX1.SwitchState = 1
- End Sub
- Sub Relais2OFF() ' Unsets Relais 2
- USBswitchAX1.SwitchState = 0
- End Sub
Der Fehler, der nun ausgegeben wird lautet: Object variable or With block variable not set
Und der Fehler liegt auf dem
USBSwitchAX1.SwitchState = 1
Das Manual zu allem befindet sich auf dieser Seite
cleware.de/API.pdf
Aus diesem hab ich auch den Code, jedoch eben nur gerade eine Hilfreiche Zeile.
Ich hoffe ihr Profis könnt mir helfen, da es für das Geschäft ist, ist es sehr wichtig. Hab schon in anderen Foren angefragt, jedoch denke ich dass dieses Forum besser dafür geeignet ist.
lg shinoda
Edit by Mad Andy:
VB-Tag eingefügt. Bitte verwende für VB-Quelltext immer den VB-Tag.
