Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 11 odgovora
  • 5.444 pregleda

Najnovija ↓

VB i Elektronika 26.10.2009. u 10:42 · pre 207 meseci #1
Pozdrav svima.

Ovako imam problem sledeći.Treba mi cod koji ce izvrsiti naredbu preko USB-a ili LTP-a ili COM-a da na klik u programu upalim i na drugi klik ugasim BUŠILICU.Šta mi je sve još potrebno od elektronike kako bih povezao BUŠILICU sa kompjuterom da mogu paliti i gasiti bušilicu.Bušilica je naravno na 220 V.Dali je neko radio ovako nesto ili slično.

Pozdrav.
Re: VB i Elektronika 26.10.2009. u 12:30 · pre 207 meseci #2
Ako imas LPT port onda mozes na sledeci nacin:

U VB napravis modul sa sledecim sadrzajem:

Code:

Public Declare Sub out0 Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Public Declare Function inp0 Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer


Slika paralelnog porta.

Ako hoces da koristis data port adresa je 378h(888 decimalno) za LPT1 ili 278h za LPT2.

Odgovarajuce bite na portu postavljas sledecom fu-jom:

Code:

Call out0(Adresa, Vrednost) 


npr, ako busilicu palis preko najnizeg bita na data portu[LPT1]:

Code:

Call out0(888,1)


a gasis:

Code:

Call out0(888,0)


Pretpostavljam da ces busilicu ukljucivati pomocu releja.
Relej ne mozes direktno vezati na paralelni port, posto je izlazna struja paralelnog porta svega 0,5 mA, a za relej je potrebno barem 50-100 mA. To bi mogao resiti na jednostavan nacin pomocu tranzistora (npr BD139) i nekoliko otpornika + dioda. Pored toga treba ti jos dodatno napajanje od 12 V (ako je relej na 12V), koje cak mozes da uzmes iz racunara.


Da bi ovo sve radilo jos ti je samo potreban fajl: inpout32.dll (proveri da li ga imas na racunaru)




Re: VB i Elektronika 26.10.2009. u 13:26 · pre 207 meseci #3
E hvala na ogovoru.

Vidim da si mozak za ovo, gle dali bih mogao objasniti tu prelaznu šemu sa diodama i tranzistorima koje mi trebaju da ih poletujem na ploči i kako bih letovao LPT port gdje i kao.Moze i slikovito ako imas vremena.Potrebna mi je sema spajanja kondenzatora i dioda i jačina dioda i kondenzatora a za trafo (transformator nije problem već ga imam)

Pozdrav.
Re: VB i Elektronika 26.10.2009. u 16:13 · pre 207 meseci #6
A kako da napravim rele.Da se nedogodi da spalim kompjuter sa busilicom.Busilicu sam kontao paliti programom tamo gdje je rucni prekidac.umesto njega.Treba mi objasnjenje Step by step.Znaci krecem od nule da nemam nista sem busilice i kompjutera.
Re: VB i Elektronika 26.10.2009. u 16:17 · pre 207 meseci #7
rele se kupuje u prodavnicama isto gde i ostali delovi, e sad pitaj njih tamo kakav ti rele treba da bi mogao da aktivira busilicu. U principu rele treba da se aktivira na +5V sto je logicka 1 koju saljes sa izlaza LPT porta na rele, koji otvara prolaz busilice do izvora......vise o svemu ovome imas na

http://milan.milanovic.org/skola/

http://milan.milanovic.org/skola/parport/parport-00.htm
Re: VB i Elektronika 26.10.2009. u 16:25 · pre 207 meseci #8
Ovako.Zelim da napravim jednu malu busilicu koja ce mi raditi posao da bude sto preciznije.E sad pokusavam da napravim par komandi preko programa i da tu busilicu aktiviram putem softvera u nekim vremenskim intervalu.Znaci treba povezati busilicu preko LTP porta ali na koji nacin da se to uveze.Dakle trebacemi da palim 3-4 masine uporedbe tako da ce LPT port imati vise izlaza a ne samo dve zice.Znaci treba mi savet koje delove da kupim u prodavnici elektronike i kako da ih poletujem na ploču.Dali se moze sta iskoristiti od centralne jedinice iz računala ono napajanje po 5 i 12 volti.
Re: VB i Elektronika 26.10.2009. u 16:56 · pre 207 meseci #10
OK. Pogledat cu sa njima, a evo upravo sam narucio onu knjigu sa onog sajta sto si mi preporucio.

Samo me interesuje kako upaliti jos par masina ovo je za prvu :
Code:
Call PortWordOut(&H378, 1)


dali za drugu ide ovako
Code:
Call PortWordOut(&H378, 2)
i dali se isto gasi masina broj dva Call PortWordOut(&7H38, 0) ili se ipak menja ove adrese &H378
Re: VB i Elektronika 26.10.2009. u 17:07 · pre 207 meseci #11
trebalo bi da je:

Code:
Call PortOut(&H378, 1)


kada saljes 1, daje logicku 1 na prvi Data Out pin
2 na Drugi
3 na prvi i drugi i td....
da bi znao kako i sta moras malo potraziti vise informacija o LPT portu, a i na linku koji sam ti dao postoji objasnjenje

da 0 iskljucuje sve Data Out pinove
Re: VB i Elektronika 26.10.2009. u 17:34 · pre 207 meseci #12
A mozeli pojedinacno isključivati za svaki.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme