Maulana Jodi Official Weblog | The Knowledge Base

Latihan membuat program perpustakan sederhana dengan Pascal

Disini akan dijelaskan cara membuat program perpustakaan sederhana dengan bahasa Pascal dengan menggunakan record, array dan procedure.Untuk mulai prakteknya silahkan lihat programnya.


program peprustakaan;
uses crt;

{kita buat record terlebih dahulu}
type
pinjam=record
haswa,denda,telat,total,subtot:array [1..10] of longint;
judul:array [1..10] of string;
kode:array [1..10] of char;
end;
{end of record}

var
buku:pinjam;
subtotal,lp,lk,tlt:longint;
i,banyak:byte;

{disini kita buat procedure yang pertama, yang mana nanti akan dipanggil pada program utama}
procedure sewa;
begin
with buku do
begin
write('Lama Pinjam [Mingguan] : '); readln(lp);
write('Jumlah pinjam buku : '); readln(banyak);
for i:= 1 to banyak do
begin
writeln('Buku ke - ',i);
write('Masukkan kode buku : '); readln(kode[i]);
writeln;
{disini kita akan membuat pilihan menggunakan case .. of. Jadi, saat variable kode diinput, dia akan menampilkan judul dan harga sewa dari buku}
case kode[i] of
'a','A':begin
judul[i]:='buku1';
haswa[i]:=3000;
end;
'b','B':begin
judul[i]:='buku2';
haswa[i]:=5500;
end;
'c','C':begin
judul[i]:='buku3';
haswa[i]:=4500;
end;
'd','D':begin
judul[i]:='buku4';
haswa[i]:=2500;
end;
'e','E':begin
judul[i]:='buku5';
haswa[i]:=5000;
end;
end;
{tampilkan judul buku dan harga sewa buku}
writeln('Judul Buku : ',judul[i]);
writeln('Harga Sewa : ',haswa[i],'/minggu');
subtot[i]:=lp*haswa[i];
subtotal:=subtotal+subtot[i];
readln;
end;
end;
end;
{end of procedure sewa}

{sekarang kita buat procedure lagi, ini untuk menghitung jumlah sewa dan total harga yang harus dibayar}
procedure output;
begin
with buku do
begin
clrscr;
writeln('----------------------------------------------');
writeln('|PERPUSTAKAAN SEDERHANA ');
writeln('----------------------------------------------');
writeln('|No aaJudul aaHarga aaLama aaaSubtotal ');
writeln('| aaaaBuku aaaSewa aaaPinjam ');
writeln('----------------------------------------------');
for i:=1 to banyak do
begin
writeln(i:2,judul[i]:10,haswa[i]:10,lp:7,subtot[i]:12);
end;
writeln('----------------------------------------------');
writeln(' Total :Rp ',subtotal);
end;
end;
{end of procedure output}

{program utama}
begin
with buku do
begin
clrscr;
writeln(' PERPUSTAKAAN SEDERHANA ');
writeln('-------------------------------');
writeln('| Kode | Judul | Tahun ');
writeln('| Buku | Buku | Terbit ');
writeln('-------------------------------');
writeln('| a buku1 2000 ');
writeln('| b buku2 1998 ');
writeln('| c buku3 2001 ');
writeln('| d buku4 2004 ');
writeln('| e buku5 2009 ');
writeln('-------------------------------');
writeln;
{pemanggilan procedure sewa}
sewa;
{pemanggilan procedure output}
output;
writeln;
{hitung denda dan total bayar seluruhnya}
writeln('Lama Pinjam [Mingguan] : ',lp);
write('Lama Hari Kembali : '); readln(lk);
telat[i]:=lk-(lp*7);
if telat[i]>0 then
tlt:=telat[i]
else
tlt:=0;
writeln('Telat Pengembalian : ',tlt);
if lk>(lp*7) then
denda[i]:=500*telat[i]
else
denda[i]:=0;
writeln('Denda :Rp ',denda[i]);
total[i]:=subtotal+denda[i];
writeln('Total Pembayaran :Rp ',total[i]);
writeln;
writeln(' . : Terima Kasih : . ');
readln;
end;
end.
{akhir program}

Mudah bukan? Untuk membuat program seperti ini? Untuk materi kuliah yang lain silahkan kunjungi web Dosen saya di http://jundi.co.nr

Selamat berkreasi.

Sepintas di dunia internet, banyak sekali kegiatan hacking lewat google untuk mendapatkan file tersembunyi. FIle - file tersebut seharusnya dirahasiakan dan tidak boleh disebarkan. Tetapi, melalui google hacking itu semua dengan mudah kita ambil. Memang Google satu satunya search engine top sejagad raya ! Disini, saya hanya akan membantu anda dengan cara - cara dasar untuk hacking google supaya mendapatkan file apapun secara gratis. Tidak cara yang susah susah, Nah, file apa saja yang bisa kamu dapatkan? contohnya adalah file video, music, ebook, film, dokumen, arsip zip dan masih banyak lainnya. INgat..ingat,,,hanya trik dasar saja ya ! Kalo mau yang profesional bisa dikembangkan sendiri . Baca selanjutnya…

Berikut cara caranya :

Googling E-Book.
+(”index of”) +(”/ebooks”|”/book”) +(chm|pdf|zip|rar) +apache
Adalah Query yang menghasilkan Index ebook di server yang berbasis
Apache
allinurl: +(rar|chm|zip|pdf|tgz|lit) judul buku
Ganti “judul buku” dengan buku yang ingin dicari. Jika ingin mencari
“Wiro Sableng”, ganti “judul buku” dengan Wiro Sableng. Cara ini
digunakan jika benar-benar mengetahui judul buku yang dicari.

Googling Warez.
“parent directory ” Xvid -xxx -html -htm -php -shtml -opendivx -md5
-md5sums
“parent directory ” MP3 -xxx -html -htm -php -shtml -opendivx -md5
-md5sums
“parent directory ” applications -xxx -html -htm -php -shtml -opendivx
-md5 -md5sums
“parent directory ” Gamez -xxx -html -htm -php -shtml -opendivx -md5
-md5sums
“parent directory ” DVDRip -xxx -html -htm -php -shtml -opendivx -md5
-md5sums
Ganti Kata yang tebal dengan query.
Contoh, jika ingin mencari Limewire maka ganti “applications” dengan
Limewire. jika ingin mencari lagu dari Deep Purple berjudul Child In
Time, ganti “MP3? dengan Child in Time atau jika ingin mencari
lagu-lagu
Deep Purple tinggal ganti “MP3? dengan Deep Purple.

Googling MP3
?intitle:index.of? mp3
Cara lain untuk mencari MP3 di google adalah menggunakan Query ini.
Setelah MP3 kasih apa yang pengen dicari.
Contoh: Jika ingin mencari Led Zeppelin maka query-nya akan seperti ini
?intitle:index.of? mp3 led zeppelin

Googling file di megaupload
Untuk mencari File Video ketik :
avi|mpg|mpeg|wmv|rmvb site:megaupload.com

Untuk mencari File musik ketik :
mp3|ogg|wma site:megaupload.com

Untuk mencari archive dan program ketik :
zip|rar|exe site:megaupload.com

Untuk mencari ebooks ketik :
pdf|rar|zip|doc|lit site:megaupload.com

Googling file di rapidshare.de
Untuk mencari File Video ketik :
avi|mpg|mpeg|wmv|rmvb site:rapidshare.de

Untuk mencari File musik ketik :
mp3|ogg|wma site:rapidshare.de

Untuk mencari archive dan program ketik :
zip|rar|exe site:rapidshare.de

Untuk mencari ebooks ketik :
pdf|doc|lit|rar|zip site:rapidshare.de

Untuk Googling di Megaupload dan rapidshare bisa langsung meletakkan apa
yang diinginkan di bagian pertama.
Contoh: Jika ingin mencari DA VINCI CODE ebook gunakan query ini
da vinci code pdf|doc|lit|rar|zip site:rapidshare.de
(ini jika kita benar-benar tahu judul bukunya.

DAN UNTUK GOOGLE HACKING LAINNYA :

1. Ketikkan URL atau kriteria pencarian setelah titik dua.
2. Jangan ada spasi antara perintah dan istilah.
//////////////////////////////////////////////////////////
”””””””””””””””””””””””””””””
Perintah ext: [Mencari file tipe tertentu.]
exp = “ext:doc”
”””””””””””””””””””””””””””””
Perintah related: [Menampilkan website dengan tema serupa.]
exp = “related:yahoo.com”
”””””””””””””””””””””””””””””
Perintah site: [Menampilkan sub-site.]
exp = “site:yahoo.com”
”””””””””””””””””””””””””””””
Perintah allinurl: [Menampilkan semua URL.]
exp = “allinurl:yahoo”
”””””””””””””””””””””””””””””

Wireless

Wireless atau dalam bahasa Indonesia disebut nirkabel, adalah teknologi yang menghubungkan dua perangkat untuk bertukar data tanpa media kabel. Data dipertukarkan melalui media gelombang cahaya tertentu (seperti teknologi infra merah pada remote TV) atau gelombang radio (seperti bluetooth pada komputer dan ponsel) dengan frekuensi tertentu.
Kelebihan teknologi ini adalah mengeliminasi penggunaan kabel, yang bisa cukup mengganggu secara estetika, dan juga kerumitan instalasi untuk menghubungkan lebih dari 2 perangkat bersamaan. Misalnya: untuk menghubungkan sebuah 1 komputer server dengan 100 komputer client, dibutuhkan minimal 100 buah kabel, dengan panjang bervariasi sesuai jarak komputer klien dari server. Jika kabel-kabel ini tidak melalui jalur khusus yang ditutupi (seperti cable tray atau conduit), hal ini dapat mengganggu pemandangan mata atau interior suatu bangunan. Pemandangan tidak sedap ini tidak ditemui pada hubungan antar perangkat berteknologi nirkabel.
Kekurangan teknologi ini adalah kemungkinan interferensi terhadap sesama hubungan nirkabel pada perangkat lainnya.

Sejarah Wireless LAN

Pada akhir 1970-an IBM mengeluarkan hasil percobaan mereka dalam merancang WLAN dengan teknologi IR, perusahaan lain seperti Hewlett-Packard (HP) menguji WLAN dengan RF. Kedua perusahaan tersebut hanya mencapai data rate 100 Kbps.

Karena tidak memenuhi standar IEEE 802 untuk LAN yaitu 1 Mbps maka produknya tidak dipasarkan. Baru pada tahun 1985, Federal Communication Commission (FCC) menetapkan pita Industrial, Scientific and Medical (ISM band) yaitu 902-928 MHz, 2400-2483.5 MHz dan 5725-5850 MHz yang bersifat tidak terlisensi, sehingga pengembangan WLAN secara komersial memasuki tahapan serius. Barulah pada tahun 1990 WLAN dapat dipasarkan dengan produk yang menggunakan teknik spread spectrum (SS) pada pita ISM, frekuensi terlisensi 18-19 GHz dan teknologi IR dengan data rate >1 Mbps.

Standar Wireless LAN

Pada dasarnya WLAN memiliki dua konfigurasi, pertama ad hoc yaitu penggunaan WLAN pada suatu tempat bersifat sementara dan dibangun tanpa infrastruktur, contohnya dikelas, ruang rapat, ruang seminar, dll. Kedua konfigurasi infrastruktur yaitu penggunaan WLAN pada suatu tempat bersifat permanen dan memiliki infrastruktur, contohnya di kantor, pabrik dll. Untuk membangun WLAN diperlukan banyak elemen yang termasuk ke dalam perangkat keras, perangkat lunak, standarisasi dan pengukuran dan analisis kelayakan (misalnya untuk menentukan posisi antena base station/BS).

Dengan adanya berbagai merek perangkat keras dan lunak, maka diperlukan suatu standar, di mana perangkat-perangkat yang berbeda merek dapat difungsikan pada perangkat merek lain. Standar-standar WLAN adalah IEEE 802.11, WINForum dan HIPERLAN.

Wireless Information Network Forum (WINForum) dilahirkan oleh Apple Computer dan bertujuan untuk mencapai pita Personal Communication Service (PCS)
yang tidak terlisensi untuk aplikasi data dan suara dan mengembangkan spectrum etiquette (spektrum yang menawarkan peraturan-peraturan yang sangat minim dan akses yang adil). High Performance Radio Local Area Network (HIPERLAN) dilahirkan oleh European Telekommunications Standards Institute (ETSI) yang memfokuskan diri pada pita 5.12-5.30 GHz dan 17.1-17.3 GHz. IEEE 802.11 dilahirkan oleh Institute Electrical and Electronics Engineer (IEEE) dan berfokus pada pita ISM dan memanfaatkan teknik spread spectrum (SS) yaitu Direct Sequence (DS) dan Frequency Hopping (FH), standar
ini adalah yang paling banyak dipakai.

Hal-hal yang perlu diperhatikan pada WLAN adalah :

1. Data rate tinggi (>1 Mbps), daya rendah dan harga murah.
2. Metode akses yaitu metode membagi kanal kepada banyak pemakai dengan aturan-aturan tertentu.
3. Media transmisi yang merupakan faktor penting pada keterbatasan data rate dan memiliki teknik tersendiri, di mana bila teknik yang berhubungan dengan media transmisi (seperti teknik propagasi dalam ruangan, teknik modulasi dll) dapat diperhitungkan dengan baik maka akan dihasilkan sistem WLAN yang tangguh.
4. Topologi yaitu cara dan pola yang digunakan dalam menghubungkan semua terminal.