Selasa, 16 Juli 2013

Contoh Pascal dengan database

Berikut ini ada contoh program pascal dengan database
konsepnya sebagai program kasir ketika ditanyakan akan menginput program dijawab dengan "Y"
maka inputan akan berulang hingga inputan dijawab dengan "T"
dan otomatis akan mencetak laporan penjualan, data inputan ketika member akan mendapat diskon 10%
Berikut gambar program ketika dijalankan

















Penjelasan singkat program
Program ini menggunakan database dengan nama database.txt, sedangkan command-command yang digunakan dalam database ini adalah,

assign(database,'database.txt'); (memberi nama database)
rewrite (database); (membuat database)
            reset(database); (membuka database)
            write(database,data); (menulis database)
            close(database); (menutup database)
            read(database,data); (membaca database)

Karena data yang dimasukkan bisa banyak tergantung dari jumlah pelanggan, maka dibuat prosedur baca_data agar tidak menulis berulang-ulang.
Prosedur baca_data sebagai berikut

procedure baca_data;
begin
                        assign(database,'database.txt');{$I-}
                        reset(database);{$I+}
end;

Untuk penomoran otomatis saya menggunakan command inc(nomor) sebagai ganti command nomor:=nomor+1 dimana sebelumnya di deklarasikan bahwa nomor:=0 . Karena saya meletakkan inc(nomor) berada diatas input nomor sehingga ketika melewati command ini variabel nomor sudah berubah menjadi 1.
Untuk mempercantik tampilan saya menggunakan command gotoxy(x,y) dimana X adalah jumlah spasi dan Y adalah lokasi baris. Dengan command ini akan membuat program terlihat lebih interaktif. Sebagai contoh pada login kasir saya meletakkan inputan agar berada di tengah-tengah frame seperti berikut


gotoxy(25,1);write('===========================');
             gotoxy(25,2);write('        LOGIN KASIR');
            gotoxy(25,3);write('---------------------------');
            gotoxy(25,4);write;
            gotoxy(25,6);write;
            gotoxy(25,7);write('===========================');
             gotoxy(25,8);write('      PROGRAM KASIR');
             gotoxy(25,9);write('    TOKO SUSANTO JAYA');
            gotoxy(25,10);write('===========================');
            gotoxy(25,5);write('NAMA KASIR    : ');readln(namakasir);

Perhatikan bahwa inputan nama kasir berada baris paling bawah, tapi dengan gotoxy lokasinya bisa dirubah ke baris nomer 5.
Demikian pula saat menginputkan data, akan ada keterangan interaktif dibawahnya yang akan berubah-ubah sesuai dengan inputan.

Berikut listing programnya
program kasir;
uses wincrt;
type toko = record
     nama   : string [8];
     barang : string [7];
     member : char;
     jumlah : integer;
     harga  : real;
     diskon : real;
     total  : real;
     bayar  : real;
end;
var
database : file of toko;
data : toko;
selesai : char;
I : real;
nomor : integer;
no : integer;
namakasir : string [8];
procedure baca_data;
begin
     assign(database,'penjualan.txt');{$I-}
     reset(database);{$I+}
end;
begin
     clrscr;
     nomor:=0;
     begin
     assign(database,'database.txt');
     rewrite (database);
     reset(database);
     gotoxy(25,1);write('===========================');
     gotoxy(25,2);write('        LOGIN KASIR');
     gotoxy(25,3);write('---------------------------');
     gotoxy(25,4);write;
     gotoxy(25,6);write;
     gotoxy(25,7);write('===========================');
     gotoxy(25,8);write('      PROGRAM KASIR');
     gotoxy(25,9);write('    TOKO SUSANTO JAYA');
     gotoxy(25,10);write('===========================');
     gotoxy(25,5);write('NAMA KASIR    : ');readln(namakasir);
repeat
     clrscr;
     gotoxy(25,1);write('===========================');
     gotoxy(25,2);write('      FORM INPUT DATA');
     gotoxy(25,3);write('---------------------------');
     gotoxy(25,13);write('---------------------------');
     gotoxy(25,15);write('===========================');
     gotoxy(25,16);write('    TOKO SUSANTO JAYA ');
     gotoxy(25,17);write('===========================');
     inc(nomor);
     gotoxy(25,4);writeln('NOMOR          : ',nomor);
     gotoxy(25,14);write('MEMBER DISKON 10 %    ');
     gotoxy(25,5);write('MEMBER (Y/T)   : ');readln(data.member);
     gotoxy(25,14);write('INPUT NAMA PELANGGAN  ');
     gotoxy(25,6);write('NAMA PELANGGAN : ');readln(data.nama);
     gotoxy(25,14);write('INPUT NAMA BARANG     ');
     gotoxy(25,7);write('NAMA BARANG    : ');readln(data.barang);
     gotoxy(25,14);write('INPUT JUMLAH PEMBELIAN');
     gotoxy(25,8);write('JUMLAH         : ');readln(data.jumlah);
     gotoxy(25,14);write('INPUT HARGA BARANG    ');
     gotoxy(25,9);write('HARGA SATUAN   : ');readln(data.harga);
     data.total:=data.jumlah*data.harga;
     gotoxy(25,10);writeln('TOTAL          : ',data.total:2:0);
     if (data.member='Y') or (data.member='y') then
     data.diskon:=0.1*data.total else data.diskon:=0;
     gotoxy(25,11);write('DISKON         : ',data.diskon:0:0);
     data.bayar:=data.total-data.diskon;
     gotoxy(25,12);write('TOTAL BAYAR    : ',data.bayar:2:0);
     gotoxy(25,14);write('SELESAI INPUT ? (Y/T):');readln(selesai);
     write(database,data);
until (selesai='Y') or (selesai='y');
close(database);
end;
begin
I:=0;
baca_data;
clrscr;
     begin
     writeln('==============================================================================');
     writeln('                       LAPORAN DAFTAR BARANG PENJUALAN');
     writeln('                               TOKO SUSANTO JAYA');
     writeln('                      JALAN PELAN-PELAN BANYAK ANAK-ANAK');
     writeln('==============================================================================');
     writeln('|| NO |  NM.PLG   |  NM.BRG | JML |  HARGA  |  TOTAL  |  DISKON | TOTAL BYR ||');
     writeln('------------------------------------------------------------------------------');
     no:=0;
     while not eof (database) do
                  begin
                       inc(no);
                       read(database,data);
                       writeln('|| ',no:2,' | ',data.nama:8,'  | ',data.barang:7,' | ',
                       data.jumlah:3,' | ',data.harga:7:0,' | ',data.total:7:0,' | ',
                       data.diskon:7:0,' | ',data.bayar:9:0,' ||');
                  end;
     close(database);
     end;
     writeln('==============================================================================');
     writeln;
     writeln('                                                             KASIR');
     writeln;
     writeln;
     writeln;
     writeln('                                                           ( ',namakasir,' )');
     readln;
end;


end.

Senin, 24 Juni 2013

Mematikan autoplay pada windows

Fitur autoplay memang memudahkan bagi user
karena tanpa klik apapun cd ataupun flashdisk mampu menjalankan program secara otomatis
ini dimungkinkan karena dalam cd ataupun flashdisk terdapat file autorun.inf
Namun celah ini juga di manfaatkan oleh virus untuk menginfeksi kepada komputer kita secara otomatis
Berikut ada cara untuk mematikan fitur ini agar komputer kita lebih terlindungi

Win XP
start -> run ketik gpedit.msc lalu buka administrative templates ->system cari turn off autoplay kemudian pilih enable all drive

Win 7
Hampir sama dengan win xp caranya start -> run ketik gpedit.msc lalu buka computer configuration -> administrative templates -> windows component -> autoplay policies klik kanan pada turn off autoplay pilih edit centang enable

Win 8
Tekan tombol Windows + W untuk membuka kotak setting seach lalu ketikkan autoplay. Klik icon autoplay pada layar berikutnya hapus centang use aotoplay for all media and devices lalu save

Beres dah...
Semoga bermanfaaat :)

Cara melihat detail command prompt

Apa itu command prompt ? 
Command prompt merupakan user interface berbasis text yang dipergunakan untuk mengeksekusi baris perintah yang dimasukkan pada sistem operasi windows.

Apa kelebihan command prompt ?
beberapa kelebihan jika dibandingkan dengan berbasis grafis, antara lain :
  1. Kontrol secara penuh
  2. Kecepatan dalam pengoperasian
  3. Penggunaan resource memori yang kecil
Bagaimana cara menjalankan command prompt ? 
Untuk menjalankan command prompt sangat mudah, tinggal mengetikan “cmd” pada kotak search ataupun run

Permasalahannya hafal nggak detail commandnya :)
Nggak usah kuatir, ada solusinya kok tinggal tambahin /? pada akhir command buat tau detailnya
misal attrib/? hasinya bakalan kayak gini

Displays or changes file attributes.



ATTRIB [+R | -R] [+A | -A ] [+S | -S] [+H | -H] [drive:][path][filename]
       [/S [/D]]

  +   Sets an attribute.
  -   Clears an attribute.
  R   Read-only file attribute.
  A   Archive file attribute.
  S   System file attribute.
  H   Hidden file attribute.
  [drive:][path][filename]
      Specifies a file or files for attrib to process.
  /S  Processes matching files in the current folder
      and all subfolders.
  /D  Processes folders as well.



Tuh.. khan tinggal pake aja silahkan coba pada command² lainnya

Cara ngecek remote

Mungkin teman² pernah ngalamin lagi asik² nya nonton TV tau² remote nggak bisa dipake :(
Hal ini bisa dikarenakan 2 hal yaitu receiver pada tv rusak (berabe kalo yang ini)
ato remotenya yang rusak
Oke kita langsung aja ke TKP
Untuk ngecek remote
1.Siapkan hp yang pake kamera
2.Siapkan pada modus foto
3.Arahkan remote ke kamera hp
4.Tekan fungsi remote (volume,channel, ato apalah)
5.Kalo remote berfungsi maka akan terlihat cahaya dari remote melalui kamera hp
Nha..
Kalo udah gini tinggal solusinya
kalo remote mati coba ganti batere dulu
kalo remote normal coba yang di cek TV nya :)
Sekian share dari saya semoga bermanfaat