Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
oiermann
Anmeldungsdatum: 28.12.2005 Beiträge: 90 Wohnort: Leutkirch
|
Verfasst am: 29.05.2007, 15:00 Titel: INP auswerten |
|
|
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 |
|
|
Skilltronic
Anmeldungsdatum: 10.09.2004 Beiträge: 1148 Wohnort: Köln
|
Verfasst am: 29.05.2007, 20:49 Titel: |
|
|
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 |
|
|
oiermann
Anmeldungsdatum: 28.12.2005 Beiträge: 90 Wohnort: Leutkirch
|
Verfasst am: 01.06.2007, 17:59 Titel: |
|
|
Vielen Dank Funktioniert wunderbar _________________ Ich bin keine Signatur, ich putz hier nur |
|
Nach oben |
|
|
|