TASTER

[Björn]

Moinsen!

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:

...
Config PortA As Input

PortA.2 = 1

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

Gruß, Björn

[NRG]

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

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

Config porta =input

Do

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

Hoffe ich konnte dir weiterhelfen!

MFG

NRG

[uwegw]

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

[Björn]

Jo das hab ich selbst noch rausgefunden

Geht jetzt...

Gruß, Björn

[bubu0101]

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

[avatar]

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

Entprellen kannst du hardwaremäßig oder per Software

[mx3]

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

[Memby]

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

[NRG]

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

$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

[linux_80]

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.