Taster Problem. Mach ich da etwas falsch ?

[noob (Gast)]

Servus allerseits ^^.

Ich habe einen Taster an den Attiny 2313 angeschlossen, aber irgendwie 
reagiert der MC nicht auf den Tastendruck.


So hab ich das angeschlossen:

                     _
                   __|__ S1
                  /
PD4---------------    -------------------- GND.

Mein Code sieht so aus:

Config Pind.4 = Input
Portd.4 = 1
'//Internetn Pull UP  Widerstand aktivieren

   Do

    If Pind.4 = 0 Then
      Call Null()
    End If
   Loop

Hab es auch mit If Pind.4 = 1 Then... versucht, geht auch nicht.

Bin noch anfänger...

[Franz-Rainer (Gast)]

Und was passiert bei Call Null()?

Ist das Bascom?

[noob (Gast)]

Hallo Franz.

Ja das ist Bascom. Bei Call Null wird ebenhalt meine Segment Anzeige zu 
Null ^^. Die Prozedur funktioniert auf jeden fall, ich habe sie schon 
getestet.

[Franz-Rainer (Gast)]

Bascom hat doch einen Simulator. Funktioniert es dort?

[Franz-Rainer (Gast)]

Schreib mal:

Config Portd.4 = Input

[noob (Gast)]

geht leider auch nicht :(

[Franz-Rainer (Gast)]

Probier mal:

ddrd = &b00000000

[noob (Gast)]

funktioniert leider auch nicht :(

[EF (Gast)]

fehlt da nicht ein Pullup-Widerstand ? (auf der Portseite)

[EF (Gast)]

       Vcc
       |
      | | ca. 4,7K    _
      | |           __|__ S1
       |           /
PD4----o-----------    -------------------- GND.

[EF (Gast)]

ich sehe gerade, dass du den ja intern aktiviert hast, also vergiss 
meine Anmerkungen

[Franz-Rainer (Gast)]

Guten Morgen...

Also habe den Code unten eingegeben, und es funktioniert einwandfrei.
Denke es hat was mit deinem  "Call Null()" zu tun.

Config Portb = Output
Config Pind.4 = Input
Portd.4 = 1
'//Internetn Pull UP  Widerstand aktivieren

   Do
    If Pind.4 = 0 Then
     Portb = 0
    Else
      Portb = 255
    End If
   Loop

[Franz-Rainer (Gast)]

Auch so funktionierts:



Config Portb = Output
Config Pind.4 = Input
Portd.4 = 1           '//Internetn Pull UP  Widerstand aktivieren


Declare Sub Null()
Declare Sub Eins()

   Do
    If Pind.4 = 0 Then
     Call Null()
    Else
      Call Eins()
    End If
   Loop

Sub Null()
   Portb = 0
End Sub

Sub Eins()
   Portb = 255
End Sub