Form Operator ( Latihan 2 )

a.Desain Properties

Object Name Caption
Label 1 Label 1 Program pengenalan dasar operator Delphi
Label 2 Label 2 Nilai Praktek I
Label 3 Label3 Nilai Praktek II
Label 4 Label4 Nilai Perhitungan
Label5 Label5 Hasil
Label6 Label6 Hasil
Label7 Label7 Hasil
Label8 Label8 Hasil


Object Name Text
Edit1 Nil1 -
Edit2 Nil2 -
Edit3 Ehtambah -
Edit4 ehkali -
Edit5 Ehbagi -
Edit6 ehkurang -

Object Name Caption
Button1 Btambah Tambah
Button2 Bkali Kali
Button3 Bbagi Bagi
Button4 Bkurang Kurang
Button5 Bclose Close


b. Listing Program

Catatan =
Dalam bahasa pemograman Delphi semua data yang diinput melalui edit box dideklarasikan dengan tipe data string, sehingga ketika kita akan melakukan proses perkalian atau pengurangan kita tidak bisa mengalikan secara langsung edit box yang dimaksud tetap kita perlu merubah menjadi nilai dengan tipe data yang dapat dikalikan.

1. Program Tambah

Digunakan untuk menampilkan hasil penjumlahan antara nilai praktek 1 dengan nilai praktek II, cara double klik pada buton tambah dan tuliskan kode berikut ini =

procedureTForm2.BtambahClick(Sender: TObject);
var
nil1, nil2 : real;
tambah: real;
begin
nil1 := strtofloat(enil1.text);
nil2 := strtofloat(enil2.text);
tambah := nil1 + nil2;
ehtambah.text := floattostr(tambah);
end;



Catatan
Var
Nil1,nil2 : real;
Tambah ; real;

Var digunakan untuk mendeklarasikan suatu nama varibael yag dibuat oleh programmer yang berfungsi untuk menyimpan nilai atau data selama proses program berjalan.

Nil1,nil2 dan tambah adalah nama variabel baru yang dibentuk oleh progrmmer

Real adalah nama dari sekeian banyak tipe data yang dikenal dalam bahasa peograman Delphi. Cakupan tipe data real adalah membaca bilangan angka dalam bentuk decimal.


Strtofloat adalah fungsi yang digunakan merubah nilai dari tipe data string menjadi tipe data numeric.

Floattostr adalah fungsi yang digunakan merubah nilai pecahan menjadi data string.

2. Program untuk kali

procedure TForm2.BkaliClick(Sender: TObject);
var
bil1,bil2:real;
kali : real;
begin
bil1 := strtofloat(enil1.text);
bil2 := strtofloat(enil2.text);
kali := bil1*bil2;
ehkali.text := floattostr(kali);
{ehkali.text := inttostr(strtoint(enil1.text) * strtoint(enil2.text));}
end;

3 Program untuk bagi

procedureTForm2.BbagiClick(Sender: TObject);
var
bil1,bil2 : real;
bagi : real;
begin
bil1 := strtofloat(enil1.Text);
bil2 := strtofloat(enil2.Text);
bagi := bil1/bil2;

ehbagi.Text := floattostr(bagi);
end;

4. Program untuk kurang

procedureTForm2.BkurangClick(Sender: TObject);
var
bil1,bil2,kurang : real;
begin
bil1 := strtofloat(enil1.Text);
bil2 := strtofloat(enil2.Text);
kurang := bil1 - bil2;
ekurang.Text := floattostr(kurang);
end;

5. Program untuk keluar

procedureTForm2.bcloseClick(Sender: TObject);
begin
messageDlg('Ingin Menutup form',mterror, [mbok],0);
close;
end;
Catatan
Messagedlg adalah penggalan program yang digunakan untuk menampilkan kotak pesan.

Close digunakan untuk menutup form.

2.5.5. Latihan Program Pembayaran

a. Form setelah dijalankan



Gambar 2.3 Gambar Toko

b. Ketentuan yang diinginkan pemilik toko

1. Nama barang, harga barang dan jumlah merupakan media input bagi user mengenai detail nama barang, harga barang serta jumlah yang dibeli.
2. Bayar digunakan untuk menampilkan perkalian dari jumlah yang dibeli dengan harga barang, dengan cara mengklik hitung.
3. Untuk menutup form user tinggal mengklik exit, dengan menampilkan pesan untuk user.

Catatan :
1. Untuk Menambah Form Baru pilih dan klik icon New Form
2. Untuk Mengaktifkan Form Yang Pernah Dibuat adalah pilih dan klik View Form , pada jendela View Form pilih form yang ingin diaktifkan dan klik OK
3. Untuk Menjalankan Form yang diinginkan dari beberapa form yang telah dibuat adalah dengan cara pilh Project| option. Pada combo Project Option, pilih dan klik form yang diingikan dengan mengaktifkan Combo Main form. Setelah selesai klik OK.
4. Untuk menyimpan semua project pilih dan klik Save All.