wellcome to kodok's blogs

keadaan blogs ini

2007-10-08T07:35:00.000-07:00

untuk sementara...blogs ini dalam kondisi "under konstruktion"
hal ini karena saya sedang berkreasi di wordpress.com
untuk kelanjutannya silahkan men-link :
willmen46.wordress.com
itu adalah link blogs saya yang baru, dimana saya saat ini sedang berkreasi
thanx to bloger : gara2 ini layanan saya jadi tertarik ngeblogs, jasa mu aku ingat selalu huuhuuhuu (bukan maksud hati mendua tapi apa daya aq tertarik pada wordpress)
sekian dlu y see u
jgn lupa visit me at :
willmen46.wordpress.com

tugas 2 - INFORMATIKA DAN TELEKOMUNIKASI

2007-09-09T03:11:00.000-07:00

Intelegent Network / Intelegent Telecommunication Network

Willment TB Panjaitan – 4473

Satu hal yang paling penting dalam upaya peningkatan profit adalah dengan penambahan dan perluasan daerah pemasaran serta adanya sistem informasi yang terpadu dari pusat ketiap unit yang dimiliki. Perluasan daerah pemasaran dapat diwujudkan dengan adanya sistem telekomunikasi yang lancar dan dapat menjangkau di tiap daerah yang akan di jadikan sebagai daerah pemasaran. sehingga hal ini diharapkan tidak akan menghambat proses pendistribusian produk maupun informasi dari tiap daerah tujuan.

Intelegent Network secara umum merupakan mesin penghitung (Logic). Perangkat ini merupakan pemegang kendali dan berbagai syarat untuk dapat memanfaatkannya telah di program menjadi fitur dalam sistem jaringan telekomunikasi.

Intelegent network ( Jaringan cerdas ) adalah suatu arsitektur jaringan telekomunikasi yang memiliki tujuan untuk memberikan frame work sehingga kerja dari jaringan untuk implementasi, kntrol dan manajemen menjadi lebih efektif serta lebih ekonomis, dan lebih cepat proses kerjannya dibandingkan arsitektur jaringan yang digunakan saat ini.

Intelegent Network dapat di artikan juga sebagai jaringan pintar. Merupakan konsep jaringan telekomunikasi dengan kapabilitas service independent. Kecerdasan tersebut tidak terdapat di setiap sentral tapi berada pada sistem jaringan yaitu pada sebuah komputer, selanjutnya akan didistribusikan ke seluruh network, sehingga akan mempercepat penyebaran service ke seluruh network dan akan langsung memenuhi kebutuhan pelanggan.

Intelligent Networks (IN) adalah suatu arsitektur jaringan di atas jaringan (transport) telekomunikasi yang merupakan platform untuk manajemen servis secara terpusat baik untuk servis eksisting maupun servis baru.

Intelegent Network diimplementasikan dengan mengacu pada latar belakang antara lain :

Kemampuan adaptasi yang cepat
Kemampuan memberikan servis yang berintelegensi
Penyediaan servis tidak tergantung dari vendor switch
Pelanggan dapat mengontrol servis yang diinginkan
Stimulasi penggunaan jaringan
Biaya implementasi servis lebih murah
Implementasi servis mudah dan fleksibel
Jangkuan layanan yang luas

Konsep Intelegent Network

Implementasi IN dapat diterapkan pada jaringan : PSTN, ISDN, PSPDN, PLMN.
IN diintegrasikan dengan jaringan eksisting PSTN/ISDN dengan menerapkan konsep pemusatan software untuk mengontrol layanan layanan khusus.
CCS#7 merupakan merupakan tulang punggung IN yang berfungsi untuk transfer informasi, request, command dan respons antar jaringan yang terlibat

Adapun cakupan lingkungan dari Intelegent Network yaitu :

Service user: pihak yg melakukan dialing untuk memanfaatkan service IN.
Service subscriber: pihak yang memiliki nomor langganan servis IN dan dapat diakses oleh user.
Network operator: pihak yang mengontrol logic dan jaringan (servis) sehingga service user dan service subscriber dapat menjalankan bisnis.
Service operator: pihak yang memperkenalkan dan mengoperasikan servis
Service provider: pihak yang mensupport service IN

Adapun alas an mengapa Intelegent Network digunakan antara lain :

Fleksibilitas atas pendefinisian dan kreasi layanan baru tanpa melakukan investasi baru yg terlalu besar di bidang perangkat telekomunikasi.
Mengurangi time to market untuk meluncurkan suatu service.
Kemudahan pengontrolan layanan yang dapat memonitor setiap elemen IN SCP
Menjadikan peluang baru sebagai revenue generator bagi penyedia layanan & operator telekomunikasi.
Dalam beberapa hal dapat mengurangi ketergantungan langsung kepada vendor untuk meluncurkan service
Kemungkinan evolusi ke arsitektur jaringan masa depan

Intelegent Network memiliki fungsi dari element-element antara lain :

SSP: Service Switching Point

1. CCF ( Call Control Fungtion ) yaitu mengendalikan pemrosesan call dan menyediakan layanan koneksi ke network

2. SSF (Service Switching Function) yaitu memberikan dukungan trigger selama pemrosesan & akses ke fungsionalitas IN.

3. SRF ( Specialized Resource Function ) yaitu memberikan dukungan interaksi antara s/w pada switch & service control fungtion.

4. CCAF ( Call Control Agent Function ) yaitu memberikan dukungan khusus kepada resource network khusus yg berinteraksi dengan caller

SCP ( Service Control Point )

1.SCF(Service Control Function ) yaitu mengeksekusi service logic dan mempengaruhi call processing pada switch melalui interface ke SSF.

2.SDF ( Service Data Function ) yaitu mengelola customer dan data network untuk akses real time pada SCF dalam mengeksekusi layanan-layanan IN.

IP ( Intelligent Periperal )
SRF ( Specialized Resource Function ) yaitu memberikan dukungan resource khusus pada network yg berhubungan dg interaksi ( dg caller )
SMP ( Service Menegement Point / SMS service Management System )

1.SMF ( Service Management Function ) yaitu menyediakan layanan IN dan menyediakan dukungan kepada operasi yang sedang berjalan.

2.SMAF (Service Management Access Function) yaitu interface antara service manajer dan SMF (dapat diimplementasikan terpisah secara fisik atau SMAP)

SCEP : Service Creation Environment Point

1.SCEF ( Service creation environment function ) :

yaitu tempat di mana kreasi layanan dibangun, diuji dan dimasukkan ke dalam SMF.

Referensi yang digunakan antara lain :

tugas 1 - INFORMATIKA DAN TELEKOMUNIKASI

2007-09-09T03:09:00.000-07:00

Telekomunikasi Kabel dan Telekomunikasi Nirkabel

Willmen TB Panjaitan – 4473

Telekomunikasi berkaitan erat dengan pengertian yaitu berkomunikasi secara jarak jauh. Dapat pula diartikan sebagai gerak elektronik dan informasi. pemancaran, pengiriman dan atau penerimaan dari setiap informasi dalam bentuk tanda-tanda, isyarat, tulisan, gambar, suara, dan bunyi melalui sistem kawat, optik, radio, atau sistem elektromagnetik lainnya. Istilah telekomunikasi ini biasanya dipakai untuk menunjuk pada pengertian telepon, internet, VoIP, telex, dan faximili.

Telekomunikasi adalah pertukaran informasi (dimana terjadi perubahan ”format informasi” ) pada hubungan komunikasi jarak jauh yang terjadi secara elektris/elektronis.

Telekomunikasi merupakan pertukaran informasi dalam berbagai bentuk (suara,data, teks, gambar, audio, video) melalui jaringan berbasis komputer.

Telekomunikasi dasar (primitif) adalah Point to Point dimana ada source (orginating) dan sink (destination) . Untuk dapat memulai dan mengakhiri komunikasi antara kedua pihak harus ada tanda ( signaling ) yang dikenal oleh kedua pihak. Fungsi signaling dalam PtP adalah tanda untuk memulai dan mengakhiri komunikasi.

Telekomunikasi yang modern berbentuk Point to Multipoint (PtM). Untuk PtM searah disebut Broadcast dimana dalam hal komunikasi ini tidak diperlukan signaling. Untuk PtM dua arah maka diperlukan signaling. Telekomunikasi berbentuk Mulipoint to Point, yang terjadi pada hubungan berhirarki (bertingkat). Contoh komunikasi antar sentral.

Jenis-jenis telekomunikasi antara lain :

Suara = Teleponi
Suara & gambar = Videophone
Tulisan yg dicetak (berita) = Telegrafi/Telex
Tulisan yg dicetak (data) = Komunikasi Data
Tulisan yg dicetak (text) = Teletex
Dokumen = Telefax
Gambar = Televisi, Videotex
Gambar,tulisan & suara = Multimedia

InspiAir, Revolusi Terbaru Komunikasi Nirkabel

Kini, telah tersedia teknologi komunikasi terbaru di bidang telekomunikasi nirkabel. Teknologi terbaru ini ditawarkan InspiAir, yang merevolusi infrastruktur komunikasi nirkabel dengan menawarkan jangkauan luas namun dengan dukungan pasokan tenaga yang relatif lebih kecil. Boleh dikata, InspiAir menawarkan solusi ideal dalam penyediaan layanan internet nirkabel di kawasan perkotaan, perkantoran, hingga pedesaan sekalipun.

Dengan InspiAir, komunikasi berbagai kawasan di kota, seperti kampus, tempat parkir, dan berbagai lokasi lainnya dapat dijangkau akses internet, kapan saja dimana saja. Jangkauannya boleh jadi melebihi jaringan WiFi yang umumnya hanya tersedia di lokasi-lokasi tertentu saja. InspiAir mampu menjangkau jarak hingga 5 km (poin to multipoint) dan 40 km (point to point). Asyiknya lagi, besarnya kapasitas akses memungkinkan layanan yang bisa didapat tak hanya melulu untuk e-mail, melainkan juga video, VoIP, dan komunikasi data berkecepatan tinggi lainnya.

InspiAir mengubah fokus bisnis mereka ke internet, dengan mengembangkan produk InspiAir menjadi platform yang inovatif berbasis pada aplikasi Virtual Transmiting Manager (VTM). InspiAir beroperasi pada frekuensi yang bebas lisensi (2,4 GHz), dan ideal dalam menyediakan banyak kanal dan komunikasi dengan bandwith tinggi. Teknologi ini dapat digunakan oleh semua jenis layanan nirkabel, semisal untuk pemanfaatan di Metropolitan Area Networks (MAN), Wireless Area Network (WAN), dan Local Area Network (LAN). Menggunakan standar dan protokol yang sama dengan WiFi, InspiAir cukup compatible dengan hardware yang tersedia dan mendukung komunikasi point to point maupun point to multipoint dengan koneksi yang lengkap.

Telekomunikasi Powerline Internet Melalui Jaringan Kabel Listrik

Pemain utama dalam telekomunikasi powerline ini adalah Norweb (anak perusahaan United Utilities PLC, London), dan terutama adalah seorang stafnya yaitu Dr. Paul Brown.

Inti dari teknologi ini adalah kemampuan untuk menyediakan Jaringan Daya Terkondisi Frekuensi Tinggi (HFCPN, high frequency conditioned power network) dimana melalui jaringan ini data dapat dilewatkan. Sebagai mana ditunjukkan di atas, prinsip dasarnya adalah menginjeksikan sinyal-sinyal data ke dalam saluran daya listrik pada frekuensi 10 juta kali frekuensi dasar arus listrik (atau sekitar 500/600MHz). Untuk melakukan ini, dibutuhkan Unit-unit Pengkondisi (CU, conditioning units). Unit-unit ini merupakan pengkopel arah tiga terminal yang meliputi bagian high and low pass filter untuk membentuk suatu pengkopel arah frekuensi yang sensitif. Setiap CU mempunyai sebuah terminal jaringan (NP, network port), sebuah terminal distribusi komunikasi (CDP, communication distribution port), dan sebuah terminal distribusi listrik (EDP, electricity distribution port)

CU ini memberikan kemampuan menyediakan hal-hal sbb :

- terkoneksi sinyal-sinyal yang aman dan efisien di atas 1 MHz (misal: sinyal-sinyal data)

- ropagasi penunjuk arah sinyal di atas 1 MHz

- Floor noise minimal di atas 1 MHz

- Isolasi beban-beban pelanggan yang berubah di atas 1 MHz

- Titik titik penghentian layanan jaringan yang cocok untuk pelayanan telekomunikasi

dan listrik

- Kinerja spektral yang optimum dari jaringan kabel

Frekuensi 1 MHz dipilih sebagai frekuensi terendah dimana pengkopel arah yang efektif dan efisien dapat dibangun dan masih menyediakan pelayanan 100 amp, 230/240 volt, 50 Hz kepada pelanggan domestik. Pengalaman sebelumnya dalam menggunakan jaringan distribusi listrik untuk membawa sinyal-sinyal frekuensi rendah (khususnya 3-500 kHz untuk switching pada peralatan-peralatan rumah tangga seperti sistem air panas, lampu jalanan, dll) menunjukkan bahwa atenuasi yang drastis dari sinyal-sinyal adalah jelas dikarenakan adanya capacitive reactance. Pengujian menunjukkan bahwa diatas 1 MHz, reactance induktif mulai menyelimuti capacitive reactance, dan jika impedansi saluran yang digunakan adalah sebesar 600 ohm, maka atenuasi dapat diterima.

Meskipun efisiensi spektral diperkirakan berada antara 6 dan 10 MHz untuk para pelanggan jarak jauh, dan 20 MHz untuk para pelanggan dekat, efisiensi overall dari jaringan HFCPN adalah tergantung pada sejumlah kriteria seperti:

- Tipe pelanggan dan densiti per distributornya (atau fase dari distribusi daya). Secara khusus kira-kira 50 (total 150 per 3 fase, 415 volt, distribusi tegangan rendah ke para pelanggan) di Inggris, dimana teknologi ini dikembangkan dan diuji cobakan. Di Amerika Utara, harga ini bisa cukup rendah sekitar 10-14 pelanggan per distributor.

- Tipe akses multiple yang diperlukan

- Densiti lalu-lintas data (baik saat rata-rata maupun puncak)

- Skema kompresi, coding dan modulasi, yang berpengaruh pada laju data bit per unit spektrum yang tersedia.

- Kebutuhan pelayanan, suara, data, streaming video, dll.

Saat ini, teknologi ini tidak menyediakan sarana yang sangat efisien untuk lalu lintas suara. Sinyal-sinyal suara (analog) menempati lebar pita kira-kira pada 3,1 Khz. Pendigitalan ini akan menghasilkan sinyal digital yang akan menempati lebar pita 10 kali lebih besar (32 Khz), dan sehingga memungkinkan untuk hanya 12 kanal yang dapat beroperasi secara simultan per 4 MHz spektrum. Penelitian saat ini ditekankan pada bidang modulasi, coding, dan kompresi dari sinyal-sinyal analog dengan tujuan memperbaiki situasi yang ada.

Hal ini menggambarkan bahwa teknologi ini dapat menjadi fondasi untuk jaringan akses lokal alternatif yang berkemampuan menyediakan penyebaran yang cepat (seperti infrasruktur media, kabel-kabel daya yang telah ada) dari pelayanan-pelayanan telekomunikasi digital maju untuk perumahan. Konsep jaringan yang diajukan mempunyai lapisan jaringan pertama berbasis pada substasiun listrik lokal

Referensi :

http://www.elektroindonesia.com/elektro/ut26.html
http://www.lintasarta.net/en/NEWSROOM/Publication/Edisi4/Hal5/tabid/404/Default.aspx
http://www.stttelkom.ac.id/staf/UKU/Website%20Pribadi/Materi%20HANDOUT%20DASTEL%20PT.1123%20(Edisi%202007)/Modul%20%96%2003%20%20PERANGKAT.ppt
http://te.ugm.ac.id/~warsun/telkom/slide1_Telekom.ppt

kuliah....oh kuliah....

2007-08-27T04:46:00.000-07:00

senin..27 Agustus 2007...masa kuliah semester ganjil di kampus ku udah dimulai....
seabrek amunisi sudah di siapkan untuk semester ini....
awalnya sempet kecewa sech....gmn ngk kecewa..sistem KRs di kampus yg acak kadut gitu
dah gitu kuota sks yg di ambil jauh dari harapan...dari 21 cuma ke ambil 14 :(

buut its okey aja....cos dapet jatah pilihan 2 Mk ama matakuliah yg menjadi penakut bagi mahasiswa TF di kampus ku PP alias program profesional......

awalnya ngk dapet jatah untuk MK ini..tapi dengan mengumpulkan beberapa rekan TF yg notabene satu angktan akhirnya menghadap ke Kaprodi untuk minta tambahan kelas....
hari pertama KRs gagal karena kuota orang hanya 8 untuk membuka kelas PP baru....sampai akhirnya perjuangan tidak sia-sia...di hari kedua kuota orang untuk membuka kelas baru PP ada 17 orang...tapi giliran Kaprodi ganti jadwal menyusut jadi tinggal 11 orang dipotong 3 orang yg ternyata menyusup dari kelas lain alias mo pindah.....

ya semoga smster ini menjadi awal perubahan yg signifikan..cos aq ngerasa semseter kemaren lum maksimal....aq mo otru di rumah liat ke seriusan ku dalam kuliah....minimal untuk menembuh target ortu..pulang ke cerbon dng IPK 3.2 dengan berbagai sertifikasi di tangan like Cisco...Oracle...mybe other....

GOD....WIsh mE Luck

^kodok

dokumentasi trip to sragen

2007-08-18T03:14:00.000-07:00

me n my chuby

mie goreng....suguhan dari chuby for me

istirahat di saat perjalanan siang

plat-E my partner setia saat trip kemana2

trip to sragen city

2007-08-16T07:36:00.000-07:00

trip to sragen

Rabu, 15 Agustus 2007...iseng2 ngk ada kerjaan eh..cuby minta keseriusan wat berkomitmen..ehmm disuruh dateng dech ke tempatnya.... ya awalnya sech sempet ragu-ragu maklum belum pernah ke sragen sebelumnya…..

Dijalan ya lumayan panas..cape..haus…ngantuk dll ya standartnya orang jalan jauh lah gimana….seperti biasanya kalo belum pernah mengunjungi 1 tempat kayanya ko jauh bgt…hamper 3.5jam perjalanan…hihihihihi pantat ku hamper rata nech :. Tapi ngk full sech kadang berhenti sejenak just istirahat.minum..atau malah ngambil2 gambar maklum hobi foto gitu dech

Siang hari bolong baru nyampe sragen setelah melalui djogja trs ke klaten lanjut ke solo sampae akhirnya ke sragen…hmmm sempet nyasar2 juga dech dari solo kea rah klaten bis bingung gitu. Kalo Cuma djogja ke solo sech udah tau jalannya ke arah mana.

Sempet kaget juga..ternyata udah banyak kemajuan..ternyata jalur jogja-klaten trs ke solo udah agak lebar…hmm mulus juga jalannya jadi untuk on the way nya enak bgt…tapi sempet kaget juga..ko jalan mo masuk kota solo malah bergelombang gitu : payah y…ya ngk terlalu kaget juga dech…hal kaya gini aq temui juga waktu trip ke semarang…kejadiannya hampir sama mo masuk ke kota jln malah bergelombang….. dari analisa sech (ciieee analisa kaya orang penting aja) ngk heran kalo jln mo masuk kota tu bergelombang..soalnya bus2..truk2 kan pada lewat situ nah waktu mo masuk kota mereka (truk n bus) mang boleh tapi saat dikota mereka harus ambil jalan ringroad(tau nama apa gitu) n ngk boleh berkeliaran seenaknya di kota….jadi bisa di maklumi kalo jalan mo masuk kota tu bergelombang…

Sampe sragen..y sambutan ini itu just ngobrol2 gimana dijalan..dlll trs dpt suguhan mie goring ke sukaan ku..hmmm tau aja aq lagi kelaperan..ngk tanggung2 2 porsi gitu ukurannya jumbo bro(hihihii disesuaikan dengan badan ku yg jumbo). Dah agak lama istirahat..diajak jalan ke objek wisata..

Awalnya sech mo out bond…flying fox dan teman2nya eh malah nyasar… mikir2 daripada udah jauh2 ngk dapet apa2 eh ke air terjun aja..lagian susah kan jaman gini dapetin tempat yang air terjunnya masih ada..di atas pegunungan dimusim kemarau eh masih ada air terjun keren..keren…keren..

Dah puas ngobrol2 yg nyerempet2 dikit juga sech hihihi hayo ngapain : dah sore pulang dech ke rumah doi..disuguhin makan malam tapi hmm aq nolak…takut ngk nyaman bawa motor kilo lagi kenyang..jam 7 malem turun dari sragen..awalnya sedikit ngepet juga dah lama ngk jalan malem…y ngk tau kenapa naluri pembalap mulai keluar…serasa udah nyatu ma jalan n motor…semua di gasak tapi masih tetep jaga keselamatan..solo-sragen di gasak 1jam aja istirahat bentar sambil minum n ambil2 gambar dah gitu lanjut solo-jogja ya di gasar 1jaman lebih, ngk sempet ambil2 foto karena udah laper bgt : jam 21.30 sampe kos…hmm langsung ke mie Surabaya mesen nasi goring….dah gitu bang wi ngajak roti baker lagi ahhuuuu ngk tahan ma godaan roti baker y ikutan makan lagi…

Tapi trip ke sragen ni full menyenangkan..rasa cape ilang waktu sambutan doi hangat bgt..dah gitu nyambung aja bawaannya…y sempet sech takut kenapa2 tapi dibawa dalam doa aja… ya ni sedikit cerita tentang hobi ku yang suka trip alias jln2… moga masih ada ke sempatan untuk trip ke lain kota dengan pengalaman yang berbeda……

Special to chubby…thanx y mie gorengnya….juga thanx untuk bonekanya…sesuai dengan tulisannya : apana tuh..? rahasia dunk hihihihihi

tebak-tebakan alias joke....

2007-08-11T03:13:00.001-07:00

tebak-takabakn alias joke

1.
Mobil apa yang ada di atas pohon?

Jawab: Mobil-ang daun, mobil-ang ranting, mobil-ang dahan, terserah elu deh.....

2.
Saya punya uang rp 150. trus saya belanjakan satu biji gula-gula harganya rp75. berapa kembalinya?

jawab : Kembalinya rp 25. karena yang saya belanjakan adalah uang rp 100.

3.
Bahasa jepang orang kecopetan apa?

jawab : Sakuku diraba takurasa

4.
Kalo kamu di tempat gelap dan dingin dan kamu punya satu korek api. Di situ ada obor, lilin, dan kayu bakar. apa yg pertama-tama kamu hidupin?

jawab : Korek api dong

5.
Kenapa orang mati di bungkus dgn kain kafan?

jawab : Kalau dikasih kain batik ntar dia ke kondangan....!!

about monalisa

2007-08-04T03:10:00.001-07:00

Para ilmuwan telah menganalisa senyum yang tersungging pada lukisan Mona Lisa, mereka berharap bisa mengungkap emosi yang sedang dirasakannya ( andai emang itu manusia ). Mereka memanfaatkan software pengenal emosi yang bisa mengukur mood seseorang dengan mengamati ciri-ciri tertentu. Salah satunya adalah lengkungan bibir dan kerutan di sekitar mata. Software tersebut dikembangkan di Nicu Sebe di Universitas Amsterdam dan ilmuwan Universitas Illinois. Hasilnya, diperkirakan 83 % bahagia, 9 % muak, 6 % takut dan 2 % marah. Begitulah laporan menurut mingguan Inggris " New Scientist ".

Waaaahhhh mau dunk nyoba tes pake tu software...hehehheheeeh

Tapi Mona Lisa tuh bner manusia apa cm lukisan aja ya???

syair kematia

2007-08-03T01:26:00.000-07:00

Putaran waktu dan roda-roda perjalanan adalah lembaran hidup yang sedang kita tulis.

Kita akan menemukan banyak " tanda baca " di sana.

Yakinkan dalam hati, kita akan menemui titik terakhir.

Di mana kita tidak lagi menulis lembaran itu.

Titik terakhir itu adalah " Kematian ".

Dan semua makhluk bernyawa tidak ada satu pun yang tahu kapan akan menemui titik itu.

Ni syair buat aku dalem banget.....Walopun sederhana tapi buat aku lebih dari sederhana...

humor - seni beladiri

2007-08-03T01:03:00.000-07:00

Disebuah bar, seorang pemuda berbadan kecil sedang duduk santai. Seorang preman lokal mendekati dan langsung menendangnya keras, "Ciaaaaaatttt !" pemuda kecil itu jatuh tersungkur dari bangkunya. Ketika dia bangun, si preman berkata dengan sombong, "itu tadi TAEKWONDO dari KOREA. "Karena takut, pemuda itu tak menanggapi. Dia lalu kembali duduk di bangkunya. Namun tak lama kemudian, preman tadi kembali mendekati dan membantingnya, "Guuuubbbrrraaakkkkk!!!" pemuda kecil itu terjerembab, saat dia bangun, preman berkata lagi, "itu tadi JUDO dari JEPANG". Pemuda kecil tadi tetap tidak menanggapi, perlahan dia kembali duduk. Tidak lama, preman itu pun menonjoknya "Buuuuuuuuugg!" Pemuda kecil kembali terjatuh, lalu si preman berkata, "itu tadi BOXING dari AMERIKA." Pemuda itu menyadari mulutnya mengeluarkan darah. Lalu dia bangun dan tidak kembali ke bangkunya. Perlahan2 dia keluar dari bar. Tidak beberapa lama kemudian pamuda kecil itu masuk bar dan menghampiri si preman. Tanpa berkata apa2 lagi dia langsung memukul si preman, "Bllleeettttttooooookkkkk!!!!!!!!!." Si preman langsung jatuh pingsan. Pemuda kecil ingin memberi penjelasan, tapi si preman tidak juga siuman. Pemuda kecil itu menghampiri pemilik bar dan berkata, "Pak, kalo si preman ini bangun tolong beritahu bahwa tadi itu adalah LINGGIS dari GUDANG "

:D :D :D

So, biar kita smua pada ga stresss, bacadech ni humor dr aku

hujan meteor

2007-08-03T01:00:00.000-07:00

http://www.harian-global.com/news.php?item.21920.26

Hujan meteor Perseid tahunan diprediksi akan menjadi pertunjukan menarik tahun ini yang mencapai puncaknya pada pertengahan Agustus ini, dengan puluhan meteor setiap jamnya.

"Peristiwa ini akan menjadi pertunjukan yang bagus," kata Bill Cooke dari Meteoroid Environment Office NASA di Marshall Space Flight Center, Alabama. "Pada 12 Agustus nanti, tidak akan ada cahaya bulan sehingga langit yang hitam hanya akan dihiasi meteor."

Tahun ini, hujan meteor Perseid dapat terlihat sebanyak satu hingga dua kali setiap menit selama masa puncak, sebut Cooke dalam sebuah pernyataan.

Meski demikian, para pengamat angkasa di perkotaan hanya bisa menyaksikan hujan meteor yang lebih sedikit karena banyaknya cahaya. Tampaknya semua meteor tersebut berasal dari konstelasi Perseus. Waktu terbaik untuk menyaksikannya adalah pada 12 Agustus tengah malam hingga fajar keesokan harinya.

"Perseid kali ini merupakan hujan meteor tahunan yang paling mudah disaksikan, dengan aktivitas maksimalnya mencapai 90 atau 10 meteor per jam," kata Joe Rao, kolumnis Skywatching di SPACE.com. "Meski demikian, jumlahnya bisa lebih besar tergantung di mana orang menyaksikannya.

Untuk bisa melihat hujan meteor tersebut, diperlukan tempat nyaman yang dapat digunakan untuk memandang ufuk timurlaut dengan jelas, serta jauh dari cahaya lampu. Kawasan pedesaan yang gelap merupakan lokasi terbaik. Pada tengah malam, dimulai sekitar pukul 21.00 waktu setempat, para pengamat langit bermata tajam mungkin dapat melihat meteor melintasi ufuk timurlaut.

Untuk menyaksikannya, kita tidak perlu menggunakan teleskop, karena meteor meluncur dengan cepat dan dapat dilihat dengan mata telanjang.

Hujan meteor ini bersumber dari komet Swift-Tuttle yang melintas melalui sistem tata surya bagian dalam setiap 130 tahun. Meteor Perseid meluncur dengan sangat cepat dan mampu masuk ke atmosfer bumi dengan kecepatan relatif 60 kilometer per detik.

http://www.belajar-gratis.com/b20-Hujan-Meteor-Pertengahan-Agustus-2007.html

Hujan Meteor Pertengahan Agustus 2007
16/07/2007 - Administrator

Sarie Novian - Okezone

ALABAMA – Hujan meteor telah menjadi tontonan menarik setiap tahun. Kali ini fenomena alam raya itu akan terjadi pada pertengahan bulan Agustus tahun ini.

Pertengahan bulan Agustus ini, langit akan dipenuhi dengan ratusan bintang jatuh. Bulan akan menampilkan cahaya temaram yang menjadikan langit tampak gelap. Kemudian bumi akan dipenuhi dengan puing-puing komet yang bentuknya tidak lebih dari butiran pasir. Butiran pasir bercahaya itu akan menerangi bumi dan membuat fenomena alam yang sangat indah yang biasa disebut ‘Bintang Jatuh’.

just wanna say..

2007-08-01T02:15:00.000-07:00

Life is beautiful... When you think happy thoughts
Life is miserable... When you think sad thoughts
Life is complicated... When you think happy & sad thoughts
Life ended... When your mind stops thinking :P

bus dengan teknologi air

2007-08-01T02:05:00.001-07:00

Bus yang sama sekali tidak memproduksi CO2? Ya, itu sudah ada, namun harga per busnya masih mahal, 3 juta euro per buah. Pabrik bus Belgia Van Hool awal bulan Juni melansir bus bebas CO2 itu, bahan bakarnya memakai air biasa. Bus itu dapat meluncur sejauh 350 kilometer dengan bahan bakar 40 liter air, satu-satunya yang dihasilkan oleh bus itu hanyalah uap air. Bus itu meski mahal harganya, namun sudah dipraktekkan di jalanan sejak 18 Juni 2007 melayani trayek Antwerpen - Lier di Belgia.

Di atap bus tertera "Waterstofbus" , artinya kira-kira "bus berbahan bakar air". Van Hool adalah nama pabrik di Belgia yang membuat bus itu. Foto De Telegraaf, 23 Juni 2007.

Pabrik bus Van Hool memproduksi bus bebas CO2 itu dengan dukungan keuangan pemerintah Belgia yang menyetor 1,3 juta euro. Selain itu perusahaan Siemens juga menanggung sebagian biaya pembuatannya. Total biaya yang dikeluarkan oleh Van Hool, pemerintah Belgia dan Siemens adalah 3 juta euro per bus. Sebagai perbandingan, bus biasa yang memakai BBM harganya cuma 150.000 euro per buah. Bus bebas CO2 itu dipakai oleh perusahaan transportasi bus De Lijn yang merupakan simpatisan berat kelestarian lingkungan hidup. Bus De Lijn itu pula yang pertama memakai bahan bakar minyak goreng beberapa tahun y.l. Namun teknologi energi selalu makin maju, para ahli menemukan bahwa pembebasan hutan tropis untuk lahan kelapa sawit menyebabkan CO2 keluar dari tanah gambut, kerugiannya untuk lingkungan hidup malah lebih besar dibanding keuntungan yang didapat dari pemakaian bahan bakar kelapa sawit itu. Karenanya pemakaian kelapa sawit sebagai bahan bakar ditinggalkan.

Menurut pabrik bus Van Hool, harga yang 3 juta euro per bus itu masih bisa turun, bila banyak pemesan bus itu nantinya. Dari luar Belgia sudah tampil perhatian, misalnya dari Amerika Serikat, Jerman/Hamburg dan Inggeris/London, juga dari Belanda/Amsterdam. Demikian ujar direktur pabrik bus, Leopold van Hool dengan bangganya

Pembangunan Aplikasi Sistem Informasi Mobile Trading

2007-07-27T01:28:00.000-07:00

Nama : Willmen TB Panjaitan

NIM : 4473

Prodi : Teknik Informatika

Kuis : Metodologi Penelitian

I. Intisari

Topik : Pembangunan Aplikasi Sistem Informasi Mobile Trading

Banyak orang berfikir bahwa mereka dapat hidup dengan nyaman dan tentram jika mereka memiliki pekerjaan dengan gaji yang tinggi. Ada juga yang berfikir dengan memenangkan undian berhadiah besar maka hidup mereka pun akan terjamin. Namun ada juga sebagian yang berinvestasi untuk menjamin kelangsungan hidup mereka. Banyak hal yang dilakukan dalam berinvestasi antara lain membeli tanah atau rumah yang lebih dikenal dengan investasi proverty, ada yang membuka usaha dalam berbagai bidang yang lebih dikenal dengan wiraswasta namun ada juga yang berinvestasi dalam bentuk saham. Investasi bentuk ini saat ini sangat marak dilakukan oleh banyak orang. Orang bisa saja menjadi kaya raya dan hidup terjamin dengan memiliki saham namun tidak sedikit dari mereka yang harus jatuh miskin dan hidup terkatung-katung karena investasi saham. Memang bidang ini menuntut ketelitian, kesabaran dan keputusan yang bijak dalam menjalankan bisnis dibidang saham ini.

Tidak dapat kita pungkiri lagi, bahwa sekarang kita berada diera teknologi mobile(mobile technologi). Hal itu juga terjadi pada sektor ekonomi. Jika dunia perbankan memiliki mobile banking, kini para pelaku bisnis saham pun dapat menikmati kemudahan produk mobile untuk bisnis mereka. Jika kita mengenal di BEJ(Bursa Efek Jakarta) terdapat remote trading, sedang di BES(Bursa Efek Surabaya) dikenal dengan online trading maka khusus untuk para pelaku bisnis saham khususnya individu dapat juga menikmati informasi mengenai segala sesuatu tentang saham dengan menggunakan sistem informasi mobile trading(SI-MODI)

Dengan mengimplemantasikan aplikasi ini, perusahaan efek tidak perlu lagi mondar-mandir untuk menghubungi tradernya yang bertugas dilantai bursa(trading floor). Pelaku bisnis cukup melakukan order dari kantor perusahaan mereka sendiri karena aplikasi ini dapar dihubungkan(connect) dengan sistem perdagangan BEJ atau istilah yang populernya adalah Jakarta Automated Trading System (JATS). Aplikasi ini memberikan informasi tentang kurs mata uang, posisi saham yang kita miliki berada dalam urutan keberapa, top gainer , top losser, stock buyer dan stock seller. Sistem informasi ini juga dapat diakses dari HP namun informasi yang di terima nasabah melalui ponsel hanya sebatas harga saham yang mencapai top gainer dan top losser, stock buyer dan stock seller. Namun sistem informasi ini sebatas memberikan informasi, untuk melakukan transaksinya harus dilakukan melalui perusahaan yang bersangkutan (berwenang).

Sistem informasi mobile trading(SI-MODI) ini dibangun dengan menggunakan tool C#.net yang mana merupakan bagian dari visual studio.net. Untuk menyimpan data basenya tool yang yang digunakan yaitu SQL server 2000. Untuk akses mobilenya via HP atau webs, sistem informasi ini menyediakan informasi dalam bentuk WML (Wireless Mark-up Language)

Kata kunci : mobile technologi, C#.net, SQL server 2000, WML (Wireless Mark-up Language)

Garuda Menangis

2007-07-15T00:20:00.000-07:00

Garuda Menangis

perjuangan tim merah putih melawan tim kuat Arab Saudi dalam lanjutan
patut kompetisi piala asia, 14 juli 2007 diacungi jempol.
Walaupun kalah, merah putih telah memberikan
perlawanan yang cukup mempersulit pasukan Arab Saudi.

kebololan terlebih dahulu tidak membuat mental tim merah putih
jatuh,dengan sebuah persing kagetan elly aeboy menyamakan kedudukan
bahkan beberapa kali tim merah putih hampir menambah keunggulan.

namun tragis.,..pemain merah putih yang tinggal memiliki nyawa sedikit
namun tetap saja tidak ada inisiatif invan kollev untuk melakukan
pergantian....

budi,elly bahkan firman harus kelelahan bahkan tidak bisa berbuat apa-apa
stategi yang dinilai kurang efektif....

saat melakukan pergantian..hal ini malah membuat kemenangan didepan mata
hilang begitu saja. ismed sofyan yang melakukan pelanggaran didaerah
berbahaya yang akhirnya berbuah tendangan bebas memupuskan harapan garuda.
dengan keunggulan jum dan hading...pemain arab saudi merobek gawang tim
idonesia.

namun apapun itu nasi sudah menjadi bubur. kita tetap harus memberikan
acungan jempol untuk tim nasional kita. setidaknya arab saudi tim kuat
dan langganan piala dunia harus berjuang keras hingga menit akhir untuk
memetik kemenangan dari tim kita. dan juga skor yang hanya beda tipis
2-1 merupakan peningkatan bagi tim nasional kita...mengingat seringnya
kita dicukur habis oleh tim-tim kuat.

bravo garuda...kami tetap mendukung mu

Hubungan Kreatifitas, Inovasi dengan Kewirausahaan

2007-07-15T00:00:00.000-07:00

Hubungan Kreatifitas, Inovasi dengan Kewirausahaan

mungkin sedikit informasi ini membantu rekan atau teman yang ingin
mengetahui sedikit mengenai bidang kewirausahaan. adapun informasi
ini saya dapatkan saat saya mengambil mata kuliah kewirausahaan
dikampus saya.

Inovasi

Inovasi adalah proses menemukan atau mengimplementasikan sesuatu
yang baru ke dalam situasi yang baru. Konsep kebaruan ini berbeda
bagi kebanyakan orang karena sifat nya relative (apa yang dianggap
baru oleh seseorang atau pada suatu konteks dapat menjadi sesuatu
yang meruapakan lama bagi orang lain dalam konteks lain)

Inovasi adalah memikirkan dan melakukan sesuatu yang baru yang menambah
atau menciptakan nilai-nilai manfaat(social/ekonomik) (Gde Raka,2001).
Untuk menghasilkan perilaku inofatif seseorang harus melihat inovasi
secara mendasar sebagai proses yang dapat dikelola (John Adair,1996)

Kreativitas
Kreativitas merupakan memikirkan sesuatu,kemampuan seseorang untuk
melahirkan sesuatu yang baru baik berupa gagasan maupun karya nyata
yang relative berbeda dengan apa yang telah ada sebelumnya.

Kreatif
Menghadirkan sesuatu benda atau hal yang sebelumnya sama sekali belum
ada untuk dipergunakan. Ide yang kratif dikaitkan dengan ide yang baru
paling tidak untuk orang yang bersangkutan Ide kreatif ini dapat melibatkan
sebuah usaha penggabungan du ahal atau lebih ide-ide secara langsung (John Adair,1996)

Krativitas dan inovasi
Inovasi dan kerativitas berbeda wilayah domain yang sama,teapi memiliki
batasan yang tegas. Kreatifitas merupakan langkah pertama menuju inovasi
yang terdiri atas berbagai tahap. Kreatifitas berkaitan dengan produksi
kebaruan dan ide yang bermanfaat sedangkan inovasi berkaitan dengan produksi
atau adopsi ide yang bermanfaat dan implementasinya

Wirausaha
Wirausaha adalah kemampuan yang dimiliki oleh seseorang untuk melihat
dan menilai kesempatan-kesempatan bisnis, mengumpulkan sumber daya-sumber
daya yang dibutuhkan untuk mengambil tindakan yang tepat
dan mengambil keuntungan dalam rangka meraih sukses.

Kewirausahaan
Kewirausahaan pada hakekatnya adalah sifat, ciri dan watak seseorang
yang memiliki kemauan dalam mewujudkan gagasan inovatif ke dalam
dunia nyata secara kreatif.

Untuk memenangkan persaingan, maka seorang wirausahawan harus memiliki
daya kreativitas yang tinggi. Daya kreatifitas tersebut sebaiknya adalah
dilAndasi oleh cara berpikir yang maju, penuh dengan gagasan-gagasan
baru yang berbeda dengan produk-produk yang telah ada selama ini di pasar.

Gagasan-gagasan yang kreatif umumnya tidak dapat dibatasi oleh ruang,
bentuk ataupun waktu. Justru seringkali ide-ide jenius yang memberikan
terobosan-terobosan baru dalam dunia usaha awalnya adalah dilAndasi
oleh gagasan-gagasan kreatif yang kelihatannya mustahil.

Namun,gagasan-gagasan yang baikpun, jika tidak diimplementasikan dalam
kehidupan sehari-hari, hanya akan menjadi sebuah mimpi.
Gagasan-gagasan yang jenius umumnya membutuhkan daya inovasi yang tinggi
dari wirausahawan yang bersangkutan. Kreativitas yang tinggi tetap
membutuhkan sentuhan inovasi agar laku di pasar.

Inovasi yang dibutuhkan adalah kemampuan wirausahawan dalam menambahkan
nilai guna/nilai manfaat terhadap suatu produk dan menjaga mutu produk
dengan memperhatikan “market oriented” atau apa yang sedang laku dipasaran.
Dengan bertambahnya nilai guna atau manfaat pada sebuah produk,
maka meningkat pula daya jual produk tersebut di mata konsumen,
karena adanya peningkatan nilai ekonomis bagi produk tersebut bagi konsumen.

untuk menjadi wirausaha yang berhasil, persyaratan utama yang harus dimiliki
adalah memiliki jiwa dan watak kewirausahaan. Jiwa dan watak kewirausahaan tersebut
dipengaruhi oleh keterampilan, kemampuan, atau kompetensi.
Kompetensi itu sendiri ditentukan oleh pengetahuan dan pengalaman usaha.

seseorang wirausaha adalah seseorang yang memiliki jiwa dan kemampuan tertentu
dalam berkreasi dan berinovasi. Ia adalah seseorang yang memiliki kemampuan untuk
menciptakan sesuatu yang baru dan berbeda (ability to create the new and different)
atau kemampuan kreatif dan inovatif. Kemampuan kreatif dan inovatif tersebut secara
riil tercermin dalam kemampuan dan kemauan untuk memulai usaha (start up),
kemampuan untuk mengerjakan sesuatu yang baru (creative), kemauan dan kemampuan untuk
mencari peluang (opportunity), kemampuan dan keberanian untuk menanggung
risiko (risk bearing) dan kemampuan untuk mengembangkan ide dan meramu sumber daya.
Kemauan dan kemampuan-kemampuan tersebut diperlukan terutama untuk:
a.Melakukan proses/ teknik baru (the new technik)
b.Menghasilkan produk atau jasa baru (the new product or new service),
c.Menghasilkan nilai tambah baru (the new value added),
d.Merintis usaha baru (new businesess), yang mengacu pada pasar
e.Mengembangkan organisasi baru (the new organisaton).

Technopreneur dan Social Entrepreneur

2007-07-14T23:46:00.000-07:00

Technopreneur dan Social Entrepreneur

mungkin sedikit informasi ini membantu rekan atau teman yang ingin
mengetahui sedikit mengenai bidang kewirausahaan. adapun informasi
ini saya dapatkan saat saya mengambil mata kuliah kewirausahaan
dikampus saya.

Technopreneur
Senator Nurbahagia, staf pengajar Fakultas Teknik Industri dan Pascasarjana
Institut Teknologi Bandung (ITB), mengungkapkan, technopreneur adalah salah satu
bentuk usaha dengan karakteristik yang berbeda dengan kewirausahaan biasa.
Technopreneur menggabungkan antara teknologi dan pasar yang akhirnya bermuara pada bisnis.
technopreneur merupakan orang yang memulai bisnis berbasis pada inovasi teknologi.
Orang macam ini, kata Senator, harus memiliki sejumlah sikap pendukung di antaranya
memiliki keinginan kuat untuk mengejar prestasi, memiliki kemampuan konseptual,
dan kekuatan memecahkan masalah yang tinggi. Selain itu, mereka juga harus memiliki
wawasan dan cara pikir yang luas, percaya diri tinggi dan toleran, berani mengambil risiko,
realistis, punya kemampuan interpersonal, dan mampu menahan emosi.
Menurut : Senator Nurbahagia, staf pengajar Fakultas Teknik Industri dan Pascasarjana Institut Teknologi Bandung (ITB).
Sumber : republika.co.id

Seseorang yang mempunyai kreativitas suatu bisnis baru dalam menghadapi resiko dan
ketidakpastian yang bertujuan untuk pencapaian laba dan pertumbuhan usaha berdasarkan
identifikasi peluang dan mendayagunakan sumber-sumber serta memodali peluang tersebut
Sumber : powerpoint dari Hj. Ernie Tisnawati Sule, SE, MSi Asep Mulyana, SE, Dipl. Koop.oek

Pengusaha bidang teknologi (Technopreneur), khususnya informasi (TI)
Sumber : detik.com

technopreneur sebagai pengusaha yang membangun bisnisnya berdasarkan kemampuan
di bidang ilmu pengetahuan dan teknologi.
Menurut : Amir Sambodo
Sumber : http://www.republika.co.id/koran_detail.asp?id=141443&kat_id=105&kat_id1=149&kat_id2=

Social Entrepreneur.
Social entrepreneur adalah individu yang melakukan pendekatan masalah social
dengan semangat wirausaha dan intuisi bisnis. Kalau wirausaha menciptakan bisnis
maka social entrepreneurs menciptakan perubahan.

Kalau yang tujuh tipe diatas (ENTREPRENEUR (WIRAUSAHAWAN) :
- ADVISER,
- BUILDER,
- BROKER,
- CARE TAKER,
- CREATOR,
- OWNER,
- SELLER (ACCOUNT,PRODUCT,RETAIL))
terkait dengan bisnis maka tipe yang ini (Social Entrepreneur) tidak terkait dengan bisnis.
Social entrepreneur biasanya energik, persisten, dan umumnya percaya diri dengan kemampuan
untuk memberikan inspirasi kepada yang lainnya untuk bergabung.
Umumnya mereka merasa bertanggung jawab atas suatu misi tertentu.
Social entrepreneur umumnya pragmatik, bisa menjelaskan rencananya dengan rinci
dan sangat independen walaupun bukan orang yang penyendiri.
Sumber : http://www.stmik-mdp.net/tes_bakat.pdf.

Dasar Bahasa Pascal - Lesson 9

2007-07-13T06:20:00.000-07:00

pemograman

dasar pascal - lesson 9

PERINTAH INPUT - OUTPUT
3. Perintah Output (write atau writeln )
Perintah digunakan untuk menyajikan data ke default output - key-board.
SYNTAX Write(x); atau writeln(x);
Contoh:
write('TES');
Perintah ini akan menampilkan teks string TES ke layar monitor pada posisi kursor
sebelum perintah write dilaksanakan. Setelah menyajikan ke layar,
kursor pindah ke ujung teks TES pada baris yang sama.
writeln('TES');
Perintah ini akan menampilkan teks TES ke layar monitor pada posisi kursor
sebelum perintah write dilaksanakan. Setelah menyajikan ke layar,
kursor pindah ke awal baris berikutnya.

program luas_PersegiPanjan_01;
{Program untuk menghitung luas bangun empat persegi panjang.
input dibaca dari keyboard dan output ditampilkan ke layar monitor }
uses wincrt;
var panjangPSP, lebarPSP, luasPSP : integer;
{ Mendeklarasikan variable panjang, lebar dan luas persegi panjang sebagai integer. }
BEGIN { Program MULAI }
{ Membaca dari data panjang dan lebar persegi panjang;
default input unit dan default format dengan memberikan pentunjuk ke pemakai tanpa ganti baris.
Setelah membaca data kursor pindah ke baris baru. }
write('Panjang = '); readln(panjangPSP);
write('Leabar = '); readln(lebarPSP); { Menghitung luas persegi panjang. }
luasPSP := panjangPSP * lebarPSP;
{ Menyajikan hasil hitungan luas persegi panjang ke unit default output dan default format.
Setelah menyajikan kursor pindah ke baris baru. }
writeln('Luas = ', luasPSP);
END. { Program SELESAI }

Catatan: Argumen perintah writeln boleh berupa ekspresi.
Contoh perintah penyajian writeln('Luas = ', luasPSP); bisa dikerjakan dengan perintah:
writeln('Luas = ', panjangPSP * lebarPSP);

Dasar Bahasa Pascal - Lesson 8

2007-07-13T06:15:00.000-07:00

pemograman

dasar pascal - lesson 8

PERINTAH INPUT - OUTPUT
1. Assignment
Komputer bisa mengolah dan menampilkan sesuatu yang ada di dalam memori.
Merupakan cara tersederhana untuk "menempatkan" (assign) data ke memori.

Contoh:
program luas_PersegiPanjan_00; {Program untuk menghitung luas bangun empat persegi panjang} uses wincrt;
var panjangPSP, lebarPSP, luasPSP : integer;
{Mendeklarasikan variable panjang, lebar dan luas persegi panjang sebagai integer}
BEGIN {Program MULAI}
panjangPSP := 25;
lebarPSP := 20;
luasPSP := panjangPSP * lebarPSP;
END. {Program SELESAI}

2. Perintah Input (read atau readln)
Perintah digunakan untuk membaca data dari default input - keyboard.
SYNTAX read(x); atau readln(x);

Contoh:
program luas_PersegiPanjang_00;
{ Program untuk menghitung luas bangun empat persegi panjang. }
uses wincrt;
var panjangPSP, lebarPSP, luasPSP :integer;
{ Mendeklarasikan variable panjang, lebar dan luas persegi panjang sebagai integer. }
BEGIN { Program MULAI }
{ Membaca dari data panjang dan lebar persegi panjang,
default input unit dan default format tanpa ganti baris}
read(panjangPSP);
readln(lebarPSP);(pengisian variabel pertama dan kedua dipisahkan dengan spasi)
luasPSP:=panjangPSP*lebarPSP;{Menghitung luas persegi panjang}
END. { Program SELESAI }

Perintah read atau readln dapat digunakan untuk membaca data
lebih dari satu sekaligus dengan berbagai format.

Contoh:
program bacaCampuran; { Membaca data sekaligus menggunakan perintah read }
uses wincrt;
var nimMHS : character;
umurMHS : integer;
statusMHS: boolean;
BEGIN
readln(nimMHS,umurMHS,statusMHS);
{setelah mengisi semua variabel , harus diikuti dengan Enter}
END.

Dasar Bahasa Pascal - Lesson 7

2007-07-13T06:12:00.000-07:00

pemograman

dasar pascal - lesson 7

4. Operator
Beberapa operator yang disediakan oleh PASCAL:
1. Aritmatika
2. Boolean
3. Relasional
4. Set

Tabel 2. Operator Aritmatika PASCAL
Operator Operasi Tipe Operand Tipe Hasil Operasi
+ Penjumlahan Integer, real Integer, real
- Pengurangan Integer, real Integer, real
* Perkalian Integer, real Integer, real
/ Pembagian Integer, real Integer, real
div Pembagian integer, integer integer
mod Sisa pembagian integer, integer integer

Contoh :
9 + 2 (hasil: 11)
9 - 2 (hasil: 7)
9 * 2 (hasil: 18) 9 / 2 (hasil: 4.5)
9 div 2 (hasil: 4)
9 mod 2 (hasil: 1)

Tabel 3. Operator Boolean PASCAL
Operator Operasi Tipe Operand Tipe Hasil Operasi
not negasi boolean boolean
and logika ‘and’ boolean boolean
or logika ‘or’ boolean boolean
xor logika ‘xor’ boolean boolean
Contoh:
A dan B suatu variabel boolean
A not (A)
TRUE FALSE
FALSE TRUE

A B A and B A or B A xor B
TRUE TRUE TRUE TRUE FALSE
TRUE FALSE FALSE TRUE TRUE
FALSE TRUE FALSE TRUE TRUE
FALSE FALSE FALSE FALSE FALSE

Tabel 3. Operator Relasional
Operator Operasi Tipe Operand Tipe Hasil Operasi
= Sama dengan sederhana,string,pointer,set boolean
<> Tidak sama dengan sederhana,string,pointer,set boolean
< Lebih kecil dari sederhana,string boolean
> Lebih besar dari sederhana,string boolean
<= Lebih kecil atau = sederhana,string boolean
>= Lebih besar atau = sederhana,string boolean

Contoh:
Misal suatu variable A:=9 dan B:=2,
maka:
A = B (hasil: FALSE);
A <= B (hasil: FALSE) A <> B (hasil: TRUE);
A >= B (hasil: TRUE)
A < B (hasil: FALSE)
A > B (hasil: TRUE)

4. Operasi pada Set
a. Operasi Relasional pada Set
Ada empat perbandingan relasional yang diperkenankan pada set.
Tabel 4. Operator Relasional pada set

Operator Operasi Tipe Operand Tipe Hasil Operasi
= Sama dengan Set,set boolean
<> Tidak sama dengan Set,set boolean
<= Lebih kecil atau = Set, set boolean
>= Lebih besar atau = Set, set boolean

Misal
A dan B adalah merupakan dua buah set.
A = B : mempunyai hasil True jika A dan B memiliki anggota-anggota yang sama.
Contoh: [Sun, Tue, Fri] = [Tue, Fri, Sun].
A <> B: mempunyai hasil True jika A dan B memiliki anggota-anggota yang tidak sama.
A <= B : menunjukkan bahwa A adalah subset dari B.
Contoh: Jika A berisi [Sun, Mon, Tue] dan B berisi [Sun, Mon, Tue, Wed, Thu],
maka A adalah merupakan subset dari B dan ekspresi menghasilkan nilai True.
A >= B : menunjukkan bahwa A adalah superset dari B.
Contoh: Jika A berisi [Sun..Sat] dan B berisi [Mon..Fri],
maka A adalah merupakan superset dari B dan ekspresi menghasilkan nilai True.

b. Operasi Logika pada Set
Ada tiga operasi logika pada set.
Tabel 5. Operator Logika pada set
Operator Operasi Tipe Operand Tipe Hasil Operasi
+ Union Set Set
- Difference Set Set
* Intersection Set Set
Misal:
+ atau Union: [Sun, Mon, Tue, Wed] + [Mon, Thu, Fri]
menghasilkan [Sun, Mon, Tue, Wed, Thu, Fri].
- atau Difference: [Sun, Mon, Tue, Wed] - [Mon, Tue, Fri]
menghasilkan [Sun, Tue, Wed], yang merupakan anggota dari
set pertama yang bukan anggota set yang kedua.
* atau Intersection: [Sun, Mon, Tue, Wed] * [Mon, Tue, Fri] menghasilkan
[Mon,Tue], yang merupakan anggota kedua set.

5. Ekspresi
Merupakan kombinasi antara operator dan operand. Ekspresi matematik yang terjadi
dalam dunia nyata diterjemahkan kedalam bahasa Pascal dengan sedikit perubahan tanda.
Contoh:
Ekspresi matematika Ekspresi PASCAL
• a + b • a + b
• x ( y + z ) • x * ( y + z )
• b2 - 4ac • b * b - 4*a*c
Contoh: Bila dideklarasikan var i, j: integer; maka, i + j adalah ekspresi aritmatik
(menghasilkan suatu bilangan integer) i < j adalah ekspresi boolean
(menghasilkan logika TRUE atau FALSE)

6. Fungsi Matematik Standar dalam PASCAL
Tabel 6. Beberapa fungsi matematik standar yang disediakan oleh PASCAL
Nama Fungsi Deskripsi Tipe Argumen Tipe Hasil Operasi
abs absolute value real/integer real/integer
arctan arctan (radian) Real/integer real
cos cosine (radian) real/integer real
sin sin (radian) real/integer real
exp fungsi Perpangkatan e real/integer real
ln ln real/integer real
round Pembulatan terdekat real integer
sqr kuadrat real/integer real/integer
sqrt Akar kuadrat real/integer real
trunc Pembulatan ke bawah real/integer integer

Contoh :
Abs(-11) (hasil: 11)
Round(10.6) (hasil: 11)
Trunc(10.6) (hasil: 10)
Sqrt(4) (hasil: 2)
Sqr(4) (hasil: 16)
Untuk fungsi trigonometri:
x = sin phi menjadi x:=sin (3.1416);

Dasar Bahasa Pascal - lesson 6

2007-07-13T06:02:00.000-07:00

pemograman

dasar pascal - lesson 6

Tipe Data Terstruktur
tipe ini terdiri atas : array, record, set, dan file.
String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai
array dari karakter maka penulis perlu memberikan penjelasan tersendiri. Sedangkan untuk array, record,
dan file perlu dijelaskan dalam bab yang lain karena agak banyak hal-hal yang perlu dibahas.

-Tipe Data Pointer
pointer merupakan variabel khusus yang berisi suatu address (alamat) di lokasi lain didalam memory.
Suatu variabel yang points(menunjuk) ke sesuatu sehingga disebut pointer.
Ada dua macam pointer:
-typed(tertentu):
merupakan pointer yang menunjuk pada tipe data tertentu pada variable.
-generic(umum):
merupakan pointer yang tidak menunjuk pada tipe data tertentu pada variable.
Contoh deklarasi pointer:
var p : ^integer;
Contoh di atas merupakan deklarasi variabel p sebagai pointer dari integer.
Dengan menambahkan tanda caret (^) di depan nama tipe data variabel yang dideklarasikan:
contoh :
program contoh_pointer1;
uses wincrt;
var p : ^integer;
m, n : integer;
begin
m:=10;
n:=15;
p:=@m; { p sekarang menunjuk ke m }
p^:=12; { hal ini sama dengan m:=12; }
p:=@n; { p sekarang menunjuk ke n }
p^=m; { { hal ini sama dengan n:=m; }
writeln('m = ',m,', n = ',n); { m = 12, n = 12 }
end.
Ketika p menunjuk ke m ( p:=@m;), mengakses p^ sama dengan mengakses m.
Dalam membuat program, dalam penggunaan pointer kita memerlukan alokasi memori tertentu:
Ketika kita mendeklarasikan variabel pointer dalam "var" sehingga merupakan suatu static variable,
yang mana Static variable ini dibatasi oleh kapasitas 64KB untuk tiap module.
Yang berarti dalam program utama kita hanya bisa menggunakan hanya 64KB dan tiap unit Pascal
hanya bisa memakai 64KB. Sehingga kita perlu memecahkan program kebeberapa unit.
Salah satu teknik yang dipakai untuk mengatasi persoalan ini adalah seperti program berikut.

Program contoh_pointer2;
uses wincrt;
Type Pemployee = ^Temployee;
Temployee = record Name : string[10];
Position : char;
Salary : longint;
end;
var p : pemployee;
begin
new(p);
p^.name:='Saddam';
p^.position:='S';
p^.salary:=3000;
writeln(p^.name,' ',p^.position,' ',p^.salary);
dispose(p);
end.
Pada blok begin...end blok, kita bisa melihat meskipun p tidak menunjuk pada suatu variable
tetapi dapat diisi dengan nilai. Pernyataan new(p); tidak memerlukan alokasi memori.
Setelah itu kita bisa melakukan apapun pada variabel tersebut sampai kita membuangnya dari memori dengan
memakai perintah dispose(p);. Variable dengan cara ini dinamakan dengan dynamic variable.

Generic Pointer
adalah pointer tanpa tipe data tertentu.
Biasanya, pointer berkaitan dengan tipe data khusus, sedangkan generic pointer tidak.
Deklarasi:
Var P : pointer;
Dipergunakan sebagai buffer sementara (tidak permanen). Sehingga kita bisa melepasnya untuk suatu saat
tidak diperlukan. Untuk itu pointer sangat bagus karena sifatnya yang dinamis.
Tetapi, generic pointer tidak sama dengan typed pointer. Typed pointer menggunakan "new" untuk menampung memori
dan "dispose" untuk melepasnya. Generic pointer menggunakan "getmem" untuk mendapatkan memori dan "freemem"
untuk melepasnya. Pada pointer dengan tipe tertentu, program Pascal mengetahui ukuran dari memori yang harus
dilaokasikan, sedangkan tipe umum (generic pointer) Pascal tidak bisa, karena Pascal tidak mengetahui variabel
apa yang akan dipakai. Sehingga dengan getmem kita perlu untuk menentukan berapa besar memori yang akan kita
alokasikan. Ukuran terbesar adalah 65532 bytes (hampir 64K).

Program contoh_pointer2;
uses wincrt;
Var P : pointer;
Begin
Getmem(p,8192); { Reserve 8192 bytes }{ We use it then }
freemem(p,8192); { Release it, 8192 bytes }
end.

Dasar Bahasa Pascal - Lesson 5

2007-07-13T05:52:00.000-07:00

pemograman

dasar pascal - lesson 5

Tipe Data Terstruktur
tipe ini terdiri atas : array, record, set, dan file.
String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai
array dari karakter maka penulis perlu memberikan penjelasan tersendiri. Sedangkan untuk array, record,
dan file perlu dijelaskan dalam bab yang lain karena agak banyak hal-hal yang perlu dibahas.

b. Tipe Data Set
Sebuah set merupakan suatu himpunan yang berisi nilai (anggota). set merupakan Tipe data yang khusus untuk Pascal.
Set dalam pemrograman sangat mirip dengan himpunan dalam ilmu matematika,
contoh: A = { 1, 2, 3, 4, 5 }
Syntax: set of contoh:
type Digits = set of 0..9;
Letters = set of 'A'..'Z';
type Day = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);
CharSet = set of Char;
Digits = set of 0..9;
Days = set of Day;
const EvenDigits: Digits = [0, 2, 4, 6, 8];
Vowels: Letters = ['A', 'E', 'I', 'O', 'U', 'Y'];
Kita tidak bisa menulis atau membaca isi dari set, tetapi kita bisa melakukan operasi yang lain dengan data
yang ada pada set (mis. relasional).
Contoh:
Program contoh_set;
Uses wincrt;
type hari = (ahad, sen, sel, rab, kam,jum, Sab);
var semua_hari : set of hari;
hari_kerja : set of sen .. jum;
hari_ini : hari;
begin
hari_ini:=sen;
if hari_ini in hari_kerja then
writeln('HARI INI HARI KERJA')
else
writeln('HARI LIBUR');
end.
Salah satu manfaat dari penggunaan tipe data set adalah untuk mengecek apakah suatu nilai muncul dalam
suatu range tertentu. Misalnya, untuk mementukan apakah suatu karakter berupa lower case letter (huruf kecil),
mis. Ch adalah tipe Char, kita bisa menulis,
if (Ch >= 'a') and (Ch <= 'z') then Writeln( Ch,' merupakan huruf kecil.');
atau, dengan notasi set, kita bisa menulis ,
if Ch in ['a'..'z'] then Writeln( Ch,' merupakan huruf kecil.');

Dasar Bahasa Pascal - Lesson 4

2007-07-13T05:50:00.000-07:00

pemograman

dasar pascal - lesson 4

Tipe Data Terstruktur
tipe ini terdiri atas : array, record, set, dan file.
String adalah tipe data jenis array, tetapi karena string memiliki kekhasan tersendiri sebagai
array dari karakter maka penulis perlu memberikan penjelasan tersendiri. Sedangkan untuk array, record,
dan file perlu dijelaskan dalam bab yang lain karena agak banyak hal-hal yang perlu dibahas.

a. Tipe Data String String
merupakan suatu data yang menyimpan array (larik), sebagai contoh 'ABCDEF' merupakan sebuah konstanta
string yang berisikan 6 byte karakter. Ukuran Tempat untuk tipe data ini adalah 2 s/d 256 byte,
dengan jumlah elemen 1 s/d 255. String dideklarasikan dengan string [ konstanta ] atau string.
Bila ukuran string tidak didefinisikan maka akan banyak memakan ruang, karena ukuran string menyesuaikan
dengan defaultnya.
Misalkan var kata: string [20]; atau var kata: string;
karena string merupakan array dari karakter. Maka kata[1] merupakan karakter pertama dari string,
kemudian kata[2], merupakan elemen kedua, dst.

Contoh:
Program hal_string;
Uses wincrt;
var s : string;
begin s:='Hello';
writeln(s);
writeln('panjang dari string adalah: ',ord(s[0]));
end.

Karakter nol merupakan karakter yang menyatakan panjang string. Sehingga ord(s[0]) menyatakan panjang
dari string tersebut. Panjang string juga bisa dinyatakan sebagai length(s).
routines pada Pascal untuk manipulasi string :

-Length : menghasilkan panjang string.
Syntax : length(s)
Contoh : n:=length(s);
Misal s:='pemrograman'; n akan sama dengan 11.

-Copy : mengkopi suatu ekstrak karakter dari sebuah string.
Syntax : copy(s,dari,banyaknya)
Contoh : st:=copy(s,5,3); mengekstrak 3 karakter dari s, dimulai dari karakter kelima.
Misal s:='Who are you ?'; st adalah 'are'.
catatan: bila indek lebih bear dari panjang string maka hasilnya akan kosong:
Contoh : st:=copy(s,15,4); { kosong} jika banyaknya string yang akan diekstrak lebih besar dari s,
maka hasilnya adalah bagian yang tersisa dari string.
Contoh : st:=copy(s,9,10); st hasilnya adalah 'you ?'

-Pos : menghasilkan posisi dari suatu substring dari suatu string.
Syntax : Pos(substr,s)
Contoh : n:=pos('are','Who are you ?'); { n:=5; }
Jika substring tidak ditemukan, maka hasilnya 0.

-Val : mengkonversi string ke numerik.
Syntax : val(strvar,numvar,errorcode)
strvar adalah variabel string yang akan dikonversi, numvar variabel numerik ( bisa integer atau real,
dan errorcode adalah variabel integer yang menyimpan error code (kode kesalahan).
Jika errorcode adalah 0, konversi berhasil. Sebaliknya, hal ini akan menunjukan posisi dimana pada
strvar yang menyebabkan kegagalan.
Contoh :
program konversiangka;
uses wincrt;
var s : string;
e : integer; r : real;
begin
write('masukkan angka : ');
readln(s);
val(s,r,e);
if e<>0 then writeln('salah pada posisi : ',e)
else writeln('itu adalah : ',r:4:3);
end.

-Str : mengkonversi numerik ke string.
Syntax : str(numvar,strvar)
Contoh :
program konversiangka_1;
uses wincrt;
var s : string;
i : integer;
begin
write('masukkan angka: ');
readln(i);
str(i,s);
writeln('itu adalah: ',s);
end.

-Concat : Menggabungkan dua atau lebih string.
Syntax : concat(s1,s2,...,sn)
Contoh : st:=concat(s1,s2); Jikas1='ABC' dan s2='DEF',
st akan menjadi 'ABCDEF' st:=concat('Borland ','Pascal ','ver. ','7.0');
akan menjadi 'Borland Pascal ver. 7.0'

-Insert : Menyisipkan suatu string ke dalam string yang lain.
Syntax : insert(asal,target,indek)
Contoh :
program sisip ;
uses wincrt;
var s1, s2 : string;
begin
s1:='tidak ';
s2:='saya bekerja';
insert(s1,s2,6);
writeln(s2); {saya tidak bekerja }
end.
Jika hasilnya lebih dari 255 maka akan terpotong menjadi 255.

-Delete : menghapus n karakter dari string s berawal dari indek i.
Syntax : delete(s,i,n);
Contoh :
program hapus;
uses wincrt;
var s : string;
begin
s:='saya seorang insinyur';
delete(s,6,3);
writeln(s); { 'saya sang insinyur'}
end.

-Fillchar : mengisi string s dengan karakter c sampai s sama dengan n-1 panjang karakternya.
Syntax : fillchar(s,n,c); Hati-hati : s[0] akan tertumpuki,
jangan lupa menambahkan s[0]:=chr(n-1); untuk menormalkannnya.
Contoh :
program isikarakter;
uses wincrt;
var s : string;
begin
fillchar(s,51,'=');
s[0]:=chr(50);
end.

Dasar Bahasa Pascal - Lesson 3

2007-07-13T05:46:00.000-07:00

pemograman

Dasar Bahasa PASCAL - lesson 2

Tipe Data
Tipe data yang disediakan oleh PASCAL meliputi:
1. Tipe Data Sederhana
merupakan tipe data dasar yang sering dipakai oleh program, meliputi:
integer (bilangan bulat), real (bilangan pecahan), char (alphanumerik dan tanda baca),
dan boolean (logika). Untuk data integer dan real masing-masing terbagi menjadi beberapa kategori
a. Bilangan Integer
merupakan tipe data berupa bilangan bulat, terbagi atas beberapa kategori seperti
terlihat dalam keterangan dibawah.
keterangan dibawah menunjukkan jenis data, ukuran dalam memori dan rentang nilainya.

Tipe Data Ukuran Tempat Rentang Nilai
Byte 1 byte 0 s/d +255
Shortint 1 byte -28 s/d +127
integer 2 bytes -32768 s/d 32767
Word 2 bytes 0 s/d 65535
Longint 4 bytes 2147483648 s/d 2147483647

Contoh bilangan integer adalah: 34 6458 -90 0 1112 Penggolongan tipe data integer tersebut
dimaksudkan untuk membatasi alokasi memori yang dibutuhkan misalkan untuk suatu perhitungan
dari suatu variabel bilangan diperkirakan nilai maksimumnya 32767 kita cukup mendeklarasikan
variabel bilangan sebagai integer (2 byte), daripada sebagai longint(4 byte). Di dalam kompilernya,
Pascal menyediakan konstanta untuk bilangan Integer yaitu: MaxInt and MaxLongInt, pemrogram bisa
menggunakannya di dalam programnya tanpa harus terlebih dahulu mendefinisikannya.
-MaxInt bernilai 32.767
-MaxLongint bernilai 2.147.483.647.

contoh:
Program display_maxint;
uses wincrt;
begin writeln (maxint)
end.
maka Hasilnya: 32.767

b. Bilangan Real
Bilangan real atau nyata merupakan jenis bilangan pecahan, dapat dituliskan
secara biasa atau model scientific . Contoh bilangan real: 34.265 -3.55 0.0 35.997E+11,
dimana E merupakan simbol perpangkatan 10. Jadi 452.13 mempunyai nilai sama dengan 4.5213e2.
Penggolongan tipe data bilangan real dapat dilihat pada keterangan dibawah.
keterangan dibawah mengenai Bilangan Real

Tipe Data Ukuran Tempat Rentang Nilai
real 6 bytes 2.9 x 10-39 s/d 1.7 x1038
single 4 bytes 1.5 x 1045 s/d 3.4 x 1038
double 8 bytes 5.0 x 10-324 s/d 1.7 x 10308
extended 10 bytes 3.4 x 10-4932 s/d 1.1 x 104932
comp 8 bytes -9.2x 1018 s/d 9.2x 1018

c. Char
tipe data ini menyimpan karakter yang diketikkan dari keyboard, memiliki 266 macam yang terdapat
dalam tabel ASCII (American Standard Code for Information Interchange).
Contoh: 'a' 'B' '+', dsb. Yang perlu diingat bahwa dalam menuliskannya harus
dengan memakai tanda kutip tunggal. Jenis data ini memerlukan alokasi memori sebesar 1(satu) byte
untuk masing-masing data.

d. Tipe Data Boolean
merupakan tipe data logika, yang berisi dua kemungkinan nilai: TRUE (benar) atau FALSE (salah).
Turbo Pascal for Windows memiliki tiga macam jenis ini yaitu: Boolean, WordBool, dan LongBool.
Tipe boolean memakai memori paling kecil, sedangkan WordBool dan LongBool dipakai untuk menulis program
yang sesuai dengan lingkungan Windows.
keterangan mengenai bolean

Tipe Data Ukuran Tempat
Boolean 1 byte
WordBool 2 byte
Longbool 3 byte

Sebagai bilangan ordinal boolean true mempunyai nilai 1(satu), sedangkan false nilainya adalah 0(nol).
Contoh:
Program display_bool;
uses wincrt;
begin writeln(ord(true));
writeln(ord(false));
end.
Hasilnya: 1 0 3.2.

Dasar Bahasa PASCAL - lesson 2

2007-07-09T22:43:00.000-07:00

Dasar Bahasa PASCAL - lesson 1

2007-07-09T22:38:00.000-07:00

pemograman

Dasar Bahasa PASCAL - lesson 1

Unsur-unsur Pemrograman
a. Mendapatkan data dengan membaca data dari default input (key board, file atau sumber data lainnya).
b. Menyimpan data ke dalam memori dengan struktur data yang sesuai,
c. Memproses data dengan instruksi yang tepat.
d. Menyajikan atau mengirimkan hasil olahan data ke default output (monitor, file atau tujuan lainnya).

Dalam mengolah data diperlukan pengelolaan instruksi terstruktur:
a. Beberapa instruksi dikelompokkan dalam satu blok atau model yang mengerjakan tugas tertentu.
b. Beberapa perintah dilaksanakan dengan persyaratan tertentu.
c. Beberapa perintah dilaksanakan berulang dengan jumlah pengulangan tertentu. Identifier Digunakan untuk nama:
Program, Sub-program (procedure dan function), nama: Variable, Constant, Type, Label.

Nama-nama ini digunakan untuk pemakaian dan pemanggilan dalam program. Ketentuan penulisan identifier
a. Nama identifier harus dimulai dengan karakter huruf alfabet: a sampai z, A sampai Z atau karakter '_'
(underscore - garis bawah)
b. Karakter berikutnya boleh karakter numerik (0 .. 9) atau kombinasi alphanumerik (huruf-numerik).
c. Panjang nama, pada berbagai versi Pascal umumnya antara 32 - 63.
d. Tidak boleh menggunakan karakter istimewa: + - * / | \ = < > [ ] . , ; : ( ) ^ @ { } $ # ~ ! % & ` " ' dan ?
Contoh penulisan:
Penulisan yang benar: X _PQR Beta Sudut_Alpha luasLingkaran
Penulisan yang salah: 3D sisi-Kanan B#

Jenis identifier
a. Identifier umum
Merupakan identifier yang didefinisikan sendiri oleh pemrogram.
Pemrogram mempunyai kebebasan untuk menentukan nama identifiernya,
dengan syarat nama tersebut tidak sama dengan identifier standar dan reserved word yang akan dibahas lebih lanjut.
Hal ini untuk mencegah kesalahan yang bisa timbul akibat tumpang tindih identifier dalam program.
b. Identifier Standar (Baku)
Merupakan identifier yang didefinisikan oleh pembuat kompiler Pascal.
Biasanya pembuat kompiler menyediakan suatu library yang sudah ada didalam kompiler.
Library berisi berbagai procedure, fungsi atau unit yang sudah siap pakai.
Misalnya Turbo Pascal Windows 1.5 memiliki suatu unit untuk memproses output yaitu wincrt, gotoxy,
yang dengan mudah bisa dipakai oleh programmer di dalam menuliskan kode-kode programnya.
Dinamai Identifier Standar karena suatu kompiler tidak harus memilikinya, masing-masing kompiler dimungkinkan
mempunyai identifier yang berbeda untuk suatu tugas yang hampir sama. Misalnya Turbo Pascal versi DOS menggunakan
crt untuk melakukan fungsi yang sama dengan wincrt (TPW 1.5). Beberapa Identifier Standar yang dimiliki oleh
kompiler-kompiler Pascal antara lain:
abs arctan boolean char cos dispose eof eoln exp false input integer ln maxint new odd ord output pack page
pred read readln real reset rewrite round sin sqr sqrt succ text true trunc write writeln
c. Identifier "reserved word", yaitu yang sudah didefinisikan dan digunakan oleh bahasa PASCAL sendiri
(Kita tidak bisa menamai identifier kita dengan ini).
and array begin case const div do downto else end file for forward function goto if in label mod nil not of or
packed procedure program record repeat set then to type until var while with

Deklarasi Variable:
Mendeklarasikan varibel adalah:
a. Memberikan nama variabel sebagai identitas pengenal
b. Menentukan tipe data variabel
Contoh deklarasi variabel:
var K : integer;
R : real;
C : char;
T : boolean;
Beberapa identifier yang sejenis bisa dideklarasikan bersamaan.
var i, j, k : integer;{Variabel i, j dan k sebagai integer}
namaMHS, alamatMHS : char; {Nama dan alamat mahasiswa }

Deklarasi Konstanta:
Mendeklarasikan konstanta adalah:
a. Memberikan nama konstanta sebagai identitas pengenal
b. Menentukan nilai konstanta
Contoh deklarasi konstanta:
const MaximumSize = 100; {integer }
ExitCommand = 'Q'; {char }

BAHASA PASCAL - pengantar

2007-07-09T22:35:00.000-07:00

pemograman

BAHASA PASCAL - pengantar
1. Sejarah PASCAL
merupakan pengembangan dari bahasa ALGOL 60, bahasa pemrograman untuk sains komputasi.
Tahun 1960, beberapa ahli komputer bekerja untuk mengembangkan bahasa ALGOL,
salah satunya adalah Dr. Niklaus Wirth dari Swiss Federal Institute of Technology (ETH-Zurich),
yang merupakan anggota grup yang membuat ALGOL. Tahun 1971, dia menerbitkan suatu spesifikasi
untuk highly-structured language (bahasa tinggi yang terstruktur) yang menyerupai ALGOL.
Dia menamainya dengan PASCAL (seorang filsuf dan ahli matematika dari Perancis)
Pascal bersifat data oriented, yaitu programmer diberi keleluasaan untuk mendefinisikan data sendiri.
Pascal juga merupakan teaching language (banyak dipakai untuk pengajaran tentang konsep pemrograman).
Kelebihan yang lain adalah penulisan kode Pascal yang luwes, tidak seperti misalnya FORTRAN,
yang memerlukan programmer untuk menulis kode dengan format tertentu.
Bentuk dasar program Pascal adalah seperti berikut:

program TITLE ;
begin pernyataan;
pernyataan
end.

2. PASCAL sebagai bahasa terstruktur Sebagai bahasa terstruktur, PASCAL mempunyai ciri-ciri sebagai berikut:
- Berurutan
Susunan dari kode-kode dalam teks Pascal harus ditulis secara urut dari atas,
pernyataan-pernyataan yang ditulis lebih awal akan dieksekusi lebih dahulu. Oleh karena itu,
suatu pernyataan yang menyangkut suatu variabel di dalam program, maka variable itu harus terdefinisi
dahulu sebelumnya. Hal ini terutama menyangkut pada pemanggilan sub-program oleh sub-program yang lain.
Bisa dibaca lebih lanjut pada bagian sub-program.
- Blok dengan batas-batas yang jelas.
Pascal memberikan pembatas yang jelas pada tiap-tiap blok, seperti pada blok program utama,
sub-program, struktur kontrol (pengulangan/ pemilihan), dll. Pemakaian kata kunci begin untuk mengawali
operasi pada blok dan end untuk menutupnya memudahkan programmer menyusun programnya dengan mudah.
Seperti contoh:

If X>0 then
begin Write ( ‘ bilangan positif’);
Writeln ( ‘ program selesai’);
end;

- Satu pintu masuk dan satu pintu keluar pada blok pemilihan dan pengulangan.
Contoh di atas juga mengilustrasikan pintu masuk tunggal pada suatu blok pemilihan yaitu
suatu test logika X>0, dengan pintu keluaran yang satu pula (satu disini maksudnya bukan dua baris
perintah output tapi suatu paket perintah yang dirangkai dengan begin .. end.

3. Bakuan PASCAL
Dibakukan oleh ISO pada tahun 1983 dan dikembangkan dalam beberapa versi, diantaranya:
USCD PASCAL, MS PASCAL, TURBO PASCAL dll. Dengan semakin berkembangnya teknologi dalam komputasi,
Pascal dimanfaatkan untuk pengembangan DELPHI (berasal dari nama suatu kota di masa Yunani kuno),
suatu bahasa pemrograman visual yang menonjolkan pada efek grafis dan orientasi pada objek-objek yang siap dipakai,
karena memiliki Visual Component Library (VCL).

4. Struktur Bahasa PASCAL secara umum
Pascal mempunyai struktur sebagai berikut:
1. Bagian Judul Program
2. Bagian Deklarasi
a. Deklarasi tipe data (TYPE)
b. Deklarasi variabel (VAR)
c. Deklarasi konstanta (CONST)
d. Deklarasi label (LABEL)
e. Deklarasi sub-program (PROCEDURE dan FUNCTION)
3. Bagian Program Utama Perintah-perintah.

Teks Pascal setidaknya memiliki bagian Judul Program, bagian Deklarasi, dan Bagian Program Utama
yang berupa perintah-perintah. Sedangkan untuk bagian deklarasi menyesuaikan dengan isi dari program itu sendiri.
Contoh program PASCAL:

contoh 1
program TAMBAH_00; { Menjumlahkan dua bilangan yang nilainya diberikan dalam perintah}
var X, Y, Z: integer; { Deklarasi variabel X,Y dan Z sebagai bilangan bulat }
BEGIN { Program Utama Mulai }
X := 50; { Perintah memberikan nilai 50 pada var. X }
Y := 25; { Perintah memberikan nilai 25 pada var. Y }
Z := X + Y; { Perintah menjumlahkan X dan Y serta menyimpan hasilnya ke Z}
END. { Akhir Program Utama }

Pada contoh ini nilai X dan Y tidak bisa sembarang, karena didefiniskan tertentu.
Agar nilai X dan Y bisa bebas ditentukan, nilai X dan Y dibaca dari default input.

contoh 2
program TAMBAH_01; { Menjumlahlan dua buah bilangan yang dibaca dari default input }
var X, Y, Z: integer; { Deklarasi variabel X,Y dan Z sebagai bilangan bulat }
BEGIN { Program Utama Mulai }
read(X); { Membaca nilai X lewat key-board }
read(Y); { Membaca nilai Y lewat key-board }
Z := X + Y; { Menjumlahkan X dan Y serta menyimpan hasilnya ke Z }
write(Z); { Menyajikan Z ke layar monitor }
END. { Akhir Program Utama }

pada contoh ini, kita dapat memasukkan nilai x dan y sembarang
karena pembacaan inputan dilakukan melalui user dan diinputkan
dari keyboard.

UPS vs Stabilizer

2007-07-09T22:29:00.000-07:00

pengetahuan

UPS vs Stabilizer

Spike adalah voltage yang turun tiba2.
Spike tidak bisa diatasi oleh stabilizer maupun UPS.

Paku paku kecil dalam gelombang sinus ini dihilangkan dengan cara :

a. low pass filter. Inget kan Fourier transform, bahwa any signal bisa
diurai menjadi sekian deret sinus yang lebih sederhana yang frekuensinya
lebih tinggi. Nah LPF ini di set supaya melewatkan sinus dengan frekuensi
yang diinginkan dan meredam harmonik yang tidak perlu

b. dengan voltage clipper. Biasanya varistor yang dipakai. Begitu ada
tegangan yang melewati treshold tertentu, varistor akan short circuit dan
membuang energi spike tersebut ke panas. Karena durasi spike yang sangat
kecil maka OK OK saja short circuit ini terjadi. Tapi kalo durasi naiknya
tegangan itu lama, yaitu surge, otomatis varistor akan short circuit
kelamaan, kepanasan dan hangus.

Kalau untuk menanggulangi surge dan brown out, memang dipakai stabilizer.
Jadi begitu ada kejadian tegangan turun atau tegangan naik, transformer
dalam stabilizer akan mengubah harga induktansi kumparan primer dan
sekundernya agar tegangan yang keluar tetap.
Ini bisa dijalankan dengan beberapa cara :

a. menggerakkan kumparan primer (atau sekunder) sehingga jumlah lilitan
yang saling bertemu muka berubah. Ini kudu menggunakan motor listrik,
makanya sering disebut juga servo controlled stablizer. Harganya mahal,
reaksi tidak begitu cepat, tapi presisi secara analog.

b. menggunakan kumparan sekunder yang multi point tapnya. Jadi diperoleh
output dengan multi tegangan. Kemudian ada relay yang memilih tap point
mana yang menghasilkan tegangan yang diinginkan. Cara ini murah, reaksi
cepat, tapi tidak presisi. Dan ini adalah stabilizer yang banyak dijual di
pasaran.

c. mengubah harga mutual inductance dari kumparan primer dan sekunder. Bisa
dengan cara menggeser-geser core dari kumparan, atau memasukkan medan
listrik lain untuk merubah harga....uh apa sih namanya buat inti.
Permeabilitas core? Ah lupa deh. Mbuh ah, pada intinya tujuannya dengan
perubahan mutual inductance ini akan menghasilkan tegangan keluaran yang
bisa diatur atur. Cara ini mahal, reaksi cepat, dan presisi secara analog.

Kebanyakan power supply di dunia komputer adalah switching power supply,
dimana keunggulannya adalah dia dapat merubah rubah kecepatan switching
bergantung pada tegangan input atau tegangan output. Misalkan tegangan
output yang diminta adalah tetap, dia akan bekerja makin cepat jika
tegangan input turun, dan mengurangi kecepatan switching jika tegangan
input naik. Jadi sebetulnya tidak perlu tuh stabilizer untuk switching
power supply ini.

Stabilizer mungkin baru diperlukan kalau kondisi sbb :

a. Misalkan switching power supply (SPS) dirancang untuk tegangan 180-240
volt. Tapi kemudian terjadi brown out sampai 160V atau surge sampai 260V.
Di sini stabilizer mampu melakukan preconditioning sehingga tegangan input
SPS tetap ada dalam nominal range. Tapi ya kondisi ini sudah tidak sehat
sebetulnya, mestinya komputer jangan dioperasikan di lingkungan seperti ini.

b. Misalkan pada tegangan nominal 220V, SPS sudah hampir 100% loaded. Tiba
tiba terjadi surge, sehingga kecepatan switching SPS harus naik, lalu jebol
karena sudah diluar toleransi dia. Di sini stabilizer ada gunanya. Tapi ya
itu, it is a bad design, menggunakan SPS tanpa toleransi beban yang cukup.

Nah kalo kepingin punya stabilizer, buat komputer cukuplah beli yang pakai
relay itu. Murah dan efektif.
sementara UPS itu sesuai namanya adalah 'uninterruptible power supply', jadi
ya tujuannya mempertahankan supply listrik supaya tidak putus kalau listrik
mati ?
Itu memang betul. Tapi di lain pihak UPS karena punya source energi sendiri
(battery) dan punya pembangkit listrik sendiri (inverter) dia bisa
dijadikan "trusted" power source kan? Jadi kalo misalkan power line-nya
ngaco, misalkan ada surge atau brown out, tinggal diputus saja power
line-nya, lalu nyalakan inverter milik UPS, mengambil energi dari battery.
Rata rata UPS punya kemampuan ini kok. Jadi gak hanya kalo power line mati
total dia bertindak sebagai emergency power line. Pada UPS type online,
lebih ekstrem lagi, karena tenaga selalu diambil dari battery, diharapkan
sumbernya lebih "trusted" daripada mengambil dari PLN, misalkan, yang doyan
mati berjam jam seperti kasus di Jakarta kemarin :)

Kebanyakan produk UPS sudah punya line filter, varistor, dan UPS sendiri
dalam satu kotak, jadi sekarang tinggal beli misalkan merek APC, Bauma,
Best, semua sudah bagus sekali dipakai untuk melindungi komputer.

KATA-KATA BIJAK DARI CEO KELAS DUNIA

2007-07-09T08:23:00.000-07:00

KATA-KATA BIJAK DARI CEO KELAS DUNIA
************************************

Takut akan kegagalan seharusnya tidak menjadi alasan
untuk tidak mencoba sesuatu.

Kepemimpinan adalah Anda sendiri dan apa yang Anda
lakukan.

Frederick Smith,
Pendiri Federal Express
**************************

Kejujuran adalah batu penjuru dari segala kesuksesan,
Pengakuan adalah motivasi terkuat.

Bahkan kritik dapat membangun rasa percaya diri saat
"disisipkan" diantara pujian.

May Kay Ash,
Pendiri Kosmetik Mary Kay
**************************

Jika Anda dapat memimpikannya, Anda dapat
melakukannnya.

Ingatlah, semua ini diawali dengan seekor tikus,
Tanpa inspirasi.... kita akan binasa.

Walt Disney,
Pendiri Walt Disney Corporation
**************************

Uang merupakan hamba yang sangat baik, tetapi tuan
yang sangat buruk.

P.T. Barnum,
Anggota Pendiri Sirkus Barnum & Bailey
**************************

Sumber kekuatan baru bukanlah uang yang berada dalam
genggaman tangan beberapa orang, namun informasi di
tangan orang banyak.

John Naisbitt,
Pemimpin Umum Naisbitt Group
**************************

Jenius adalah 1 % inspirasi dan 99 % keringat.
Tidak ada yang dapat menggantikan kerja keras.
Keberuntungan adalah sesuatu yang terjadi ketika
kesempatan bertemu dengan kesiapan.

Thomas A. Edison,
Penemu dan Pediri Edison Electric Light Company
**************************

Ketika satu pintu tertutup, pintu lain terbuka;
namun terkadang kita melihat dan menyesali pintu
tertutup tersebut terlalu lama hingga kita tidak
melihat pintu lain yang telah terbuka.

Alexander Graham Bell,
Penemu dan Mantan Presiden National Geographic Society
**************************

Jangan biarkan jati diri menyatu dengan pekerjaan
Anda.

Jika pekerjaan Anda lenyap, jati diri Anda tidak akan
pernah hilang.

Gordon Van Sauter,
Mantan Presiden CBS News
**************************

Hari ini Anda adalah orang yang sama dengan Anda di
lima tahun mendatang, kecuali dua hal : orang-orang di
sekeliling Anda dan buku-buku yang Anda baca.

Charles "Tremendeous" Jones,
Presiden Life Management Services, Inc.
**************************

Yang terpenting dalam Olimpiade bukanlah kemenangan,
tetapi keikutsertaan ...

Yang terpenting dari kehidupan bukanlah kemenangan
namun bagaimana bertanding dengan baik.

Baron Pierre de Coubertin,
Pendiri & Presiden pertama Komite Olimpiade
International
**************************

Kebahagiaan biasanya merupakan hasil dari sebuah
pengorbanan.

Sebelum tidur, bertanyalah, kebaikan apa yang sudah
kulakukan hari ini ?

joke : tipe kondom lokal

2007-07-07T01:31:00.000-07:00

@@@@@@@@@@@@@@@@@@@

berikut ini adalah beberapa tipe kondom yang harus kalian tau
dan kondom2 ini adalah buatan dalam negeri alias Kondom Lokal

Kondom Panther . . : " nyaris tak bersuara . . . . . "

Kondom TOSHIBA : " Dunia Mengakuinya . . . . . "

Kondom Extra Joss : " Merubah ngos menjadi joss . . . . "

Kondom Jarum Super : " Yang penting rasanya bung ! "

Kondom Telkom : " Setia melayani anda "

Kondom AXE : " Kesan pertama begitu menggoda . . . "

Kondom Indosiar : " Memang untuk anda "

Kondom Rexona : " Setia Setiap Saat "

Kondom Kapal Api : " Jelas lebihenaak . . . "

yang jelas this is only joke....
you can belived or not
see u

@@@@@@@@@@@@@@@@@@@

bentuk muka vs style kacamata

2007-07-07T01:29:00.000-07:00

bentuk muka vs style kacamata

kadang bagi orang yang memiliki penglihataan yang
kurang alias memiliki mata bermasalah, mereka terkadang
menggunakan alat bantu untuk mengatasi masalah mereka..
baik itu menggunakan soft lensatau kacamata
dan hal ini juga yang terkadang saya alami ^u^
pemilihan kacamata sangat berpengaruh bagi mereka yang
menggunakannya baik itu besarnya bingkai..ketebalan lensa
sampai dengan style dari frame kacamata
nah..berikut adalah sedikit masukkan buat yang memiliki
nasib seperti saya alias menggunakan kacamata

1. wajah oval
dapat menggunakan hampir semua bentuk frame
asalkan tidak terlalu besar ataupun kecil dibandingkan
dengan besar kecilnya muka mereka :)

2. wajah bulat
frame yang sesuai untuk wajah bulat adalah bentuk persegi
atau kotak agar wajah terlihat lebih panjang dan kusus
hindari pemakaian frame bulat (ntr tambah bulet deh ^U^)

3. wajah kotak
pilih kacamata oval klasik,bulat atau cat eye. agar tidak
berkesan kaku maka hindari frame berpotongan tajam yang
dapat memberikan kesan lebar pada bagian dahi kita juga
pada pipi

4. wajah panjang
hindari frame yang pipih memanjang kesamping. frame lebih baik
menutup alis agar terkesan wajah tidak telalu panjang. bentuk
bulat dan kotak akan memberikan efek dramatis pada wajah
yang panjang (dramatis..kaya nonton film aja y ^U^)

5. wajah persegi
diajurkan memakai frame berbentuk persegi banyak,elips dan frame
rimless.

6. wajah segitiga
wajah yang memiliki dagu lancip atau dahi lebar dianjurkan memakai
kacamata dengan bingkai logam tanpa lis.

nah mybe segini dlu..next dilanjutin....
would you be my frendz....?
contact :
crbnku@gmail.com
kodokmen.blogspot.com

poto

2007-06-30T22:05:00.000-07:00

modeling..cool boy :)

amunisi buat dosen-dosen tercinta...

2007-06-30T21:40:00.000-07:00

amunisi buat dosen-dosen tercinta...

dalam suatu perkuliahan..tentu ada elemen dosen dan mahasiswa
seperti biasa..dosen menerangkan kepada para mahasiswa nya dikelas
ada bermacam alat bantu yang digunakan...ya biasanya diprodi TF
menggunakan komputer+LCD, OHP, atau manual dengan white board.

kalau soal komputer+LCD juga desain slide...dosen sudah tidak diragukan
apalagi jaman manual dengan OHP (hihih..walaupun jadul tapi berguna)
nah yang satu ini..penggunaan white board....

saya bukan ingin mengejek atau bagaimana...untuk tulisan sepertinya
tidak ada masalah..asalkan itu jelas dan masih bisa dibaca. namun terkadang
penggunaan warna tinta sedikit mempengaruhi daya baca mahasiswa dikelas.
kebanyakan warna yang digunakan hitam, merah, biru atau hijau.

saya hanya ingin mengusulkan bagaimana jika penggunaan spidol untuk white board
dibatasi yaitu hanya menggunakan spidol hitam atau biru saja. karena menurut saya
kedua warna itu lah yang paling jelas apabila ada tulisan diwhite board.
memang ada juga dosen yang memikiki warna favorite seperti merah atau hijau.
tapi yang tidak kalah pentingnya, saat ingin menggunakan white board spidolnya
ada baiknya diisi dahulu amunisinya agas saat menulis tidak remang-remang(hihiih apaan tuh..)
kan kalau isi bahan bakarnya full, tulisan akan jelas terlihat di white board.
ya asalkan isi bahan bakarnya jangan sampe terlalu full saja...ntr bisa bahaya bleber gt ^U^
itu hanya masukan dari saya saja...untuk para staf pengajar di TF

thanx
^kodok

Let's Play 4 fun

2007-06-28T08:20:00.000-07:00

Let's Play 4 fun

untuk rekan-rekan mahasiswa (ehm..mahasiswi juga boleh sih ^U^ )
yang mempunyai hoby maen bola...kami mengajak untuk bermain atau
bertanding bersama dalam rangka persahabatan.

kami adalah mahasiswa TF 2004 ya walaupun hanya sebagian orang saja
kami biasa bermain setiap sabtu sekitar jam 7 (heheheh kalo ngk ngaret)
ya siapa tau ada dari rekan-rekan TF juga yang ingin bermain bersama
ya itung-itung menjalin keakraban asal jangan bawa-bawa sara and rusuh aja

jadi bagi rekan-rekan yang berminat..kami bersedia untuk bermain bersama
ehm..kalo dosen dan karyawan juga mo ikut ambil bagian juga boleh

tapi yang menjadi kendala adalah soal lapangan...tapi banyak orang bijak bilang
banyak jalan menuju roma (cape..dunk ^U^ )...jadi soal lapangan bisa dirundingkan
yang penting ada niat dan ada orang nya

soo...kami tunggu.bagi siapa pun yang mau bertanding bersama
untuk contact person : hubungai korlak kita saja ( Andri-asisten SISDIG )

thanx
^kodok

wellcome to my blog

2007-06-28T07:51:00.001-07:00

tes..tes..tes
iseng..mati lampu dikos entah knp....
apa belum bayar listrik atau ada gangguan
ya iseng2 ke warnet...bikin blog dech