Hallo
Mit diesem Programm:
Code:
'Servo steuern mit dem RP6 6.3.2008 mic'
$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 8
$framesize = 8
'Dims --------------------------------------------------------------------------'
Dim Servopos1 As Byte
Dim Servopos2 As Byte
Dim Temp As Integer
Dim Stellzeit As Integer
'Ports -------------------------------------------------------------------------'
Config Porta.0 = Output
Config Porta.1 = Output
'Variablen vorbelegen ----------------------------------------------------------'
' Mitte ist ~80
Servopos1 = 10
Servopos2 = 150
'Hauptprogramm -----------------------------------------------------------------'
Disable Interrupts
Do
For Stellzeit = 0 To 100
Set Porta.0
For Temp = 1 To Servopos1
Waitus 10
Next Temp
Reset Porta.0
Set Porta.1
For Temp = 1 To Servopos2
Waitus 10
Next
Reset Porta.1
For Temp = 1 To 500
Waitus 10
Next
Next Stellzeit
If Servopos1 = 10 Then Servopos1 = 150 Else Servopos1 = 10
If Servopos2 = 45 Then Servopos2 = 125 Else Servopos2 = 45
Loop
kann mein RP6 das:
Bild hier
http://www.youtube.com/watch?v=lN_NalOYS_4
Das sollte auch mit einem 1Mhz Mega8 funktionieren.
Gruß
mic
Lesezeichen