Printer port

[Enryco]

Tere :huh: leitsin netist sellise lihtsa skeemi http://www.programmershelp.co.uk/ledflash1.php tolle j2rgi peaks led tuli vilkuma hakkama, aga ta ei hakka ta ainult p6leb, milles on probla, ma nii loll ja ei saa aru 2kki keegi kirjutaks selle koodi qbasicus. (kas see t66tab win 2000-s???).
kas keegi teab nende data0 ja data1 ...... data9 koode qbasicus et neid oleks v6imalik kasutada tulede vilgutamisel.

[Elektrik]

proge olemas seal ju qbasicu jaox, ple sellist riistvara hetkel lpt portis proovida ei saa aga proovi seda pascali juppi, pascalis ma parem kui qb-s

program flash;
uses crt;
begin
while not keypressed do
begin
repeat
PORT[$378]:= $FF;
delay(1000)
PORT[$378]:=$00;
until keypressed;
end;
end.

[Enryco]

Originally posted by Elektrik@Nov 24 2004, 18:42
proge olemas seal ju qbasicu jaox, ple sellist riistvara hetkel lpt portis proovida ei saa aga proovi seda pascali juppi, pascalis ma parem kui qb-s

program flash;
uses crt;
begin
while not keypressed do
begin
repeat
PORT[$378]:= $FF;
delay(1000)
PORT[$378]:=$00;
until keypressed;
end;
end.

See ei toimi ta leiab sealt mingi errori :blink:

[Elektrik]

mis asi?? Pascal ei saa mingit viga leida, ise kompiilisin ära, ei ühtegi viga.
kui Sul w2k siis syydista teda, sest selle progega sa portidele ligi ei pääase, pead VB v6i delphi appi v6tma. xp ja w2k OS-ides saad portidele ligi aint tänu DLL-idele.

[Enryco]

2kki saad anda download koha selle vb download suured t2nud juba ette

[Elektrik]

BORLAND pakub tasuta t6mbamiseks Delphi 7.0 demo, mis on täiesti täisversioon, aint selle erinevusega et 30 päeva möödudes demo lõppeb.kaalub 176MB umbes. aga VB-d netist juba tasuta nii lihtsalt ei leia
üldiselt mida teha tahad LPT-ga kas aint vilgutada seda v6i ka ise progeda?
ma saax ju softi ära kribada VB-s aga kui tahad ise kribada/katsetada siis teine asi

[jallukas]

Kas sul LPT kindlasti 378??
Äkki 278!?!?


Selline kood töötas kindlasti! Kunagi täitsa katsetatud!


Jal_

[Elektrik]

ei kui tavaline LPT (kui tal aint 1 LPT), siis kindlalt 378, lihtsalt kõik "aknad" alates ME, W2k,XP ei luba portidele nii lihtsat ligipääsu. proovisin ise ka 1kord seda w2k-s kohe l6i errori ette. kui tahab w2k hakkama saada siis peab leppima DLL-idega ja juhtima k6ike läbi wini, mis on mõnes mõttes muidugi parem, istud winis ja muudkui klõpsid sealt "checkboxe" v6i "optionbuttoneid" ning vastavad asja "vilguvad" lpts, kui passida seal dosis, dos'is saax asja panna muidugi TSR'i aga siis lähex asi liialt keeruliseks sellise lihtsa asja juhtimiseks

[Eggy]

w2k ja VB puhul aitab UserPort (Praegu endal töös)

[martinj]

Originally posted by Eggy@Nov 24 2004, 22:17
w2k ja VB puhul aitab UserPort (Praegu endal töös)

Igakord ei aita :P

vaata seda teemat. Leidsin omal ajal lahenduse lahenduse . Aitähh Digitalile
http://www.tevalo.ee/foorum/index.php?showtopic=12099

[Enryco]

Alguseks tahaks lihtsalt vilkuvat tuld teha. :blink: oskan nats qbasicut. 2kki keegi viitsiks kribada mingi .exe kus lamp hakkaks vilkuma kui ta on yhendatud PIN 2 - data0 ning PIN 18-25 - grownd.
keerulisem oleks vist teha 2 lambiga PIN 2 ja PIN3 ning 18-25 grownd, nagu politsei tuled. saatke m6lemad koodid. T2nud juba ette kirjutage need koodid valmis

[Eggy]

OUT &H378, 1 <-pin 2 LED põlema (D0)
OUT &H378, 2 <-pin 3 led põlema (D1)
OUT &H378, 0 <-kõik pinnid nulli
OUT &H378, 255 <- kõik pinnid HI olekusse, LEDid põlevad

D0-D8 ehk siis pinnid 2-9 ehk bitid 1-2-4-8-16-32-64

1. progra

loop <-ei mäleta nüüd küll kas QBasicus nii loopi sai teha :S
OUT &H378, 1
sleep 1
OUT &H 378, 0
until keypressed; <-ei mäleta nüüd küll kas QBasicus nii loopi sai teha :S
Aga põhimõtteliselt nii...

2. progra
algad kordamist, ei mäleta kuidas täpselt basicus käis
OUT &H 378,1
sleep 1
OUT &H 378, 0
sleep 1
lõpetad kordamise....
OUT &H 378, 3 <-D0+D1 ehk bittides 1+2=3

[martinj]

Tsükkel algab FOR mtuutuja=arv TO l6pparv (STEP samm )
Sulgudes olevat jura pole tingimata vaja.

tekst
tekst
ja lõppeb
NEXT muutuja

Soovitus. Hangi omale dossi disk bootdisk.com -ist ja saad rahulikult qbasicuga eksperimenteerida.

[Eggy]

Aga kui tahadki jooksutama jätta? Poel ju eriti mõttekas panna ketrama näiteks 99000 tiiru? Ma nii meelde tuletuseks küsin...Pascalis sai näiteks DO (Loop??) tsükkel until keypressed

[Enryco]

tegin sellise koodi 1-le LED-ile aga see ei toimi:

x = 1
DO
OUT &H378, 1
PRINT "P6leb"
SLEEP 1
OUT &H378, 0
PRINT "Ei p6le"
SLEEP 1
x = x+1
LOOP UNTIL x = 5