Ich Raffe es nicht!!

[Dejuh]

Ich würde diese Servobrücke erst nochmal entfernen und dann nochmal Programmierung checken. Im schlimmsten Fall brauchst du neuen Controller.

Hallo Frank
hab ich gemacht,bin mir aber total sicher das ich die Brücke richtig gesetzt habe,kann man eigentlich nicht falsch machen.
Jedenfalls erkennt Basecom den ATMEGA32 nicht mehr
gruß
Dejuh

[Andal]

Wechsel ihn mahl aus(aber las die Brücke weg), oder Bau dir eine kleine Testschaltung.

MFG
Andal

[Dejuh]

Wechsel ihn mahl aus(aber las die Brücke weg), oder Bau dir eine kleine Testschaltung.

MFG
Andal

Erstmal haben,hab keinen.....
gruß
dejuh

[Dejuh]

mache lieber nen neuen auf!

[Dejuh]

Hallo,
Einen neuen ATMEGA32 eingesteckt,sofort erkannt,super.
Dann das reingeschickt:
$prog &HFF , &H00 , &H00 , &H00 ' generated. Take care that the chip supports all fuse bytes.$PROG &HFF,&H00,&H00,&H00' generated. Take care that the chip supports all fuse bytes.'########################################### ########
'servotreibertestrns1.bas
'für
'RoboterNetz Standard-Roboter Board RBNFRA ab V1.1
'Achtung, dieses Demo ist nur für Servotreiber RNS1 (siehe Download) gedacht
'
'Aufgabe:
'10 Servos über CoController ansteueren
'Für die Ansteuerung muss ein RS232 Jumper oder eine
'Brücke gesteckt werden, siehe Tips im Roboternetz Projektforum
'Das Demo dreht erst langsam Servo 1 von Pos 1 zu 255 und
'danach wechselt es schnell 4 mal die Seite. Danach beginnt es von vorn
'Natürlich kann man auch 10 Servos gleichzeitig ansteuern, der
'Übersicht wegen hier nur das Beispiel mit einem Servo
'
'Autor: Frank
'Weitere Beispiele und Beschreibung zur rnbfra
'unter http://www.Roboternetz.de + robotikhardware.de
'################################################# ##


$regfile = "m32def.dat"


Declare Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
Declare Sub Rnb_servob(byval Servonummer As Byte , Byval Position As Byte)


Dim I As Byte
Dim Pos As Byte

$crystal = 8000000 'Quarzfrequenz
$baud = 9600


Wiederhole:

For I = 1 To 255
Call Rnb_servo(1 , I)
Waitms 50
Next I

For I = 1 To 4
Pos = 1
Call Rnb_servo(1 , Pos)
Wait 2 'Warte 2 Sekundne
Pos = 255
Call Rnb_servo(1 , Pos)
Wait 2
Next I

Goto Wiederhole




Sub Rnb_servo(byval Servonummer As Byte , Byval Position As Byte)
Print "#s" ; Chr(servonummer) ; Chr(position)
End Sub

Sub Rnb_servob(byval Servonummer As Byte , Byval Position As Byte)
Open "comd.7:9600,8,n,1" For Output As #2
Print #2 , "#s" ; Chr(servonummer) ; Chr(position)
Close #2
End Sub

End

UND NUN GLEICHE FEHLERMELDUNG ID:FFFFFF
Und er wird nicht mehr erkannt.
Das gibts doch nicht?
Kann man den so leicht schrotten?
gruß
Dejuh

Wozu soll denn die Zeile sein:

$prog &HFF , &H00 , &H00 , &H00 ' generated. Take care that the chip supports all fuse bytes.$PROG &HFF,&H00,&H00,&H00' generated. Take care that the chip supports all fuse bytes

Die gehört eigentlich nicht rein

[Dejuh]

Hallo,
das hab ich auch schon bemerkt,nur was mache ich jetzt ist der jetzt auch hin?
gruß
Dejuh

Die Anweisung die du da rein geschrieben hast könnte eventuell die Fusebit´s verstellen. Dadurch machst du deine Controller eventuell selbst unbrauchbar.
Wie kommst du überhaupt auf die Zeile, im normalen Beispiel steht die nirgends.

Also, neuen Controller besorgen und Zeile weglassen. Fusebits erst verstellen wenn Programmierung ein paar mal funktioniert hat. Und dann am besten über Bascom Menü manuell verstellen (siehe https://www.roboternetz.de/phpBB2/viewtopic.php?t=4480)

[Dejuh]

Hallo Gast,
danke erstmal für die schnelle Hilfe.
Werd es so machen.
Gruß
Dejuh