Minggu, Mei 27, 2012
di
22.19
|
Program ini aku buat hanya untuk memenuhi tugas delphi 7 dari dosen ini hanya contoh sederhana mungkin masih perlu banyak perbaikan dari teman-teman moga aja bisa menbantu teman!!
COODING:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
edit1.Text:=combobox1.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
begin
nilai:=1;
for nilai:= 1 to 3 do
begin
listbox1.Items.add(edit1.Text)
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.Clear;
edit1.Clear;
combobox1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
Diposting oleh
Unknown
0 komentar:
Posting Komentar