Kleiner Kettenroboter

[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

[avus17]

Hallo, ich hab die Programierung immer noch nicht hingekriegt. Allerdings habe ich gerade mal ne LED angeschlossen und ein Programm geschrieben
dass sie an geht wenn man den Taster drückt:

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

Config Pind.0 = Output                                      ' Enable 1
                                      
Config Pind.5 = Input                                       ' Taster input

Pind.5 = 1                                                  ' Pull up

Do

If Pind.5 = 0 Then

Portd.0 = 1

Else

Portd.0 = 0

End If







Loop

Wenn ich jetzt die Stromversorgung einschalte, Leuchtet die LED kurz, wierd dann immer dunkler und geht dann aus.
wenn ich den Taster drücke geht sie sofort aus. Kann mir jemand sagen woran dass liegt??? ist da irgendwo ein Fehler in der Hardware???

[Kampi]

Wie hast du den Taster den beschaltet?

[avus17]

Den Taster habe ich einfach mit dem einen Anschluss an den Controler und mit dem anderen nach GND geschaltet.

[HeXPloreR]

Hallo,

Du hast Deinen Pin in einem undefinierten Zustand indem Du den Taster nur am Pin und zu GND geschaltet hast. Bau doch noch einen PullUp ein - dazu einefach einen 1kOhm Widerstand mit an den Pin und dann an VCC verbinden. Dann sollte wenigstens die Hardware etwas sicherer funktionieren.


mfg

[avus17]

Achso, danke. ich dachte der Pullup in Bascom würde reichen. Ich löte gleich mal nen Wiederstand dazwischen.