[es] - le diode iz upaljaca

vladobk
Loznica

Član broj: 27081
Poruke: 307
213.244.197.*

Sajt: www.geocities.com/vladojp..

Profil

le diode iz upaljaca

^{02.02.2006. u 17:45}

Ima nekih upaljaca koji imaju u sebi plavo svetlo sa le diodama
zanimaju me karakteristike i oznaka tih dioda

^{02.02.2006. u 17:45}

guslac
Aleksandar Djokic
C:EuropeSerbiaNis

Član broj: 13478
Poruke: 1435
*.adsl.sezampro.yu.

Profil

Re: le diode iz upaljaca

^{02.02.2006. u 19:11}

karakteristike ne znam, ali jednu koristim na samoj granici pregorevanja :) zakacio sam je na USB, a palim je preko LPT porta, znaci radi na 5V a struja je nekih 70-80mA, preko toga boja pocne da prelazi u svetlo zelenu i dioda se nenormalno greje, ne znam za sta ces je koristiti ali dosta rasipaju svetlo pa ces ga morati nekako usmeriti

^{02.02.2006. u 19:11}

apex
kikinda

Član broj: 31144
Poruke: 915
82.208.201.*

Sajt: www.polovni-delovi.com

Profil

Re: le diode iz upaljaca

^{02.02.2006. u 23:48}

Citat:

zakacio sam je na USB, a palim je preko LPT porta

Moze li malo vise informacija o ovome(ako nije tajna). Sema, softver,... neka slika mozda

http://www.polovni-delovi.com - Najveći portal polovnih delova za sve tipove vozila

^{02.02.2006. u 23:48}

buljko
Ljubisa Spasic
Kladovo

SuperModerator
Član broj: 77384
Poruke: 4562
62.108.124.*

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 00:22}

Mozda ovako...

_{[Ovu poruku je menjao drdrksa dana 03.02.2006. u 07:00 GMT+1]}

Prikačeni fajlovi

led PS.jpg - 25.6k

^{03.02.2006. u 00:22}

vladobk
Loznica

Član broj: 27081
Poruke: 307
*.vdial.verat.net.

Sajt: www.geocities.com/vladojp..

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 08:14}

Moj komsija hoce da osvetljava kontrolnu tablu u autu
Mene zanima samo maximalna i radna struja kroz nju
bojim se da 70 - 80mA nije mnogo

_{[Ovu poruku je menjao vladobk dana 03.02.2006. u 09:17 GMT+1]}

^{03.02.2006. u 08:14}

pantmil
elektro održavanje
Beograd

Član broj: 14978
Poruke: 159
*.yubc.net.

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 09:27}

Pa uzmi taj upaljač i izmeri struju kroz plavu LED.
Ako mi veruješ, merio sam je, iznosi 45mA
(na novom upaljaču).

_{[Ovu poruku je menjao pantmil dana 03.02.2006. u 17:07 GMT+1]}

^{03.02.2006. u 09:27}

vladobk
Loznica

Član broj: 27081
Poruke: 307
*.vdial.verat.net.

Sajt: www.geocities.com/vladojp..

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 10:57}

Citat:

pantmil: Pa uzmi taj upaljač i izmeri struju kroz plavu LED.
Ako mi veruješ, merio sam je, iznosi 45mA.

koliko dugo je radila na 45mA
ja sam kod mene merio i vukla je na upalacu 10mA verovatno su baterije oslabile

_{[Ovu poruku je menjao vladobk dana 03.02.2006. u 11:59 GMT+1]}

^{03.02.2006. u 10:57}

Joseph B.
Vojvodina

Član broj: 35932
Poruke: 421
*.hu.

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 11:29}

Radice i na 15mA. Ja sam takve ubacio u kontrolnu tablu.

Freedom of mind!

^{03.02.2006. u 11:29}

apex
kikinda

Član broj: 31144
Poruke: 915
82.208.201.*

Sajt: www.polovni-delovi.com

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 16:52}

@buljko

a moze li da se vidi programcic?

http://www.polovni-delovi.com - Najveći portal polovnih delova za sve tipove vozila

^{03.02.2006. u 16:52}

guslac
Aleksandar Djokic
C:EuropeSerbiaNis

Član broj: 13478
Poruke: 1435
*.ppp-bg.sezampro.yu.

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 18:42}

Citat:

Moze li malo vise informacija o ovome(ako nije tajna)

to je upravo ovo sto je buljko postavio

Citat:

bojim se da 70 - 80mA nije mnogo

veruj mi, to je granica ove diode, ne znam koliko je to tebi al je diodi izgleda puno

Citat:

a moze li da se vidi programcic?

ako mislis na programce sa kojim saljem signal od lpt porta to je DiscoLitez - plugin za Winamp, a ako necu po ritmu da se pali nije mi problem da bacim 2-3 linije koda u delphi-u da se pali onako kako ja zelim

^{03.02.2006. u 18:42}

buljko
Ljubisa Spasic
Kladovo

SuperModerator
Član broj: 77384
Poruke: 4562
213.244.208.*

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 22:14}

Citat:

a moze li da se vidi programcic?

Nemam pojma nesto bih vec smislio. Ovde sam upao slucajno i ovo je
samo ideja kako bih ja to izveo. Nisam siguran, cak, ni cemu bi ovo trebalo
da sluzi. U svakom programskom jeziku imas extremno proste komande za
kontrolu LPT porta tako da ti za to i ne treba neko veliko znanje bitno
je da u glavi imas pripremlljen algoritam.

^{03.02.2006. u 22:14}

apex
kikinda

Član broj: 31144
Poruke: 915
82.208.201.*

Sajt: www.polovni-delovi.com

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 23:06}

Citat:

E hvala ti buljko na odgovorima, ja inace imam vec neki delphi source, samo nisam imao vremena jos da se pozabavim time (januarski ispitni rok :( , hteo sam cisto da vidim posto imamo istu ideju kako si ti to uradio, medjutim ovde na es-u sam primetio u poslednje vreme cim nesto vise hoces da saznas odmah se neko uzbudi i vecina je vise spremna za svadju nego sto zeli da pomogne.
U svakom slucaju hvala za postove, ako ti bude trebao source, cimni me na PP

http://www.polovni-delovi.com - Najveći portal polovnih delova za sve tipove vozila

^{03.02.2006. u 23:06}

buljko
Ljubisa Spasic
Kladovo

SuperModerator
Član broj: 77384
Poruke: 4562
62.108.124.*

Profil

Re: le diode iz upaljaca

^{03.02.2006. u 23:20}

Hvala, mozda ce mi i zatrebati jer aplikacija je korisna u svakom slucaju.
Ako se vec hvatas u posao, razmisli o koriscenju ove (malo doradjene)
aplikacije za npr. daljinski restart napajanja racunara-routera na nekoj udaljenoj
lokaciji jer, nije redak slucaj da se zaglupavi.

_{[Ovu poruku je menjao buljko dana 04.02.2006. u 00:20 GMT+1]}

^{03.02.2006. u 23:20}

guslac
Aleksandar Djokic
C:EuropeSerbiaNis

Član broj: 13478
Poruke: 1435
*.smin.sezampro.yu.

Profil

Re: le diode iz upaljaca

^{04.02.2006. u 02:34}

Citat:

U svakom programskom jeziku imas extremno proste komande

eh, kamo srece da su toliko proste kao sto si ih ti opisao, nego moram da koristim externi dll za pozivanje lpt-a (barem iz delphi-a), naravno da se iz "nizih" programskih jezika ovo lako resava dok iz Delphi-a (posto je on RAD tool) vec malo teze

^{04.02.2006. u 02:34}

nicr
Novi Grad/RS

Član broj: 47862
Poruke: 550
*.teol.net.

Sajt: www.nochucknorris.com

Profil

Re: le diode iz upaljaca

^{04.02.2006. u 02:49}

hehehe te plave diode su bile vise nego korisne "godinama" sto se tice dopuna za mobis (mobilna telefonija Republike Srpske). Jednostavno uzmes dopunu, sloj gde se nalazi broj koji ce se ukucati u dopunu samo se osvetli "upaljacem sa plavom sijalicom

" i moguce je videti broj za dopunu bez struganja zastitnog sloja. Provalili su al kasno

SMSovanje

^{04.02.2006. u 02:49}

Slash-BL
Banja Luka

Član broj: 68776
Poruke: 191
*.etfbl.net.

Profil

Re: le diode iz upaljaca

^{04.02.2006. u 10:46}

Citat:

nicr: hehehe te plave diode su bile vise nego korisne "godinama" sto se tice dopuna za mobis (mobilna telefonija Republike Srpske). Jednostavno uzmes dopunu, sloj gde se nalazi broj koji ce se ukucati u dopunu samo se osvetli "upaljacem sa plavom sijalicom:D" i moguce je videti broj za dopunu bez struganja zastitnog sloja. Provalili su al kasno :D:D:D

Cuo sam da se to radilo, ali nema bas pretjerane logike. Ti da bi to radio moras ili imati prodavnicu ili nesto slicno (uglavnom da im imas pristup). ne mozes kupiti dopunu to uraditi i vratiti je neoptpakovanu i reci: "Ova mi se ne svidja dajte mi drugu".

^{04.02.2006. u 10:46}

Horvat
Subotica - Vojvodina

Član broj: 17332
Poruke: 759
*.suonline.net.

Profil

Re: le diode iz upaljaca

^{04.02.2006. u 19:56}

jos da pali i na greb-greb karticama :)

btw ako nije tajna kako mislite resiti upravljanje led-a preko lpt (a ako neko zna)
npr. da se pali kad se primi mail ili drugo (tj. koji kod)

recite DA neplaćanju pretplate na rtv begeš

(\_/)
(X.x) This is DEAD Bunny. Copy DEAD Bunny into your signature
(> <) to stop him on his way to world domination.

^{04.02.2006. u 19:56}

guslac
Aleksandar Djokic
C:EuropeSerbiaNis

Član broj: 13478
Poruke: 1435
*.adsl.sezampro.yu.

Profil

Re: le diode iz upaljaca

^{04.02.2006. u 20:12}

e sad mnogo hoces, nije to tako tesko ali ne znam nacin na koji mi mogao da znam kad je stigo e-mail, poslati napon lpt-u stvarno nije problem

^{04.02.2006. u 20:12}

codeus
moje puno ime i prezime je ...
ja sam tamo gde stojim

Član broj: 58382
Poruke: 559
*.suonline.net.

ICQ: 228360111
Sajt: shajt ...moze...volim sir

Profil

Re: le diode iz upaljaca

^{05.02.2006. u 00:03}

pa to je lako ... u outluku odes u options/advanced/recive mail/turn BLUE red after recive new mail on LPT port naravno.....

potpis... pa rukom

^{05.02.2006. u 00:03}

ksrele
Subotica

Član broj: 14253
Poruke: 730
82.208.250.*

ICQ: 66444502

Profil

Re: le diode iz upaljaca

^{05.02.2006. u 21:42}

Evo da ja malo pomognem ljudima, nasao sam neki primer za komandu LPT portom iz Delphija.
Nisam mnogo kopao na kojem OS-u radi (mislim da radi i na XP-u ali na 98-ci 100% radi)
Glavna komponenta je SmallPort driver (njega vec potrazite na netu) a ovde vam stavljam jedan kod da vam cisto da ideju sta gde i kako treba.
Naravno ovaj kod nece raditi bez SmallPort drivera.

HWUnit.pas

Code:

unit hwunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, SmallPort, Spin;

type
  TForm1 = class(TForm)
    GroupBox3: TGroupBox;
    Button5: TButton;
    GroupBox4: TGroupBox;
    Button6: TButton;
    GroupBox5: TGroupBox;
    Bit1: TCheckBox;
    Bit0: TCheckBox;
    Bit2: TCheckBox;
    Bit3: TCheckBox;
    Bit4: TCheckBox;
    Bit5: TCheckBox;
    Bit6: TCheckBox;
    Bit7: TCheckBox;
    GroupBox6: TGroupBox;
    Error: TCheckBox;
    Select: TCheckBox;
    PE: TCheckBox;
    Ask: TCheckBox;
    Busy: TCheckBox;
    RadioGroup1: TRadioGroup;
    LPT1: TRadioButton;
    LPT2: TRadioButton;
    Button8: TButton;
    GroupBox7: TGroupBox;
    Edit1: TEdit;
    GroupBox8: TGroupBox;
    Button7: TButton;
    Label2: TLabel;
    SpinEdit2: TSpinEdit;
    GroupBox9: TGroupBox;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Button9: TButton;
    SmallPort1: TSmallPort;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    BASE: WORD;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if SmallPort1.Opened then
begin SmallPort1.Opened:=false; Button1.Caption:='Open Driver' end
else SmallPort1.Opened:=true;
if SmallPort1.Opened then Button1.Caption:='Close Driver';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
SmallPort1.Sound(1100,300);
SmallPort1.Sound(1247,300);
SmallPort1.Sound(1393,300);
SmallPort1.Sound(1466,300);
SmallPort1.Sound(1613,300);
SmallPort1.Sound(1760,300);
SmallPort1.Sound(2052,300);
end;

procedure TForm1.Button6Click(Sender: TObject);
var b,b1: BYTE;
begin
if SmallPort1.Opened then
begin
  if LPT1.Checked then BASE:=$378 else BASE:=278;
  b:=SmallPort1.Port[BASE];
  b1:=SmallPort1.Port[BASE+1];
  if(b1 and $08)<>0 then Error.Checked:=true else Error.Checked:=false;
  if(b1 and $10)<>0 then Select.Checked:=true else Select.Checked:=false;
  if(b1 and $20)<>0 then PE.Checked:=true else PE.Checked:=false;
  if(b1 and $40)<>0 then ASK.Checked:=true else ASK.Checked:=false;
  if(b1 and $80)<>0 then BUSY.Checked:=true else BUSY.Checked:=false;
  if(b and $01)<>0 then Bit0.Checked:=true else Bit0.Checked:=false;
  if(b and $02)<>0 then Bit1.Checked:=true else Bit1.Checked:=false;
  if(b and $04)<>0 then Bit2.Checked:=true else Bit2.Checked:=false;
  if(b and $08)<>0 then Bit3.Checked:=true else Bit3.Checked:=false;
  if(b and $10)<>0 then Bit4.Checked:=true else Bit4.Checked:=false;
  if(b and $20)<>0 then Bit5.Checked:=true else Bit5.Checked:=false;
  if(b and $40)<>0 then Bit6.Checked:=true else Bit6.Checked:=false;
  if(b and $80)<>0 then Bit7.Checked:=true else Bit7.Checked:=false;
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if SmallPort1.Opened then
begin
  if LPT1.Checked then BASE:=$378 else BASE:=278;
  SmallPort1.Port[$378]:=SpinEdit2.Value;
end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
SmallPort1.Sound(StrToIntDef(Edit1.Text,440),200);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SmallPort1.Opened:=false;
end;

end.

Ooo--> > >>(¤_¤)<< < <--ooO

^{05.02.2006. u 21:42}