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.
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 ;)
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š.
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
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.
Re: SerialPort tool VB2008
13.08.2009. u 11:49 · pre 209 meseci
#21