[Delphi] Dioda LED

1. W faqII (faq w formie programu) jest opisane jak zaswiecac i gasic diode podpieta do portu rownoleglego. Pytanie: Do ktorego pinu podpiac plus a do ktorego minus diody.

2. Jak podpiac wyswietlacz 7-segmentowy do portu rownoleglego (lub szeregowego) i programowo wyswietlac na nim dowolne kombinacje.
   Czy to w ogóle mozliwe bez skomplikowanego ukladu elektronicznego.

Tak mi się zdaje,że "-" należy podpiąć do masy (pin 25) a "+" do tego kabla, na który wysyłany jest sygnał

A jak mam sprawdzic, do którego jest wysylany sygnal????

Pożycz od kolegi miernik , jednej koniec wsadź do masy, a drugi kolejno sprawdzaj i się dowiesz!@

http://www.4programmers.net/forum/viewtopic.php?id=1771

http://www.lvr.com/files/ibmlpt.txt

Jeśli pamietam, to LEDa do portu trzeba podpinać szeregowo z opornikiem 200 om bo się port spali. Ale moze lepiej niech się jakis elektronik wypowie.

Pożycz od kolegi miernik , jednej koniec wsadź do masy, a drugi kolejno sprawdzaj i się dowiesz!@

Mam swój miernik... ;)

odp na pyt 1.
Wykorzytujemy port COM 2
Plus diody podłączyć pod 4. pin , minus pod 7.Mbr bez opornika

Mozemy ja programowo gasic i zapalac
Wyjscie 4 to wyjscie zgloszenia transmisji RTS
Wyjscie 7 to Masa

//----------Prcedurki
procedure Wlacz;
assembler;
asm
mov DX,2fch
mov AL,2
out DX,AL
end;

procedure Wylacz(Port:word;Value:Byte);assembler;
asm
mov DX,Port
mov AL,Value
out DX,AL
end;

//Teraz w zdarzniu np Button1Click włączymy diodę
//a w Button2Click wyłączymy

procedure TForm1.Button1Click(Sender:TObject);
begin
wlacz
end;

procedure TForm1.Button2Click(Sender:TObject);
begin
wylacz($2fc,$2);
end;

Co do odpoowiedzi na pytanie 2
To ten skomplikowany uklad ktory nazywa sie HYBRYDKA jest zawsze razem z wyswietlaczem a czesto umieszcony pod nim zeby nie bylo go widac, Reszte ukladu (uklad sterujacy) to po prostu program omputerowy a wyjscia podlaczamy z portu rownoeglego. Nie mam zadnej dokumentacji na ten temat. Pozdro

Mam delphi 7 jak komus trzeba to [email protected] :-)

Jeśli idzie o rezystor to (nie pamiętam,jakie tam jest napięcie) trzeba około 500 omów na 12V a 200 na 5V

Jeśli idzie o rezystor to (nie pamiętam,jakie tam jest napięcie) trzeba około 500 omów na 12V a 200 na 5V

To chyba też zależy od rodzaju / długości przewodu oraz mocy diody LED.

To chyba też zależy od rodzaju / długości przewodu oraz mocy diody LED.
Spokojnie !! Taki kabel do 3-4 metrów to ma tak znikomy opór,że można tego nawet nie brać pod uwagę. A jeśli idzie o moc to taka standartowa matowa dioda pobiera ok. 20mA , natomiast przezroczyste ultrajasne od 30 do 50 mA (wystarczy obniżyć opór o kilkanaście omów,ale uwaga!! takie LEDy bardzo łatwo spalić zbyt dużym prądem !!!)

Dla Swietego spokoju podepnij rezystor 330 ohm [hurra]

Jeśli jest jednak 12V to nie radzę, bo jeśli się spali dioda to pół biedy, ale nie słyszałem o zabezpieczeniach przeciwzwarciowych (lub bezpiecznikach) na RS i LPT....

Port LPT na pinie 4 To wyjscie zadania RTS wiec jak moze byc 12 V [glowa] hihi
Hyba ze masz jakies 186 :) albo Eniac`a hihi :-P

ALe serio To jest 3 V

..byćmoże, więc wystarczy coś słabszego - ze 70 do 100 omów

Hmmm... a może ktoś ma pomysł, jak sterować eReSem lub LPT spod delphi ????

Dobra.... znalazłem pod RS, ale pod równoległy ?????
A tak w ogóle to może ktoś by wrzucił jakieś gotowce do wysyłania/odbierania sygnałów przez COM-a i LPT pod Delphi (nie idzie o takie mruganie diody)

Dobra.... znalazłem pod RS, ale pod równoległy ?????

Identycznie, tylko wysyłasz dane na port $378 :)

A to faq II to z jakiej strony pobrac???

http://www.4programmers.net/download.php?id=179

Dziwne,nie ???? :-)