Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

CCONTROL als Interface für VBA Kategorie: C-Control I V1.2/2.0 (von Karsten - 8.01.2007 12:08)

Karsten nutzt:  CC1-M-Unit V1.2/2.0

Hallo zusammen, ich habe eine CC M Unit 2.0 auf Applicationboard. an den Ports 1-4 habe ich einen Leistungstreiber L293D mit Schrittmotor angeschlossen. Mit einem kleinen Basic-Programm kann ich den Stepper auch zum Laufen bringen. Ich muß ihn jedoch per VBA steuern können. Ich hab natürlich das Buch MSR mit Word und Excel gelesen. Dort wird aber hauptsächlich auf das SIOSInterface eingegangen. Ich versuche mit dem unten stehenden Makro den Stepper zum Laufen zu bringen. Leider blinkt (bzw. flimmert) nur die RS232LED auf dem Applikationboard. Woran liegt es denn? Bin für jede Hilfe sehr dankbar. Karsten Declare Sub INITCCONTROL Lib "RSAPI.DLL" (ByVal COM%) Declare Sub OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$) Declare Function CLOSECOM Lib "RSAPI.DLL" () As Integer Declare Sub DOUT Lib "RSAPI.DLL" (ByVal Wert%) Declare Sub DELAY Lib "RSAPI.DLL" (ByVal ms%) '0=bl, 1=rt, 2=ws, 3=ge Dim B(8)    'globale Variable Function SchrittmotorStarten(Schritte As Long, links As Boolean) '    links = True       'Drehrichtung, wird als Variable übergeben '    Schritte = 400     '400 = genau eine Umdrehung im Halbschrittmodus, wird als Variable übergeben     INITCCONTROL 1         B(1) = 9         B(2) = 1         B(3) = 5         B(4) = 4         B(5) = 6         B(6) = 2         B(7) = 10         B(0) = 8         ix = 1         For n = 1 To Schritte             If links = True Then DOUT B(ix) Else DOUT B(7 - ix)             ix = ix + 1: If ix = 9 Then ix = 1         DELAY 1    'x Millisekunden Pause         Next n         DOUT 0     CLOSECOM End Function

Antwort schreiben

Bisherige Antworten: