[es] - VB i Elektronika

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.197.*

Profil

^{26.10.2009. u 09:42 - pre 176 meseci}

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.

Odgovor na temu

K4R10
Karlo Hubai
Student, FTN
SO(NS), Srbija

Član broj: 236574
Poruke: 20
*.neobee.net.

Sajt: www.dijabetesbezgranica.i..

Profil

Re: VB i Elektronika

^{26.10.2009. u 11:30 - pre 176 meseci}

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)

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.197.*

Profil

Re: VB i Elektronika

^{26.10.2009. u 12:26 - pre 176 meseci}

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.

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.197.*

Profil

Re: VB i Elektronika

^{26.10.2009. u 12:50 - pre 176 meseci}

Evo u meduvremenu sam napravio projekat kako bih to izgledalo programski,pa mozes da mi uskočiš u pomoć.Hvala unapred.

Prikačeni fajlovi

Busilica.zip - 23.26k

jeffs3axis.jpg - 73.15k

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: VB i Elektronika

^{26.10.2009. u 14:53 - pre 176 meseci}

Potrebna ti je obicna sema tranzistora kao prekidaca koji pobudjuje rele:

projekat u attachmentu

Prikačeni fajlovi

Cooler Controler.rar - 31.8k

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.197.*

Profil

Re: VB i Elektronika

^{26.10.2009. u 15:13 - pre 176 meseci}

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.

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: VB i Elektronika

^{26.10.2009. u 15:17 - pre 176 meseci}

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

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.197.*

Profil

Re: VB i Elektronika

^{26.10.2009. u 15:25 - pre 176 meseci}

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.

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: VB i Elektronika

^{26.10.2009. u 15:42 - pre 176 meseci}

Moras se obratiti kolegama na forumu elektronike

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.197.*

Profil

Re: VB i Elektronika

^{26.10.2009. u 15:56 - pre 176 meseci}

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

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: VB i Elektronika

^{26.10.2009. u 16:07 - pre 176 meseci}

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

Odgovor na temu