contoh program Kasir Sederhana (Delphi 7)

Assalamualaikum saya sekarang akan membagi cara membuat kasir sederhana berikut kodeing nya dan screen shootnya






yang di buthkan
3 buah edit
1 combobox yang item nya(PCS dan LUSIN)
4 Label
4 buah button
2 panel

dan berikut kodingnan nya

procedure Tkasir.FormCreate(Sender: TObject);
begin
cb.Items.Clear;
cb.Items.Add('LUSIN');
cb.Items.Add('PCS');
button2.Enabled:=false;
button3.Enabled:=false;
end;

procedure Tkasir.Button1Click(Sender: TObject);
var
harga,jumlah,satuan,total,total1:integer;
kode:integer;
begin
if (edit1.Text='') or (edit2.Text='') or
(edit3.Text='') or (cb.Text='')  then
begin
messagedlg('silahkan lakukan transaksi dahulu',mterror,[mbok],0);
edit1.SetFocus;
exit;
end
else
begin
val(edit2.Text,harga,kode);
val(edit3.Text,jumlah,kode);
total:=harga*jumlah;
if cb.Text='LUSIN' THEN
total1:=total*12 ;
if cb.Text='PCS' then
total1:=total*1;
label5.Caption:='Rp '+format('%.0n',[total1+0.0]);
end;
end;

procedure Tkasir.Button4Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
cb.Text:='';
label5.Caption:='Rp 0';
edit1.SetFocus;
end;

end.


dan yang mao contoh program nya silah kan ambil
di bawah ini
Download

Read More ->>

Cara Membuat Jam Delphi 7

Assalamualaikum wr wb
saya sekarang mao ngshare cara bagai mana
membuat jam di delphi 7 menggunakan label

bahan
2 buah label
1 buah timer yg di system

dan ini gambar nya
sebelum

dan sesudah nya di exekusi


berikut kodeingnya

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=timetostr(now);
if label1.Caption<=inttostr(12) then
label2.Caption:='AM' ELSE
if label1.Caption>=inttostr(12) then
label2.Caption:='PM';
end;

end.


dan yang mao download silahkan sisini
DOWNLOAD

Read More ->>

program kalkulator sederhana (delphi 7)

Asalamualaikum Wr Wb

Dengan Rahmat Allah SWT saya mempostingkan blog pertama saya

Mari kita Mulai Belajar Delphi 7 Dari Awal

Dan mulai dari yang sederhana dan ini salah satu nya yaitu saya akan sharing tentang

Cara membuat kalkulator sederhana

Berikut koding nya dan SS nya

Yang dibutuhkan

2 buah edit

7 buah button

    2panel

   1 statusbar

Saya disini menggunakan variable global

Maksuny variable global itu yaitu variable yang bisa di pakai oleh  seluruh procedure

Dan berikut kodingnya
dan bagi yang mao ngdownload silahkan disini

Kakulator.rar

Read More ->>