Contoh Form dan Desain Macro-nya

Form Menu Utama

Perintah-Perintah pada ListBox Delphi

Listbox1.Items. Add ( . . . ) ;
Perintah ini menyatakan bahwa listbox1 itemnya akan ditambah, dengan sumber data yang ada di dalam kurung. Sumber data dari dalam kurung dapat berupa data dari obyek lainnya mis. edit1.text atau berupa text langsung apabila dikelilingi tanda kutip satu

Listbox1.Items.Count
Perintah ini untuk menghitung dan menampilkan jumlah item listbox, data yang dihasilkan bersifat numerik, sehingga untuk ditampilkan pada kotak edit / label harus dikenakan fungsi str / inttostr

Listbox2.DeleteSelected;
Perintah ini untuk menghapus suatu item yang dipilih pada listbox2


Listbox2.ItemIndex;
Perintah ini untuk melihat nomor urut item yang dipilih, nomor urut item dimulai dari 0

Listbox1.Items
Perintah ini tidak dapat berdiri sendiri, biasanya dikombinasikan dengan Listbox1.itemindex, yang berfungsi untuk menampilkan teks suatu item berdasarkan nomor urut item yang dipilih

listbox1.Items.Clear;
Perintah ini digunakan untuk menghapus seluruh item dari dalam Listbox

if listbox1.itemindex=-1 then
Maksudnya apabila urutan nomor item dimulai dari 0,1,2,dst , maka nilai -1 menyatakan tidak ada nomor urutnya atau tidak ada item yang dipilih dari listbox1 tersebut

if edit1.Text='' then

Maksudnya apabila edit1 tidak ada isinya

with Application do
begin
MessageBox ( ' . . . ' , ' . . . ' ) ;
RestoreTopMosts;
end
Adalah sintax atau rumusan untuk menampilkan kotak pesan

Contoh soal gabungan chechbox, radiobutton atau radiogroup Delphi

Nama, Jumlah Beli, Barang dan Diskon diinput.
Buku Dan Pensil dibentuk dengan radiobutton, buku seharga 3000 dan pensil 2000.
Bayar diperoleh dari Jumlah beli dikali harga barang.
Diskon dibentuk dengan radiogroup, sedangkan nilai Diskon diperoleh dari Bayar dikali pilihan diskon yang dipilih.
Bayar diperoleh dari Bayar dikurangi Diskon.

procedure TForm1.Button1Click(Sender: TObject);

var a , b , c , d : integer ;

e , f : real ;

g , h : string ;

begin

val ( edit2.text , a , b ) ;

if buku.checked = true then

c := a * 3000 ;

if pensil.checked = true then

c := a * 2000 ;

edit3.text := inttostr ( c ) ;

if radiogroup1.itemindex = 0 then

e := c * 5 / 100 ;

if radiogroup1.ItemIndex = 1 then

e := c * 10 / 100 ;

str ( e : 5 : 2 , g ) ;

edit4.text := g ;

f := c - e ;

str ( f : 5 : 2 , h ) ;

edit5.text := h ;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

application.terminate

end;

 

 Nama Langganan, Jumlah Beli, Jenis Barang dan Keanggotaan diinput.
Jenis Barang dibentuk dengan radiogroup, Buku seharga 5000, Pensil seharga 2000 dan Penghapus seharga 1000.
Harga diperoleh dari Jumlah beli dikali harga dari Jenis Barang.
Keanggotaan dibentuk dengan radiobutton, jika Member mendapat diskon 10% sedangkan Non Member tidak mendapatkan potongan.
Harga diperoleh dari Jumlah Beli dikali harga dari Jenis Barang.
Diskon  diperoleh dari Harga dikali besar persentase diskon.
Bayar diperoleh dari Harga dikurangi Diskon.

procedure TForm1.Button1Click(Sender: TObject);

var a , b , c , d : integer ;

e , f , h , j : real ;

g , i : string ;

begin

val ( edit2.text , a , b ) ;

if radiogroup1.ItemIndex = 0 then c := 5000 ;

if radiogroup1.ItemIndex = 1 then c := 2000 ;

if radiogroup1.ItemIndex = 2 then c := 1000 ;

d := a * c ;

edit3.text := inttostr ( d ) ;

if radiobutton1.Checked = true then e := 0.1 ;

if radiobutton2.Checked = true then e := 0 ;

f := e * d ;

str ( f : 5 : 2 , g ) ;

edit4.text := g ;

h := f - d ;

j := abs ( h ) ;

str ( j : 5 : 2 , i ) ;

edit5.text := i ;

end;

Bangun  dibentuk dengan radiogroup, jika dipilih Lingkaran pada Input, tampil keterangan Jari-jari, sedangkan jika dipilih Persegi  pada Input, tampil keterangan Sisi.

Jika dipilih Bangun Lingkaran maka yang dicari Luas dan Keliling lingkaran.

Jika dipilih Bangun Persegi maka yang dicari Luas dan Keliling persegi.

procedure TForm1.Button1Click(Sender: TObject);

var a , b : integer ;

d , e : real ;

f , g : string ;

begin

val ( edit1.text , a , b ) ;

if radiogroup1.itemindex = 0 then

d := pi * a * a ;

if radiogroup1.itemindex = 0 then

e := 2 * 3.14 *a ;

if radiogroup1.itemindex = 1 then

d := a * a ;

if radiogroup1.itemindex = 1 then

e := a * 4 ;

str ( d : 5 : 2 , f ) ;

str ( e : 5 : 2 , g ) ;

edit2.text := f ;

edit3.text := g ;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if radiogroup1.itemindex = 0 then

label1.Caption := ' Jari-jari ' ;

if radiogroup1.itemindex = 1 then

label1.caption := ' Sisi ' ;

end;

 

Bangun  dibentuk dengan radiobutton, jika dipilih Persegi Panjang tampil keterangan pada Input Panjang  dab Lebar, sedangkan jika dipilih Segitiga tampil keterangan pada Input Alas dan Tinggi.

Pilihan dibuat menggunakan radiogroup, jika pada Pilihan dipilih Luas maka dicari luas dari yang dipilih pada Bangun sedangkan jika pada Pilihan dipilih Keliling maka dicari keliling dari yang dipilih pada Bangun.

procedure TForm1.Button1Click(Sender: TObject);

var a , b , c : integer ;

d , e : real ;

f , g : string ;

begin

val ( edit1.text , a , c ) ;

val ( edit2.text , b , c ) ;

if radiobutton1.Checked = true then

if radiogroup1.itemindex = 0 then

d := a * b else

e := a + b + a + b ;

if radiobutton2.Checked = true then

if radiogroup1.itemindex = 0 then

d := a * b / 2 else

e := a + 2 * ( sqrt ( sqr ( b ) + sqr ( a / 2 ) ) );

str ( d : 5 : 2 , f  ) ;

str ( e : 5 : 2 , g ) ;

if radiogroup1.ItemIndex = 0 then

edit3.text :=  f ;

if radiogroup1.ItemIndex = 1 then

edit3.text := g ;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if radiobutton1.checked then

begin
label1.Caption := ' Panjang ';

label2.Caption := ' Lebar ' ;

end 
if radiobutton2.checked = 1 then

label1.caption := ' Sisi ' ;

label2.Caption := ' Lebar ' ;

end
end ;