Bascom Programm Taster steuert LED ?????

[AVRboy]

Hi ich bin neu hir und habe ein kleines problem ich habe ein Programm gebastelt das wenn ein Taster auf meinem STK 500 gedückt wird eine LED zum leuchten bringen soll do irgend wie weiß ich nich so richtig was ich da gebastelt habe.Deshalb wollte ich einmal fragen ob das ein ansatz ist und vieleicht kann mir jemand helfen wie besser geht.

Hier mal mein Programm 8-[ ](*,) :-k

$regfile = "attiny2313.dat"
$baud = 19200
$crystal = 3690000

Config Pinb.2 = Output
Config Pinb.1 = Input
Dim Taster As Byte
Dim Led As Byte
Pinb.1 Alias Taster
Pinb.2 Alias Led

Do
If Taster = 1 Then
Led = 1
End If
Loop
End[/code]

[Papsi]

Hallo,

ich helf mal schnell aus:

$regfile = "attiny2313.dat"
$baud = 19200
$crystal = 3690000

Config Pinb.2 = Output
Config Pinb.1 = Input

Taster Alias Pinb.1
Led Alias Portb.2

Do
If Taster = 0 Then
Led = 1
Else
Led = 0
End If
Loop
End


Kannste im Simulator schön testen

ODER

...
Do
If Taster = 0 Then Led = 1
If Taster = 1 Then Led = 0
Loop
...

[Hanni]

Hi ich bin neu hir und habe ein kleines problem ich habe ein Programm gebastelt das wenn ein Taster auf meinem STK 500 gedückt wird eine LED zum leuchten bringen soll

Vielleicht noch nen kleiner Hinweis:

die LED's auf dem STK leuchten wenn du den entsprechenden Port PIN auf 0 legst.
Die Taster produzieren übrigens auch eine logische 0 bei Tastedruck.


Grüße, da Hanni.

[AVRboy]

Das mit 0 dan leutet is klar ich habe nur noch am Code gebastelt und dan hald denn rein kopiert.

Der Beispiel Code läuft musste nur noch ein bischen modifizieren (Nach Syntax Check).

Danke für eure hilfe

[maze2k]

Lieber AVRBoy,

herzlich willkommen hier im Forum.

Nur eine kleine Bitte: bitte poste deine Probleme nur einmal! Du hast noch einen zweiten Thread gestartet mit genau dem selben Problem. Manchmal dauert es ein bißchen, bis jemand hier ist, der dir helfen kann. Bitte hab ein wenig Geduld.

Trotzdem viel Spaß weiterhin bei uns! :)