W jaki sposób poprawnie adresować port LPT w Qbasic dla pracy z płytką PLL?

Qbasic i port lpt (lamerskie)





Poprzedni Następny
Wiadomość
Spis treści
From: Karol =?iso-8859-2?Q?Kr=F3l?= <karol_at_nospam_ecdl.hut.fi>
Subject: Qbasic i port lpt (lamerskie)
Date: Thu, 07 Sep 2000 16:22:40 +0300


Witam !!!
Moze nie ta grupa, ale sprobuje. Mam programik w qbasic, ktory przez
port LPT kontroluje prace plytki z PLL. Kompiluje mi sie poprawnie, lecz
na porcie LPT nie pojawiaja mie sie zadne sygnaly. Prawdopodobnie
program zle adresuje przestrzen I/O. Windows przyznaje LPT adresy
0378-037A. Natomiast program, no wlasnie ponizej zacytowalem czesc
programu w ktorym jest definiowany adres LPT, jak mam go zmienic zeby mi
wskazywal na w/w adresy, probowalem roznych sztuczek, rowniez w DOS-ie,
niestety moja ograniczona wiedza z programowania nie pozwolila mi nic
osiagnac :-((

' Define parallel port address
DEF SEG = &H40
lpt1 = &H8
OU = PEEK(lpt1) + 256 * PEEK(lpt1 + 1)

Licze na pomoc
Z gory dzieki
Karol



Poprzedni Następny
Wiadomość
Spis treści
From: "jędreq" <amoc_at_nospam_kki.net.pl>
Subject: Re: Qbasic i port lpt (lamerskie)
Date: Sun, 10 Sep 2000 16:47:36 +0200


Użytkownik Karol Król <karol_at_nospam_ecdl.hut.fi> w wiadomości do grup dyskusyjnych
napisał:39B796A0.AD8AF08D_at_nospam_ecdl.hut.fi...
Witam !!!
Moze nie ta grupa, ale sprobuje. Mam programik w qbasic, ktory przez
port LPT kontroluje prace plytki z PLL. Kompiluje mi sie poprawnie, lecz
na porcie LPT nie pojawiaja mie sie zadne sygnaly. Prawdopodobnie
program zle adresuje przestrzen I/O. Windows przyznaje LPT adresy
0378-037A. Natomiast program, no wlasnie ponizej zacytowalem czesc
programu w ktorym jest definiowany adres LPT, jak mam go zmienic zeby mi
wskazywal na w/w adresy, probowalem roznych sztuczek, rowniez w DOS-ie,
niestety moja ograniczona wiedza z programowania nie pozwolila mi nic
osiagnac :-((

' Define parallel port address
DEF SEG = &H40
lpt1 = &H8
OU = PEEK(lpt1) + 256 * PEEK(lpt1 + 1)

Licze na pomoc
Z gory dzieki
Karol

Wystarczy lpt1 przypisac &H378 i wyrzucic DEF SEG


REM DEF SEG = &H40
lpt1 = &H378
OU = PEEK(lpt1) + 256 * PEEK(lpt1 + 1)

pozdrawiAM!