Arsip: program rambah schedule task...help...
more 15 years ago
adhisyanda
sesuai judul,,,
aq berniat bikin program yang bisa running setiap login...
n idenya sich mu aq bikin schedule task nya...
tp yg jd masalah aq gtw gmn caranya...
help me y kk expert...
more 15 years ago
herux
- Buat service app atau
- Taruh shortcut di startup menu atau
- pake registry
more 15 years ago
heriy4nt0
kalau sulit buatnya, buat aja program seperti biasa kamu buat, lalu masukkan ke schedule tasknya windows (kamu bisa set jam berapa mau jalan, berapa kali sehari jalannya) , nah..entar windows yang jalankan sendiri..gampangkan ..hehehe
more 15 years ago
adhisyanda
maksud saya bisa ga si program nge cek ke schedule task nya..
kalo belum ada terus program tu otomatis bikin schedule buat dirinya sendiri..
gtu kk,
more 15 years ago
heriy4nt0
artinya untuk pertama kali program tsb tidak berjalan sewaktu selesai login windows, lalu kemudian setelah programnya kita run maka begitu restart windows selanjutnya program sudah berjalan otomatis ya ? kalau begitu ikuti saran bro herux - kamu harus daftarkan sendiri programnya di register (cara termudah), kalau tujuan programnya mau memonitor app kamu ya bentuk service. (Hanya pengen tau : Tugas dari program kamu untuk apa ya sebenarnya ? -- (kelihatannya mirip dengan cara kerja virus lokal/antivirus)
more 15 years ago
cadasmerah-camar
kayanya aku pernah buat iseng yang kaya gitu waktu buat TaskPengirim sms pada jam tertentu dia Kirim SMS untuk peminjam buku
satu hari satu kali dia Melakukan pengiriman SMS kepada peminjam yang terlambat mendekati hari peminjaman.. potongan code nya
ini dibuat cepat karena diMinta selesai 2 Hari jadi yah gitu deh namanya juga pemula
procedure TFormUtama.Timer1Timer(Sender: TObject);
var jam: string;
begin
dm.qryTask.Refresh;
jam:=FormatDateTime('HH:mm:ss AM/PM',dm.qryTask.Fields[1].AsDateTime);
if FormatDateTime('HH:mm:ss AM/PM',time)= jam then
begin
mmStatus.Lines.Add('['+FormatDateTime('dd/mm/yy HH:mm:ss AM/PM',time)+'] '+'SMS Reminder sedang di Di Jalan kan Proses Pengiriman SMS');
smsPlayer.FileName:= ExtractFilePath(Application.ExeName)+'plugin\SMSVoice.wav';
smsPlayer.Play;
//Kerjakan proses SMS di Sini
cekDataUser;
end;
stsBar.Panels[2].Text := 'Jadwal Reminder : '+jam;
end;
procedure TFormUtama.cekDataUser;
var psn,psn2,UserId:string;
skr : TDate;
begin
skr := Now;
DM.qryCek.First;
ProgressBar1.Position := 0;
ProgressBar1.Max := DM.qryCek.RecordCount;
with DM.qryCek do
begin
mmStatus.Lines.Add('['+FormatDateTime('dd/mm/yy HH:mm:ss AM/PM',time)+'] '+
'SMS Reminder sedang di Di Jalan kan Proses Pengiriman SMS');
while not Eof do
begin
UserId:= Fields[1].AsString;
if Fields[4].AsInteger > 0 then
begin
psn := ' pinjaman buku jatuh tempo Tgl '+FormatDateTime('dd/mm/yyyy',skr);
psn2 := 'Terlambat' ;
end;
if Fields[4].AsInteger < 3 then
begin
psn := ' pinjaman buku lewat jatuh tempo Tgl '+FormatDateTime('dd/mm/yyyy',skr);
psn2 := 'Akan Jatuh Tempo';
end;
if Fields[4].AsInteger = 0 then
begin
psn := ' pinjaman buku jatuh tempo hari ini Tgl '+FormatDateTime('dd/mm/yyyy',skr);
psn2 := 'peringatan';
end;
ProgressBar1.Position := RecNo;
//isi data ke outbox antrian
isiOutBox(psn,psn2);
Next;
end;
mmStatus.Lines.Add(IntToStr(dm.qryCek.RecordCount)+' Pesan telah dikirim')
end;
end;
Semoga memberi harapan atau memberi kebingugnan
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 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- saving state combobox
by old_shutterhand in Tip n Trik Pemrograman more 17 years ago - Access data mysql dengan dbexpress
by lagisedih in FireBird more 17 years ago - menggunakan ThousandSeparator di dbEdit ?!
by jajang in Hal umum tentang Pascal Indonesia more 16 years ago - Printer mini epson TM U220B
by wati in Tip n Trik Pemrograman more 13 years ago - komponent export excel
by keylock in Tip n Trik Pemrograman more 16 years ago - program decompiler delphi yang bagus
by belajaraja in Tip n Trik Pemrograman more 16 years ago - mau tanya tentang pembulatan
by donald in Hal umum tentang Pascal Indonesia more 16 years ago - simpan jpg
by lela in Tip n Trik Pemrograman more 18 years ago - sms gateway informasi nilai
by r_rie in Tip n Trik Pemrograman more 15 years ago - Creating a good form....
by RoenZ in Multimedia & Graphic Enhancement more 17 years ago