anfänger frage

[emde]

Hallo, ich möchte folgendes erreichen. WEnn ich einen taster drücke, soll eine led angehen. WEnn ich ihn wieder drücke soll sie wieder ausgehen. Ich habe es so probiert, es geht aber nicht. Hoffe ihr könnt mir helfen.

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000

Config Portd.7 = Output
Config Pinc.2 = Input
Portc.2 = 1
Led Alias Portd.7
Taster Alias Pinc.2
Double Hallo = 0



Do

   If Taster = 0 Then
    Double Hallo + 1
    End If

    If Double Hallo = 1 Then
    Led = 1
    End If




Loop

End

emde

[PicNick]

Da ist erstmal ein Problem mit der Syntax.
Das, was du geschrieben hast, müßte rein formal erstmal so aussehen:

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000

Config Portd.7 = Output
Config Pinc.2 = Input
Portc.2 = 1
Led Alias Portd.7
Taster Alias Pinc.2
Dim Hallo As Double

   Hallo = 0

Do
    If Taster = 0 Then
                 Hallo = Hallo + 1
    End If
    If Hallo = 1 Then
               Led = 1
    End If
Loop
End

Deswegen funktioniert es aber auch nicht

1 Wieso meinst du, ein DOUBLE für "Hallo" verwenden zu müssen ? Hast du eine Ahnung, was das ist ?
2 Wenn du eine LED auf- und abdrehen willst, müßte wohl irgendwo auch
"LED = 0" vorkommen. Tut es aber nicht ?


3 Computer wollen es immer ganz genau wissen.

Du willst LED = 1, wenn :
LED = 0 UND Taste gedrückt.

Du willst LED = 0, wenn :
LED = 1 UND Taste gedrückt.

Taste gedrückt ist aber auch komplizierter:
du fragst in einer Schleife ab, ob der Tasten-Pin = 0. Wenn du die Taste nun eine 1/2 Sekunde lang drückst, kommt dir bei der Abfrage ein paar hundert mal eine Null raus. So geht's wohl nicht.

Du mußt also den Moment erwischen, wo die Taste vorher =1 war und jetzt = 0. Dadurch stellst du sicher, daß dir dein "IF" nur einmal je Tastendruck aufgeht

Es gibt verschiedene Lösungen, je nachdem, was das Progamm sonst noch zu tun hat

Eine Möglichkeit, wenn sonst nix zu tun ist:

    LED = 0
DO
'  abfragen, bis die Taste ausgelassen wurde 
     while taster <> 1   
     wend  
' jetzt ist taster = 1

' warten, bis die Taste gedrückt wird
     while taster <> 0  
     wend  
' jetzt ist taster = 0   
     if Led = 0  THEN
         led = 1                ' is LED = aus, dann aufdrehen
    else 
         led = 0                ' is LED = ein, dann abdrehen
    end if
LOOP      
END

Bei LED 0/1 kommst drauf an, wie die angeschlossen wurde

[Vitis]

config portd.7 = output
config portc.2 = input

taster alias pinc.2
led alias portd.7

do
if taster=1 then
toggle led
waitms 50
endif

loop