-
-
Neuer Benutzer
Öfters hier
Moin nur mal ne frage nebenbei hast du ne ahnung warum das prog. nicht geht hab ich ausm internet :
'################################################# ##
'# servo.bas #
'################################################# ##
'#Dieses Programm demonstriert die Verwendung #
'#eines Servos mit dem Controllerboard RN-Control #
'################################################# ##
$regfile = "m16def.dat" ' Bestimmung des Prozessors
$crystal = 16000000 ' Quarzfrequenz
$baud = 9600 ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32
Print "**** Servo mit RN-Control *****"
Config Servos = 1 , Servo1 = Porta.6 , Reload = 10
' Der Servo wird am Port A Pin 6 angeschlossen
Config Pina.6 = Output
Dim I As Integer
Enable Interrupts
Do
Servo(1) = 0
waitms 1000
Servo(1) = 200
waitms 1000
Servo(1) = 100
waitms 1000
Loop
Ich weis passt nicht zum tehma aber wollte kein neues aufmachen
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen