Berlatih Program Penjualan Kecil dengan Delphi

           Hallo temen-temen semuanya....,Sory ni saya baru bisa buat post lagi.Ok,sekarang saya akan mengajak kalaian semua untuk berlatih bahasa pemrograman delphi.Untuk pelatihan yang pertama saya akan mencoba membuat program penjualan kecil dengan delphi.Untuk tampilan programnya seperti dibawah ini :

Tentang Program diatas :

1. Pertama kita masukan jumlah uang kita ,terus selanjutnya kita masukan jumlah pembayaran pembelian lalu klik proses.
2. Apabila sedang ada diskon maka form diskon diisi dengan besar diskon terserah kalian.
3. Bila ingin menginputkan dengan yang baru maka anda klik clean.
4. Dan bila ingin keluar klik exit.
5. Setelah tau tentang prosesnya sekarang kita mulai dengan menulis sintax programnya.Untuk botton proses sintax programnya seperti ini :


procedure TForm1.Button1Click(Sender: TObject); begin a:=StrToInt(Edit1.Text); b:=StrToInt(edit2.Text); if b>=500000 then begin c:=b*0.07; d:=b-(0.07*b) ; e:=a-d; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit6.Text:=FloatToStr(d); Edit5.Text:=FloatToStr(c); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(7); end else if b>=200000 then begin c:=0.05*b; d:=b-(0.05*b); e:=a-d; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit6.Text:=FloatToStr(d); Edit5.Text:=FloatToStr(c); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(5); end else if b>=100000 then begin c:=0.03*b; d:=b-(0.03*b); e:=a-d; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit5.Text:=FloatToStr(c); Edit6.Text:=FloatToStr(d); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(3); end else if b<=100000 then begin e:=a-b; Edit3.Text:=IntToStr(a); Edit4.Text:=IntToStr(b); Edit6.Text:=FloatToStr(b); Edit5.Text:=FloatToStr(0); Edit7.Text:=FloatToStr(e); Edit8.Text:=IntToStr(0); end; end;


6. Dan untuk Sintax program clean seperti ini :


procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=' '; edit2.Text:=' '; edit3.Text:=' '; edit4.Text:=' '; edit5.Text:=' '; edit6.Text:=' '; edit7.Text:=' '; edit8.Text:=' '; end;


7. Untuk Program exitnya seperti ini :


procedure TForm1.Button3Click(Sender: TObject); begin ShowMessage('Mau Keluar??'); Close; end;


8. Berikut adalah petunjuk membuat Program Penjualan Kecil.Semoga bemanfaat.
9. Untuk Program Lengkapnya silakan klik image download dibawah ini :

     

Email This BlogThis! Share to X Share to Facebook

Read More

Pengin tau tentang Linux Backtrack ?

Sejarah Linux Backtarck

           Backtrack dibuat oleh Mati Aharoni yang merupakan konsultan sekuriti dari Israel dan Max Mosser. Jadi merupakan kolaborasi komunitas. Backtrack sendiri merupakan merger dari whax yang merupakan salah satu distro Linux yang digunakan untuk tes keamanan yang asal dari whax sendiri dari Knoppix. Ketika Knoppix mencapi versi 3.0 maka dinamakan dengan whax. Whax dapat digunakan untuk melakukan tes sekuriti dari berbagai jaringan di mana saja.

              Max Mosser merupakan auditor security collection yang mengkhususkan dirinya untuk melakukan penetrasi keamanan di Linux. Gabungan dari auditor dan Whax ini sendiri menghasilkan 300 tool yang digunakan untuk testing security jaringan. Auditor security collection juga terdapat pada knoppix.

Linux Backtrack ?

         BackTrack adalah sistem operasi berbasis pada distribusi GNU / Linux Ubuntu yang bertujuan untuk forensik digital dan digunakan dalam pengujian penetrasi (Hacking). Hal ini lebih dikenal dengan istilah Backtracking yaitu suatu algoritma pencarian.

Tanggal Rilis dan Versi Backtrack :

• 26 – 5 – 2006 rilis backtrack pertama kali yang merupakan versi non beta 1.0
• 13 – 10 – 2006 backtrack versi 2 beta pertama untuk publik di rilis
• 19 – 11 – 2006 backtrack versi 2 beta kedua untuk publik di rilis
• 06 – 03 – 2007 backtrack versi 2 final dirilis
• 17 – 12 – 2007 backtrack versi 3 beta pertama dirilis
• 19 – 03 – 2008 backtrack versi 3 final dirilis
• 11 – 01 – 2010 backtrack versi 4 final dirilis
• 10 – 05 – 2011 backtrack versi 5 final dirilis

Berikut beberapa tool yang berada dalam Linux Backtrack :

• Metasploit integration
• RFMON wireless drivers
• Kismet
• AutoScan-Network – AutoScan-Network is a network discovering and managing application
• Nmap
• Ettercap
• Wireshark (formerly known as Ethereal)
• Enumeration
• Exploit Archives
• Scanners
• Password Attacks
• Fuzzers
• Spoofing
• Sniffers
• Tunneling
• Wireless Tools
• Bluetooth
• Cisco Tools
• Database Tools
• Forensic Tools
• BackTrack Services
• Reversing
• Misc

Dari pada kalian penasaran silakan aja coba download distronya di web resminya Linux Backtrack :

www.backtrack-linux.org/downloads/

Email This BlogThis! Share to X Share to Facebook

Read More

Fungsi TuneUp Utilities 2012 untuk kelancaran PC kita

TuneUp Utilities merupakan software yang sangat bagus untuk mengoptimalkan kinerja komputer maupun laptop. Dengan menggunakan TuneUp Utilities 2012 sistem operasi Windows akan terasa lebih cepat, ringan, nyaman dan tentunya lebih aman hanya dengan beberapa klik.

Fitur one click maintenance akan dengan cepat membersihkan sampah-sampah registry, menghapus sisa-sisa shortcuts yang tidak bekerja dan masih banyak lagi, tentunya hanya dengan satu kali klik sesuai dengan namanya TunUp 1-Click maintenance.

Selain dapat mempercepat kinerja sistem operasi, TuneUp Utilities terbaru ini juga dapat dipergunakan untuk mempercantik tampilan sistem Windows Anda, merubah tampilan Boot Screen, Visual style dan mengatur system elements. Banyak kelebihan-kelebihan yang dapat kita ambil manfaatnya dari software TuneUp Utilities 2012 atu TuneUp Utilities versi terbaru.Apalagi untuk yang Game untuk lebih meringankan kita bisa pakai Turbo Mode walaupun tampilanya clasic tapi yang penting main gamenya lancar.

Jika anda masih penasaran ingin memakainya silahkan anda download lansung melalui link tautan di bawah ini.


Download TuneUp Utilities 2012 




 Download Crack


 pass: widyscatz

Email This BlogThis! Share to X Share to Facebook

Read More

Program Menampilkan Daftar Harga BBM dengan repeat-until pada bahasa pascal

Saya akan menujukan cara membuat Program Menampilkan Daftar Harga BBM dengan repeat-until menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

uses wincrt; var lt,hg:real; a,n:integer; begin writeln('|_No._|_____ LITER _____|______ HARGA ______| '); n:=1; repeat writeln;writeln; gotoXY(1,n+1); write('| ',n,' '); lt:=0.5*n; gotoXY(7,n+1); write('| ',lt:2:2,' '); hg:=lt*4500; begin if n mod 2 = 1 then hg:=hg+500; gotoXY(25,n+1); writeln('| Rp. ', hg:2:2); gotoXY(44,n+1);writeln(' |'); n:=n +1; end; until n>20; writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program menampilkan data mahasiswa dengan procedure dan array pada pascal

Saya akan menujukan cara membuat Program menampilkan data mahasiswa dengan procedure dan array menggunkan Bahasa Pemrograman Pascal.

Sorce codenya :

program mahasiwa; uses wincrt; type tabel_mhs= record nama, nim :string [25] ; nilai:integer; end; var mhs : array[1..100] of tabel_mhs; temp:tabel_mhs; j,k,n: integer; ul,ul2 : char; procedure input_data; begin writeln('============================'); writeln('| Data Mahasiswa |'); writeln('============================'); write('Banyaknya mahasiswa : '); readln(n); for j:= 1 to n do with mhs [j] do begin writeln ('Data Mahasiswa',j); write ('Nama='); readln (nama); write ('Nim='); readln (nim); write ('Nilai='); readln (nilai); writeln; end; end; procedure urut_nilai; begin for j:=1 to n-1 do for k:=j-1 to n do if mhs[j].nilai > mhs[k].nilai then begin temp:=mhs[j] ; mhs[j]:=mhs[k] ; mhs[k]:=temp ; end; end; procedure tampilan; begin urut_nilai; writeln('============================'); writeln('| Data Nilai Mahasiswa |'); writeln('============================'); writeln; writeln('=========================================='); writeln('|Nama |Nim |Nilai |'); writeln('=========================================='); for j:=1 to n do begin writeln('|',mhs[j].nama:15,'|',mhs[j].nim:15,'|',mhs[j].nilai:6,'|'); end; writeln('=========================================='); end; begin input_data; urut_nilai; tampilan; end.

Email This BlogThis! Share to X Share to Facebook

Read More

Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan pascal

Saya akan menujukan cara membuat Program mencari jumlah dan rata-rata bilangan positif dan negatif dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var hp,hm,jp,jn,i,n,bil: integer; begin write('Banyak Bilangan : '); readln(n); writeln(''); for i := 1 to n do begin Write('Bilangan ',i,' : '); readln(bil); if bil > 0 then begin jp := jp+bil; hp := hp+1; end else begin jn := jn+bil; hm := hm+1 end end; writeln(''); writeln('Jumlah Bilangan Positif :',jp); writeln('Rata-rata Bilangan Positif :',jp/hp:0:2); writeln('Jumlah Bilangan Negatif :',jn); writeln('Rata-rata Bilangan Negatif :',jn/hm:0:2); readln; writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program penjumlahan nilai mahasiswa dengan pascal

Saya akan menujukan cara membuat program penjumlahan nilai mahasiwa dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var a,b,c,jumlah: integer; begin write ('masukan jumlah mahasiswa : '); readln(a); jumlah:=0; for b:=1 to a do begin write('nilai mhsw ke ',b,' : '); readln(c); jumlah:=jumlah+c; end; write('jumlah nilai mhsswa = ',jumlah); writeln(' '); writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program dangan Menu Meginputkan dan Menampilkan Data dengan Pascal

Saya akan menujukan cara membuat Program dangan Menu Meginputkan dan Menampilkan Data dengan menggunakan Bahasa Pemrograman Pascal

Sorce codenya :

uses wincrt; var nama,alamat:array[1..10] of string; nilai:array[1..10] of integer; x,y,pilih:integer; procedure tampilkan_menu; begin clrscr; writeln('========================='); WRITELN(' MENU UTAMA '); writeln('========================='); WRITELN(' 1. Memasukkan data '); WRITELN(' 2. Menampilkan data '); WRITELN(' 3. Keluar Program '); writeln('========================='); writeln(' Pilihan anda [ ] '); writeln('========================='); gotoxy(18,8);readln(pilih); writeln; writeln; end; procedure masukkan_data; begin for x:=1 to 3 do begin write('masukkan nama ke-',x,' : '); readln(nama[x]); write('masukkan alamat ke-',x,' : '); readln(alamat[x]); end; end; procedure tampilkan_data; begin writeln('------------------'); writeln('nama alamat'); writeln('------------------'); for x:=1 to 3 do begin writeln(nama[x],' ',alamat[x]); end; readln; end; {program utama} begin repeat tampilkan_menu; if pilih=1 then masukkan_Data else if pilih=2 then tampilkan_data else if pilih=3 then exit; until pilih=3; writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end. end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More

Program mencari nilai terbesar dari 3 bilangan dengan bahasa pascal

Saya akan menujukan cara membuat Program mencari nilai terbesar dari 3 bilangan dengan menggunakan Bahasa Pemrograman Pascal.

Sorce codenya :

program bil_terbesar_heri; uses wincrt; var bil_1,bil_2,bil_3 : integer; terbesar : integer; begin writeln(' *******Program Mencari Bilangan Terbesar******* '); writeln(' ----------------------------------------------- '); writeln; writeln('MASUKAN 3 BUAH BILANGAN = '); writeln; write('bil_1 = '); readln(bil_1); write('bil_2 = '); readln(bil_2); write('bil_3 = '); readln(bil_3); terbesar:=0; if (bil_1 > bil_2) then terbesar:= bil_1 else terbesar:=bil_2; if (terbesar > bil_3) then terbesar := terbesar else terbesar:= bil_3; writeln; write ('jadi bilangan terbesarnya adalah = ', terbesar); writeln(' ') ; writeln('---------------------------------------------'); writeln('************** Nama : Heri Widyantoro ************'); writeln('############## NIM : 3105111352 ############'); writeln('************** Prodi : T.informatika/E ************'); writeln('---------------------------------------------'); end.

 Tampilanya :

Email This BlogThis! Share to X Share to Facebook

Read More