Programiranje LPT porta putem qbasic-a - Početnik

 Pa ono, pokrenes qbasic i napises:

OUT 888, 1

i onda stisnes F5 ili RUN, ili sto vec qbasic ima...

..

Ako na paralelni port spojimo 8 žaruljica na svaki izlaz

onda bi ti to izgledalo nekako ovako

broj izlaza  0 1   2  3   4   5   6   7    8

podatak     0 1   2   4  8  16  32  64  128

0=gasi sve

cls

..

OSNOVNO

Paralelni port ima 8 IO (ulaz-izlaz) portova i pet ulaz only

8 ulaz izlaz portova se najviše koristi za izlaze.

Znači...

nekoliko osnovnih naredbi

OUT broj porta, podatak

x=INP (broj porta(

znači da x će poprimiti vrijednost tog podatka s tog porta

A što spajaš na taj port?

Ono sučelje paralelno za robota od fichera?

primjer.1

888 je za izlaze, 889 za ulaze

Ako na paralelni port spojimo 8 žaruljica na svaki izlaz

onda bi ti to izgledalo nekako ovako

broj izlaza  0 1   2  3   4   5   6   7    8

podatak     0 1   2   4  8  16  32  64  128

0=gasi sve

cls

for a=0 to 128

out 888,a

sleep 1

out 888,0

a=a*2

if a=256 then a=128

next a

end

znači pali svaku zaruljicu poredu i kad dođe do 256 stavi ga na 128 i završi program

Ovo je samo početak ako hočeš još javi se na pM, imam puno materijala u vezi toga.

0 dana, vjerojatno ti je prvi post... ali da, moguće je ali mi se ne da razmišljati, uglavnom, to je moguće napraviti i sa kalkulatorom (digitronom) vulgaris - malo preračunavanja, i evo ti broja!

Ajde da probam (algoritam):

upišeš kolko spavaš, necimo 8h

upišeš godine, npr 10g

sad 24h minus sati kolko spavaš (ovdje 8h)

taj broj (16h) puta 365, taj broj puta broj godina (10 u ovom slučaju) i dobiš broj sati (58400). onda sate pretvoriš u dane: broj sati podjeljeno sa 24 (2433). onda taj broj sa 365 dijeliš i imaš broj godina (ovdje 6)!

(nadam se da je ovo točno, edit: točno je)

update:

program:

CLS
INPUT "Koliko sati spavate? ", sati
INPUT "Koliko imate godina? ", godine
satidnevno = 24 - sati
PRINT "Dnevno spavate"; satidnevno; "sati."
satiukupno = satidnevno * 365 * godine
ukupnodana = satiukupno / 24
ukupnogodina = ukupnodana / 365
PRINT "Ukupno ste odspavali"; satiukupno; "sati,"; ukupnodana; "dana i"; ukupnogodina; "godina."
INPUT "Pritisnite bilo koju tipku za izlaz.", exit1
INPUT "Made by blagus", credits
END

E evo ti i link:

http://www.mediafire.com/file/zolonymtwmn/Spavanje.zip