|
<< Click to Display Table of Contents >> Navigation: Arbeiten mit CanEasy > Automatisierung mit CanEasy > VBA > Tutorials > CanEasy-VBA Tutorial |
In diesem Tutorial wird Ihnen gezeigt wie Sie mit Hilfe von VBA Abläufe auf dem Bus automatisieren können. Dabei werden Sie mit der integrierten VBA-Umgebung arbeiten.
Um das Tutorial durchführen zu können, müssen wir zunächst eine passende Datenbasis erstellen:
•Legen Sie dazu über das Kontextmenu der Datenbasis einen neuen Bus "CAN1" an
•Legen Sie in diesem Bus ein Steuergerät "ECU1" an
•Erstellen Sie für dieses Steuergerät eine Botschaft "MSG1" mit der ID 0x001
•Erstellen Sie in dieser Botschaft ein Signal "SIG1"
•Öffnen Sie den Signal-Editor und stellen Sie für das erstellte Signal eine Länge von 8 Bit ein
•Stellen Sie unter Skalierung das Maximum auf 255
Nun beginnen wir mit der Erstellung eines VBA-Makros. Wählen Sie dazu im lokalen Menü des VBA-Knotens Neu.
Ein neues Makroprojekt wird angelegt und die VBA-Umgebung öffnet sich. Geben Sie dort den nachfolgenden Code ein:
Sub SetzeSignalWert(oSig as Signal, fValue as Double) oSig.ValuePhys = fValue End Sub
Sub Testlauf() Dim Steuergeraet as ControlUnit Dim GasPedalSignal as Signal
Set Steuergeraet = Database.Busses("CAN1").ControlUnits("ECU1") StartSimulation 'Simulation starten
Set GasPedalSignal = Steuergeraet.Messages("MSG1").Signals("SIG1") SetzeSignalWert GasPedalSignal, 30 'Gas geben CanEasyApplication.Sleep 7000 '7 Sekunden warten SetzeSignalWert GasPedalSignal, 60 'Noch mehr Gas geben StopSimulation 'Simulation beenden End Sub |
Wechseln Sie zum CanEasy-Fenster zurück. Hier wurden automatisch neue Knoten im VBA-Zweig des Baumes eingefügt. Klappen sie den VBA-Zweig des Baumes vollständig auf. Wählen Sie im lokalen Menü des Projekt-Knotens VBAProject1 den Menüpunkt Speichern
Wählen Sie zum Speichern des Makroprojektes den Dateinamen „Tutorial“.
Nun werden die geschriebenen Makros verwendet. Öffnen Sie das Panel, das die angegebene Botschaft enthält und suchen sie in diesem Panel das verwendete Signal. Wir werden nun das zweite von uns geschriebene Makro verwenden. Wählen Sie dazu im Kontextmenü des Makros Testlauf den Befehl Starten.
Beobachten Sie dabei das verwendete Signal im Panel. Es wird zunächst auf den Wert 30 gesetzt. Nach weiteren sieben Sekunden wird das Signal auf den Wert 60 gesetzt.