inpout32.dll & vb6

salut!

inainte de toate, vreau sa spun ca nu stiu programare!!!

m-am apucat si eu de programarea portului paralel in vb6 (ca in delphi mi-a dat cu virgula :0 ) si am inteles ca trebuie un dll (inpout32) pentru a face programe care functioneaza si in XP
toate bune si frumoase... m-am apucat sa fac un program, care surprinzator merge, dar merge doar pe un singur port.
eu am pus 8 led-uri pe portul paralel si daca vreau sa aprind ledul 1, scriu comanda Out &H378, &H1 iar pentru a stinge ledul, Out &H378, &H0
pentru a aprinde ledul 2 este &H9 parca.... si tot asa mai departe
DAR
daca ledul 1 e aprins si dau comanda cu H9, se aprinde ledul 2 si se stinge ledul 1. daca ar fi doar 2 comenzi, s-ar putea face o conditie.. dar sunt 8 porturi!!! sunt o gramada de combinatii si nu prea am cunostintele necesare pentru atatea conditii...

in fine.. ce vreau eu: sa ma ajutati intr-un fel si sa-mi explicati cum sa fac un algoritm sa comande porturile independent unul de altul... se poate SIGUR deoarece a facut-o un prieten de-al meu, dar nu vrea sa dea sursa... secret profesional

daca este cineva care a inteles ce am vrut sa zic si e dispus sa ma si ajute, eventual sa explice, dau o bere, doua, cate cere  :cya:

multumesc pentru timp! :yeah baby

ce naiba.. nu s-a lovit nimeni de problema asta? sau nu are nimeni chef de explicat?
va rog, oameni buni, ajutati-ma!

Trimite-mi sursele tale la [email protected]
Si eu am incercat sa fac chestia in Xp dar nu prea mi-a iesit.
Eu mai stiu cate ceva de Vb asa capoate impreuna reusim sa facem ceva!
Salutare.
Catalin!

NU stiu exact cum e in vb, dar ideea de baza ar fi cam urmatoare (asta in cazul in care n-ai rezolvat problema deja).

Comanda: Out &H378, &H1   trimite pe portul paralel valoarea: 00000001( ceea ce duce la aprinderea primului led si stingerea celorlalte

Comanda: Out &H378, &H2   trimite pe portul paralel valoarea: 00000010( ceea ce duce la aprinderea celui de al doilea led si le stinge pe celelalte

Comanda: Out &H378, &H0   trimite pe portul paralel valoarea: 00000000( ceea ce duce la stingerea tuturor ledurilor.

Pentru a aprinde si ledul 1 si ledul 2 trbuie sa transmiti pe portul &H378 valoarea: 00000011(=&H3=&H1 "or logic" &H2

Nu stiu cum se face acel "or logic" in vb6, dar ideea de baza asta ar fi:

ledul1=&H1;
ledul2=&H2;
ledul3=&H4;
ledul4=&H8;
ledul5=&H10;
ledul6=&H20;
ledul7=&H40;
ledul8=&H80;

pentru a aprinde mai multe leduri trimiti o valoare combinata cu "or logic".

Un ultim exemplu (cu riscul de a ma repeta):

Pentru a aprinde ledul 2 si 4: OUT &H378,&H2 "or logic" &H8

pai atunci e simplu. in VB OR-ul boolean estei si OR logic (pe biti).
deci daca vrei sa aprinzi ledul 1 si 2 simultan tr sa apelezi:

Out &H378, &H1 Or &H9

hot tip: construieste-ti o functie cu 8 parametri booleeni care iti intoarce valoarea codificata pe biti, corespunzator celor 8 porturi. ceva de genul:

Function StareLeduri(bLed1 as boolean, bLed2 as boolean, ...) as Long

s-a rezolvat
a fost destul de simplu... pt bitul 3 citeam starea portului parallel si adaugam 4

Salut
Am si eu nevoie de ceva asemanator ... tot in vb6. Trebuie sa scot o tensiune continua pe LPT pe care sa o pot porni si opri dupa bunul plac. Daca crezi ca sursa ta ma poate ajuta... trimite-mi-o si mie te rog la [email protected].
Multumesc anticipat!