Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Ingo
Anmeldungsdatum: 13.10.2009 Beiträge: 10 Wohnort: Schweden
|
Verfasst am: 02.08.2015, 09:29 Titel: Raspberry Pi2 GPIO |
|
|
Hallo alle miteinander,
ich habe mir ein Raspberry Pi2 zugelegt und Freebasic darauf installiert. Läuft alles prima soweit. Nach einem bisschen herumexperimentieren habe ich auch die Serielle Kommunikation mit einem USB-RS232 Adapter zum laufen gebracht. An den GPIO Port des Pi bin ich allerdings nicht gekommen. Bei den Beispielen in PYTHON wird ja ein RPi.GPIO Treiber verwendet. Hat sich jemand schon mal damit beschäftigt? Gibt es eine möglichkeit an die IO-pins des Raspberry via Freebasic zu kommen?
Gruss Ingo |
|
Nach oben |
|
 |
St_W

Anmeldungsdatum: 22.07.2007 Beiträge: 956 Wohnort: Austria
|
|
Nach oben |
|
 |
Ingo
Anmeldungsdatum: 13.10.2009 Beiträge: 10 Wohnort: Schweden
|
Verfasst am: 04.08.2015, 20:08 Titel: |
|
|
Hallo St_W,
vielen dank für die Treads. Habe mal drüber geschaut. Sieht vielversprechend aus. Bin im Augenblick unterwegs und hab den Pi nicht dabei. Wenn ich dann wider da bin werde ich das mal testen.
Gruss Ingo |
|
Nach oben |
|
 |
Ingo
Anmeldungsdatum: 13.10.2009 Beiträge: 10 Wohnort: Schweden
|
Verfasst am: 06.08.2015, 11:22 Titel: |
|
|
Hallo St_W,
will nur nochmal eine Rückmeldung geben. Ich habe mir jetzt mal die Links die du mir genannt hast durchgearbeitet. Der erste Link hat die entscheidende Information geliefert und das Problem gelöst. Danke noch einmal.
Code: |
#include once "wiringPi.bi"
'-----------------------------------------------------------------------------
DIM AS STRING KEY
'-----------------------------------------------------------------------------
' Pruefe wiringPi setup
if wiringPiSetup()=-1 then
print "Fehler: Kann GPIO nicht initialisieren!"
sleep : end
end if
'-----------------------------------------------------------------------------
DO
pinMode(6, PIN_OUTPUT)
digitalWrite(6,PIN_HIGH)
LOCATE 5,5
PRINT "LED Pin 6 ein"
SLEEP 300
pinMode(6, PIN_OUTPUT)
digitalWrite(6,PIN_LOW)
LOCATE 5,5
PRINT "LED Pin 6 aus"
SLEEP 300
KEY = INKEY
IF KEY = CHR(27) THEN EXIT DO
LOOP
|
|
|
Nach oben |
|
 |
|