Taster an AtMega8.. steh grad auf m Schlauch.. :/

Hallo...
hab folgendes Problem...
will nen ganz normalen Taster an nen Atmega8 anschliessen, aber der will nicht so wie ich.

Der Taster verbindet den Port mit GND und ist mit 100R gepullupt..

der code ist folgendermassen:

Code:

---

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

 Config Pinb.2 = Output
 Beleucht Alias Portb.2
 Config Pind.0 = Input
 Taster_plus Alias Portd.0
 Portd.0 = 1

 Do

 If Taster_plus = 1 Then
  Beleucht = 1
 Else
  Beleucht = 0
 End If

 Loop

---

Wenn ich den Taster drücke passiert rein gar nichts.. Beleuchtung bleibt immer auf 1 also an.
wo is der Fehler ??

...den Eingang musste über PIND.0 abfragen!

(Also Taster_plus Alias PIND.0)

Gruß & Co!

Danke...

den Fehler mach ich irgdnwie immer... wozu gibt es überhaupt die unterscheidung ??

100R als Pullup? ist das nicht ein bisschen wenig? da fliessen ja 50mA wenn der Taster gedrückt ist....

gruss Bluesmash

Zitat:

---

wozu gibt es überhaupt die unterscheidung ??

---

Ganz einfach: Weil PORTX.Y den PullUp-Widerstand aktiviert, wenn der Anschluss als Eingang konfiguriert ist. Von daher wäre der (in der Tat etwas rustikal gewählte) externe Widerstand überflüssig, weil Du das mit PORTD.0=1 schon erledigt hast.

MfG,

Daniel

GEnau wie Sauerbruch sagt, gibt es im Falle von Inputs 2 Nutzungen der Register.
Wenn man auf Output stellt, gibt es nur an/aus, aber wenn man auf input stellt gibt es an/aus (von außen), und es gibt pullUp-an/aus, so dass Atmel das Port-Register in diesem Fall doppelt nutzt. Clever, wie ich finde.

Edit: Es heißt natürlich input...

@ wulf .. danke für die erklärung, dann versteh ich das jetzt auch mal, konnt mir das bis jetzt nie merken...

...wobei mit dem 2. "output" eigentlich "Input" gemeint sein dürfte. Das nur am Rande, um nicht neue Verwirrung zu stiften =P~

Zitat:

---

Zitat von Sauerbruch

...wobei mit dem 2. "output" eigentlich "Input" gemeint sein dürfte. Das nur am Rande, um nicht neue Verwirrung zu stiften =P~

---

Danke, ich habs mal korrigiert.

ok, dann noch eine Frage.. wenn ich will dass man den Taster z.b. 5 sekunden Drücken muss um eine Funktion auszulösen, wie kann ich das dann machen?
geht das so:

Code:

---

$regfile = "m8def.dat"
 $crystal = 8000000
 '-----Timer-----
 Config Timer0 = Timer , Prescale = 256               
 Enable Timer0                                           
 On Timer1 blablubb                           
 Enable Interrupts
 Timer0 = 0             
do
....
if taster = 1 then
    timer0 = 0
end if
....
loop       

blablubb:
if taster = 1 then
...'funktion ausführen
end if
return

---

oder wie würdet ihr das lösen.

@ thewulf.. du hast nen Pinguin als avatar und kennst dich mit bascom aus...
Hast du das unter wine laufen ??

Zitat:

---

Zitat von goara

ok, dann noch eine Frage.. wenn ich will dass man den Taster z.b. 5 sekunden Drücken muss um eine Funktion auszulösen, wie kann ich das dann machen?
geht das so:

Code:

---

$regfile = "m8def.dat"
 $crystal = 8000000
 '-----Timer-----
 Config Timer0 = Timer , Prescale = 256               
 Enable Timer0                                           
 On Timer1 blablubb                           
 Enable Interrupts
 Timer0 = 0             
do
....
if taster = 1 then
    timer0 = 0
end if
....
loop       

blablubb:
if taster = 1 then
...'funktion ausführen
end if
return

---

oder wie würdet ihr das lösen.

@ thewulf.. du hast nen Pinguin als avatar und kennst dich mit bascom aus...
Hast du das unter wine laufen ??

---

Ich denke das mit dem Timer1 in Deinem Code ist ein Schreibfehler ;)
Bei 8MHz würde ich einen Prescale von 1024 nehmen, hat den Vorteil das Du die Variable nur als Byte DIMen musst.

Ich habe es in meinem Programm so gelöst:

Code:

---


 Config Timer0 = Timer , Prescale = 1024
 Enable Timer0
 Enable Interrupts
 On Timer0 Zaehlen


...
...
...

Zaehlen:
  If Taster = 0 Then A = A + 1 Else A = 0
  If A = 92 Then Goto Eeprom

Return

---

Der Wert 92 sind so ca.3s, den musst Du nur noch anpassen.

Gruß
Jens

@goara: Ich kenn mich nicht mit BASCOM aus :-)
Aber ich benutze Windows und Linux, um überall mit allen Pogrammen entwickeln zu können.

Die Fragen, die Du gestellt hast, waren nicht BASCOM-spezifisch, das gilt unter C genauso...

Bei Deiner letzten Frage z.B. muss ich schon passen.