[es] - SerialPort tool VB2008

zivadin_despot
Živadin Despotović
Novi Sad

Član broj: 175438
Poruke: 704
*.dynamic.sbb.rs.

+5 Profil

Re: SerialPort tool VB2008

^{13.08.2009. u 11:49 - pre 178 meseci}

Nisam se uspeo snaci, moze li jos neka pomoc... Kako bi izgledalo u vb?

Odgovor na temu

Boško

Član broj: 32679
Poruke: 62
79.143.100.*

Profil

Re: SerialPort tool VB2008

^{13.08.2009. u 13:25 - pre 178 meseci}

Evo npr. ovako:

Code:
  Private StanjeLPTPorta As Integer
  Private PortID As String = 378 'Najčešće je lpt1

  Private Sub PaliDiodu(ByVal KojuDiodu as Integer)
    StanjeLPTPorta = StanjeLPTPorta Or (2 ^ (KojuDiodu - 1))
    Out(Val("&H" & PortID), StanjeLPTPorta)
  End Sub

  Private Sub GasiDiodu(ByVal KojuDiodu as Integer)
    StanjeLPTPorta = StanjeLPTPorta And (255 - (2 ^ (KojuDiodu  - 1)))
    Out(Val("&H" & PortID), StanjeLPTPorta)
  End Sub

  Public Sub GasiSve()
    StanjeLPTPorta = &H0
    Out(Val("&H" & PortID), StanjeLPTPorta)
  End Sub

  Public Sub PaliSve()
    StanjeLPTPorta = &HFF
    Out(Val("&H" & PortID), StanjeLPTPorta)
  End Sub

I koristi malo više Google. Sve može da se pronađe veoma lako. Mada je najlakše kad neko to uradi umesto tebe.

Odgovor na temu

zivadin_despot
Živadin Despotović
Novi Sad

Član broj: 175438
Poruke: 704
*.dynamic.sbb.rs.

+5 Profil

Re: SerialPort tool VB2008

^{13.08.2009. u 17:51 - pre 178 meseci}

Pokusavao sam, al' mi je tesko islo. Nije da sam lenj nego nisam nista nasao :)
Hvala, probacu ovo, pa javim....
Pozdrav

Odgovor na temu

zivadin_despot
Živadin Despotović
Novi Sad

Član broj: 175438
Poruke: 704
*.dynamic.sbb.rs.

+5 Profil

Re: SerialPort tool VB2008

^{13.08.2009. u 18:59 - pre 178 meseci}

Bosko nije mi jasno kako ti ovde proveravas stanje porta, po ovome 2 ^ (KojuDiodu - 1) ja palim diodu koju hocu ali ostale gasim, ispravi ako gresim....
Da li si negde StanjeLPTPorta definisao tako da cita stanje porta ili ne? Malko mi je nejasno...
Da ponovim, meni treba evo ovako da dve diode rade, to jest' da se jedna upali 10 puta u sekundi a druga 2 puta.... Evo ovo ako resimo sve ostalo mi je reseno dalje....
Ako imate neki link, ali da ovu temu resava, moze...

Hvala,
nadam se da nisam naporan, a i ako malo jesam progledajte mi kroz prste ;)

Odgovor na temu

Boško

Član broj: 32679
Poruke: 62
79.143.100.*

Profil

Re: SerialPort tool VB2008

^{14.08.2009. u 11:23 - pre 178 meseci}

Nema šta da proveravaš stanje porta. Startuješ program i pozoveš f-ju GasiSve. Tako si StanjeLPTPorta postavio na nulu.

Kada hoćeš da upališ diodu na pinu 4 (to je dioda br. 3) kažeš: PaliDiodu(3) i ta će da svetli sve dok ne pozoveš GasiDiodu(3), a sve to je nezavisno od ostalih dioda. U međuvremenu možeš da pališ i gasiš ostale koliko hoćeš.

Odgovor na temu

zivadin_despot
Živadin Despotović
Novi Sad

Član broj: 175438
Poruke: 704
*.dynamic.sbb.rs.

+5 Profil

Re: SerialPort tool VB2008

^{14.08.2009. u 13:32 - pre 178 meseci}

Bosko, radi izvini sbog sumnje :)
Jel mi mozes objasniti ove korake

StanjeLPTPorta = StanjeLPTPorta Or (2 ^ (KojuDiodu - 1))

StanjeLPTPorta je ovde promenljiva koja nema vrednost gore je definisana kao integer, sta ona vraca ovde kao rezultat? Nije mi jasno kako uporedjuje nesto sto nema vrednost i broj....
Necu vise dosadjivati obecevam.
Hvala jos jednom

Odgovor na temu

Boško

Član broj: 32679
Poruke: 62
79.143.100.*

Profil

Re: SerialPort tool VB2008

^{14.08.2009. u 14:59 - pre 178 meseci}

StanjeLPTPorta ima vrednost čim je dimenzionisana kao Integer. Ona je nula. To je tvoja promenljiva i možeš da joj dodeliš vrednost koju hoćeš. Ako si primetio, odmah nakon dodeljivanja vrednosti njoj, ta vrednost se f-jom Out dodeljuje i portu, tako da su vrednosti promenljive i porta uvek iste. Ovo je ubačeno da ne bi stalno koristio f-ju Inp koja čita vrednost sa porta. Preduslov je, naravno, da na početku pozoveš f-ju GasiSve i tako postaviš vrednost svih izlaza na portu na nulu i kreneš od nule.

Što se ovog drugog tiče to ti je Bulova algebra - prvi čas programiranja. Ako ćemo ovde o tome...

Da probam da ti pojasnim:
Izlazni pinovi na lpt portu su pin2 do pin9. Njihova vrednost može biti 0 ili 1. Zajedno izgleda ovako 00000000 (kada su svi ugašeni) ili npr. 00101001 kada su uključeni pinovi 2, 5 i 7 (gleda se s desna na levo). E tu sad dolazi Bulova algebra. Ako bi hteo da pored pinova 2, 5 i 7 uključiš još i 4 morao bi da uradiš sledeće: 00101001 OR 00000100 = 00101101 (pinovi 2, 5 i 7 OR pin 4 = pinovi 2, 4, 5 i 7).

Nemam ideju kako ovo prostijim rečima da ti objasnim.

Moraćeš da pogledaš Bulovu algebru.

Odgovor na temu

zivadin_despot
Živadin Despotović
Novi Sad

Član broj: 175438
Poruke: 704
*.dynamic.sbb.rs.

+5 Profil

Re: SerialPort tool VB2008

^{14.08.2009. u 20:05 - pre 178 meseci}

Ne treba prostije, razumeo...
Ne znam sta da ti kazem, svaka cast...
Hvala
Pozdrav

Odgovor na temu