![]() |
Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. www.neurohope.ro |
Pentru cunoscatori Visual Basic...
Last Updated: Feb 27 2003 15:32, Started by
Lentzi
, Feb 27 2003 00:35
·
0

#1
Posted 27 February 2003 - 00:35

Daca stie cineva cumva.. sau are asa ceva, il rog disperat sa ma ajute :)
Ce vreau sa fac? Un micut program, un fel de contor... care sa-mi afiseze... ani, zile, ore, minute si secunde trecute de la o anumita data si pana in prezent.. adica, daca data respectiva ar fi 1 februarie 2003, cand rulez programul pe data de 28 februarie 2003, programul sa-mi afiseze cam asa ceva: 0 ani, 27 zile, m ore, n secunde... si sa numere in continuare. asta ar fi cel mai important.. adica nu doar sa-mi afiseze.. ci sa numere in continuare.. sa mearga contorul asta.. exact ca un ceas.... dar un ceas care sa nu-mi arate timpul normal, ci timpul trecut de la data respectiva. daca are cineva vreun cod in sensul asta, il rog foarte mult sa ma ajute. multumesc. |
#2
Posted 27 February 2003 - 15:31

In primul rind visual basic iti pune la dispozitie un control de care te poti folosi: Timer
acesta poate invoca, in functie de intervalul ales o anumita functie. Evident, intervalul tau va fi de o secunda. Vei avea nevoie de un Timer (sa-l denumim Timer1), precum si 3 textbox-uri 1) txtOra 2) txtMin 3) txtSec In proprietatile Timer-ului seteze intervalul la 1000 (1sec) Acum in procedora form_load: Private Sub Form_Load() ' Initializare a textbox-urilor txtSec = 0: txtmin = 0: txtora = 0 End Sub In procedura Timer: Private Sub Timer1_Timer(Index As Integer) ' Chemarea functiei Call GetMyTime End Sub Function GetMyTime() ' Aici boxul secundelor va incrementa fiecare secunda txtSec = txtSec + 1 ' daca a ajuns la 60 incrementezi minutele si resetezi secundele if txtSec = 60 then txtmin = txtmin +1 txtsec = 0 end if if txtmin = 60 then txtora = txtora +1 txtmin = 0 end if End Function In mare cam asa s-ar face un ceas. De aici (zi, saptamina, luna an, estetica preluare informatii etc,) nu ramane decit sa scrii ce anume doresti. Succes! |
#3
Posted 27 February 2003 - 15:32

eu personal am folosit ceva asemanator pentru counter-ul la un video-player realizat de mine.
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users