Arsip: program rambah schedule task...help...

more 13 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 13 years ago
herux
- Buat service app atau
- Taruh shortcut di startup menu atau
- pake registry

more 13 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 13 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 13 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 13 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 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 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 3 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
- Minta Bantuan Teman2
by saysansay in Hal umum tentang Pascal Indonesia more 18 years ago - Program Kasir tanpa database di client
by nick04 in Network, Files, I/O & System more 14 years ago - (ASK) Penjumlahan di QReport
by irul_anwar in Tip n Trik Pemrograman more 13 years ago - Mohon Triknya Dong.....
by umarbakri in Hal umum tentang Pascal Indonesia more 17 years ago - DBGrid dikasih warna
by msih_bljaran in MsSQL more 14 years ago - procedure bekerja antar table dengan MainMenu
by eruswn in Hal umum tentang Pascal Indonesia more 14 years ago - image pada procedure
by willbrig in Tip n Trik Pemrograman more 16 years ago - Run SQL Ke MS ACCSESS 1000 Karyawan?
by anosolano in Hal umum tentang Pascal Indonesia more 16 years ago - ask: .bpl konflik ?
by cyber_hecker in Tip n Trik Pemrograman more 12 years ago - cara kirim email ke banyak tujuan
by lumpurpanas in OOT more 16 years ago