Lewati navigasi

Album Foto


Program Kasir


Program Kasir

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan, sSkinManager, sLabel;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
GroupBox3: TGroupBox;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
GroupBox4: TGroupBox;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
XPManifest1: TXPManifest;
sSkinManager1: TsSkinManager;
Timer1: TTimer;
Label6: TLabel;
Memo1: TMemo;
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure ComboBox5Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hrg1,hrg2,hrg3,hrg4,hrg5,tot1,tot2,tot3,tot4,tot5,totall,
dskn,byr,kmbl,p:currency;
jml1,jml2,jml3,jml4,jml5,j,l,m,n,o:integer;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Text:=’Pilih’;
ComboBox2.Text:=’Pilih’;
ComboBox3.Text:=’Pilih’;
ComboBox4.Text:=’Pilih’;
ComboBox5.Text:=’Pilih’;
Edit1.Enabled:=False;
Edit2.Enabled:=False;
Edit3.Enabled:=False;
Edit4.Enabled:=False;
Edit5.Enabled:=False;
Edit11.Enabled:=False;
Edit12.Enabled:=False;
Edit13.Enabled:=False;
Edit14.Enabled:=False;
Edit15.Enabled:=False;
Edit16.Enabled:=False;
Edit17.Enabled:=False;
Edit19.Enabled:=False;
Edit1.Text:=’0′;
Edit2.Text:=’0′;
Edit3.Text:=’0′;
Edit4.Text:=’0′;
Edit5.Text:=’0′;
Edit6.Text:=’0′;
Edit7.Text:=’0′;
Edit8.Text:=’0′;
Edit9.Text:=’0′;
Edit10.Text:=’0′;
Edit11.Text:=”;
Edit12.Text:=”;
Edit13.Text:=”;
Edit14.Text:=”;
Edit15.Text:=”;
Edit16.Text:=”;
Edit17.Text:=’0′;
Edit18.Text:=”;
Edit19.Text:=”;
Button2.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
hrg1:=StrToCurr(Edit1.Text);
hrg2:=StrToCurr(Edit2.Text);
hrg3:=StrToCurr(Edit3.Text);
hrg4:=StrToCurr(edit4.Text);
hrg5:=StrToCurr(Edit5.Text);
jml1:=StrToInt(Edit6.Text);
jml2:=StrToInt(Edit7.Text);
jml3:=StrToInt(Edit8.Text);
jml4:=StrToInt(Edit9.Text);
jml5:=StrToInt(Edit10.Text);
tot1:=hrg1*jml1;
tot2:=hrg2*jml2;
tot3:=hrg3*jml3;
tot4:=hrg4*jml4;
tot5:=hrg5*jml5;
Edit11.Text:=CurrToStr(tot1);
Edit12.Text:=CurrToStr(tot2);
Edit13.Text:=CurrToStr(tot3);
Edit14.Text:=CurrToStr(tot4);
Edit15.Text:=CurrToStr(tot5);
totall:=tot1+tot2+tot3+tot4;

Edit16.Text:=CurrToStr(totall);
Memo1.Lines.Add(‘Rincian’);
Memo1.Lines.Add(”);
Memo1.Lines.Add(‘Total Harga = ‘+CurrToStr(totall));
Memo1.Lines.Add(”);
p:=StrToCurr(Edit16.Text);

Memo1.Lines.Add(‘Diskon = ‘+FloatToStr(totall*0.1));
Memo1.Lines.Add(”);
if p>1 then
Button2.Enabled:=True;

if totall>=100000 then
begin
MessageDlg(‘Selamat Anda Mendapat Diskon’+#13+’Diskon Anda 10%’,mtInformation,[mbOK],0);
dskn:=totall*0.1;
Edit17.Text:=CurrToStr(totall-dskn);
Memo1.Lines.Add(‘Diskon Anda = ‘+CurrToStr(totall-dskn))
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label5.Caption:=FormatDateTime(‘hh:nn:ss ‘,Now);
Label6.Font.Color:= Trunc(clBlue*Random);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
Edit1.Text:=’800000′
else
if ComboBox1.ItemIndex=1 then
Edit1.Text:=’350000′
else
if ComboBox1.ItemIndex=2 then
Edit1.Text:=’600000′
else
if ComboBox1.ItemIndex=3 then
Edit1.Text:=’240000′
else
if ComboBox1.ItemIndex=4 then
Edit1.Text:=’100000′
else
if ComboBox1.ItemIndex=5 then
Edit1.Text:=’80000′
else
if ComboBox1.ItemIndex=6 then
Edit1.Text:=’40000′
else
if ComboBox1.ItemIndex=7 then
Edit1.Text:=’320000′
else
if ComboBox1.ItemIndex=8 then
Edit1.Text:=’550000′
else
if ComboBox1.ItemIndex=9 then
Edit1.Text:=’6000′
else
if ComboBox1.ItemIndex=10 then
Edit1.Text:=’60000′
else
if ComboBox1.ItemIndex=11 then
Edit1.Text:=’120000′
else
if ComboBox1.ItemIndex=12 then
Edit1.Text:=’60000′
else
if ComboBox1.ItemIndex=13 then
Edit1.Text:=’15000′
else
if ComboBox1.ItemIndex=14 then
Edit1.Text:=’40000′
else
if ComboBox1.ItemIndex=15 then
Edit1.Text:=’75000′
else
if ComboBox1.ItemIndex=16 then
Edit1.Text:=’15000′
else
if ComboBox1.ItemIndex=17 then
Edit1.Text:=’15000′
else
if ComboBox1.ItemIndex=18 then
Edit1.Text:=’69000′
else
if ComboBox1.ItemIndex=19 then
Edit1.Text:=’5000′
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.ItemIndex=0 then
Edit2.Text:=’800000′
else
if ComboBox2.ItemIndex=1 then
Edit2.Text:=’350000′
else
if ComboBox2.ItemIndex=2 then
Edit2.Text:=’600000′
else
if ComboBox2.ItemIndex=3 then
Edit2.Text:=’240000′
else
if ComboBox2.ItemIndex=4 then
Edit2.Text:=’100000′
else
if ComboBox2.ItemIndex=5 then
Edit2.Text:=’80000′
else
if ComboBox2.ItemIndex=6 then
Edit2.Text:=’40000′
else
if ComboBox2.ItemIndex=7 then
Edit2.Text:=’320000′
else
if ComboBox2.ItemIndex=8 then
Edit2.Text:=’550000′
else
if ComboBox2.ItemIndex=9 then
Edit2.Text:=’6000′
else
if ComboBox2.ItemIndex=10 then
Edit2.Text:=’60000′
else
if ComboBox2.ItemIndex=11 then
Edit2.Text:=’120000′
else
if ComboBox2.ItemIndex=12 then
Edit2.Text:=’60000′
else
if ComboBox2.ItemIndex=13 then
Edit2.Text:=’15000′
else
if ComboBox2.ItemIndex=14 then
Edit2.Text:=’40000′
else
if ComboBox2.ItemIndex=15 then
Edit2.Text:=’75000′
else
if ComboBox2.ItemIndex=16 then
Edit2.Text:=’15000′
else
if ComboBox2.ItemIndex=17 then
Edit2.Text:=’15000′
else
if ComboBox2.ItemIndex=18 then
Edit2.Text:=’69000′
else
if ComboBox2.ItemIndex=19 then
Edit2.Text:=’5000′
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if ComboBox3.ItemIndex=0 then
Edit3.Text:=’800000′
else
if ComboBox3.ItemIndex=1 then
Edit3.Text:=’350000′
else
if ComboBox3.ItemIndex=2 then
Edit3.Text:=’600000′
else
if ComboBox3.ItemIndex=3 then
Edit3.Text:=’240000′
else
if ComboBox3.ItemIndex=4 then
Edit3.Text:=’100000′
else
if ComboBox3.ItemIndex=5 then
Edit3.Text:=’80000′
else
if ComboBox3.ItemIndex=6 then
Edit3.Text:=’40000′
else
if ComboBox3.ItemIndex=7 then
Edit3.Text:=’320000′
else
if ComboBox3.ItemIndex=8 then
Edit3.Text:=’550000′
else
if ComboBox3.ItemIndex=9 then
Edit3.Text:=’6000′
else
if ComboBox3.ItemIndex=10 then
Edit3.Text:=’60000′
else
if ComboBox3.ItemIndex=11 then
Edit3.Text:=’120000′
else
if ComboBox3.ItemIndex=12 then
Edit3.Text:=’60000′
else
if ComboBox3.ItemIndex=13 then
Edit3.Text:=’15000′
else
if ComboBox3.ItemIndex=14 then
Edit3.Text:=’40000′
else
if ComboBox3.ItemIndex=15 then
Edit3.Text:=’75000′
else
if ComboBox3.ItemIndex=16 then
Edit3.Text:=’15000′
else
if ComboBox3.ItemIndex=17 then
Edit3.Text:=’15000′
else
if ComboBox3.ItemIndex=18 then
Edit3.Text:=’69000′
else
if ComboBox3.ItemIndex=19 then
Edit3.Text:=’5000′
end;

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
if ComboBox4.ItemIndex=0 then
Edit4.Text:=’800000′
else
if ComboBox4.ItemIndex=1 then
Edit4.Text:=’350000′
else
if ComboBox4.ItemIndex=2 then
Edit4.Text:=’600000′
else
if ComboBox4.ItemIndex=3 then
Edit4.Text:=’240000′
else
if ComboBox4.ItemIndex=4 then
Edit4.Text:=’100000′
else
if ComboBox4.ItemIndex=5 then
Edit4.Text:=’80000′
else
if ComboBox4.ItemIndex=6 then
Edit4.Text:=’40000′
else
if ComboBox4.ItemIndex=7 then
Edit4.Text:=’320000′
else
if ComboBox4.ItemIndex=8 then
Edit4.Text:=’550000′
else
if ComboBox4.ItemIndex=9 then
Edit4.Text:=’6000′
else
if ComboBox4.ItemIndex=10 then
Edit4.Text:=’60000′
else
if ComboBox4.ItemIndex=11 then
Edit4.Text:=’120000′
else
if ComboBox4.ItemIndex=12 then
Edit4.Text:=’60000′
else
if ComboBox4.ItemIndex=13 then
Edit4.Text:=’15000′
else
if ComboBox4.ItemIndex=14 then
Edit4.Text:=’40000′
else
if ComboBox4.ItemIndex=15 then
Edit4.Text:=’75000′
else
if ComboBox4.ItemIndex=16 then
Edit4.Text:=’15000′
else
if ComboBox4.ItemIndex=17 then
Edit4.Text:=’15000′
else
if ComboBox4.ItemIndex=18 then
Edit4.Text:=’69000′
else
if ComboBox4.ItemIndex=19 then
Edit4.Text:=’5000′
end;

procedure TForm1.ComboBox5Change(Sender: TObject);
begin
if ComboBox5.ItemIndex=0 then
Edit5.Text:=’800000′
else
if ComboBox5.ItemIndex=1 then
Edit5.Text:=’350000′
else
if ComboBox5.ItemIndex=2 then
Edit5.Text:=’600000′
else
if ComboBox5.ItemIndex=3 then
Edit5.Text:=’240000′
else
if ComboBox5.ItemIndex=4 then
Edit5.Text:=’100000′
else
if ComboBox5.ItemIndex=5 then
Edit5.Text:=’80000′
else
if ComboBox5.ItemIndex=6 then
Edit5.Text:=’40000′
else
if ComboBox5.ItemIndex=7 then
Edit5.Text:=’320000′
else
if ComboBox5.ItemIndex=8 then
Edit5.Text:=’550000′
else
if ComboBox5.ItemIndex=9 then
Edit5.Text:=’6000′
else
if ComboBox5.ItemIndex=10 then
Edit5.Text:=’60000′
else
if ComboBox5.ItemIndex=11 then
Edit5.Text:=’120000′
else
if ComboBox5.ItemIndex=12 then
Edit5.Text:=’60000′
else
if ComboBox5.ItemIndex=13 then
Edit5.Text:=’15000′
else
if ComboBox5.ItemIndex=14 then
Edit5.Text:=’40000′
else
if ComboBox5.ItemIndex=15 then
Edit5.Text:=’75000′
else
if ComboBox5.ItemIndex=16 then
Edit5.Text:=’15000′
else
if ComboBox5.ItemIndex=17 then
Edit5.Text:=’15000′
else
if ComboBox5.ItemIndex=18 then
Edit5.Text:=’69000′
else
if ComboBox5.ItemIndex=19 then
Edit5.Text:=’5000’
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
j:=StrToInt(Edit17.Text);
byr:=l-o;
o:=StrToInt(Edit16.Text);
l:=StrToInt(Edit18.Text);
m:=l-j;
n:=l-o;

if j=0 then
Edit19.Text:=CurrToStr(byr);
Edit19.Text:=CurrToStr(n);

if j>1 then
Edit19.Text:=CurrToStr(m);

if l>j then
MessageDlg(‘Terima Kasih’+#13+’Selamat Datang Kembali’,mtInformation,[mbOK],0);

if l<j then
MessageDlg('Maaf Uang Anda Kurang',mtError,[mbOK],0);

if l<j then
Edit19.Text:='Error' ;

if l=j then
Edit19.Text:='0';

if l=p then
Edit19.Text:='0';

if l=j then
MessageDlg('Terima Kasih'+#13+'Selamat Datang Kembali',mtInformation,[mbOK],0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox1.Text:='Pilih';
ComboBox2.Text:='Pilih';
ComboBox3.Text:='Pilih';
ComboBox4.Text:='Pilih';
ComboBox5.Text:='Pilih';
Edit16.Clear;
Edit17.Text:='0';
Edit18.Clear;
Edit19.Clear;
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
Edit5.Text:='0';
Edit6.Text:='0';
Edit7.Text:='0';
Edit8.Text:='0';
Edit9.Text:='0';
Edit10.Text:='0';
Edit11.Clear;
Edit12.Clear;
Edit13.Clear;
Edit14.Clear;
Edit15.Clear;
Button2.Enabled:=false;
end;

end.


free counters

Download PhotoScape Gratis


Tambahkan nama lain ke daftar editor freeware kaya fitur gambar: PhotoScape. Meskipun makan dan kebocoran tentang sebagai banyak memori seperti Firefox, editor ini sangat cocok untuk mereka membuat lompatan antara JPEG dan am-pro DSLR bekerja.

Mendukung RAW, serta semua format gambar lainnya besar dari JPEG dan PNG untuk animasi GIF. Muncul dengan prebuilt template bagi pengguna untuk membuat kolase foto, fumetti, dan komik web, dan memiliki seperangkat standar removal mata merah, cahaya / bayangan, dan fitur kontras-editing. Satu peringatan tentang pengolahan RAW: meskipun tampak seperti Anda dapat drag dan drop, konverter tidak berubah RAW ke JPEG, kecuali jika Anda memuat file RAW dari dalam navigator file asli. It’s a minor bug, tapi satu yang dapat membawa Anda untuk percaya bahwa tidak ada dukungan RAW sama sekali. Anda dapat juga batch mengedit gambar, menggabungkan mereka, dan mencetaknya satu demi satu atau beberapa sekaligus. Read More »

Download Safari 5 Gratis


Versi sebelumnya Safari untuk Windows secara dramatis mengubah sifat browser dari sesuatu yang belum selesai keingintahuan untuk alternatif dengan serius daging cepat. Ia tidak memiliki banyak fitur kustomisasi yang mendefinisikan kebanyakan browser lain, tapi fitur standar tertentu yang unik, seperti visual mengesankan, Situs Cover Top Arus-terinspirasi dan melihat sejarah, berhasil senilai check-out untuk lebih banyak pengguna selain penggemar hanya browser dan lesu tinjauan .

Though Safari 5 terus mendorong untuk kecepatan, mampu mengungguli (dengan beberapa tes) mesin JavaScript berdarah-tepi dari Google dan Opera, Apple terus-menerus menempatkan pengembangan fitur jauh di bawah tiang totem penting. Itu tidak berarti bahwa fitur baru telah diabaikan. Ada pilihan baru yang Reader arus bagaimana Anda membaca artikel, dukungan yang lebih luas untuk HTML5, dukungan default untuk pencarian di Bing, dan peningkatan kinerja. Namun, fitur baru terbesar dari mereka semua – Extensions – akan won’t tersedia sampai kemudian musim panas ini menurut Apple, dan tergantung pada apa yang Anda cari dalam browser, Safari dapat dilihat sebagai pilihan kurang banyak membantu. Read More »

Download Google Chrome Gratis


Google Chrome adalah browser yang menggabungkan desain minimal dengan teknologi canggih untuk membuat Web dengan lebih cepat, aman, dan lebih mudah. Gunakan satu kotak untuk semua – ketik di address bar dan mendapatkan saran-saran untuk pencarian dan halaman web. Thumbnail dari situs utama Anda memungkinkan Anda mengakses halaman favorit Anda dengan kecepatan kilat langsung dari tab baru. Desktop pintas memungkinkan Anda untuk memulai aplikasi Web favorit Anda langsung dari Anda desktop.Google Chrome tidak menggunakan jalur yang benar untuk plugin Java untuk Versi Java 6 Update 20. Read More »

Download Mozilla Firefox 3.6 Gratis


Mozilla Firefox adalah yang cepat, fitur lengkap Web browser. Firefox mencakup pop-up, tab-browsing, pencarian Google terpadu, disederhanakan kendali pribadi, jendela browser streamline yang menunjukkan lebih banyak halaman daripada browser lainnya dan sejumlah fitur tambahan yang bekerja dengan Anda untuk membantu Anda mendapatkan yang paling dari waktu Anda online
Versi 3.6.3 perbaikan masalah keamanan penting yang berpotensi dapat memungkinkan eksekusi kode jauh. Read More »

Download Opera 10.53 Gratis


Opera adalah browser web gratis dan inovatif yang memungkinkan Anda untuk pengalaman web pada istilah Anda. Temukan apa yang lebih dari 40 juta orang telah men-download cepat dialami oleh Opera dan browser internet yang aman. Versi terbaru Opera Web browser dilengkapi dengan streamline antarmuka baru, elegan dan banyak fitur keren yang inovatif, termasuk Opera Turbo, sebuah teknologi kompresi baru yang memecahkan rasa sakit dari koneksi yang lambat, dan tab yang lebih baik sebagai Opera terus merintis cara baru untuk menggunakan tab. Read More »

Download Avant Browser Gratis


Avant Browser memungkinkan pengguna untuk menelusuri beberapa situs Web secara bersamaan dan untuk memblok semua halaman pop-up yang tidak diinginkan dan iklan Flash secara otomatis. Debu yang terintegrasi membantu pengguna menghapus semua jejak dan menjaga privasi. Built-in Yahoo dan mesin pencari Google memungkinkan pengguna untuk mencari halaman Web, gambar, grup, direktori, lirik, perangkat lunak, dan berita di Internet. Avant Browser menyediakan pilihan untuk memblokir download media Flash, gambar, video, suara, dan komponen ActiveX, sehingga pengguna dapat menggunakan bandwidth secara efisien dan mempercepat loading halaman. Semua halaman dibuka dapat dihentikan, segar, ditutup, atau diatur dengan satu klik. Read More »

Download Internet Explorer 9 Gratis


Versi preview Internet Explorer 9 adalah ditujukan untuk para pengembang Web dan Web profesional lainnya. Hal ini tidak dimaksudkan untuk menjadi produk fungsional untuk surfer Web.

Apa yang baru dalam versi ini: Read More »

Download Adobe Flash Player Gratis


Flash Player 10 adalah ringan, sangat ekspresif klien runtime yang memberikan pengalaman pengguna yang kuat dan konsisten di seluruh sistem operasi utama, browser, ponsel, dan perangkat. Adobe Flash Player adalah perangkat lunak cross-platform plug-in browser yang memberikan pengalaman web terobosan dan diinstal pada lebih dari 98% dari desktop yang tersambung ke Internet. Flash Player 10 memperkenalkan 3D efek, penyaring kustom dan efek, dukungan teks maju, dan banyak lagi. Read More »

Download Nero Multimedia Suite 10 Gratis


Bagi mereka yang mencari untuk merobek, membakar, kembali, mengubah, dan mengatur media digital, Nero 10 memiliki alat untuk itu. Multimedia suite diperbaharui adalah sebagai komprehensif saat mereka datang, dan hard drive Anda akan merasakannya: file instalasi sangat besar (300MB) dan sekali Nero adalah pada mesin Anda, mengkonsumsi satu porsi besar dan kuat dari memori (1.5GB). Namun, mengingat semua yang dapat dilakukan, kita sulit sekali mengeluh. Read More »

Download Pro Evolution Soccer 2010 Gratis


Pro Evolution Soccer 2010 banyak fitur inovasi. Setiap aspek manfaat permainan dari perbaikan penting, dengan kemajuan gameplay mendasar untuk menciptakan gelar baru realisme. PES 2010 berfokus pada simulasi sepak bola menjadi nyata, karena membutuhkan keduanya bermain strategis dan cepat reaksi, seperti kehidupan nyata. New zonal membela intuitif meliputi spasi, berarti pemain harus terus-menerus mencari cara baru untuk menyerang. referensi permainan ini juga telah dirancang ulang, dengan lebih cerdas elemen AI yang memungkinkan mereka untuk melakukan panggilan lebih seimbang. Read More »