Druckbare Version
Hi,
kommt bei mir auch auf diesem Rechner. Da habe ich wohl nicht alles auf meinen Stick am anderen Rechner kopiert. An den anderen Rechner komme ich aber erst am Montag Morgen wieder ra. Ich kopier Dir das dann noch mal und schicke es Dir per Email zu.
Peter
So, ich hab mal das Bascom Programm abgeändert, daß es über interrupt funktioniert:
Wenn ich mich nich verlesen hab in der Hilfe, kann ich mit "Config Srevos" aber nur 2 Servos ansteuern, oder??Code:'Servo Test für VB Programm SERVO
'Befehle über RS232 / RS485
'Erstellt 30.12.2008 By Kalle
'Befehlsaufbau: 1125
' ||
' |=Servobosition
' =Servonummer
$regfile = "m32def.dat"
$crystal = 16000000
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
Config Portb = Output
Config Serialin = Buffered , Size = 20 , Bytematch = 13 'Bytematch=13 Interrupt bei CR auslösen
Enable Interrupts
Declare Sub Serial0charmatch()
'*** Variablendeklaration ***
Dim Befehl As String * 5
Dim Nummer As String * 2
Dim Aktion As String * 3
Dim Nummerbyte As Byte
Dim Aktionbyte As Byte
'*** Hauptprogramm ***
Do
If Len(befehl) > 0 Then
Print Befehl
Nummer = Left(befehl , 1)
Aktion = Mid(befehl , 2 , 3)
Nummerbyte = Val(nummer)
Aktionbyte = Val(aktion)
If Aktionbyte < 50 Then Aktionbyte = 50 'Positionsbegrenzung nach unten
If Aktionbyte > 150 Then Aktionbyte = 150 'Positionsbegrenzung nach oben
Servo(nummerbyte) = Aktionbyte
Print Nummerbyte
Print Aktionbyte
End If
Befehl = ""
Loop
Sub Serial0charmatch()
Input Befehl Noecho
End Sub
Gruß Kalle
hallo,
dukannst bis zu 16 Servos mit diesem Befehl ansteuern
Hallo zusammen,
ich habe die Programme mal getestet bei mir geht nichts.
Ich verwenden einen Mega 8, ich habe die Parameter entsprechend angepasst. Die Fuse Bits sind alle aus.
Ich habe die Servos an PB0 und PB1 angeschlossen.
Die Servos wollen sich einfach nicht bewegen. Hat jemand einen Tip warum ?
Gruss
Stefan
hi Stefan,
die Programme sind auch noch nich ganz fertig, die Version die ich hochgeladen hab, hab ich getestet, sie funktioniert aber nur mit einem Servo. Ich bin grad dabei das ganze Programm komplett umzukrempeln, mit einem neuen Telegrammaufbau, der mir aber zur Zeit einige Probleme bereitet
https://www.roboternetz.de/phpBB2/viewtopic.php?t=44453
aber ich hoffe ich bekomms hin, dann müsste es auch mit 16 Servos funktionieren und wenn alles klappt, soll es dann eine komplette GUI für 2 Motoren einige Sensoren usw. werden.
Gruß Kalle
hallo!
wolte fragen wie die belegung für den comport ist,für den atmega32.
gruß neuer