Penggunaan Tombol ComboBox

ComboBox Secara tradisional, itu adalah kombinasi dari daftar dropdown atau kotak daftar dan single-line diedit textbox , yang memungkinkan pengguna untuk mengetikkan nilai secara langsung atau memilih nilai dari daftar. Istilah "combo box" kadang-kadang digunakan untuk berarti "daftar drop-down" (Jukka, 2007). Korpela)

Yang pertama kita buat adalah mendesain tampilan program seperti berikut

Tulisan Nim,nama mahasiswa,jurusan dan biaya menggunakan label sedangkan kotak dalognya menggunakan Edit

Kotak dialog pada jurusan menggunakan combobox

 

Setelah itu kita membuat codingan pada checkbox 

Klik pada checkbox dan tulis codingan berikut

procedure TForm1.ComboBox1Change(Sender: TObject);

begin
IF COMBOBOX1.TEXT='S1-MI' THEN
BEGIN
EDIT3.Text :='S1 MANAJEMEN INFORMATIKA';
EDIT4.Text :='3500000';
END
ELSE
IF COMBOBOX1.Text ='D3-MI' THEN
BEGIN
EDIT3.Text :='D3 MANAJEMEN INFORMATIKA';
EDIT4.Text :='2750000';
END
ELSE
IF COMBOBOX1.Text ='S1-TI' THEN
BEGIN
EDIT3.Text :='S1 TEKNIK INFORMATIKA';
EDIT4.Text :='3000000';
end;
END;

Berikut ini tampilan combobox saat di Run

Untuk Button Input dan Keluar berikut ini codingannya

procedure TForm1.Button1Click(Sender: TObject);

begin
COMBOBOX1.Text :='';
EDIT1.Text :='';
EDIT2.Text :='';
EDIT3.Text :='';
EDIT4.Text :='';
EDIT1.SETFOCUS;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
APPLICATION.Terminate;
end;

end.

Kik Button Input untuk menghapus / menginput ulang

Klik Button Keluar untuk menutup program

Sekian Artikel Kali Ini

Semoga Bermanfaat

Trimakasih :)

Read More

Membuat Program Struk Pembayaran

Yang pertama kita buat adalah mendesain tampilan program seperti berikut

Struk pembayaran dibuat menggunakan GrupBox

Nama Barang , Jumlah , Harga Barang , Total bayar dibuat menggunakan Label

Hitung dan Keluar dibuat menggunakan Button

Membuat codingan pada button hitung ,jadi saat kita mengklik butoon hitung total bayar akan otomatis dihitung

        Klik pada Button Hitung

procedure TForm1.Button1Click(Sender:TObject)

var

NAMA :STRING[20];

JUMLAH,HARGA,BAYAR:REAL;

begin

JUMLAH:=STRTOFLOAT(EDIT2.TEXT);

HARGA:=STRTOFLOAT(EDIT3.TEXT);

BAYAR:=STRTOFLOAT(EDIT4.TEXT);

EDIT4.TEXT:=FLOATTOSTR(BAYAR);

end;

         Klik pada Button Keluar

procedure TForm1.Button2Click(Sender:TObject);

begin

APPLICATION.TERMINATE

end;

End.

Seperti pada gambar dibawah ini

Setelah itu klik Run maka muncul seperti gambar dibawah ini

Isilah nama barang,jumlah,dan harga barang ,contoh seperti gambar dibawah ini

Klik pada button hitung ,maka total harga akan otomatis terhitung

Itulah cara membuat button hitung / membuat program struk pembayaran :)

Klik Button Keluar untuk menutup program

Sekian Artikel Kali Ini

Semoga Bermanfaat

Trimakasih :)

Read More