Systemtreiber ? 4 Servos ? Hört sich interessant an.......
Erzähl mal mehr davon, hab ich noch nix von gehört....
Ich hab auch mal einen Analog-Eingang genommen, und damit einen Servo gesteuert.
Code:
define Pot1 AD[1] 'Analogport 1
define Pot2 AD[2] 'Analogport 2
define Servo1 DA[1] 'Servo 1
define Servo2 DA[2] 'Servo 2
define Licht Port[16] 'Port 16 (Displaybeleuchtung)
define tconfig byte 'Config als Byte
with config
.init
.get tconfig
tconfig = tconfig or 00000001b
.put tconfig
.off
end with
#start
Licht=off 'Licht AN
lcd.init 'LCD-Anzeige
lcd.clear
lcd.pos 1, 1 'Zeile 1, Position 1
lcd.print "Servo 1 = " & Pot1 'Anzeigen von Wert Servo 1
lcd.pos 2, 1 'Zeile 2, Position 1
lcd.print "Servo 2 = " & Pot2 'Anzeigen von Wert Servo 2
lcd.off
Servo1 = Pot1 'Servo 1 = Poti 1
Servo2 = Pot2 'Servo 2 = Poti 2
goto start
Für verbesserungen bin ich jederzeit dankbar.
Lesezeichen