Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

INP auswerten

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Profi-Forum
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
oiermann



Anmeldungsdatum: 28.12.2005
Beiträge: 90
Wohnort: Leutkirch

BeitragVerfasst am: 29.05.2007, 14:00    Titel: INP auswerten Antworten mit Zitat

Ich hab mir eine Relaiskarte über den LPT-Port gebaut und ein Programm geschrieben, mit dem ich die Relais einzeln schalten kann.
Wenn ich das Programm aus und wieder anmache ist allerdings alles aus.
Nun brauch ich es am besten so, dass ich den Status vom LPT-Port auslesen kann und dass das Ergebnis dann so aussieht:
A = ...
B = ...
...
H = ...
(Entweder 0 oder 1)

Bei INP und OUT hat Pin 1 (A) den Wert 1, B 2, C 4, D 8, E 16, F 32, G 64, H 128.

Wenn ich jetzt mit INP einlese dann kommt z.B. 3 raus. Das hiesse A und B sind a (1).
Nur brauch ich diesen Wert jetzt wie schon geschrieben aufgedröselt. Also A = 1 B = 1 C = 0 ... H = 0
Der Code zum einlesen ist dieser:
Code:


DO
 a = INP(&h378)
 PRINT a
LOOP WHILE INKEY$=""



Wie lös ich das?
_________________
Ich bin keine Signatur, ich putz hier nur
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Skilltronic



Anmeldungsdatum: 10.09.2004
Beiträge: 1148
Wohnort: Köln

BeitragVerfasst am: 29.05.2007, 19:49    Titel: Antworten mit Zitat

Hallo

Das kannst Du so machen:

Code:
portwert = INP(&h378)

FOR stelle = 0 TO 7
 stellenwert = 2 ^ stelle
 bitstatus = (portwert AND stellenwert) / stellenwert
 PRINT CHR$(65 + stelle); " = "; bitstatus
NEXT


Gruß
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
oiermann



Anmeldungsdatum: 28.12.2005
Beiträge: 90
Wohnort: Leutkirch

BeitragVerfasst am: 01.06.2007, 16:59    Titel: Antworten mit Zitat

Vielen Dank lächeln Funktioniert wunderbar lächeln
_________________
Ich bin keine Signatur, ich putz hier nur
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Profi-Forum Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz