Sat preko serial ili LPT porta

Rasprava o el. shemama, pitanja i diskusije. Ako ti treba neka shema, ovdje pitaj.

Moderators: pedja089, stojke369, [eDo], trax

Post Reply
User avatar
Feko
Stariji član
Stariji član
Posts: 4394
Joined: 23-07-2008, 06:18
Location: Hrvatska, Slavonija, Selo moje malo...

Sat preko serial ili LPT porta

Post by Feko »

potrebna je shema led sata koji je povezan na serijski ili LPT portom sa kompjutor i čita sat od kompjutora.
Dakle program i hardver za čitanje sata iz kompa i prikazivanje ledicama ili 7 segmentnim displayima.

edit:
Može ispisivanje i na LCD display
vbmaster
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 201
Joined: 04-01-2009, 08:28

Re: Sat preko serial ili LPT porta

Post by vbmaster »

Imamo takav sat, na LPT-u, radjen je u skoli...Softver je u Pascalu, ako ga nadjem poslacu vam i sliku i shemu. I shema i softver je nase skolsko resenje. Radi bas tako, cita vreme iz racunara i prikazuje ga na led displeju...
User avatar
Feko
Stariji član
Stariji član
Posts: 4394
Joined: 23-07-2008, 06:18
Location: Hrvatska, Slavonija, Selo moje malo...

Re: Sat preko serial ili LPT porta

Post by Feko »

e super, hvala unaprijed :!:
vbmaster
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 201
Joined: 04-01-2009, 08:28

Re: Sat preko serial ili LPT porta

Post by vbmaster »

Nasao sam sve...i cak i radi, samo moram prepisati program(nalazi se na starom kecu na kome nema flopija) i nacrtati shemu...Poslacu ti to veceras, kad uhvatim vremena...ne mogu pre!
vbmaster
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 201
Joined: 04-01-2009, 08:28

Re: Sat preko serial ili LPT porta

Post by vbmaster »

Evo slika i Program u turbo Pascalu...sutra cu ti poslati semu..
sat.jpg
sat.jpg (29.34 KiB) Viewed 1482 times
vbmaster
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 201
Joined: 04-01-2009, 08:28

Re: Sat preko serial ili LPT porta

Post by vbmaster »

upsss, program...
program sat;
uses crt,dos;
var t,x:integer;
var hh,mm,ss,pp:word;
begin
clrscr;
x:=1;
t:=4;
repeat
repeat
gettime(hh,mm,ss,pp);
port[$37a]:=10;
port[$378]:=(hh-(hh mod 10)) mod 3;
delay(t);
port[$37a]:=9;
port[$378]:=hh mod 10;
delay(t);
port[$37a]:=15;
port[$378]:=(mm-(mm mod 10))mod 9;
delay(t);
port[$37a]:=3;
port[$378]:=mm mod 10;
delay(t);
gotoxy(15,15);
write(hh, ':', mm);
port[$37a]:=11;
inc(x);


until x>400;
x:=1;
repeat
gettime(hh,mm,ss,pp);
port[$37a]:=15;
port[$378]:=(ss-(ss mod 10)) mod 9;
delay(t);
port[$37a]:=3;
port[$378]:=ss mod 10;
delay(t);
clrscr;
gotoxy(15,15);
write (ss);
inc(x)
until x>200 ;
x:=1;
until keypressed;
port[$37a]:=11;
end.
vbmaster
Pravo uznapredovao :)
Pravo uznapredovao :)
Posts: 201
Joined: 04-01-2009, 08:28

Re: Sat preko serial ili LPT porta

Post by vbmaster »

Shema nikad nije nacrtana...radjeno je iz glave...Koristis 74LS247 (7-mo segmentni dekoder). Prikljucke A,B,C,D vezujes na pinove D0-D3 LPT porta....Displeji su sa zajednickom katodom i vezu katoda i masa ostvarujes preko 4 tranz. BC639 (emiteri na masi, colektori na katodi, a baze preko otprnika 1K vezujes na pinove kontrol porta C0-C3 LPT-a). Napajanje je eksterno u ovom slucaju je uzeto 5V iz racunara jer na LPT-u nema pina za napajanje...Naravno izlazi dekodera a,b,c,d,e,f,g su paralelno vezani na sve displeje i radi samo onaj displej kome vodi tranzistor a to odredjuje kontrl port ($37A). Znaci displeji se pale jedan po jedan i svaki prikazuje samo onu cifru koju iscitavamo iz sistemskog vremena racunara...to je sve...
U konkretnom slucaju je koriscen 74LS47 i ima invertovane izlaze a,b,.....g, pa su umesto invertora stavljena dva kola 74LS00 (kratko spojeni ulazi na 4NI kola u svakom IC-u)...to je sve....Tacka izmedju sata i minuta stalno sija jer je direktno vezana na napajanje preko otpora 330ohm. Softver prvo jedno vreme prikazuje sate i minute, a onda krace vreme prikazuje sekunde, pa opet ispocetka....
User avatar
Feko
Stariji član
Stariji član
Posts: 4394
Joined: 23-07-2008, 06:18
Location: Hrvatska, Slavonija, Selo moje malo...

Re: Sat preko serial ili LPT porta

Post by Feko »

hvala!
Post Reply