Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
E posibil in excel?

Orange vs Orange Romania Communic...

Vanzare imobil scoatere din evide...

Hub MAI
 Spiru Haret, invatamant la distan...

S-a scumpit petrolul, marim pretu...

La ce e util acest inel-de-antena...

Problema de cadastru
 hdd seagate si eject fail

Emigrare in Castellon cu familia ...

Peugeot 208, 1.2 100 cp

unde ajung la noi in tara pachete...
 Smaranda Braescu

Portofel electronic

Laptele mai scump ca Berea, de ce?

Antena CB PNI ML75, lungime 75cm,...
 

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

Chirurgia spinală minim invazivă 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

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