Chirurgia cranio-cerebrală minim invazivă
Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne. Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale. www.neurohope.ro |
inpout32.dll & vb6
Last Updated: Jun 07 2005 18:20, Started by
MembruAnonim
, Jan 11 2004 23:06
·
0
#1
Posted 11 January 2004 - 23:06
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 |
#2
Posted 12 January 2004 - 23:50
ce naiba.. nu s-a lovit nimeni de problema asta? sau nu are nimeni chef de explicat?
va rog, oameni buni, ajutati-ma! |
#3
Posted 17 March 2004 - 13:39
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! |
#4
Posted 19 March 2004 - 15:18
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 |
#5
Posted 19 March 2004 - 15:50
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 |
#6
Posted 23 March 2004 - 16:44
s-a rezolvat
a fost destul de simplu... pt bitul 3 citeam starea portului parallel si adaugam 4 |
#7
Posted 07 June 2005 - 18:20
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! |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users