taster abfragen in bascom

[Che Guevara]

hallo leute,

ich habe heute ein rn-control-bord geschenckt bekommen *freu*...

jetzt habe ich mir auch schon ein lauflicht "gebastelt" (programmiert)...
jetzt möchte ich ein programm schreiben, dass folgendes macht:

-wenn ich auf t1 drücke, soll led1 solange leuchten, solange ich drauf drücke
-wenn ich auf t2 drücke, soll led2 solange leuchten, solange ich nicht drauf drücke
- wenn ich auf t3 drücke, sollen alle led`s ausgehen und ein lauflicht soll beginnen!! dieses soll natürlich nur solange leuchten, solange ich draufdrücke, dann soll das programm wider in den ursprünglichen zustand zurückkehren!!
-wenn ich t4 drücke, soll sich led5 ein bzw. ausschalten... wenn ich wider
drauf drücke solls wider ein bzw. ausgehen!!

ich hoffe, ihr könnt mir helfen??! das ist das erste mal, dass ich etwas programmiere (auser ein prog fürn pc)!!!
danke schon mal für eure anregungen und bemühungen!!
gruß
chris

[Papsi]

Hallo,

das sollte Dir helfen...

https://www.roboternetz.de/wissen/index.php/AVR-Einstieg_leicht_gemacht
https://www.roboternetz.de/wissen/index.php/Bascom_-_Erstes_Programm_in_den_AVR_Controller_%C3%BCbertr agen
https://www.roboternetz.de/wissen/index.php/Bascom

Gruß
Papsi

[Che Guevara]

hallo papsi,

danke für deine antwort.
ich habe das leider aber schon alles durchgelesen!!

eigentlich müsste ich nur wissen, welchen port/pin bezeichnung die taster haben??!?!?!?!

gruß
chris

[chr-mt]

Hi,
meine Taster liegen auf Portb, die Leds auf PortC, als Controller werkelt ein AT90CAN128.
Kannst du ja bei dir entsprechend anpassen.
Ist das in etwa das, was du machen möchtest ?



$regfile = "m128can.dat"
$crystal = 16000000

Config Portc = Output
Config Portb = Input
Portb = &HFF

Taste_1 Alias Pinb.0
Taste_2 Alias Pinb.1
Taste_3 Alias Pinb.2
Taste_4 Alias Pinb.3
Taste_5 Alias Pinb.4
Taste_6 Alias Pinb.5
Taste_7 Alias Pinb.6
Taste_8 Alias Pinb.7

Led_1 Alias Portc.0
Led_2 Alias Portc.1
Led_3 Alias Portc.2
Led_4 Alias Portc.3
Led_5 Alias Portc.4
Led_6 Alias Portc.5
Led_7 Alias Portc.6
Led_8 Alias Portc.7

Dim N As Byte

Portc = 0

Do
Led_1 = Taste_1
Led_2 = Not Taste_2
While Taste_3 = 0
For N = 0 To 7
Portc = 2 ^ N
Waitms 100
If Taste_3 = 1 Then
Portc = 0
Exit For
End If
Next N
Wend
If Taste_4 = 0 Then
Toggle Led_5
While Taste_4 = 0 : Wend
End If
Loop
End


Gruß
Christopher

[Che Guevara]

hallo chr-mt,

danke für deine antwort, aber ich meinte eigentlich die 5 taster, die schon auf dem rn-control drauf sind!!
wie muss/kann ich diese ansprechen??

gruß
chris

[linux_80]

Hallo,

schau mal die Beispiele an, die es für das RN-Control gibt, da ist das mit dabei.
Musst nur auf den Link clicken, der entsteht wenn man das richtig schreibt.

[python_rocks]

jetzt möchte ich ein programm schreiben
Hallo Chris!

<unverschämte eigenwerbung ;-) >
Vielleicht bringt es dir etwas, wenn du dir diesen kleinen Kurs ansiehst:
http://www.loetstelle.net/forum/viewtopic.php?p=6789
</unverschämte eigenwerbung ;-) >

Dort werden die meisten deiner Fragen beantwortet.

mfg
Gerold
:-)

[Che Guevara]

das habe ich auch schon gelesen!!

kann mir den niemand einfach diese paar zeilen hinschreiben???

gruß
chris

[python_rocks]

das habe ich auch schon gelesen!!
Hallo Chris!

Aber vielleicht nicht verstanden.

Diese Beiträge gehen fast schon direkt auf deine Probleme ein. Sogar Codebeispiele findest du dort. Und welche Pins mit deinen Tastern und welche mit deinen LEDs zusammengeschaltet sind, solltest du selber herausfinden können.

- http://www.loetstelle.net/forum/viewtopic.php?p=6908#6908
- http://www.loetstelle.net/forum/viewtopic.php?p=6946#6946
- http://www.loetstelle.net/forum/viewtopic.php?p=6960#6960
- http://www.loetstelle.net/forum/viewtopic.php?p=6966#6966
- http://www.loetstelle.net/forum/viewtopic.php?p=7031#7031
- http://www.loetstelle.net/forum/viewtopic.php?p=7042#7042

Aber ich empfehle dir, alles noch einmal ganz von vorne zurchzulesen und auszuprobieren.

mfg
Gerold
:-)