Aplikasi Antrian Loket
Procedure TForm1.Timer1Timer(Sender: TObject); // MENJALANKAN PROSES ANTRIAN var int1,int2,int3,i: integer; begin if Edit1.Text = '0' then else Edit1.Text:= IntToStr(StrToInt(Edit1.Text)-1); if Edit2.Text = '0' then else Edit2.Text:= IntToStr(StrToInt(Edit2.Text)-1); if Edit3.Text = '0' then else Edit3.Text:= IntToStr(StrToInt(Edit3.Text)-1); end; procedure TForm1.Button1Click(Sender: TObject); // MENJALANKAN PROSES ANTRIAN var int1,int2,int3,i: Integer; begin ListBox1.ItemIndex:= 0; if ( ListBox1.ItemIndex = -1 ) then begin if MessageDlg('TUNGGU ANTRIAN!' Cerere demisie model downloads.
Software Aplikasi Antrian: AntrianKu versi Free oleh StufiMedia Tinggalkan komentar » AntrianKu Versi Free adalah software untuk antrian yang dapat digunakan secara gratis selama bukan untuk kegiatan komersial (diperjual/belikan).