TASTER

Moinsen! :D

Ich möchte einen Taster benutzen. Das eine Ende muss an einen freien PIN, das ist klar - das andere Ende an GND oder VCC?

Und welcher Source ist notwendig?
Ich hab noch sowas in Erinnerung:

Code:

---

...
Config PortA As Input

PortA.2 = 1

If PortA.2 = 1 Then....
...

---

Gruß, Björn

Hallo!!
Also du must an den taster GND anschließen!
Der Code zum Abfragen (beim mega8) wäre dann so:

Code:

---

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

Config porta =input

Do

If Pina.1 = 0 Then
......
usw.
loop
end

---

Hoffe ich konnte dir weiterhelfen! O:)

MFG

NRG

und den pullup-widerstand solltest du noch aktivieren. nach dem config... noch porta.1 = 1

Jo das hab ich selbst noch rausgefunden :D

Geht jetzt...

Gruß, Björn

mit bascom 1.11.7.4 musste es
if pina.x=1 heissen

Taster haben leider die unangenehme Eigenschaft, dass sie gern prellen. Bei manchen Programmen kann das zum Problem werden :-k

Entprellen kannst du hardwaremäßig oder per Software :)

Hi


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

Config porta =input
porta.1 = 1

Do

If Pina.1 = 0 Then
Waitms 250 ' 1/4 Sek. Pause (genügt bei mir zum entprellen)
if Pina.1 = 0 Then ' mach was

......
usw.
loop
end

mfg,MX3

Ist doch eigendlich egal ob GND oder VCC. Hauptsache es sind eindeutige Signale! Wie du sie auswertest bleibt dir überlasssen.

hmmm weiß jemand wie ich das prog umschreiben muss, damit ich ein + signal auswerten kann?! also vcc?!
meins schaut so aus funzt aba nich!

Code:

---

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

Config Portc = Input
Portc.2 = 1
Config Portb = Output
Dim A As Integer
Do

If Pinc.2 = 1 Then
Set A
Else
Reset A
End If
If A = 1 Then
Portb.2 = 0
Portb.1 = 1
Else
Portb.1 = 0
Portb.2 = 1
End If

Loop
End

---

Hallo,
ich würde mal überprüfen, was raus kommt wenn man ein Integer mit Set berarbeitet, ich denke mal da kommt nicht 1 raus.
Set ist normalerweise für Bitoperationen gedacht.