Napravio sam jednu formu.
Na njoj ima 1 progressbar i 2 command buttons.
1 command button - pokrece progressbar
2 command button - izlazi iz programa
E sad ovaj prog. sluzi za odredjivanje comp brzine za koliko ce se vremena popuniti prog.bar.
Kako da napravim npr. ako se pr.bar popuni za 5 sec. izbaci poruku "your computer is fast" ili za 20 sec. "your computer is slow..."?
Pozdrav
pitanja u vezi progressbar-a ?
Zaključano
Zakačeno
Evo možda ti ovo pomogne.
Code:
Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
Timer1.Interval = 1 'brzina kojom zelis da se popunjava progress izrazen u milisekundama
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1 'broj koraka kojim se popunjava progress
If ProgressBar1.Value = 100 Then
MsgBox "Progress je stigao do kraja"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
Timer1.Interval = 1 'brzina kojom zelis da se popunjava progress izrazen u milisekundama
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1 'broj koraka kojim se popunjava progress
If ProgressBar1.Value = 100 Then
MsgBox "Progress je stigao do kraja"
Timer1.Enabled = False
End If
End Sub
ma ja imam to ali mi je potreban odgovor na 1. pitanje.
Ovo ti nije merodavan nacin za merenje brzine racunara.
Uvedi promenljivu StartTime tipa Date i u nju upisi Now() kad zapocne popunjavanje progressbara. Kad se progress bar popuni, sa DateDiff vidi koliko je vremena proslo izmedju StartTime i Now().
Uvedi promenljivu StartTime tipa Date i u nju upisi Now() kad zapocne popunjavanje progressbara. Kad se progress bar popuni, sa DateDiff vidi koliko je vremena proslo izmedju StartTime i Now().
Potpis
kako da na formu stavim label da broji vreme 1,2,3,4... od kliktanja na command1?
Kad kliknes na dugme enableuj Timer koji ima interval 1000. Svaki put kad se timer okine azuriraj label.Caption
Potpis
Evo ti progressbar kojeg je uplodao BeastMaster.Pa ako ti pomogne (možda ga već imaš)
@mladenovicz
Ja se izvinjavam sto sam bio dosadan svojim pitanjima ali ih vise necu toliko mnogo postavljati. Samo te molim da mi odgovoris na sledece pitanje:
Ja sam napravi program za registrovanje i sve normalno radi on napravi onaj .ini .
Ali koji source (postuj ovde) mi je potreban da dodam na form_load da se taj .ini procita?
Onaj link sto si mi dao nemogu se snaci sve sto sam pokusao ne radi.
Zato te molim da mi odgovoris jer mi je samo to preostalo do kraja programa.
Pozdrav
Ja se izvinjavam sto sam bio dosadan svojim pitanjima ali ih vise necu toliko mnogo postavljati. Samo te molim da mi odgovoris na sledece pitanje:
Ja sam napravi program za registrovanje i sve normalno radi on napravi onaj .ini .
Ali koji source (postuj ovde) mi je potreban da dodam na form_load da se taj .ini procita?
Onaj link sto si mi dao nemogu se snaci sve sto sam pokusao ne radi.
Zato te molim da mi odgovoris jer mi je samo to preostalo do kraja programa.
Pozdrav
Ne znam kako se nisi snasao u onome, ali dobro. Sledeci put kad ti nesto ne radi, postuj kod i objasni sta treba da radi.
citanje:
pisanje:
citanje:
Code:
MsgBox GetProfile(ImeSekcije, ImeParametra, 0, PutanjaDoINIFajla)
'-- ili
a = GetProfile(ImeSekcije, ImeParametra, 0, PutanjaDoINIFajla)
'-- primer
MsgBox GetProfile("General", "Registered", 0, "E:\Settings.ini")
MsgBox GetProfile(ImeSekcije, ImeParametra, 0, PutanjaDoINIFajla)
'-- ili
a = GetProfile(ImeSekcije, ImeParametra, 0, PutanjaDoINIFajla)
'-- primer
MsgBox GetProfile("General", "Registered", 0, "E:\Settings.ini")
pisanje:
Code:
WriteProfile ImeSekcije, ImeParametra, VrednostParametra, PutanjaDoIniFajla
'-- primer
WriteProfile "General", "Registered", "True", "E:\Settings.ini"
WriteProfile ImeSekcije, ImeParametra, VrednostParametra, PutanjaDoIniFajla
'-- primer
WriteProfile "General", "Registered", "True", "E:\Settings.ini"