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