Code: Alles auswählen
$regfile = "m8def.dat"
$crystal = 1000000
Config Pinc.5 = Output
Config Pinc.4 = Output
Config Pinc.3 = Output
Config Pinc.2 = Output
Config Pinb.4 = Output
Config Pinb.3 = Output
Config Pinb.2 = Output
Config Pinb.1 = Output
Config Pind.2 = Input
Servo1 Alias Portc.5
Servo2 Alias Portc.4
Servo3 Alias Portc.3
Servo4 Alias Portc.2
Gruen1 Alias Portb.1
Gruen2 Alias Portb.3
Rot1 Alias Portb.2
Rot2 Alias Portb.4
Taster Alias Pind.2
Do
If Taster = 1 Then
Servo1 = 1
Servo2 = 1
Servo3 = 1
Servo4 = 1
Waitms 500
Servo1 = 0
Servo2 = 0
Servo3 = 0
Servo4 = 0
End If
Gruen1 = 1
Gruen2 = 1
Waitms 1000
Gruen1 = 0
Gruen2 = 0
Waitms 1000
Loop
ich bitte um eure Hilfe! es ist wirklich wichtig für mich!!
mfG-. Marv