ATTiny 13 Probleme - Anfänger

[Cheats R. (fynn)]

Hallo,

ich versuche noch mal was in BASIC:

$regfile = "attiny13.dat"
$crystal = 1200000

Config Portb.3 = Output
Led Alias Portb.3

Config Pinb.4 = Input
Taster1 Alias Pinb.4


$hwstack = 22

Do

     If Taster1 = 1 Then
     Led = 0
     Else
     Led = 1                                                
     End If

Loop

Leider funktioniert das überhaupt nicht so wie ich will o.0 . Die LED 
soll aus sein, wenn der Taster gedrückt wird, und an gehen wenn er nicht 
gedrückt ist! Die LED ist an PB3 und R an den GND. Der Schalter geht 
einfach von GND an PB4...

Wahrscheinlich sind es Grundlagenfehler... Gibt es nicht irgendwo ein 
BASCOM ATTiny 13 Tutorial? Oder ein billiges Anfängerbuch?

Ich hoffe ihr könnt mir helfen!

Fynn

[Axel K. (axel)]

If Taster1 = 1 Then  ..

1. Pullup aktivieren für den Pin wo der Taser dranhängt
2. Wenn der Taster dann gedrückt ist, dass ist er nicht auf 1 sondern 
auf 0

[mike (Gast)]

probiers mal mit

Config Pinb.3 = Output

[mike (Gast)]

Pullup aktivieren:

Set Portb.4

[Cheats R. (fynn)]

ah ok! Danke jetzt gehts... Kann man irgendwie nicht mehr als ein Input 
Ports haben?

Sobald ich das hier einfüge:

$regfile = "attiny13.dat"
$crystal = 1200000

Config Portb.4 = Output
Led Alias Portb.4

Config Pinb.3 = Input
Taster1 Alias Pinb.3
Set Portb.3

Config Pinb.2 = Input
Taster2 Alias Pinb.2
Set Portb.2
                             
Do

     If Taster1 = 0 Then
     Led = 1
     Else
     Led = 0                                                
     End If

     If Taster2 = 0 Then 'Markierung: A
          Led = 1
          Waitms 50
          Led = 0
          Waitms 50
     End If
                                     
Loop

Nun wenn KEIN Schalter betätigt wird, blinkt die LED mit 50 ms... Siehe 
Markierung A im Code! Und wenn man taster1 drücken würde, dann merkts 
man eh nicht, weil der dann gleich wieder ins blinken überspringt...

Woran liegts?

Ich hoffe ihr könnt/wollt mir helfen!

Fynn