Kleiner Kettenroboter

[avus17]

Ok, dann ändere ich mal das Programm.

[avus17]

Hallo, ich habe gerade die bumper montiert, würde dieses Programm funktionieren, damit der Roboter Hindernissen ausweicht????

$regfile = "m8def.dat"
$crystal = 1000000

Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pinc.5 = Output
Config Pinc.4 = Output
Config Pinc.3 = Output
Config Pind.7 = Input
Config Pinb.0 = Input

Enable1 Alias Portb.1

Ina1 Alias Portb.2

Inb1 Alias Portb.3

Enable2 Alias Portc.5

Ina2 Alias Portc.4

Inb2 Alias Portc.3

Taster1 Alias Pind.7

Taster2 Alias Pinb.0


Do

 Enable1 = 1
 Enable2 = 1
 Ina1 = 1
 Ina2 = 1

 If Taster1 = 1 Then

 Enable1 = 0
 Enable2 = 0
 Ina1 = 0
 Ina2 = 0
 Waitms 200

 Enable1 = 1
 Enable2 = 1

 Inb1 = 1
 Inb2 = 1
 Waitms 300

 Inb2 = 0
 Waitms 500

 Inb1 = 0
 Enable1 = 0
 Enable2 = 0
 Waitms 200

 Enable1 = 1
 Enable2 = 1

 End If

 If Taster2 = 1 Then

 Enable1 = 0
 Enable2 = 0
 Ina1 = 0
 Ina2 = 0
 Waitms 200

 Enable1 = 1
 Enable2 = 1

 Inb1 = 1
 Inb2 = 1
 Waitms 300

 Inb2 = 0
 Waitms 500

 Inb1 = 0

 Enable1 = 0
 Enable2 = 0
 Waitms 200

 Enable1 = 1
 Enable2 = 1

 End If








Loop

[5Volt-Junkie]

Packe es doch auf den µC drauf und probier es mal aus

[avus17]

Ich wolte gerade den Atmega programieren, aber er bricht immer ab, und macht komische Geräusche.
Er wird aber noch vom programiergerät erkannt. Als Programm zu programieren benutze ich das AVR prog tool.
Weiß jemand woher dass kommt???

[avus17]

Es lag daran, dass die Motoren angeschlossen waren, aber der roboter bewegt sich trotzdem ganz komisch weiß demand ob da im Programm irgendwo ein fehler ist???

[avus17]

Hallo, ich bin jetzt schon seit stundn am programmieren, aber der Bot Finzt irgendwie nicht. Gradeausfahren geht aber soald eine If-anweisung im Programm ist,
geht es nicht mehr. Kann jemand mach über das Programm schauen??? Die Taster sind an Pinb.0 und Pind.7.

[avus17]

Ich habe gerade ein neues Programm mit nur einem Taster geschrieben aber es funzt immer noch nicht , kann mir jemand mal sagen warum dass nicht geht??? Ich glaube dass Problem ist irgendwo bei der If- Anweisung

$regfile = "m8def.dat"
$crystal = 1000000

Config Pinb.1 = Output                                      ' Enable 1
Config Pinb.2 = Output                                      ' Input 1a
Config Pinb.3 = Output                                      ' Input 1b

Config Pinc.5 = Output                                      ' Enable2
Config Pinc.4 = Output                                      ' Input 2a
Config Pinc.3 = Output                                      ' Input 2b

Config Pinb.5 = Input                                       ' Taster input

Dim Taster As Bit                                           ' Taster Variable

Pinb.5 = 1                                                  ' Pull up

Do                                                          ' Wertzuweisung Variable

If Pinb.5 = 1 Then

Taster = 1

Else

Taster = 0

End If



If Taster = 1 Then

Pinb.1 = 1
Pinc.5 = 1

Pinb.2 = 1
Pinc.4 = 1

Else

Pinb.1 = 0
Pinc.5 = 0

Waitms 150

Pinb.1 = 1
Pinc.5 = 1

Pinb.3 = 1
Pinc.3 = 1

Waitms 300

Pinb.3 = 0

Waitms 200

Pinc.3 = 0

Pinb.1 = 0
Pinc.5 = 0

Waitms 100

End If
















Loop