hi

hier habe ich mal das programm:

$regfile = "m8def.dat"

Dim I As Integer
Dim N As Integer
Dim Ton As Integer

Dim Ws As Word 'Wird für Messung bei Tastenabfrage verwendet
Dim Adc_ohne_taste As Word

$crystal = 7372800 'Quarzfrequenz

$baud = 9600

I = 0
Sound Portb.0 , 400 , 450 'BEEP
Sound Portb.0 , 400 , 250 'BEEP
Sound Portb.0 , 400 , 450 'BEEP



Enable Int0
Config Int0 = Rising
On Int0 sprungmarke
Enable Interrupts

do
loop

Sprungmarke:


Config Servos = 1 , Servo1 = Portb.5 , Reload = 10

Config Portb = Output
Config Pinb.5 = Output


Servo(1) = 100 '1000 uS on


Do
For I = 0 To 100
Servo(1) = I
Waitms 1000
Next

For I = 200 To 0 Step -1
Servo(1) = I
Waitms 1000
Next
Loop

Return
End


so habe gerade das nochmal geändert.


gruß
patrick