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
Sat preko serial ili LPT porta
Moderators: pedja089, stojke369, [eDo], trax
Re: Sat preko serial ili LPT porta
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...
- Feko
- Stariji član
- Posts: 4394
- Joined: 23-07-2008, 06:18
- Location: Hrvatska, Slavonija, Selo moje malo...
Re: Sat preko serial ili LPT porta
e super, hvala unaprijed
Re: Sat preko serial ili LPT porta
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!
Re: Sat preko serial ili LPT porta
Evo slika i Program u turbo Pascalu...sutra cu ti poslati semu..
Re: Sat preko serial ili LPT porta
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.
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.
Re: Sat preko serial ili LPT porta
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....
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....