le diode iz upaljaca

[ vladobk @ 02.02.2006. 17:45 ] @

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

[ Aleksandar Đokić @ 02.02.2006. 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

[ apex @ 02.02.2006. 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

[ buljko @ 03.02.2006. 00:22 ] @

Mozda ovako...

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

[ vladobk @ 03.02.2006. 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]}

[ pantmil @ 03.02.2006. 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]}

[ vladobk @ 03.02.2006. 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]}

[ Joseph B. @ 03.02.2006. 11:29 ] @

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

[ apex @ 03.02.2006. 16:52 ] @

@buljko

a moze li da se vidi programcic?

[ Aleksandar Đokić @ 03.02.2006. 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

[ buljko @ 03.02.2006. 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.

[ apex @ 03.02.2006. 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

[ buljko @ 03.02.2006. 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]}

[ Aleksandar Đokić @ 04.02.2006. 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

[ nicr @ 04.02.2006. 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

[ Slash-BL @ 04.02.2006. 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). Nemozes kupiti dopunu to uraditi i vratiti je neoptpakovanu i reci: "Ova mi se ne svidja dajte mi drugu".

[ Horvat @ 04.02.2006. 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)

[ Aleksandar Đokić @ 04.02.2006. 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

[ codeus @ 05.02.2006. 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.....

[ ksrele @ 05.02.2006. 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.

[ Aleksandar Đokić @ 05.02.2006. 22:56 ] @

kad smo kod toga moze to i mnogo lakse, skines ntoutput.dll ili inpout32.dll od neta, stavis ga u dir gde ti je kompajlirani .exe fajl, dodas proceduru

procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';

i pozivas portout iz bilo kog dela programa i kad ti oces, prostor zar ne :)
u PortOut stavis port $378 a pod data zavisi koji pin oces da se pali, npr ako ti treba 2 pin kucaces 4, ako ti treba 3 napisaces 8

naravno kao sto postoji PortOut postoji i PortIn za zahtevnije korisnike

evo, uploadovao sam dll pa kome treba nek skida, mislim da na es-u ima vise dokumentacije sto se tice lpt porta nego na bilo kom sajtu na net-u :)

_{[Ovu poruku je menjao guslac dana 05.02.2006. u 23:58 GMT+1]}

[ Slash-BL @ 06.02.2006. 12:22 ] @

Pa nista mu to ne vrijedi dok ne napise rutinu koja ce pozivati taj program kad stigne novi mail. Koliko ja znam Outlook ima opciju da pusti neki ton kad dodje nova poruka. Po meni je ova stvar koju on hoce cista glupost, jer namjesti da ti svira neka pjesma od 10 minuta, i ako nju ne cujes neces ni LE diodu vidjeti sigurno. Opet, mozda hoce to iz neki "sminke", ali ponovo je to glupost. Ideja koja mi sad pada na pamet (bez da se pise kod) jeste da se stavi neko kolo (recimo sa D flip-flopovima) koje ce se upaliti kad dodje poruka i drzati to upaljeno dok on ne ugasi (tako sto ce se triger impuls dovoditi sa muzicke karitce) bla,bla,bla... Druga mogucnost bi bila nekako zaje*ati Outlook i namjsetiti da umjesto .wav file-a poziva taj program za komunikaciju sa LPT-om sa odredjenim parametrima. Opet, koristiti to na racunaru po meni je to cista glupost. Jedini valjan razlog za uraditi ovaj projekat jeste edukacija.

Pozdrav

[ Horvat @ 06.02.2006. 16:57 ] @

ma to mi je prvo palo na pamet posto dok sam pisao odgovor sam proveravao mail
btw. outlook ne koristim !!(mada to nema nikakve veze ni sa cim)

interesovalo me je samo kako kontrolisati po nekom principu ,znaci ako stigne mail,ako radi hard,ako se zagreje proc. iznad odredjene temp.,ako ovo ako ono ...
ma uglavnom interesuje me kako se komanduje :)

hvala u svakom slucaju