okay, hab ich gemacht 9,3V. Zuviel für den Servo der 4,8 - 6V benötigt. Habe das Programm nochnal auf 1MHz geändert....aber auch das juckt den Digitalen irgendwie immer noch nicht. Die Fuses habe ich natürlich immer mitgestellt im mega8 - der auf meinem Steckbrett.
@MagicWSmoke:
Du meinst aber schon den mega8 im Servo.
Kann ich den überhaupt so einfach versellen? Wahrscheinlich hat das mit der irgendwo erwähnten Umstellung von 90° auf 180° zu tun, mit extra Zubehör.
Code:
$regfile = "m8adef.dat"
$crystal = 1000000
'$sim
'$baud = 19200
$hwstack = 40
$swstack = 16
$framesize = 32
Ddrb.0 = 1
'Portb.0 = 0
Portb.0 = 1 'system run
' Ddrb.7 = 1
'Portb.7 = 0
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Portd.6 , Rs = Portd.7
Waitms 100
Config Lcd = 20 * 4
Waitms 10
'')
Dim Rc_1 As Word
Dim F As Single
Dim F1 As Word
'Cls
'Cursor Off
Do
Pulsein Rc_1 , Pinc , 1 , 1
Locate 1 , 1
Lcd "Servo1 = " ; Rc_1
F = Rc_1 * 6.66
'1MHz = * 6.66 ; 4MHz = * 11.511 ; 8MHz = * 23.022
F1 = F
Locate 2 , 1
Lcd "Servo1 = " ; F1
Pulseout Portb , 7 , F1 '1600
Waitms 10
Loop
End
Lesezeichen