| Author |
Message |
adhisyanda |
| Location: |
|
Post subject: program rambah schedule task...help...
 Posted: 02/Dec/2009 08:53
|
|
onIntermediate
Joined: 08-Nov-2009
Posts: 40
Status: Offline
|
|
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... |
|
|
| |
|
|
|
 |
|
herux |
| Location: Kediri |
|
|
Post subject: RE: program rambah schedule task...help...
Posted: 02/Dec/2009 09:38
|
|
onProfessional
Joined: 13-Jul-2006
Posts: 668
Location: Kediri
Status: Offline
|
|
- Buat service app atau
- Taruh shortcut di startup menu atau
- pake registry |
|
|
| |
|
|
|
|
|
amyra |
| Location: Big Park, Mount Tea Land, CENTRAL JAVA |
|
|
Post subject: RE: program rambah schedule task...help...
Posted: 02/Dec/2009 13:50
|
|
onSkilled
Joined: 18-Mar-2006
Posts: 78
Location: Big Park, Mount Tea Land, CENTRAL JAVA
Status: Offline
|
|
| Namanya juga SCHEDULE TASK...pengertiannya saja dulu dipahami... |
_________________
Rakyat bersatu TAK TERKALAHKAN
Rakyat bertato TAK BISA DISALAHKAN
|
| |
|
|
|
|
|
heriy4nt0 |
| Location: |
|
|
Post subject: RE: program rambah schedule task...help...
Posted: 02/Dec/2009 16:15
|
|
onKnowledgeable
Joined: 25-Jul-2008
Posts: 145
Status: Offline
|
|
| 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 |
|
|
| |
|
|
|
|
|
adhisyanda |
| Location: |
|
|
Post subject: RE: program rambah schedule task...help...
Posted: 02/Dec/2009 19:28
|
|
onIntermediate
Joined: 08-Nov-2009
Posts: 40
Status: Offline
|
|
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, |
|
|
| |
|
|
|
|
|
heriy4nt0 |
| Location: |
|
|
Post subject: RE: program rambah schedule task...help...
Posted: 02/Dec/2009 21:31
|
|
onKnowledgeable
Joined: 25-Jul-2008
Posts: 145
Status: Offline
|
|
| 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) |
|
|
| |
|
|
|
|
|
cadasmerah-camar |
| Location: |
|
|
Post subject: RE: program rambah schedule task...help...
Posted: 02/Dec/2009 22:04
|
|
onConfident
Joined: 16-Feb-2009
Posts: 21
Status: Offline
|
|
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 |
|
|
| |
|
|
|
|
|
|
