Kleiner Kettenroboter

[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.

[HeXPloreR]

ähm, okay Bascom ist nicht meins, wenn du einen PullUp eingeschaltet hast dann benötigst du den nicht extra noch draussen. Das wäre dann mein Fehler.

Um gottes willen ...versuche es doch mal mit ner klemme oder ähnliches.

[Kampi]

Hey,

schau mal hier:

http://halvar.at/elektronik/kleiner_...er_entprellen/

Das muss PORTX = 1 heißen und nicht PINX = 1.

[avus17]

Danke, dass werde ich gleich mal ändern.

EDIT: Jetzt läuft der Bot endlich. Danke nochmal für den Tipp!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[avus17]

Ich wollte gerade ein Relais über einen Bc 337 an den atmega anschließen, allerdings Funktioniert dass nicht, da die Basis
ja an eine Positive spannung benötigt, am Controlerpin aber eine Negative Stannung ist. kann mir demand helfen, wie ich dass lösen kann???