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 |
Timer & delay & sleep In VB 2005 enterprise edition Help Please
Last Updated: Jan 31 2008 20:50, Started by
hianyzoli
, Jan 21 2008 20:34
·
0
#1
Posted 21 January 2008 - 20:34
Salut. De cateva zile incerc sa imi dau seama cum lucreaza timer controlul in vb. Ce as vrea sa fa e ceva de genu: Apas un buton de comanda asteapta programu x secunde dupa care executa ceva sa zicem intr-un text box imi afiseaza un text. Dupa ore intregi de cautare pe google nu am aflat nimik "util". Va rog ajutati-ma
P. S. Sunt incepator in vb deci daca se poat explicatii la nivel de incepatori. Mersi Anticipat |
#2
Posted 24 January 2008 - 10:04
hianyzoli, on Jan 21 2008, 21:34, said: Salut. De cateva zile incerc sa imi dau seama cum lucreaza timer controlul in vb. Ce as vrea sa fa e ceva de genu: Apas un buton de comanda asteapta programu x secunde dupa care executa ceva sa zicem intr-un text box imi afiseaza un text. Dupa ore intregi de cautare pe google nu am aflat nimik "util". Va rog ajutati-ma P. S. Sunt incepator in vb deci daca se poat explicatii la nivel de incepatori. Mersi Anticipat O rezolvare la problema, fara timer, poate fi urmatoarea: (codul de mai jos verifica daca s-a lansat o operatie mai devreme de 60 secunde de precedenta, iar daca da afiseaza un avertisment si asteapta pana cand trec cele 60 secunde; in intervalul acesta este afisat un progress bar): iDeltaT = DateDiff(DateInterval.Second, CDate(lItmX.SubItems(1).Text), dtStartTime) If iDeltaT < 60 Then lblWarn.Text = "You are attempting to regenerate this directory" + _ vbCrLf + "too soon after the previous update." + _ vbCrLf + "The application will pause for " + _ CStr(60 - iDeltaT) + " seconds" pbSleep.Maximum = 60 - iDeltaT pbSleep.Value = 0 fraWarn.Visible = True Me.Refresh() For x = 0 To 60 - iDeltaT - 1 Sleep(1000) ' Perform the increment on the ProgressBar. pbSleep.PerformStep() Next x fraWarn.Visible = False Me.Refresh() dtStartTime = Now End If |
#3
Posted 24 January 2008 - 10:16
hianyzoli, on Jan 21 2008, 21:34, said: Salut. De cateva zile incerc sa imi dau seama cum lucreaza timer controlul in vb. Ce as vrea sa fa e ceva de genu: Apas un buton de comanda asteapta programu x secunde dupa care executa ceva sa zicem intr-un text box imi afiseaza un text. Dupa ore intregi de cautare pe google nu am aflat nimik "util". Va rog ajutati-ma P. S. Sunt incepator in vb deci daca se poat explicatii la nivel de incepatori. Mersi Anticipat Detalii despre timer: http://msdn2.microso...y/3tszykws.aspx (How to: Run Procedures at Set Intervals with the Windows Forms Timer Component) |
#4
Posted 30 January 2008 - 01:46
Mersi de raspuns dar e too complicat for me . Daca ar putea cineva sa imi arate un exemplu simplu utilizand functia sleep sau delay sau stiu eu ce mai exista ca sa imi faca urmatorul lucru:
dau clic pe un buton de comanda si intr-o casuta de texte dupa x secunde (sau milisecunde) sa imi apara un text. Am gasit pe internet ceva coduri in care era inclus un fisier "kernel32" dar cand rulam programul imi dadea eroare. Pls help me |
#5
Posted 31 January 2008 - 20:50
hianyzoli, on Jan 30 2008, 02:46, said: Mersi de raspuns dar e too complicat for me . Daca ar putea cineva sa imi arate un exemplu simplu utilizand functia sleep sau delay sau stiu eu ce mai exista ca sa imi faca urmatorul lucru: dau clic pe un buton de comanda si intr-o casuta de texte dupa x secunde (sau milisecunde) sa imi apara un text. Am gasit pe internet ceva coduri in care era inclus un fisier "kernel32" dar cand rulam programul imi dadea eroare. Pls help me Dim PauseTime, Start, Finish, TotalTime If (MsgBox("Press Yes to pause for 1 seconds", 4)) = vbYes Then PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Finish = Timer ' Set end time. TotalTime = Finish - Start ' Calculate total time. MsgBox "Paused for " & TotalTime & " seconds" Else End End If Poate te ajuta... |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users