Arsip: Timer mundur
more 12 years ago
yufan
mohon pencerahannya dunk,,,
ada yang tau syntac buat menghitung waktu mundur ??
jadi pada saat program saya jalan aplikasi ini mulai menghitung waktu mundur semisal 5 detik jadi pas waktu habis aplikasi saya menjalankan suatu program atau perintah ??
mohon pencerahannya ya mas2 dan mbak2 ??? newbie delphi nii :D :D
more 12 years ago
mas_kofa
bikin pake TTimer
set interval ke 1000 (1 detik)
bikin variable counter, lalu di inc di OnTimer
jika sudah 5 nilai counter, jalan kan perintah yg diinginkan....
jgn lupa langsung matikan timer jika counter sudah 5
S'Moga Membantu....
more 12 years ago
mas_kofa
TForm1.Timer1Timer(Sender: TObject)
begin
Timer1.Tag := Timer1.Tag + 1;
if Timer1.Tag = 5 then
begin
Timer1.Enabled := false;
ProsesPerintah;
end;
end;
more 12 years ago
yufan
kok nggak bisa jalan ya mas ,,,
ni source code saya
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=Timer1.Tag 1;
if Timer1.Tag:= 5 then
begin
Timer1.Enabled:=False;
BlockInput(True);
Sleep(5000);
BlockInput(False);
end;
more 12 years ago
zuryafix
@yufan: kasih pencerahan source codenya sedikit dunk mas ,,,,,???Saya ada source code countdown timer sinergi progressbar yang saya pasang di form login user, mungkin bisa dikembangkan form yang lain, Semoga bermanfaat
procedure TLoginForm.Timer1Timer(Sender: TObject);
begin
ProgressBar.StepBy(-1); //progressbar nilainya berkurang 1
if ProgressBar.Position = 0 then // ketika progressbar potion = 0 maka aplikasi Login akan diakhiri sesuai set timernya
begin
Application.Terminate;
end;
end;
procedure TLoginForm.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100; // set kecepatan timer
ProgressBar.Max := 100; // set posisi progressbar (perkaliannya antara interval timer dgn progressbar hasilnya adalah second)
ProgressBar.Position := ProgressBar.Max;
Timer1.Enabled := true;
progressBar.Visible := true;
end;
more 12 years ago
aandrie77
@yufan: kok nggak bisa jalan ya mas ,,, ni source code sayacodenya mungkin ada yang kurang... mungkin seharusnya ==>procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Tag:=Timer1.Tag 1; if Timer1.Tag:= 5 then begin Timer1.Enabled:=False; BlockInput(True); Sleep(5000); BlockInput(False); end;
procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Tag:=Timer1.Tag+1; //ada simbol + nya jd akan menjalankan counting tag timernya menjadi 5 if Timer1.Tag:= 5 then //jika tag timer = 5 begin Timer1.Enabled:=False; Timer1.Tag:=0; //kembalikan tag timer menjadi 0 kalau di perlukan lagi timer nya BlockInput(True); Sleep(5000); //ini akan stact selama 5 detik tp aplikasi tidak bisa ngapa-ngapain sehingga keliahatn hang selama 5 detik BlockInput(False); end;
more 12 years ago
yufan
@aandrie77: [quote:341c80333a="yufan"]kok nggak bisa jalan ya mas ,,, ni source code sayadi prosedurnya aku kasih[/quote:341c80333a] codenya mungkin ada yang kurang... mungkin seharusnya ==>procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Tag:=Timer1.Tag 1; if Timer1.Tag:= 5 then begin Timer1.Enabled:=False; BlockInput(True); Sleep(5000); BlockInput(False); end;
procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Tag:=Timer1.Tag+1; //ada simbol + nya jd akan menjalankan counting tag timernya menjadi 5 if Timer1.Tag:= 5 then //jika tag timer = 5 begin Timer1.Enabled:=False; Timer1.Tag:=0; //kembalikan tag timer menjadi 0 kalau di perlukan lagi timer nya BlockInput(True); Sleep(5000); //ini akan stact selama 5 detik tp aplikasi tidak bisa ngapa-ngapain sehingga keliahatn hang selama 5 detik BlockInput(False); end;
procedure BlockInput(ABlockInput : Boolean); stdcall; external 'USER32.DLL';
kok malah error gini ya mas ...
type expresion must be boolean...
apakah tidak memakai prosedur mas ...
more 12 years ago
henry_sys
@mas_kofa:Klu di samakan dengan coding diatas pasti error, krn tanda Plus(+) tidak terlihat pada baris Timer1.Tag := Timer1.Tag +1; Kalau mau disinergikan dengan TProgresBar tinggal disamakan aja antara nilai tag dengan ProgBar.Possition, jadi dah.... semoga membantu...TForm1.Timer1Timer(Sender: TObject) begin Timer1.Tag := Timer1.Tag + 1; if Timer1.Tag = 5 then begin Timer1.Enabled := false; ProsesPerintah; end; end;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Permasalahan login ????
by sofian_coessoy in Bedah Kasus more 16 years ago - Belajar FastReport
by awonk in Reporting more 16 years ago - tentang olah data dr ms excel di delphi 7 dgn windows vista
by jasonxt in Bedah Kasus more 12 years ago - Buat Game Igo
by Melon_Cry in Games more 16 years ago - tanya ubah tipe data
by diandewi in Hal umum tentang Pascal Indonesia more 11 years ago - error ADOCommand1.CommandText
by tAtA in Tip n Trik Pemrograman more 16 years ago - Mengambil Nilai Terbesar Dari 2 Colom Pada Tabel Yang Sama
by isoke in MsSQL more 15 years ago - example SIM
by agso in Hal umum tentang Pascal Indonesia more 15 years ago - Recover Database mysql
by dannyong1999 in MySQL more 17 years ago - image gagal
by e_soep in Tip n Trik Pemrograman more 14 years ago