Servotester für VB und Bascom

**holzi** · 20.12.2008, 16:54

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

**kalletronic** · 30.12.2008, 14:32

So, ich hab mal das Bascom Programm abgeändert, daß es über interrupt funktioniert:

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

Wenn ich mich nich verlesen hab in der Hilfe, kann ich mit "Config Srevos" aber nur 2 Servos ansteuern, oder??

Gruß Kalle

**patti16** · 30.12.2008, 20:04

hallo,

dukannst bis zu 16 Servos mit diesem Befehl ansteuern

**SMB-Soft** · 24.01.2009, 19:39

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

**kalletronic** · 26.01.2009, 21:30

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