Please Translate these sentence depends on your own language in your country

Penting Untuk Pengunjung

Jika sulit mengingat link blog saya, cukup mencari melalui Google menggunakan kata kunci
"ramazotob"
By enda fiVers
Follow

Phishing 0



 Definisi:
Phishing adalah sebuah bentuk penipuan elektronik. Umumnya phising dilakukan agar seseorang/korban mau membagi informasi sensitif kepada pihak tertentu dengan memanfaatkan kredibilitas dari perusahaan besar/ternama (misal: bank, asuransi, kartu kredit, penyedia layanan internet, dan lain-lain). Phising terbanyak disebarkan lewat email dan situs web.

Masalah yang ditimbulkan:   
Seorang korban phishing tidak akan menyadari bahwa dirinya adalah korban penipuan. Sehingga bukan tidak mungkin data-data sensitif yang didapat dari korban disalah gunakan untuk menipu pihak lain, atau mengambil keuntungan dari korban. Kalau sudah begini, harta bisa jadi taruhan utama korban yang terkena phishing.
Target utama yang disasar oleh Phishers (orang yang melakukan phishing) adalah orang yang memiliki akun di bank atau kartu kredit. Phishing juga tidak jarang dikirimkan dalam rupa kejutan berhadiah dimana korban harus menyetorkan uang dalam jumlah tertentu.

Pencegahan/penetralisir:
1. Jangan pernah mengirimkan data pribadi seperti nomor kartu kredit, PIN ATM atau apapun melalui email sekalipun diminta oleh bank, perusahaan kartu kredit atau apapun dimana Anda terdaftar didalamnya. Karena perusahaan tadi tidak pernah dan tidak akan pernah meminta data pribadi melalui email.
2. Jangan mudah percaya jika Anda diminta membayar sesuatu atas hadiah yang telah Anda menangkan tanpa melakukan pemeriksaan kepada pihak yang terkait.



sumber : infokomputer
Baca Selengkapnya

Malware Ponsel 0



Definisi:
 Malware ponsel dibuat khusus untuk menyerang ponsel dengan sistem operasi tertentu, termasuk jenis ponsel pintar seperti Personal Digital Asistant (PDA), Blackberry, dan sejenisnya.

 Masalah yang ditimbulkan:
Selain bisa merusak sistem operasi ponsel, malware jenis ini juga memiliki penyebaran yang unik dan umumnya menggunakan konektifitas yang dimiliki ponsel tersebut. Salah satu yang paling populer adalah Bluetooth.
Karena ia bisa mengaktifkan Bluetooth dengan otomatis dan tanpa terdeteksi, maka ponsel yang tertular malware ini akan lebih cepat kehabisan baterai dibanding ponsel yang berjalan dalam kondisi normal. Koneksi Bluetooth yang senantiasa aktif ini bukan tidak mungkin bisa merusak perangkat pemancar radio Bluetooth atau merusak komponen lain karena kepanasan (overheat).
Pencegahan/Penetralisir:
Beberapa malware ponsel seperti Cabir-A atau Skull bisa dideteksi dengan mudah oleh antivirus ponsel seperti yang dimiliki F-Secure atau Norton (symantec). Namun, varian terbaru seperti file PDF yang berpotensi menyerang lubang pada Blackberry belum diantisipasi oleh produsen Antivirus. Hal termudah adalah dengan tidak memasang sembarang aplikasi pada ponsel-ponsel yang rentan (punya sistem operasi pasaran seperti Symbian).



sumber : infokomputer
Baca Selengkapnya

Keylogger 0




Definisi:
 Keylogger merupakan kegiatan merekam semua input yang dimasukkan oleh keyboard yang kemudian disimpan untuk dianalisa.


Masalah yang ditimbulkan:
Karena sifatnya yang bisa merekam semua informasi yang datang dari keyboard, maka Keylogger yang berupa aplikasi sering kali digunakan untuk mencuri informasi sensitif macam username, password, nomor kartu kredit, nomor PIN, dan lain-lain.
Informasi yang berhasil didapat ini akan sangat berbahaya jika kemudian dikirim ke pihak yang tidak bertanggung jawab secara otomatis dengan bantuan virus atau trojan tanpa diketahui korbannya.

Pencegahan/Penetralisir:
Beberapa jenis aplikasi Keylogger sangat sulit untuk dideteksi. Oleh karena itu ada baiknya jika menggunakan fasilitas keyboard di layar (OnScreen Keyboard) milik Windows saat menggunakan komputer umum (misal di warung internet). Aplikasi seperti ini juga bisa diunduh dengan cuma-cuma di www.march-of-faces.org/resources/vkt.html



sumber : infokomputer
Baca Selengkapnya

Hoax 0


Definisi:
 
Hoax adalah berita bohong/palsu tentang sebuah tren yang beredar atau diedarkan di internet, baik melalui email, website, blog, atau sejenisnya sehingga menimbulkan kekuatiran tertentu.

Masalah yang ditimbulkan:
Masalah paling serius yang ditimbulkan dari sebuah Hoax yang beredar adalah kepanikan dan penipuan. Pada tingkat tertentu Hoax juga bisa digunakan untuk kampanye hitam atas sebuah produk atau pribadi. Karena bersifat berantai, Hoax bukan tidak mungkin mampu membebani jaringan internet dan server email sehingga terjadi kelambanan akses atau tidak berfungsinya penyedia layanan email.
Pencegahan/Penetralisir:
Hoax tidak dapat dicegah oleh program antivirus atau antimalware manapun, sebab ia menyerang psikologis pengguna komputer dan bukan komputer itu sendiri. Oleh karena itu, prilaku bijak dalam meneruskan sebuah berita ke teman atau kerabat diperlukan untuk menghindari penyebaran Hoax. Cara efektif lain adalah dengan mencari sumber kedua (second opinion) terhadap berita yang diterima melalui internet.




sumber : infokomputer
Baca Selengkapnya

Fake Antivirus (Antivirus Palsu) 0



Definisi:
 
Fake Antivirus merupakan program antivirus palsu yang beroperasi dengan cara menakut-nakuti pengguna komputer dan memberikan informasi palsu bahwa sebuah komputer telah terinfeksi virus. Kemudian antivirus gadungan ini menyarankan untuk membeli lisensinya sekaligus memberikan jasa palsu pembersihan virus. Program seperti ini dikenal juga dengan sebutan Scareware



Masalah yang ditimbulkan:
Meskipun masuk dalam kategori malware sekaligus Adware, program Antivirus ini tidak terlalu berbahaya bagi sistem. Tugasnya hanyalah menipu pengguna komputer agar membeli sesuatu yang sebenarnya tidak dibutuhkan.
Proses penyebaran antivirus palsu ini juga tidak semasif malware lain yang memanfaatkan kelemahan sistem. Sebab senjata andalan Antivirus palsu adalah dengan melakukan penipuan dengan cara mengubah hasil (misalkan) mesin pencari di internet sehingga seakan-akan antivirus ini terlihat seperti penyedia layanan keamanan asli.

Pencegahan/Penetralisir:
1. Pastikan Anda memilih antivirus dengan merek terkenal dan dibuat oleh perusahaan yang kredibel, misal: Symantec, Sophos, McAfee, TrendMicro, F-Secure, dan lain sebagainya.
2. Gunakan program antivirus seperti pada point 1 dengan kondisi update terbaru.




sumber : infokomputer
Baca Selengkapnya

Exploit 0


Definisi:
 
Exploit adalah sejenis software atau aplikasi yang dibuat untuk menyerang kelemahan dalam sebuah sistem secara spesifik untuk mendapatkan akses atau menginfeksi.


Masalah yang ditimbulkan:
JIka sebuah Exploit berhasil menemukan sebuah titik lemah dalam sistem, maka dia bisa dengan mudah memasukkan malware lain atau melumpuhkan sebuah sistem . Exploit juga bisa dibanfaatkan cracker untuk menyusup ke dalam sistem sebelum disadari oleh vendor aplikasi yang terkena dampaknya, hal ini biasa dikenal dengan sebuta Zero-Day Exploit.

Pencegahan/Penetralisir:
1. Menggunakan aplikasi antivirus dengan update terbaru
2. Memastikan sebuah sistem mendapatkan patch atau update terbaru.
3. Menggunakan teknologi proteksi Buffer Overflow
4. Menggunakan program personal firewall



sumber : infokomputer
Baca Selengkapnya

Serangan Distributed Denial of Service (DDos) 0





Definisi:
 
Distributed Denial of Service (DDoS) adalah serangan terhadap sebuah komputer atau server yang dilakukan oleh banyak komputer lain yang saling terhubung melalui internet.


Masalah yang ditimbulkan:
Karena serangan DDoS dilakukan oleh banyak komputer terhadap satu target (komputer/server) maka masalah teringan yang mungkin terjadi adalah sulitnya sebuah komputer atau server yang menjadi korban untuk diakses.
Kasus terburuk dalam serangan DDoS adalah kelumpuhan total sebuah mesin akibat kerusakan perangkat keras karena “dihujani” paket data yang sangat besar. Beberapa sistem yang sangat menarik bagi penyerang DDoS antara lain: Web server, FTP Server, Email Server, dan sebagainya.
DDoS juga sering kali melibatkan malware yang disebut dengan botnet. Ia bekerja mirip trojan yang menembuh ke sistem tertentu dan menjadikannya komputer suruhan (zombie). Itulah sebabnya pengguna komputer yang dipakai untuk menyerang komputer lain kadang tidak menyadarinya.

Pencegahan/Penetralisir:
Meskipun tidak ada cara terbaik untuk menghindari DDoS namun identifikasi mana titik terlemah dalam jaringan serta penggunaan Firewall yang mampu menghilangkan paket DDoS secara otomatis adalah 2 cara yang dapat dilakukan untuk melindungi sistem dari serangan ini.
Penggunaan perangkat siap pakai macam Cisco Self Defending Network Appliance juga bisa dijadikan pilihan lain untuk mengelak dari serangan DDoS.





sumber : infokomputer
Baca Selengkapnya

Brute Force 2






Definisi:
 
Brute Force adalah salah satu cara yang digunakan cracker untuk menebak kata kunci (password) tertentu.
Prosesnya dilakukan dengan cara menebak secara urutan sebuah kombinasi password mulai dari kombinasi angka 0 sampai , A sampai Z, dan seterusnya pada setiap digit kata kunci.


Masalah yang ditimbulkan:

Sebuah kata kunci yang berhasil ditebak dengan teknik Brute Force mengakibatkan akses ilegal terhadap sebuah akun. Jika yang berhasil ditebak adalan akun administrator (petinggi dalam sebuah sistem), maka bukan tidak mungkin sistem tersebut akan berpindah tangan (take over).
Brute Force adalah teknik menembus sistem yang paling populer dan bsia digunakan di hampir semua sistem yang menggunakan sistem otentikasi berbasis kata kunci.


Pencegahan/Penetralisir:
 
1. Buat kata kumci yang tidak mudah ditebak. Misal, gabungan angka, huruf dan kombinasi karakter khusus seperti “ &^%$#@*”


2. Buat kata kunci dengan jumlah karakter tidak kurang dari 8. Makin panjang jumlah karakter yang digunakan makin sulit dan butuh waktu untuk Brute Force bisa menebak sebuah kombinasi.




sumber :infokomputer
Baca Selengkapnya

Malware Bootsector 0





Definisi:
 
Sesuai namanya, Malware Bootsector menetap bootsector harddisk untuk selanjutnya melakukan penyebaran diri dengan cara memodifikasi program yang pertama kali jalan di sebuah sistem, misal sistem operasi (OS)






Masalah yang ditimbulkan:
 
Jenis malware ini paling banyak digunakan untuk menyebarkan virus karena bekerja dengan cara mengubah informasi boot sector asli di harddisk. Sistem operasi yang telah terinfeksi akan menjadi zombie (sistem suruhan) untuk menyebarkan malware ke semua media simpan yang ditemukannya, termasuk CD ROM, USB Flash disk.
Selain di harddisk, malware yang satu ini juga bisa menginfeksi beragam media simpan, termasuk CD ROM, DVD ROM, floppy disk, dan USB Flash Disk.
Pencegahan/Penetralisir:
 
1. Gunakan program antivirus
2. Install ulang Windows







sumber : infokomputer
Baca Selengkapnya

Email Malware 0

 




Definisi:


Email Malware adalah jenis-jenis Malware (virus, trojan, rootkit, dan lain-lain) yang disebarkan dalam bentuk lampiran (attachment) email.








Masalah yang ditimbulkan:
 
Malware yang disebarkan lewat email dalam bentuk lampiran memiliki sifat perusak yang sama dengan malware yang menyebarkan dirinya lewat media lain. Malware email ini juga selalu menggandakan dirinya lewat media email yang dikirim tanpa sepengetahuan korbannya.
Beberapa malware terbaru yang dilaporkan tidak cuma membawa file berbahaya dalam rupa lampiran, tapi ada yang hanya menyisipkan alamat ke sebuah situs tertentu yang jika dibuka akan mengunduh malware lain untuk menginfeksi sistem.
Pencegahan/Penetralisir:
 
Serangan jenis ini bisa dengan mudah dihindari dengan penggunaan aplikasi Anti-Spam atau sejenisnya yang terdapat dalam paket aplikasi keamanan atau yang berdisi sendiri macam yang dibuat oleh Comodo (www.comodoantispam.com).

Cara murah lainnya adalah dengan tidak membuka file lampiran berformat executable (.bat, .exe, .vbs, .com) tanpa diperiksa oleh aplikasi Antivirus.




sumber : infokomputer
Baca Selengkapnya

Adware 0





Definisi:
 
Adware atau kepanjangan dari Advertising Ware, adalah jenis program komputer yang berfungsi untuk menampilkan iklan di layar monitor.










Masalah yang ditimbulkan:
 
Pada dasarnya Adware dibuat untuk kebutuhan pemasaran sebuah produk atau jasa. Selama digunakan dalam kondisi normal Adware sama sekali tidak bermasalah atau berbahaya, misal adware yang disematkan pada program gratisan untuk mendukung pengembangan aplikasi yang bersangkutan.
Tapi, Adware bisa menjadi masalah jika:
  • Memaksa untuk memasang/menginstalasi dirinya di sebuah komputer
  • Menetap dalam komputer dan tidak bisa / sulit untuk dihilangkan
  • Mengambil data dari kegiatan berkomputer dan mengirimkannya ke sumber tertentu tanpa konfirmasi dari si pemilik komputer
  • Melakukan instalasi aplikasi lain yang tidak terkait dengan iklan yang ditampilkan
Semua Adware sangat mungkin untuk menjadikan sebuah komputer atau sistem menjadi lambat karena penggunaan sumber daya multimedia. Selain sistem, koneksi internet bisa berpotensi melambat karena Adware selalu mengunduh materi iklan yang baru.
Beberapa jenis Adware seperti “pop up ads” mungkin bisa mengganggu pengguna komputer karena muncul sewaktu-waktu saat komputer sedang digunakan untuk hal lain yang tidak terkait dengan adware.


Pencegahan/Penetralisir:
 
1. Hati hati menggunakan aplikasi/program gratisan
2. Gunakan program anti Adware seperti ad-aware buatan Lavasoft (www.lavasoft.com)








sumber : infokomputer
Baca Selengkapnya

Sunflower 0

Made by
Kang Seok-beom (강석범)

Screenplay by
Kang Seok-beom (강석범)
Song Min-ho (송민호)

Cast
Kim Rae-won
Kim Hae-sook
Heo I-jae
Kim Byeong-ok
Kim Jeong-tae
Han Jeong-soo
Ji Dae-han
Park Cheol-ho




Sinopsis:
Ini film tentang seorang kepala preman yang insyaf. Tae-Sik seorang pemuda yang DO dr SMA dan jadi preman yang paling disegani di Seoul. sampai akhirnya dia masuk penjara karena membunuh orang. cerita berawal ketika Tae-sik keluar dari penjara dan memutuskan untuk bertobat dan janji gak akan minum dan berkelahi lagi. dia tinggal di rumah wanita yang mengangkatnya jadi anak, padahal tae-shik orang yang telah membunuh anaknya sendiri. jadilah si tae-shik ini orang baik. sampai suatu ketika restoran tenpat ibu tae-shik berjualan akan digusur, restoran itu didatangi oleh para tukang pukul dan preman2 suruhan bos bessar korea. preman2 tersebut tidak berani menggusur tempat itu karena merasa takut dengan tae-shik, apalagi kepala premannya adalah anak buah tae-shik jaman dulu. janji tae-shik untuk tidak berkelahi lagi, akhirnya dilanggar karena ibunya di bunuh oleh para preman suruhan bos besar. dan tae-shik pun membalas dendam

Donlot disini
Baca Selengkapnya

Beriman Sejenak 0

6 Pertanyaan Untuk renungan kita bersama...

1. Apa yang paling dekat dengan diri kita di dunia ?

2. Apa yang paling jauh dari kita di dunia ?

3. Apa yang paling besar di dunia ?

4. Apa yang paling berat di dunia ?

5. Apa yang paling ringan di dunia ?

6. Apa yang paling tajam di dunia ?

Suatu hari, Imam Al Ghozali berkumpul dengan murid-muridnya. Lalu Imam Al Ghozali bertanya....

Pertama : “Apa yang paling dekat dengan diri kita di dunia ini?".

Murid-muridnya menjawab "orang tua,guru,kawan,dan sahabatnya". Imam Ghozali menjelaskan semua jawapan itu benar. Tetapi yang paling dekat dengan kita adalah "MATI". Sebab itu sememangnya janji Allah SWT bahwa setiap yang bernyawa pasti akan mati. (Ali Imran 185)

Kedua : "Apa yang paling jauh dari diri kita di dunia ini?".

Murid -muridnya menjawab "negara Cina, bulan, matahari dan bintang - bintang". Lalu Imam Ghozali menjelaskan bahawa semua jawapan yang mereka berikan itu adalah benar. Tapi yang paling benar adalah "MASA LALU". Walau dengan apa cara sekalipun kita tidak dapat kembali ke masa lalu. Oleh sebab itu kita harus menjaga hari ini dan hari-hari yang akan datang dengan perbuatan yang sesuai dengan ajaran Agama.

Ketiga : "Apa yang paling besar di dunia ini?".

Murid-muridnya menjawab, "gunung, bumi dan matahari". Semua jawapan itu benar kata Imam Ghozali. Tapi yang paling besar dari yang ada di dunia ini adalah "NAFSU" (Al A'Raf 179).

Maka kita harus berhati-hati dengan nafsu kita, jangan sampai nafsu membawa kita ke neraka.

Keempat : "Apa yang paling berat di dunia ini?".

Ada yang menjawab "besi dan gajah". Semua jawapan adalah benar, kata Imam Ghozali, tapi yang paling berat adalah "MEMEGANG AMANAH" (Al Ahzab 72).

Tumbuh-tumbuhan, binatang, gunung, dan malaikat semua tidak mampu ketika Allah SWT meminta mereka untuk menjadi kalifah (pemimpin) di dunia ini. Tetapi manusia dengan sombongnya menyanggupi permintaan Allah SWT, sehingga banyak dari manusia masuk ke neraka karena ia tidak dapat memegang amanahnya.

Kelima : "Apa yang paling ringan di dunia ini?"...

Ada yang menjawab "kapas, angin, debu dan daun-daunan". Semua itu benar kata Imam Ghozali, tapi yang paling ringan di dunia ini adalah meninggalkan Sholat. Gara-gara pekerjaan kita meninggalkan sholat, gara-gara bermesyuarat kita meninggalkan sholat.

Keenam adalah, "Apakah yang paling tajam di dunia ini?"...

Murid-muridnya menjawab dengan serentak, "pedang". Benar kata Imam Ghozali, tapi yang paling tajam adalah "LIDAH MANUSIA" Karena melalui lidah, Manusia selalunya menyakiti hati dan melukai perasaan saudaranya sendiri.
Baca Selengkapnya

Physical Layer 0

Physical layer ada di antara data link layer dan media transmisi. Tugas utamanya adalah menyediakan servis untuk data link layer. Salah satu servis yang disediakan oleh physical layer adalah membentuk sinyal yang merepresentasikan aliran data dalam bentuk bit 0 dan 1 dari data link layer.

Physical layer juga mengatur media transmisi. Layer inilah yang menentukan aliran data, dan jumlah saluran (logical channel) utnuk mengirimkan data yang datang dari sumber yang berbeda.

Tujuan:


1. Membedakan data analog dan digital

2. Membedakan sinyal analog dan digital

3. Mengerti konsep bandwidth dan hubungan antara bandwith dan data transmission

4. Mengerti enkode digital-to-digital, digital-to-analog dan analog-to-digital

5. Mengerti tentang multiplexing


1.1. Digital dan Analog

Sebagai ilustrasi, bayangkan perbedaan antara aliran air dan lalu lintas di jalan. Ilustrasi untuk data analog adalah air yang mengalir di suatu saluran atau sungai, dengan molekul-molekul yang saling terikat dan bagian-bagiannya tidak dapat dibedakan dengan jelas. Kita dapat menghitung volume air dalam suatu ember, tapi itu bukan jumlah sesungguhnya, karena kita tidak dapat menghitung satu persatu molekul yang membentuk volume air tersebut. Aliran air selalu kontinu.

Sedangkan dalam lalu lintas di jalan, kita dapat membedakan mobil yang satu dengan mobil yang lain, masing-masing memiliki bentuk fisik yang berbeda dan dapat dengan mudah dihitung. Ilustrasi ini berlaku untuk data digital.


DATA DIGITAL DAN ANALOG

Data digital

Komputer menyimpan data dalam bentuk symbol yang disimpan dalam memori komputer. Tiap unit memori adalah suatu switch, dan memiliki dua keadaan, yaitu on dan off, dan symbol yang digunakan adalah 0 dan 1 (dikenal sebagai bit). Informasi yang disimpan dalam memori komputer merupakan kombinasi dari 0 dan 1.

Contoh data digital:

110001100……………………………….10101010



Data Analog

Data analog adalah informasi yang kontinu. Seperti aliran air yang tidak terputus, terus mengalir hingga suatu saat sampai di laut atau masuk ke dalam lubang di tanah.


SINYAL DIGITAL DAN ANALOG

Dalam komunikasi data, data ditransfer dari satu komputer ke komputer lainnya melalui media transmisi. Data yang dilewatkan haruslah dalam bentuk yang dapat diterima media transmisi, yaitu energi elektromagnetik (dalam bentuk sinyal).

Sinyal adalah energi elektromagnetik yang melewati kabel/saluran transmisi. Sinyal yang melewati saluran transmisi bisa terdiri dari sinyal digital dan sinyal analog.


Sinyal Digital

Data (baik data digital maupun data analog) dapat direpresentasikan oleh sinyal digital. Misalnya, suatu 1 dapat di-enkode sebagai suatu tegangan positif dan 0 sebagai tidak adanya tegangan.

Ada dua term penting yang berkaitan dengan transmisi sinyal digital yaitu bit interval dan bit rate. Bit interval adalah waktu yang diperlukan untuk mengirimkan suatu bit. Sedangkan bit rate adalah jumlah dari bit yang dikirimkan dalam satu detik, dikenal juga sebagai bit per second (bps).


Unit-unit dari bit rate sebagai berikut:

One bit per seconds (bps) = 1 bps
Kilobits per seconds (kbps) = 1.000 bps
Megabits per seconds (Mbps) = 1.000.000 bps
Gigabits per seconds (Gbps) = 1.000.000.000 bps
Terabits per second (Tbps) = 1.000.000.000.000 bps


Signal Analog

Data ditransmisikan dalam bentuk gelombang yang kontinu. Sinyal sinusoida merupakan bentuk dasar dari sinyal analog. Sinyal ini berubah secara konsisten dan kontinu secara teratur dalam suatu cycle.

Sinyal sinusoida memiliki tiga karakterisitik, yaitu amplitude (amplitude), period atau frequency (frekuensi) dan phase (fasa)

Amplitudo adalah nilai dari sinyal tersebut di suatu titik pada gelombang. Merupakan jarak vertical dari sumbu horizontalnya. Amplitudo maksimum suatu gelombang sinusoida adalah titik tertinggi yang dicapai pada sumbu vertikal.

Periode adalah jumlah waktu yang dibutuhkan (dalam detik) oleh suatu sinyal, untuk melengkapi satu cycle.

Frekuensi adalah jumlah dari cycle dalam satu detik. Frekuensi = 1/Periode

Fasa adalah posisi dari gelombang relatif saat waktu (t) = 0. Jika kita asumsikan gelombang adalah sesuatu yang dapat dipindahkan ke depan atau ke belakang sepanjang sumbu waktu, fasa mendeskripsikan jumlah dari perpindahan tersebut, mengindikasikan status dari cycle yang pertama. Fasa diukur dalam derajat, atau radian (360 derajat adalah 2p radian).

Sinyal Kompleks

Dalam dunia nyata, suatu sinyal biasanya terdiri dari beberapa sinyal sederhana. Misalnya, suatu sinyal yang telepon genggam dengan teknologi GSM dapat memiliki frekuensi 890-915 MHz untuk uplink (dari mobile ke base station) dan 935-960 MHz untuk downlink (dari base station ke mobile).

Bandwidth
Dalam suatu sinyal yang kompleks, bandwidth dari suatu sinyal adalah perbedaan antara frekuensi tertinggi dan frekuensi terendah. Misalnya suatu sinyal memiliki frekuensi antara 10 kHz dan 50 kHz berarti memiliki bandwidth 40 kHz.

Telepon rumah konvensional memiliki bandwith 4 kHz. Jalur ini didesain untuk membawa data berupa suara manusia yang memiliki frekuensi antara 0 – 4 kHz. Sinyal digital yang merupakan sinyal kompleks, memiliki bandwidth yang jauh lebih lebar dari sinyal analog, sehingga memerlukan kualitas jalur transmisi yang lebih baik dengan memperlebar bandwidth, atau memodifikasi sinyal digital tersebut hingga mampu melalui jalur dengan bandwidth 4 kHz.


1.2. Mengubah Data Menjadi Sinyal

Dalam pengiriman data, ada empat skenario yang dapat terjadi sebagai berikut:
* Mengirimkan data digital menggunakan sinyal digital
* Mengirimkan data digital menggunakan sinyal analog
* Mengirimkan data analog menggunakan sinyal digital
* Mengirimkan data analog menggunakan sinyal analog

Digital Encoding – Konversi Digital ke Digital

Bila data yang akan dikirim dalam bentuk digital (dalam bentuk 0 dan 1), dan media transmisinya mampu untuk menangani sinyal digital (memiliki bandwidth yang lebar) maka physical layer mampu untuk untuk meng-enkode data digital ke sinyal digital utnuk pentransmisian.

Hampir semua LAN (Local Area Network) menggunakan endoke digital-to-digital karena data yang disimpan dalam komputer adalah data digital dan kabel yang menghubungkan komputer-komputer tersebut mampu membawa sinyal digital.

Modulasi - Konversi Digital ke Analog

Kadangkala physical layer perlu merubah data digital menjadi sinyal analog, misalnya saat penggunaan telepon konvensional untuk mengirim data digital via Internet. Jalur yang digunakan adalah jalur analog dengan bandwidth yang sempit, sekitar 4 kHz yang tidak memungkinkan untuk dilewati sinyal digital dalam pengiriman data yang reliable. Pada kasus ini diperlukan konversi digital ke analog, yang dikenal sebagai modulasi. Suatu piranti yang disebut modem (modulator/demodulator) diperlukan untuk memodulasi dan mendemolasi data.


Sampling Data Analog: Konversi Analog ke Digital

Konversi data dari analog ke digital diperlukan saat data analog akan dikirimkan sebagai sinyal digital. Misalnya pengiriman data suara jarak jauh via perusahaan telepon melalui jaringan digital. Suara dikirimkan sebagi sinyal analog dari pelanggan, dan kemudian dilewatkan via jaringan digital. Ada dua alasan penggunaan sinyal digital untuk jalur telepon jarak jauh. Pertama, sinyal digital lebih tahan terhadap noise dan kedua jaringan digital dapat digunakan dalam transmisi data, selain suara.


1.3. TRANSMISSION MODES

Hal yang perlu diperhatikan dalam pengiriman data digital dari satu piranti ke piranti yang lain adalah wiring (pengkabelan). Dalam pengkabelan ini hal yang perlu diperhatikan adalah data stream (aliran data).Pengiriman data biner dapat dilakukan melalui suatu jalur menggunakan mode parallel atau serial. Dalam pode parallel, beberapa bit dikirmkan dalam satu pulsa, sedangkan pada mode serial setiap bit dikirimkan per pulsa.


Transmisi Paralel

Mekanisme transmisi parallel adalah menggunakan n wires (sejumlah n pengkabelan) untuk mengirimkan sejumlah n bits pada satu waktu. Setiap bit memiliki pengkabelan tersendiri, dan semua n bits dari satu groups dapat ditransmisikan pada tiap pulsa dari satu piranti ke piranti lainnya.

Keuntungan dari transmisi parallel adalah kecepatan. Tetapi, transmisi parallel membutuh sejumlah n jalur komunikasi untuk mentrasnmisikan aliran data.

Transmisi Serial

Pada transmisi serial, 1 bit diikuti oleh bit yang lain secara berurutan sehingga hanya dibutuhkan satu jalur komunikasi antara 2 piranti. Keuntungan dari transmisi ini adalah mengurangi biaaya karena hanya diperlukan satu jalur.


1.4. LINE CONFIGURATION (KONFIGURASI JALUR)

Line configuration mengacu pada bagaimana dua piranti terhubung pada suatu jalur/link. Jalur/link adalah saluran komunikasi fisik yang mentransmisikan data dari satu piranti ke piranti lainnya. Bayangkan saat anda harus melewati jalan raya untuk mencapai tujuan dari rumah anda. Jalan yang anda lewati dapat dianalogikan sebagai jalur/link dalam komunikasi data.

Point to Point

Suatu konfigurasi point to point menyediakan jalur tertentu antara dua piranti. Seluruh kapasitas jalur tersebut didedikasikan untuk transmisi antara dua piranti tersebut. Misalnya saat anda merubah saluran TV menggunakan gelombang infrared dari remote control, anda menggunakan konfigurasi point to point antara remote control dan system kontrol televisi.


Multipoint

Yaitu saat lebih dari satu piranti berbagi jalur yang sama.


1.5.DUPLEXITY

Duplexity mengacu kepada arah dari aliran sinyal antara dua piranti yang saling berhubungan. Ada dua mode transmisi yaitu half-duplex dan full-duplex.

Half Duplex

Dalam mode half-duplex tiap piranti dapat mengirim dan menerima data, tapi tidak pada waktu yang sama. Saat suatu piranti mengirim, piranti yang lain dapata menerima dan begitu pula sebaliknya.

Mode half-duplex adalah seperti suatu jalan sempit 2 arah. Saat suatu mobil sedang melewatinya, mobil dari arah yang berlawanan harus menunggu. Pada half-duplex semua kapasitas saluran digunakan oleh salah satu piranti yang sedang mengirimkan data. Contoh sistem half-duplex misalnya walkie-talkie.

Full Duplex

Pada full-duplex setiap piranti dapat mengirim dan menerima data secara bersamaan. Analoginya adalah jalan lebar 2 arah. Kendaraan dari 2 arah yang berlawanan dapat lewat pada saat yang sama. Pada mode ini, sinyal menuju arah yang berlawanan saling berbagi kapasitas jalur. Contoh sistem full-duplex adalah jalur telepon. Saat menggunakan telepon kita dapat berbicara dan mendengarkan pada saat yang bersamaan.


1.6.MULTIPLEXING

Saat kapasitas transmisi (yaitu bandwidth a.ka. jumlah bit yang dapat dikirim per detik) dari suatu media yang menghubungkan dua piranti lebih besar dari yang dibutuhkan, jalur tersebut dapat digunakan bersama. Bayangkan suatu saluran air yang dapat membawa volume air untuk dibagikan ke banyak pelanggan pada satu waktu. Multiplexing adalah suatu cara yang digunakan untuk melakukan transmisi lebih dari satu sinyal secara bersamaan melewati satu jalur data.

Frequency Division Multiplexing (FDM)

FDM adalah suatu teknik analog yang dapat diaplikasikan saat bandwidth dari suatu jalur lebih besar dari total bandwidth dari sinyal yang ditransmisikan. Dalam FDM, sinyal yang dibangkitkan tiap piranti dimodulasi oleh frekuensi pembawa yang berbeda-beda. Sinyal termodulasi ini kemudian dikombinasi ke dalam satu sinyal yang kompleks yang dapat dikirimkan via jalur tersebut.

Wave-Division Multiplexing (WDM)

WDM memiliki konsep yang sama seperti FDM, tetapi proses multipleksing dan demultipleksingnya dilakukan pada sinyal cahaya yang ditransmisikan melalui jalur fiber-optic (serat kaca). Perbedaannya adalah frekuensi yang digunakan sangat tinggi.

Time Division Multiplexing (TDM)

TDM adalah suatu proses digital yang dapat diaplikasikan saat data-rate maksimal medium transmisi lebih besar daripada data-rate yang dibutuhkan oleh piranti pengirim dan penerima.

Baca Selengkapnya

Contoh Dasar Pemrograman Freebasic 0

Contoh 1 :

Rem Ainmasi Tulisan Dari Atas Ke Bawah
Dim X as Integer
Dim Bawah as Integer
Dim Pjkata as Integer
Const Kata="ANG_NDHY"
Pjkata=Len(kata)

'Hitung Posisi Bawah Kolom
Bawah=(25-Pjkata)/2

'Looping
For X=1 To Bawah
Locate x,36
Print Kata

'Menentukan waktu bergerak
Sleep 300
Locate x,36
Print String(Pjkata," ")

Next
Locate x,36
Print Kata

Sleep
End



Contoh 2 :

Rem Animasi Tulisan Bergerak dari Kiri Ketengah Layar
Dim X as Integer , Tengah as Integer
Dim Pjkata as Integer
Const Kata="ANIMASI"

'Hitung Panjang Kata
Pjkata=Len(Kata)

'Hitung Posisi Tengah Kolom
Tengah=(80-Pjkata)/2

'Looping
For X=1 To Tengah
Locate 12,X
Print Kata

'Menentukan Waktu Bergerak
Sleep 300
Locate 12,X
Print String(Pjkata," ")

Next
Locate 12,Tengah
Print Kata
Sleep
End



Contoh 3 :

rem cetak bilangan dalam bentuk array
cls
dim bilangan(5) AS integer, total as integer
dim x as integer, j as integer

for x = 1 to 5
input "ketik bilangan = "; bilangan(x)

next

cls
'cetak judul tabel
locate 2,10
print "NO."
LOCATE 2,20
PRINT "bilangan"
locate 3,10
print string (18,"_")

for j = 1 to 5
locate j+3,10
print j

locate j+3,20
print bilangan (j)

'hitung total

next

locate 9,10

print string (18,"_")

locate 10,10
print "total :"
locate 10,20
print total
sleep
end



Contoh 4 :

Rem cetak kalimat 20 kali
cls
dim x AS integer
const kal= "saya belajar algoritma"
for X=1 TO 20
print kal
next
sleep
end



Contoh 5 :

rem cetak kartu hasil studi
dim km (8) as string, mtk (8) as string, sks (8) as integer
dim ipk as integer, nh(8) as string, bb(8) as integer, ti as integer
dim jm(8) as integer, sm as string, jms as integer, jsks as integer
dim x as integer, j as integer,nm as string,npm as double

data "mkb001"
data "mkb002"
data "mkb003"
data "mkk001"
data "mkk002"
data "mkk003"
data "mkk004"
data "mkk005"

'cetak judul
locate 2,30:print "KARTU HASIL STUDI"
locate 3,31:print "SEMESTER GANJIL"
locate 4,32:print "TA.2009/2010"
LOCATE 5,30:print "_________________"
print : print

locate 7,25:input"Nama:";nm
locate 7,25:input"Nama:";nm
locate 8,25:input"NPM:";npm
locate 8,25:input"NPM:";npm
Print:print

locate 10,5 : print string (76,"_")
locate 11,5 : print "No"
locate 11,10 : print "Kode MTK"
locate 11,20 : print "MTK"
locate 11,40 : print "SKS"
locate 11,45 : print "Nilai Huruf"
Locate 11,60 : print "Bobot"
locate 11,70 : print "Jumlah Mutu"
locate 12,5 : print string (76,"_")

'cetak data
for x = 1 to 8
read km(x)
if ucase (km(x)) = "MKB001" then
mtk (x) = "paket prog.aplikasi"
sks (x) = 3
elseif ucase (km(x)) = "MKB002" then
mtk (x) = "algoritma"
sks (x) = 3
elseif ucase (km(x)) = "MKB003" then
mtk(x) = "ms.access"
sks (x) = 3
elseif ucase (km(x)) = "MKK001" then
mtk(x) = "manaj.umum"
sks(x) = 3
elseif ucase (km(x)) ="MKK002" then
mtk (x) = "peng.tek.informatika"
sks (x) = 2
elseif ucase (km(x)) = "MKK003" then
mtk(x) = "matematika"
sks(x) = 3
elseif ucase (km(x)) ="MKK004" then
mtk(x) = "b.inggris"
sks(x) =2
else
mtk(x) = "pend. agama"
sks (x) = 2
end if

locate x+12,5 : print x
locate x+12,10 :print km(x)
locate x+12,20 :print mtk(x)
locate x+12,40 :print sks(x)
locate x+12,48:input nh(X)
locate x+12,48:print nh(x)

'cetak nilai huruf dan bobot
if ucase (nh(x)) ="A" then
bb(x) = 4
elseif ucase (nh(x)) ="B" then
bb(x) = 3
elseif ucase (nh(x)) ="C" then
bb(x)= 2
elseif ucase (nh(x)) ="D" then
bb(x)= 1
else
bb(x)= 0
end if

locate x+12,60:print bb(x)

'hitung jumlah mutu
jm(x) = sks(x) * bb(x)
jms = jms + jm(x)
jsks = jsks + sks(x)
ti = jms/jsks
locate x+12,73: print jm(x)

'sks maksimal
if ti <=1.00 then
sm = "12sks"
elseif ti <=2.00 then
sm = "16sks"
elseif ti <=2.50 then
sm = "18sks"
elseif ti <=2.99 then
sm = "22sks"
else
sm = "24sks"
end if

next

locate 21,5:print string (76,"_")
locate 22,5:print "Total ipk =";ti
locate 22,30:print "sks maksimal =";sm

sleep
end



Contoh 6 :

rem aplikasi menghitung nilai siswa
rem menggunakn sub module dan fungsi ciptaan
cls
DIM shared nilaiujian as integer
'fungsi ciptaan
function NHuruf (Nilai AS single) as string
DIM hasil as string
IF Nilai <=40 then
hasil = "E"
Elseif Nilai <=45 then
hasil = "D"
Elseif Nilai <=64 then
hasil = "C"
Elseif Nilai <=74 then
hasil = "B"
Elseif Nilai <=100 then
hasil = "A"
End if

'panggil fungsi
NHuruf = hasil
END FUNCTION
Function status (NAngka as single) as string
if NAngka >= 55 then
status="Lulus"
Elseif NAngka <54 then
status="tidak lulus"
End if
end function

'sub modul
sub cetakjudul (teks as string, baris as integer)
dim kolom as integer
kolom = (80-Len(Teks))/2
color 14
locate baris, kolom
print teks
end sub

SUB inputdata
dim nama as string
dim NPM as string
input "Nama Mahasiswa ="; Nama
input "NPM Mahasiswa ="; NPM
input "Nilai Ujian ="; Nilaiujian
print:print
End sub

'main program
'panggil prosedur dan fungsi ciptaan
const j1="Aplikasi Menghitung Nilai Siswa"
const j2="Menggunakan sub modul dan fungsi"
const j3="________________________________"
'panggil prosedur cetak judul
CETAKJUDUL j1,2
CETAKJUDUL j2,3
CETAKJUDUL j3,4
'panggil prosedur input data
color 15
Inputdata
'panggil fungsi NHuruf + status
color 12
print"Nilai Huruf ="; NHuruf (NilaiUjian)
Print "Status ="; status (NilaiUjian)
sleep
End



Contoh 7 :


Rem cetak nilai 3-40 dilayar
dim I AS integer
for I=3 TO 40
Print 1
next
sleep
end



Contoh 8 :

rem menghitung Gaji Bersih PT. ARISA MANDIRI
Dim NK as string, Gol as string, TI as integer, TK as integer, GP as integer
dim TG as integer, Pot as integer
dim GB as integer
dim ulang as string *1

print "Menghitung Gaji Bersih PT. ARISA MANDIRI"

ulang="Y"
ulang="y"
while ulang ="Y" or ulang ="y"

input"Nama Karyawan=";NK
input"Golongan=";Gol

'menentukan Golongan
if Gol="A" or Gol="a" then
GP=500000
TI=125000
TK=100000
elseif Gol="B" or Gol="b" then
GP=750000
TI=150000
TK=200000
elseif Gol="C" or Gol="c" then
GP=850000
TI=175000
TK=300000
endif

'Menghitung Total Gaji
TG=GP+TI+TK

' Menghitung potongan
if TG >=700000 then
Pot=0.1*TG
elseif TG<700000 then
Pot=0.05*TG
endif

'Menghitung Gaji Bersih
GB=TG-Pot

'cetak hasil
print"Nama Karyawan=";NK
print"Golongan=";Gol
print"Tunjangan Insetive=";TI
print"Tunjangan Karyawan=";TK
print"Gaji Pokok=";GP
print"Total Gaji=";TG
print"Potongan=";Pot
print"Gaji Bersih=";GB


locate 23,1
input"isi data lagi(Y/T)=";ulang

wend
end



Contoh 9 :

REM PEMBAYARAN RAWAT INAP PASIEN
CLS

SCREEN 18, 30, 4, 1

DIM SHARED KK AS INTEGER,KP AS STRING

'FUNGSI CIPTAAN
'FUNGSI NAMAKAMAR
FUNCTION NKAMAR(KK AS INTEGER)AS STRING
IF KK = 01 THEN
NKAMAR = "? Kelas III"
ELSEIF KK = 02 THEN
NKAMAR = "? Kelas II"
ELSEIF KK = 03 THEN
NKAMAR = "? Kelas I"
ELSEIF KK = 04 THEN
NKAMAR = "? Kelas VIP"
ELSEIF KK = 05 THEN
NKAMAR = "? Kelas SVIP"
ELSE
NKAMAR = "? Coba Ulangi lagi.."
END IF
END FUNCTION

'FUNGSI TARIF KAMAR/HARI
FUNCTION TKAMAR(KK AS INTEGER)AS SINGLE
IF KK = 01 THEN
TKAMAR = 80000
ELSEIF KK = 02 THEN
TKAMAR = 350000
ELSEIF KK = 03 THEN
TKAMAR = 600000
ELSEIF KK = 04 THEN
TKAMAR = 1000000
ELSEIF KK = 05 THEN
TKAMAR = 1600000
END IF
END FUNCTION

'SUB MODUL
SUB CETAKJUDUL (TEKS AS STRING, BARIS AS INTEGER)
DIM KOLOM AS INTEGER
KOLOM = (80-LEN(TEKS))/2
COLOR 11

LOCATE BARIS, KOLOM
PRINT TEKS
END SUB

SUB INPUTDATA
DIM NAMA AS STRING,LI AS INTEGER,BKAMAR AS DOUBLE
LOCATE 8,13:INPUT "Nama Pasien ="; Nama
LOCATE 9,13:INPUT "Umur ="; UM
LOCATE 10,13:INPUT "Kode Pasien =";KP
LOCATE 11,13:INPUT "Kode Kamar ="; KK
LOCATE 12,13:INPUT "Lama Inap ="; LI

'PROSES
IF KK = 01 THEN
BKAMAR = LI * 80000
ELSEIF KK = 02 THEN
BKAMAR = LI * 350000
ELSEIF KK = 03 THEN
BKAMAR = LI * 600000
ELSEIF KK = 04 THEN
BKAMAR = LI * 1000000
ELSEIF KK = 05 THEN
BKAMAR = LI * 1600000
ELSE
BKAMAR = 0
END IF

PRINT:PRINT

LOCATE 21,18:PRINT "TOTAL BIAYA =";BKAMAR
END SUB

'MAIN PROGRAM
'PANGGIL PROSEDUR DAN FUNGSI CIPTAAN
CONST J0 = "--------------------------------"
CONST J1 = "||----------------------------||"
CONST J2 = "|| RS Internasional Bintaro ||"
CONST J3 = "||Pembayaran Rawat Inap Pasien||"
CONST J4 = "||----------------------------||"
CONST J5 = "--------------------------------"
CONST J6 = "|-------------------------------------------------------|"

'PANGGIL PROCEDUR JUDUL
CETAKJUDUL (J0,1)
CETAKJUDUL (J1,2)
CETAKJUDUL (J2,3)
CETAKJUDUL (J3,4)
CETAKJUDUL (J4,5)
CETAKJUDUL (J5,6)
CETAKJUDUL (J6,14)

'PANGGIL PROCEDURE INPUT DATA
COLOR 14
INPUTDATA

'PANGGIL FUNGSI TKAMAR + STATUS

COLOR 14
LOCATE 10,13:PRINT "Kelas Kamar =";NKAMAR(KK)
LOCATE 20,13:PRINT "Tarif Kamar/Hari =";TKAMAR (KK)

SLEEP
END



Contoh 10 :

rem aplikasi menghitung nilai siswa
rem menggunakan sub module dan ciptaaan

cls
dim shared nilaiujian as integer

'fungsi ciptaan
function nhuruf ( nilai as single ) as string
dim hasil as string
if nilai < = 40 then
hasil = "e"
elseif nilai < = 54 then
hasil = "d"
elseif nilai < = 64 then
hasil = "c"
elseif nilai < = 74 then
hasil = "b"
elseif nilai < = 100 then
hasil = "a"

end if

'panggil fungsi
nhuruf = hasil

end function


function status (nangka as single) string
if nangka >= 55 then
status = "lulus"

elseif nangka < 54 then
status = "tidak lulus"

'
sub modul
sub cetakjudul ( teks as string, baris as integer )
dim kolom as integer
print teks
end sub

color 14
locate baris kolom
print teks
end sub

sub input data

dim nama as string,
dim npm as string

input "nama mahasiswa = ;"nama
input "npm mahasiswa = ;"nmp
input "nilai ujian =;" nilai ujian

print : print

end sub

'main program
'panggil prosedur dan fungsi ciptaan

const J1 = "aplikasi menghitung nilai siswa"
const J2 = "menggunakan sub model dan fungsi"
const J3 = "________________________________"

'panggil prosedur cetak judul
cetak judul J1, 2
cetak judul J2,3
cetak judul J3, 4

'panggil prosedure input data
color 15
input data

'panggil fungsi nhuruf + status(nilai ujian)
print "status = ;" nhuruf(nilai ujian)
print "status = ;" status ( niali ujian)

sleep
end



Contoh 11 :

REM MEMBUAT FORMAT HURUF
REM NAMA FUNGSI ADALAH : TITLE CASE
CLS
'HURUF KAPITAL
FUNCTION TITLECASE (TEKS AS STRING) AS STRING
DIM I AS INTEGER,HASIL AS STRING,KARAKTER AS STRING
DIM PJKATA AS INTEGER
PJKATA=LEN(TEKS)
FOR I=1 TO PJKATA
IF I=1 THEN
KARAKTER=UCASE(LEFT(TEKS,1))
ELSEIF MID(TEKS,I-1,1)=""THEN
KARAKTER=UCASE(MID(TEKS,I,1))
ELSE
KARAKTER=LCASE(MID(TEKS,I,1))
END IF
HASIL = HASIL + KARAKTER
NEXT
TITLECASE = HASIL
END FUNCTION
'MAIN PROGRAM
DIM KALIMAT AS STRING
INPUT "KETIK SEMBARANG KALIMAT:";KALIMAT
PRINT "FORMAT TITLECASE=";TITLECASE(KALIMAT)
SLEEP
END



Contoh 12 :

rem membuat fungsi baris
cls
'luas persegi panjang
function luasPP(L as integer,P as integer)as integer
dim hasil as integer
hasil= P*L
LuasPP= Hasil
end function
'main program
dim L1 AS INTEGER,P1 AS INTEGER
INPUT "ketik Lebar:";L1
INPUT "Ketik panjang:";P1
PRINT "LUAS PERSEGI PANJANG :"; LUASPP(L1,P1)
SLEEP
END



Contoh 13 :

rem membuat prosedur sendiri
rem mengganti perintah locate
sub posisi (baris as integer,kolom as integer)

locate baris,kolom

end sub
'main program
dim teks as string
input "ketik sembarang teks:";teks
'tempatkan pada baris 12 dan kolom 25
cls
posisi 12,25
print teks
sleep
end



Contoh 14 :

rem mencetak kata ditengah layar
cls
sub tengah (teks as string,baris as integer)
dim kolom as integer
kolom = (80-len(teks))/2
locate baris,kolom
print teks
end sub
'main program
color 3
tengah "Ramadhan Putra",12
sleep
end



Contoh 15 :

Rem program penjumlahan bilangan dari 4-16
cls
dim j AS integer,jumlah AS integer
for j=4 TO 16
jumlah=jumlah+j
If j <16 j="16" style="font-weight: bold;">Contoh 16 :

rem rincian biaya pemasukan
cls
dim nt as string,kt as string,kk as string
dim li as integer,nk as string,sk as string
dim tk as single,bk as single,pt as single
dim tb as double,tanya as string,sd as string
tanya="Y"
while tanya="Y" or tanya="y"
cls
locate 2,30
print"rincian biaya pemasukan"
locate 3,32
print"hotel citra mandiri"
locate 4,33
print"bulan oktober 2009"
locate 5,30
print"_______________________"
print:print
input"ketik nama tamu:";nt
input"ketik kode tamu:";kt
input"ketik kode kamar:";kk
input"ketik lama inap:";li
locate 10,30
print"hari"
if kk="ag" then
nk="anggrek"
tk=85000
elseif kk="bg" then
nk="bogenville"
tk=125000
elseif kk="mw" then
nk="mawar"
tk=185000
else
print"anda salah isi kode kamar"
tk=0
end if
print"nama kamar:";nk
locate 15,34
print"rincian biaya kamar"
locate 16,34
print"___________________"
print:print
print"tarif kamar/hari:";tk
bk=li*tk
print"biaya kamar:";bk
if li>4 then
pt=bk/25%
else
pt=0
print"potongan:";pt
locate 23,1
print"________"
tb=tk+bk-pt
print"total biaya kamar:";tb
locate 28,1
print"simpan data(Y/T):";tanya
locate 29,1
print"ulangi isi data lagi:";tanya
end if
wend



Contoh 17 :

rem cetak bilangan dalam bentuk array
cls
dim bilangan(5) AS integer, total as integer
dim x as integer, j as integer

for x = 1 to 5
input "ketik bilangan = "; bilangan(x)

next

cls

SCREEN 18, 32, 4, 1

'cetak judul tabel
locate 2,10
print "NO."
LOCATE 2,20
PRINT "bilangan"
locate 3,10
print string (18,"_")

for j = 1 to 5
locate j+3,10
print j

locate j+3,20
print bilangan (j)

'hitung total

next

locate 9,10

print string (18,"_")

locate 10,10
print "total :"
locate 10,20
print total

sleep
end
Baca Selengkapnya
→Klik Background 2x Untuk Kembali ke Atas←