also das leuchtbalken-programm geht nicht, wisst ihr warum?
und ich hab ein servoansteuerungsprogramm geschrieben:
Code:
'#############################################################################
'Der Servo an PB2 wird durch die zwei Taster an PB0 und PB1 gesteuert..
'#############################################################################
$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Portb.2 = Output
Config Portb.0 = Input
Config Portb.1 = Input
Portb.0 = 1
Portb.1 = 1
Config Servos = 1 , Servo1 = Portb.2 , Reload = 10
Enable Interrupts
Servo(1) = 100
Dim Stellung As Byte
Stellung = 100
Do
If Portb.0 = 0 Then
Stellung = Stellung - 1
Elseif Portb.1 = 0 Then
Stellung = Stellung + 1
End If
For Stellung = 50 To 150
Servo(1) = Stellung
Waitms 200
Loop
End
Aber leider funktioniert es nicht. Der Servo zittert immer und bleibt in der Grundposition. Die Taster haben keinen Einfluss. Warum?
Ich bin mir nicht sicher was der befehl "For Stellung = 50 To 150" macht. ich glaube der bewirkt, dass die variable nicht kleiner als 50 und nicht größer als 150 sein kann. stimmt das?
Lesezeichen