Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Arzator dublu aragaz.

Presiune Centrala Ariston.

DVR 4 canale functioneaza cu un ...
 Redactare CV

Limite maxime amenzi contraven...

Folie protectoare pentru ecrane (...

Spalare masina sau nu
 Alternative la "we are sunset...

Īncheiere penala dezinvestire

Traducere limba spaniola

Family Sharing "Ask to buy...
 CI+ (Telekom) și TV JVC

Umiditate Beci

Ariston decupleaza incalzire calo...

Retea interioara CATV proasta. So...
 

Timer & delay & sleep In VB 2005 enterprise edition Help Please

- - - - -
  • Please log in to reply
4 replies to this topic

#1
hianyzoli

hianyzoli

    New Member

  • Grup: Members
  • Posts: 21
  • Înscris: 13.12.2007
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. :P
Mersi Anticipat

#2
ManuV

ManuV

    Junior Member

  • Grup: Members
  • Posts: 84
  • Înscris: 15.03.2007

View Posthianyzoli, 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. :P
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
ManuV

ManuV

    Junior Member

  • Grup: Members
  • Posts: 84
  • Înscris: 15.03.2007

View Posthianyzoli, 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. :P
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
hianyzoli

hianyzoli

    New Member

  • Grup: Members
  • Posts: 21
  • Înscris: 13.12.2007
Mersi de raspuns dar e too complicat for me :P. 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
NickRvl

NickRvl

    Senior Member

  • Grup: Senior Members
  • Posts: 2,022
  • Înscris: 30.10.2006

View Posthianyzoli, on Jan 30 2008, 02:46, said:

Mersi de raspuns dar e too complicat for me :P. 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

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate