cara membuat syntax kasir sederhana dalam delphi 7.2

dalam dunia dunia bisnis, pasti ada yang namanya kasir, ga mungkin ga ada. dulu kasir masih menggunakan perhitungan manual dan butuh waktu yang yah bisa dibilang lama. tetapi sekarang Teknologi semakin berkembang. seperti komputer.
Sekarang, di era milenium ini yang namanya komputer itu seperti suatu kebutuhan wajib bagi para PEMBISNIS.
disini aku ga akan mbahas cara berbisnis melainkan akan memberitahukan kepada anda, bahwa program kasir yang kita liat di minimarket, suwalayan, atau toko-toko modern bisa kita buat dan kembangkan sendiri.
dalam blog ini aku akan menggunkan delphi 7.2.
misal kalian belum punya bisa
SEDOT DISINIdownload dan cara INSTALnya

OK, aku akan mulai membuat program tersebut. chek it out.

1. buka delphi anda, untuk yang belum punya bisa download dengan klik kata 'disini'
2. setelah pintu delphi tebuka langkah kedua

• klik file >> new >> applikasion (akan muncul lebar kerja)
• nah ini enaknya delphi, kita tinggal tempel untuk tampilannya, karena sudah berbasis GUI.
• kemudian yang kita butuhkan adalah RADIOGROUP beberapa EDIT box, beberapa LABEL, dan satu CUSTOM. (EDIT berfungsi untuk menampilkan inputan dan output tergantung yang biki. LABEL berfungsi untuk memberi nama, misal nama barang, harga, dll. sedangkan CUSTOM berfungsi untuk mengechek/mengeksekusi).
• setelah semua di tempel dan ganti nama LABEL, klik aja tombol CUSTOM 2x. maka akan muncul lembar untuk menulis syntak.
• ini untuk syntaknya akan aku kasih liat

procedure TForm1.Button1Click(Sender: TObject); {ga usah di tulis karena udah ada otomatis}

var jumlahbarang,hargabarang, totalbarang: real;{dimulai aja dari sini}

begin

jumlahbarang:= StrToFloat(edit4.text);

hargabarang:=strtofloat(edit3.Text);

totalbarang:=strtofloat(edit5.Text);

case radiogroup1.ItemIndex of

0:

if radiogroup1.itemindex=0 then

totalbarang:=(hargabarang*jumlahbarang)-(hargabarang*jumlahbarang*0.15);

else

totalbarang:=(hargabarang*jumlahbarang)-(hargabarang*jumlahbarang*0.20);

end;

edit5.text:=floattostr(totalbarang);

end;

end.

untuk keterngannya:

var : untuk menentukan tipe data

begin end : untuk memulai dan mengakhiri sebuah statment

if then else: bisa dibilang suatu pengandaian, karena {if = jika},{ then=maka} dan {else=yang lain/bernilai false/salah}.

str (dibaca STRING) digunakan untuk type yang berupa huruf. intinya STRING = KATA.

float (dibaca FLUT) digunakan untuk tipe yang berupa angka  yang berkaitan dengan DUIT.

case (dibaca KES) digunakan untuk membuat suatu pilihan.

* = simbol perkalian

'titik dua sama dengan (:=)' sama seperti simbol (=)

nah itulah dia... selamat mencoba