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…
- Habis itu kita klik timer… itu di pilihan system dan pilih timer 2 buah kiri dan kanan..
- Dan pilih date time piker…
sekian terima kasih...
Salam IT
Your home computer serves as a gateway to a universe of information. Along with this extraordinary capability come the risks of losing data, falling prey to malicious software and leaving the door open to identity theft. Safeguard your computer and protect your family by using security software that minimizes or eliminates these risks.
If you’re a Windows user, here is one way to delete unused files so as to free your hard drive of space. This is also important to do after an update of your operating system. Each update creates “shadow copies” or backup snapshots which can take up a lot of space. What you will do is to click the Windows Start button at the bottom left corner. Choose “All Programs.” From the menu, selext “Accessories” and then “System Tools.” In the “System Tools” menu, click “Disk Cleanup.”.jpg)
Backing up your data and important files is a crucial part of computer maintenance, especially on laptops as they are more prone to damage or theft than desktops. Windows 7s built-in tool, called Backup and Restore, can automatically manage regular backups for you, saving your data to an external source such as an external hard drive, network location or even a blank DVD. For scheduled auto-backups, use the Task Scheduler to set reminders for yourself to connect an external backup source.
.jpg)
Samsung offers several choices for small LCD TV televisions.
hi teman2 ada kah di antara kalian yang bekerja di super market yang memduduki jabatan sebagai kasir…
