Mein erster Roboter

[avus17]

Ach so, danke. Dann muss ich mir wohl noch mal
nen neues ISP-Kabel besorgen. Aber wofür ist eigentlich die RS232 büchse wo ISP dransteht???

[Torrentula]

Und auch gleich für ne ordentliche Kühlung vom 7805 und dem L293D gesorgt

Sieht gut aus. Jetzt fehlt nur noch ein cooles Chassis.

MfG

Torrentula

[Kampi]

Die ist ein ganz normaler ISP Anschluss aber nur als 9-pol. Sub-D ausgeführt.

[avus17]

@Torrentula Ja, die Kühlung ist schon etwas groß geraten, aber schaden kanne es ja nicht.
@Kampi ach so, hab mich schon gewundert.

[avus17]

Hallo zusammen, ich hab heut schon mal etwas am Code gebastelt da mein ISP-Kabel morgen kommen
sollte. Und nun wollte ich malragen ob der Code so ok ist oder ob da der Microcontroler in Flammen aufgeht.

'    Pinbelegung:
' Schalter vorne =PC0
' Schalter hinten =PC6
' Enable Motor1 = PA=0
' Motor1 Eingang A = PA1
' Motor1 Eingang B = PA2
' Enable Motor2 = PA4
' Motor2 Eingang A = PA5
' Motor2 Eingang B = PA6

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000

Config Pina.0 = Output
Config Pina.1 = Output
Config Pina.2 = Output
Config Pina.4 = Output
Config Pina.5 = Output
Config Pina.6 = Output
Config Pinc.0 = Input
Config Pinc.6 = Input
Pinc.0 = 1
Pinc.6 = 1

Do
If Pinc.0 = 1 Then
 Pina.0 = 1
 Pina.4 = 1
 Pina.1 = 1
 Pina.5 = 1
 End If

 If Pinc.0 = 0 Then
 Pina.1 = 0
 Pina.2 = 0
 Pina.5 = 0
 Pina.6 = 0
 Waitms 20
 Pina.1 = 1
 Pina.2 = 0
 Pina.5 = 0
 Pina.6 = 1
 Waitms 100
 Waitms 100
 Pina.1 = 0
 Pina.2 = 0
 Pina.5 = 0
 Pina.6 = 0
 End If

 If Pinc.6 = 1 Then
 Pina.0 = 1
 Pina.4 = 1
 Pina.1 = 1
 Pina.5 = 1
 End If

 If Pinc.6 = 0 Then
 Pina.1 = 0
 Pina.2 = 0
 Pina.5 = 0
 Pina.6 = 0
 Waitms 20
 Pina.1 = 1
 Pina.2 = 0
 Pina.5 = 0
 Pina.6 = 1
 Waitms 100
 Waitms 100
 Pina.1 = 0
 Pina.2 = 0
 Pina.5 = 0
 Pina.6 = 0
 End If


Loop

End

Der Bot soll einfach nur irgendwo gegenfahren, Bremsen,Wenden und weiter fahren.

[radbruch]

Hallo

Mit Pinx.y wird der Status eines Pins eingelesen. Wenn du einen Pin als Ausgang verwendest und ihn steuern willst, lautet der Befehl Portx.y=1/0.

Beim zweiten Bremsen nach dem Ausweichen fehlt die kurze 20ms-Pause?

Kommentare kosten im Quellcode nix extra. Aber sonst: Weiter so.

Gruß

mic

[Kampi]

Der Code sieht soweit ganz gut aus. Wie gesagt Kommentare wären schön
Das 2x "Wait 100" würde ich noch zusammenfassen. Und die If-Abfragen ruhig mal beschriften damit man weiß was die machen.

[avus17]

Also erst mal vielen Dank für die Tipps, ich hab den Code mal überarbeitet.
Ist das so Ok oder hab ich wieder was vergessen???

'    Pinbelegung:
' Schalter vorne =PC0
' Schalter hinten =PC6
' Enable Motor1 = PA=0
' Motor1 Eingang A = PA1
' Motor1 Eingang B = PA2
' Enable Motor2 = PA4
' Motor2 Eingang A = PA5
' Motor2 Eingang B = PA6

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000

Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Pinc.0 = Input
Config Pinc.6 = Input
Pinc.0 = 1
Pinc.6 = 1

Do
If Pinc.0 = 1 Then                                          'Wenn keine kolision (vorne) erfolgt
 Porta.0 = 1                                                'fahre vorwärts.
 Porta.4 = 1
 Porta.1 = 1
 Porta.5 = 1
 End If

 If Pinc.0 = 0 Then                                         'Wenn kollision (vorne) erfolgt,
 Porta.1 = 0                                                'Bremse,
 Porta.2 = 0
 Porta.5 = 0
 Porta.6 = 0
 Waitms 20                                                  'warte 20 ms
 Porta.1 = 1                                                'Drehe 200ms
 Porta.2 = 0
 Porta.5 = 0
 Porta.6 = 1
 Waitms 200
 Porta.1 = 0                                                'Bremse
 Porta.2 = 0
 Porta.5 = 0
 Porta.6 = 0
 Waitms 20                                                  'warte 20ms
 End If

 If Pinc.6 = 1 Then                                         ' Wenn keine kolision (hinten)
 Porta.0 = 1                                                'fahre vorwärts
 Porta.4 = 1
 Porta.1 = 1
 Porta.5 = 1
 End If

 If Pinc.6 = 0 Then                                         'Wenn kolision (hinten)
 Porta.1 = 0                                                'Bremse,
 Porta.2 = 0
 Porta.5 = 0
 Porta.6 = 0
 Waitms 20                                                  'warte 20 ms
 Porta.1 = 1                                                'drehe 200ms
 Porta.2 = 0
 Porta.5 = 0
 Porta.6 = 1
 Waitms 200
 Porta.1 = 0                                                'Bremse
 Porta.2 = 0
 Porta.5 = 0
 Porta.6 = 0
 Waitms 20                                                  'warte 20 ms
 End If



Loop

End