Das neue Board - Robotikhardware.de
Das neue Board - Robotikhardware.de
Das neue Board - Robotikhardware.de
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Wait 1'Relais 1 wird getestetFor I = 1 To 20Relais1 = 1Wait 1Relais1 = 0Wait 1NextWait 1'Relais 2 wird getestetFor I = 1 To 20Relais2 = 1Wait 1Relais2 = 0Wait 1NextWait 1'Ausgangsspannung <strong>de</strong>s elektronischen Power Schlaters UA umschalten'Nicht sichtbar, entwe<strong>de</strong>r Verbraucher anschliessen o<strong>de</strong>r messenFor I = 1 To 5Sound Portb.7 , 400 , 250'BEEPAusgang_ua = 1Wait 2Sound Portb.7 , 400 , 250'BEEPAusgang_ua = 0Wait 2NextWait 1'Ausgangsspannung <strong>de</strong>s elektronischen Power Schlaters UB umschalten'Nicht sichtbar, entwe<strong>de</strong>r Verbraucher anschliessen o<strong>de</strong>r messenFor I = 1 To 5Sound Portb.7 , 400 , 250'BEEPAusgang_ub = 1Wait 2Sound Portb.7 , 400 , 250'BEEPAusgang_ub = 0Wait 2NextWait 1'Alarm wird getestetFor I = 1 To 20Alarmgeber = 1Waitms 100Alarmgeber = 0Waitms 100NextWait 1'Test abgeschlossen, nun wird noch ständig über Funk gesen<strong>de</strong>t' FunkmodultestDoFor I = 1 To 30000Print "www.robotikhardware.<strong>de</strong> Z:" ; IWaitms 500Next ILoopEnd' ----------------- Hilfreiche Unterfunktionen ------------------------Sub Init_digitalanzeige()Local Z As ByteI2cstart
Change language