MyCity » Visual Studio -> Visual Basic » paralelni port i VB6

paralelni port i VB6

Napisano na dan: 12.1.2008

paralelni port i VB6
Sledeća strana Pagination

Idi na vrh

Poslao: 12 Jan 2008 14:07
Idi na vrh
offline
  • prm 
  • Građanin
  • Pridružio: 11 Jun 2006
  • Poruke: 94

Kako pomocu VB-a slati na paralelni port neke bitove, i mislim da zavisi u kojem je OS?

Ako neko ima neki jednostavan primjer ili nesto slicno...

Ako ima neka komponenta ili nesto tako slicno....



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 12 Jan 2008 15:57
Idi na vrh
offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

U VisualBasic-u moras napraviti modul sa sledecim sadrzajem:

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


a onda to sto si definisao u modulu koristis u svom programu.

Na racunaru moras imati inpout32.dll koji pozivas u modulu:
[Link mogu videti samo ulogovani korisnici]


Slanje na paralelni port:

Call out0(ADRESA, Vrednost)

ADRESA za paralenlni port je 378H za LPT1 ( 888 decimalno ) ili 278H za LPT2.
VREDNOST se krece iz intervala 0 - 255. ( u zavisnosti koji od 8 bitova postavljas na jedinicu a koji na nulu )

Ucitavanje sa paralelnog porta:

a=inp0(ADRESA)

( u VB nikad nisam ucitavao, ali kod QBasic-a sam za ucitavanje koristio adresu 891 decimalno )

Za statusne i kontrolne bitove koristis druge adrese ( sve je napisano na slici )



Poslao: 13 Jan 2008 16:54
Idi na vrh
offline
  • prm 
  • Građanin
  • Pridružio: 11 Jun 2006
  • Poruke: 94

Stvar je sledeca meni to netreba ali treba mom prijatelju. Stvar je sledeca nasao sam neki kod koji slecno ovome izgleda tako da moze da upali neke diode ali izgleda da nemoze da prima podatke jerbo imamo neki problem!
Koristi je isti dll i nasli smo kod prijatelja u internet klubu. Ali posto covek oce da pravi DzuBoks mora da ocitava podatke....
Ja odavno nisam radio sa Vb-om tako mi treba neki lakse citljiv kod a kolega je vise elektronicar tako da mora malo da nadje nesto bez pono teoretisanja i tako....
HH

Pomoglo bi kada bi neko znao koje jos imaju funkcije u tom dll-u

Poslao: 14 Jan 2008 00:31
Idi na vrh
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Status portove koristis za ucitavanje. Tu znaci treba da dovedes napon od 5V da bi mogao da detektujes neke promene pomocu ovog dll-a. Kada deklarises inpout32.dll onda mozes na dugme da stavis kod

a = inp0(891) MsgBox a

I kao rezultat ces da dobijes broj koji treba da pretvoris u binarni (ako se dobro secam) i onda dobijes rezultat recimo 0101 sto znaci da na Status portu (konektori S2 i S4) postoji napon... Toliko za sada a napisem obsirnije kad se vratim sutra iz skole Razz

Poslao: 14 Jan 2008 13:54
Idi na vrh
offline
  • prm 
  • Građanin
  • Pridružio: 11 Jun 2006
  • Poruke: 94

dobro nego kako da saznam sve funkcije koje mogu da koristim iz ovoga dll- a kako i konstante i tako te interesantne zanimacije.....


HH

Poslao: 14 Jan 2008 17:17
Idi na vrh
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

[Link mogu videti samo ulogovani korisnici]

mozda ovo pomogne? Bebee Dol

Poslao: 14 Mar 2008 22:31
Idi na vrh
offline
  • prm 
  • Građanin
  • Pridružio: 11 Jun 2006
  • Poruke: 94

pa valjda oce covek oce da pravi dju-box pa valjda tu ima sto mu treba. Ja sam samo onako ovlas pogledao i ako nudi ono sto i obecava nece biti lose ako mogu tako reci.


Ok sutra skidam to sa toga sajta i uz pomoc B. bice kako treba valjda....


HH

Dopuna: 14 Mar 2008 22:31

ok napravio drug sve sto mu trebalo moze sada da se zakljuca i ova temica i to sto je napravio je nesto mnogo fino


\...

Poslao: 14 Mar 2008 22:41
Idi na vrh
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Jel moze vamo da se postavi source? Jes da ga ne mozemo testirati posto nemamo isti uredjaj koji bi prikljucili na paralel port ali barem da vidimo o cemu se radi Smile

MyCity » Visual Studio -> Visual Basic » paralelni port i VB6

Ko je trenutno na forumu
 

Ukupno su 721 korisnika na forumu :: 62 registrovanih, 5 sakrivenih i 654 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Andy, Baždaranac, bokicacar, Boris90, Car89, Cirkon, Coabelgrade, cuvarkuca, dexteroza, Dimitrise93, DonRumataEstorski, Dovla 1980, draganl, Dvojac005, gaga23, Georgius, ghoost, Giskard, goran.vvv, hellenic, HogarStrashni, Igritelj, ILGromovnik, Iskander, Kiki98TZ, krkalon, Lance Guest, leptirleptir, Lobo, Marko Marković, mean_machine, mercedesamg, Milun24, Mis uz pusku, mm1811, MR Z, MrG, Ndsk, neutrino, Pavel Medved, Perudin_92, rovac, sales, Savantije, shadower78, Sharpshooter, ShtagodShtagod, slowhand, stefan95, TRABAKULA, trutcina, varda, vathra, Voice1, Vrač, vrgudinac, vuksa72, Wepp, x78186, Zastava, |_MeD_|, Žrnov