PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Analogwert weiterverarbeiten



Zeroeightfifteen
28.07.2005, 22:56
hallo
ich will mit dem Analogwert den ich bekomme einen Servo steuern, doch er zeigt mir immer einen Fehler an. was ist den da falsch?

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

Config Serialout = Buffered , Size = 20
Config Adc = Single , Prescaler = Auto
Config Servos = 1 , Servo1 = Portc.7 , Reload = 10
Config Portc = Output

Start Adc
Enable Interrupts
Dim W As Word

Print "adc"


Do



W = Getadc(0)
Print W
Waitms 200

If W > 300 Then
Servo(1) = 130


Loop
End

pebisoft
28.07.2005, 23:21
"end if" fehlt, oder alles in einer zeile.
mfg pebisoft