Aplikasi Antrian Bagian sebelumnya saya sudah membahas sedikit. Dalam kehiduypan sehari-hari, misalnya saat Anda mengantri di loket untuk membeli tiket. Artikel Download Kumpulan Program (VB)Visual Basic 6 Gratis ini dipublish.
Procedure TForm1.Timer1Timer(Sender: TObject); // MENJALANKAN PROSES ANTRIANvar int1,int2,int3,i: integer;beginif Edit1.Text = '0' then elseEdit1.Text:= IntToStr(StrToInt(Edit1.Text)-1);if Edit2.Text = '0' then elseEdit2.Text:= IntToStr(StrToInt(Edit2.Text)-1);if Edit3.Text = '0' then elseEdit3.Text:= IntToStr(StrToInt(Edit3.Text)-1);end;procedure TForm1.Button1Click(Sender: TObject); // MENJALANKAN PROSES ANTRIANvarint1,int2,int3,i: Integer;beginListBox1.ItemIndex:= 0;if ( ListBox1.ItemIndex = -1 ) thenbeginif MessageDlg('TUNGGU ANTRIAN!'
Comments are closed.
|
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
March 2023
Categories |