Aplikasi Delphi Sederhana : Program Nota

Pada kesempatan kali ini saya akan membuat lagi satu aplikasi delphi sederhana lagi yaitu Program Nota Sederhana . Aplikasi ini sangat sederhana jadi sangat mudah untuk dibuat dan dapat dijadikan media belajar buat temen temen yang baru mulai belajar delphi . Aplikasi Pada kali ini lebih banyak menggunakan operasi aritmatika . wah kok kurang tertata ya bahasanya  . .  hehehe harap maklum . .
Langsung aja kita buat programnya .
Yang pertama kita buat form seperti dibawah ini yang terdiri dari komponen
 >  1 Panel
 >  1 Groupbox
 >  9 Label
 >  6 Edit
 >  4 Memo
 >  3 Button
 >  1 Timer

- yang pertama pilih panel lalu ubah propertisnya

     >  caption : Program Nota Sederhana

- selanjutnya pilih groupbox dan ganti propertisnya

    > caption : Nota Pembelian

- lalu ubah caption semua label seperti pada gambar diatas

- letakkan 6 komponen edit dibawah label 'HARGA SATUAN' dan 'BANYAK'

- Ubah edit1 pada propertisnya

    > text : Rp 200.000,-

- Dilanjutkan juga untuk edit2 dan edit3.

- Untuk edit4,edit5,edit6 di propertisnya pada text dihapus saja agar tampilan di program terlihat kosong

- Selanjutnya masukkan 4 komponen memo seperti pada gambar dan ubah propertisnya

    > Lines      : kosong (Dihapus saja)

    > Aligment : taRightJustify

- Masukkan 3 komponen bitbtn (pada palet additional) dan ubah captionnya seperti di gambar

- Masukkan komponen timer

- selanjutnya double klik pada komponen button 'bersihkan' dan masukkan syntax dibawah ini :

Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;

- selanjutnya double klik pada komponen button 'hitung' dan masukkan syntax dibawah ini :

Memo1.Text:= IntToStr(StrToInt(Edit4.Text)*200000);
Memo2.Text:= IntToStr(StrToInt(Edit5.Text)*150000);
Memo3.Text:= IntToStr(StrToInt(Edit6.Text)*100000);

Memo4.Text:= IntToStr(StrToInt(Memo1.Text)+StrToInt(Memo2.Text)+StrToInt(Memo3.Text));
BitBtn3.Visible:=true;

- selanjutnya double klik pada komponen button 'keluar' dan masukkan syntax dibawah ini :

close;

- selanjutnya double klik pada komponen timer dan masukkan syntax dibawah ini: 

Label9.Caption:=DateTimeToStr(Now);

Kemudian jalankan programnya dengan menekan F9 pada keyboard .

selesai

Selamat mencoba dan Semoga bermanfaat .

Lihat juga artikel yang lain:

Lampu Lalu-Lintas Sederhana

Baca Juga Artikel Yang Berkaitan