Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Renault Android

Recomandare bicicleta e-bike 20&#...

Bing-Content removal tool

Nu pot accesa monitorulsv.ro de l...
 Cum sa elimini urmele de acnee?

Wc Geberit

Routere detinute in trecut si in ...

Teii din fața casei
 E-Mail in serie prin Excel si Out...

Modul alimentare rulou/jaluzea ex...

Recuperare fișiere dupa form...

Aplicatii stress test RAM
 Asigurare auto hibrid

Asus B550M - PC-ul nu porneste di...

Tzanca Uraganu - Inconjurat de Fe...

explicatie montaj breadboard
 

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,033
  • Î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

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

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