hi teman2 ada kah di antara kalian yang bekerja di super market yang memduduki jabatan sebagai kasir…kali ini saya akan menampakkan hasil kerja saya yang telah saya buat suatu program melihat harga barang dengan praktis…
kalian tidak perlu lagi menghitung berapa harga barang yang telah pelanggan kalian membeli barang tersebut…
ini rumus nya…
var
d:real; a,b,c:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=a*b;
edit3.Text:=IntToStr(c);
if c < 10000 then
begin
d:=c*0.00;
edit5.Text:=floatToStr(d);
edit5.Text := FormatCurr(Rp, #.00,d); // format uang dalam Rp.
end
else if c = 500000 then
begin
d:=c*0.15;
edit5.Text:=floatTostr(d);
edit5.Text := FormatCurr(Rp, #.00,d);
end
else if c > 500000 then
d:=c*0.25;
edit5.Text:=floatTostr(d);
edit5.Text := FormatCurr(Rp, #.00,d);
e:=c-d;
edit6.Text:=floatTostr(e);
edit3.Text := FormatCurr(Rp, #.00,c);
edit6.Text := FormatCurr(Rp, #.00,e);
end;
procedure TForm_Kasir.BtupClick(Sender: TObject);
begin
close;
end;
procedure TForm_Kasir.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
LTime.Caption := str;
if namaberjalan.left = -150 then namaberjalan.Left := 360; //text berjalan
namaberjalan.Left := namaberjalan.Left-1;
end;
procedure TForm_Kasir.BKemClick(Sender: TObject);
var
f:integer;g:real;
begin
f:=strToint(edit7.Text);
edit7.Text := FormatCurr(Rp, #.00,f); //format Rp.
g:=f-e;
edit8.Text:=floatTostr(g);
edit8.Text := FormatCurr(Rp, #.00,g);
end;
procedure TForm_Kasir.BBtupClick(Sender: TObject);
begin
if MessageDlg(Benarkah anda ingin keluar....!!!!,
mtConfirmation, [mbYes, mbNo], 0, ) = mrYes then
begin
MessageDlg(Terima Kasih.....!!!!!, mtInformation,
[mbOk], 0,);
close;
Form_Kasir.Close;
end;
end;
procedure TForm_Kasir.Button2KeyPress(Sender: TObject; var Key: Char);
begin
//edit1.Clear;
// edit2.Clear;
//edit3.Clear;
// edit4.Clear;
// edit5.Clear;
// edit6.Clear;
// edit7.Clear;
// edit8.Clear;
end;
procedure TForm_Kasir.Timer2Timer(Sender: TObject);
begin
counter:=counter+1;
If (counter >= 0) And (counter < 2) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clskyblue;
end;
If (counter >= 3) And (counter < 4) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clblue;
end;
If (counter >= 5) And (counter < 6) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clcream;
end;
If (counter >= 7) And (counter < 8) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clred;
end;
If (counter >= 9) And (counter < 10) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clgreen;
end;
If (counter >= 11) And (counter < 12) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := claqua;
end;
If (counter >= 13) And (counter < 14) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clyellow;
end;
If (counter >= 15) And (counter < 16) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clfuchsia;
end;
If (counter >= 17) And (counter < 18) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := cllime;
end;
If (counter >= 19) And (counter < 20) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clsilver;
end;
If (counter >= 21) And (counter < 22) Then
begin
LKasir.Caption := KASIR;
LKasir.Font.Color := clWhite;
end;
end;
procedure TForm_Kasir.Button1Click(Sender: TObject);
begin
edit1.Clear; // format pembersih
edit2.Clear;
edit3.Clear;
edit4.Clear ;
edit5.Clear ;
edit6.Clear ;
edit7.Clear ;
edit8.Clear
end;
procedure TForm_Kasir.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [a..z]) or (key in [A..Z]) then
key :=#0;
end;
procedure TForm_Kasir.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [0..9]) then
key :=#0;
end;
procedure TForm_Kasir.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [0..9]) then
key :=#0;
end;
procedure TForm_Kasir.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in [0..9]) then
key :=#0;
end;
end.
Berikut adalah langkah nya…
- Buka software delphi 7 di laptop atau komputer
- Pilih File → New → Form . Setelah itu akan muncul form baru yang siap untuk digunakan memprogram.
- Klik ab untuk mengisi nilai panjang dan lebar yang diinginkan
- Untuk menghilangkan kata “Edit1” dan “Edit2” pada kolom dapat dilakukan dengan menghapus kata “Edit1” di Text pada toolbar Object Inspector
-
Klik ok untuk membuat “Button” untuk tombol : clear all,tutup, pembayaran, hitung…
Klik ok untuk membuat “Button” untuk tombol : clear all,tutup, pembayaran, hitung…
- Habis itu kita klik timer… itu di pilihan system dan pilih timer 2 buah kiri dan kanan..
- Dan pilih date time piker…
Salam IT
0 komentar:
Posting Komentar