VB6 Brojanje ulaznih impulsa na paralelnom portu.

[ dr.zmaj @ 20.04.2016. 10:18 ] @

Trebam jednu pomoc. Kako da isprogramiram u VB6 brojanje ulaznih impulsa, odnosno broj prekida na senzoru koji cini mikroprekidac. Na primer, mikroprekidac spojen na ulazu pina 10. Kada je mikroprekidac zatvoren dobijam vrednost 63, kada su svi ostali ulazi otvoreni. Koristio bih jos tri mikroprekidaca kod kojih necu koristiti brojanje, ali ovaj prvi mikroprekidac broji impulse sa rotora koji podize kabinu recimo lifta. Posle odredjenog broja impulsa program ce da zaustavi rad motora. Molim za pomoc.

[ dr.zmaj @ 22.04.2016. 08:17 ] @

Zar niko, barem neku ideju?

[ Sijedi @ 22.04.2016. 18:39 ] @

Znači imaš indikaciju tog prekidača sa brojem 63, čim nije 63 prekidač je otvoren....
Nešto ovako:

Code:

Dim NovoStanje as Integer, StaroStanje as Integer
Dim Broj as Integer ' promjenjiva u koju se smješta taj broj 63
Dim Suma as Integer' suma broja impulsa
NovoStanje=0:StaroStanje=0
Pocetak:
NovoStanje=Broj
If NovoStanje<>StaroStanje then
If NovoStanje=63 then Suma=Suma+1
EndIf
StaroStanje=NovoStanje
Goto Pocetak

Smjesti ovo u neku proceduru. Vrijednost promjenjive "Suma" ispituj da vidiš dokle je lift došao.....

[ dr.zmaj @ 29.04.2016. 16:13 ] @

Nesto sam slicno pokusavao da stavim u Timer kontrolu, ali nije mi nesto uspevalo. Resio sam to umesto jednog senzora stavio sam tri opticka senzora sa LDR-ima i obrtnu plocu enkodera. Tako ispitujem stanje ulaza na paralelnom portu zajedno sa jos dva mikroprekidaca koji imaju neki drugi zadatak. U svakom slucaju hvala na pomoci.

[ Gjoreski 001 @ 11.04.2019. 20:32 ] @

Resili ste ovo, ako nije imam ja nesto sto moze da pomogne.