Gast
#142781
Hallo, ich brächte mal einen kleinen denkanstoß. Ich möchte gerne mit einem Taser eine LED zum leuchten bringen. Die LED soll solange leuchten bis ich den selben taster nochmal drücke. Danke
|
Anzeige
|
Taster als Schalter
Gast
#142781
Hallo, ich brächte mal einen kleinen denkanstoß. Ich möchte gerne mit einem Taser eine LED zum leuchten bringen. Die LED soll solange leuchten bis ich den selben taster nochmal drücke. Danke
Gast
#142782
bau dir ein bistalbiles flipflop auf oder kauf dir ein fertiges, vergiss nicht, den taster noch zu entprellen
Gast
#142783
ops, hab vergessen zu sagen das ich mit Bascom arbeite und den AT90S2313 habe.
Gast
#142784
dann such dir irgendwo ein paar bascom tutorials raus. einen port abfragen und setzten sollte man sich doch noch selber erarbeiten können
Gast
#142785
Hab ich ja, finde da blos nicht das richtige.
$regfile = "2313def.dat"
'AT90S2313
$crystal = "3686400" 'Quarz
3.6864 MHz
Ddrd = &B0000011 'Pin PD0
und PD1 als Ausgang
Portd = &B0000100 'PullUp
von PD3 Aktivieren
Do
If Pind.3 = 0 Then 'wenn PD3
gedrückt dann...
Portd.0 = 1 '...PD0
an
Portd.1 = 1 '...PD1
an
Else 'Wenn PD3
nicht gedrückt dann...
Portd.0 = 0 '...PD0
aus
Portd.1 = 0 '...PD1
aus
End If
Loop
End
Wenn ichs so mache gehen doch sobald ich den Taster loslasse die LEDs
aus oder nicht?
Gast
#142786
Au mann.... Ich hab in meinem leben noch nie was mit bascom gamacht!
Aber trotzdem isses leicht:
$regfile = "2313def.dat"
'AT90S2313
$crystal = "3686400" 'Quarz
3.6864 MHz
Ddrd = &B0000011 'Pin PD0
und PD1 als Ausgang
Portd = &B0000100 'PullUp
von PD3 Aktivieren
Portd.0 = 0 '...PD0
aus
Portd.1 = 0 '...PD1
aus
Do
If Pind.3 = 0 Then 'wenn PD3
gedrückt dann...
Portd.0 = 1 '...PD0
an
Portd.1 = 1 '...PD1
an
End If
Loop
End
Gast
#142787
mag ja sein das es für dich leicht ist, ich finde das alles ziemlich schwer. Und verstehen tu ich das was du da gepostet hast auch nicht wirklich. Kanns leider erst morgen testen, weil mein experimentier board noch nicht da ist.
Gast
#142788
Ich mach auch nix mit BASCOM, meine aber, dass es so nicht funktioniert, denn ich vermisse das "Zauberwort" zum Entprellen der Taste(n). Da du (@Usel) ja mit BASCOM "arbeitest", wirst du das auch leicht in der BASCOM-Hilfe finden. ...
Gast
#142789
Hallo, ich habe prellfreie taster! Was mich an dem von Garfield geschriebenem code nur etwas verwundert, ist das wieder ausschalten der LEDs. Das sie bei Tastendruck angehen ist ja ganz logisch, blos wo steht denn da das sie bei erneutem tastendruck wieder ausgehen?
Gast
#142790
Du hast also prellfreie Taster. Ich nicht, denn alle mechanischen Taster prellen. Du fragst den (prellfreien) Taster in einer Schleife ab. Du bist auch in der Lage, den Taster exakt so lange zu drücken, dass er nur in einem Schleifendurchlauf gedrückt ist, im nächsten dann nicht mehr. Dann ist das ganz einfach: zähle bei jedem Tastendruck eine Variable hoch und werte deren unterstes Bit als Schaltzustand aus. Oder toggle bei jedem Tastendruck den Ausgang. Du bist nicht in der Lage, den Taster exakt genug zu betätigen?? Dann brauchst du eine gute Tastenentprellung, die jeden Tastendruck (egal wie lange er dauert) und jedes Loslassen registriert und dir eindeutige Flags für Tastenzustand und neuen Tastendruck liefert. Auch für den Fall, dass du wirklich entprellte Tasten hast (kontaktlose Tasten mit Triggerverhalten, z.B. Hall-Tasten mit eigener Elektronik). ... Antwort schreibenBitte melde dich an, um einen Beitrag zu schreiben. |
Anzeige
|