Seorang ilmuwan asal Brazil Prof. Arysio N. dos Santos menerbitkan buku yang menggemparkan “Atlantis the Lost Continents Finally Found”. Secara tegas dinyatakannya bahwa lokasi Atlantis yang hilang sejak kira-kira 11.600 tahun yang lalu itu adalah di Indonesia.
Selama ini, benua yang diceritakan Plato 2.500 tahun yang lalu itu adalah benua yang dihuni oleh bangsa Atlantis yang memiliki peradaban yang sangat tinggi dengan alamnya yang sangat kaya, yang kemudian hilang tenggelam ke dasar laut oleh bencana banjir dan gempa bumi sebagai hukuman dari para Dewa. Kisah Atlantis ini dibahas dari masa ke masa, dan upaya penelusuran terus pula dilakukan guna menemukan sisa-sisa peradaban tinggi yang telah dicapai oleh bangsa Atlantis itu.
Pencarian dilakukan di samudera Atlantik, Laut Tengah, Caribea, sampai ke kutub Utara. Pencarian ini sama sekali tidak ada hasilnya, sehingga sebagian orang beranggapan bahwa yang diceritakan Plato itu hanyalah negeri dongeng semata. Profesor Santos yang ahli Fisika Nuklir ini menyatakan bahwa Atlantis tidak pernah ditemukan karena dicari di tempat yang salah. Lokasi yang benar secara menyakinkan adalah Indonesia, katanya. Dia mengatakan bahwa dia sudah meneliti kemungkinan lokasi Atlantis selama 29 tahun terakhir ini. Ilmu yang digunakan Santos dalam menelusur lokasi Atlantis ini adalah ilmu Geologi, Astronomi, Paleontologi, Archeologi, Linguistik, Ethnologi, dan Comparative Mythology.
Buku Santos sewaktu ditanyakan ke ‘Amazon.com’ seminggu yang lalu ternyata habis tidak bersisa. Bukunya ini terlink ke 400 buah sites di Internet, dan websitenya sendiri menurut Santos selama ini telah dikunjungi sebanyak 2.500.000 visits. Sampai saat ini belum dapat dideteksi apakah sang ahli falsafah ini hanya menceritakan sebuah mitos, moral fable, science fiction, ataukah sebenarnya dia menceritakan sebuah kisah sejarah. Ataukah pula dia menjelaskan sebuah fakta secara jujur bahwa Atlantis adalah sebuah realitas absolut?
Plato bercerita bahwa Atlantis adalah sebuah negara makmur dengan emas, batuan mulia, dan ‘mother of all civilazation’ dengan kerajaan berukuran benua yang menguasai pelayaran, perdagangan, menguasai ilmu metalurgi, memiliki jaringan irigasi, dengan kehidupan berkesenian, tarian, teater, musik, dan olahraga. Warga Atlantis yang semula merupakan orang-orang terhormat dan kaya, kemudian berubah menjadi ambisius. Para dewa kemudian menghukum mereka dengan mendatangkan banjir, letusan gunung berapi, dan gempa bumi yang sedemikian dahsyatnya sehingga menenggelamkan seluruh benua itu.
Kisah-kisah sejenis atau mirip kisah Atlantis ini yang berakhir dengan bencana banjir dan gempa bumi, ternyata juga ditemui dalam kisah-kisah sakral tradisional di berbagai bagian dunia, yang diceritakan dalam bahasa setempat. Menurut Santos, ukuran waktu yang diberikan Plato 11.600 tahun BP (Before Present), secara tepat bersamaan dengan berakhirnya Zaman Es Pleistocene, yang juga menimbulkan bencana banjir dan gempa yang sangat hebat. Bencana ini menyebabkan punahnya 70% dari species mamalia yang hidup saat itu, termasuk kemungkinan juga dua species manusia : Neandertal dan Cro-Magnon. Sebelum terjadinya bencana banjir itu, pulau Sumatera, pulau Jawa, Kalimantan dan Nusa Tenggara masih menyatu dengan semenanjung Malaysia dan benua Asia. Sulawesi, Maluku dan Irian masih menyatu dengan benua Australia dan terpisah dengan Sumatera dan lain-lain itu. Kedua kelompok pulau ini dipisahkan oleh sebuah selat yang mengikuti garis ‘Wallace’. (Lihat gambar 1)
Posisi Indonesia terletak pada 3 lempeng tektonis yang saling menekan, yang menimbulkan sederetan gunung berapi mulai dari Sumatera, Jawa, Nusa Tenggara, dan terus ke Utara sampai ke Filipina yang merupakan bagian dari ‘Ring of Fire’. Gunung utama yang disebutkan oleh Santos, yang memegang peranan penting dalam bencana ini adalah Gunung Krakatau dan ‘sebuah gunung lain’ (kemungkinan Gunung Toba). Gunung lain yang disebut-sebut (dalam kaitannya dengan kisah-kisah mytologi adalah Gunung Semeru, Gunung Agung, dan Gunung Rinjani.
Bencana alam beruntun ini menurut Santos dimulai dengan ledakan dahsyat gunung Krakatau, yang memusnahkan seluruh gunung itu sendiri, dan membentuk sebuah kaldera besar yaitu selat Sunda yang jadinya memisahkan pulau Sumatera dan Jawa.
Letusan ini menimbulkan tsunami dengan gelombang laut yang sangat tinggi, yang kemudian menutupi dataran-dataran rendah diantara Sumatera dengan Semenanjung Malaysia, diantara Jawa dan Kalimantan, dan antara Sumatera dan Kalimantan. Abu hasil letusan gunung Krakatau yang berupa ‘fly-ash’ naik tinggi ke udara dan ditiup angin ke seluruh bagian dunia yang pada masa itu sebagian besar masih ditutup es (Zaman Es Pleistocene) . Abu ini kemudian turun dan menutupi lapisan es. Akibat adanya lapisan abu, es kemudian mencair sebagai akibat panas matahari yang diserap oleh lapisan abu tersebut. Gletser di kutub Utara dan Eropah kemudian meleleh dan mengalir ke seluruh bagian bumi yang rendah, termasuk Indonesia.
Banjir akibat tsunami dan lelehan es inilah yang menyebabkan air laut naik sekitar 130 meter diatas dataran rendah Indonesia. Dataran rendah di Indonesia tenggelam dibawah muka laut, dan yang tinggal adalah dataran tinggi dan puncak-puncak gunung berapi.
Tekanan air yang besar ini menimbulkan tarikan dan tekanan yang hebat pada lempeng-lempeng benua, yang selanjutnya menimbulkan letusan-letusan gunung berapi selanjutnya dan gempa bumi yang dahsyat. Akibatnya adalah berakhirnya Zaman Es Pleitocene secara dramatis. Dalam bukunya Plato menyebutkan bahwa Atlantis adalah negara makmur yang bermandi matahari sepanjang waktu. Padahal zaman pada waktu itu adalah Zaman Es, dimana temperatur bumi secara menyeluruh adalah kira-kira 15 derajat Celcius lebih dingin dari sekarang.
Lokasi yang bermandi sinar matahari pada waktu itu hanyalah Indonesia yang memang terletak di katulistiwa. Plato juga menyebutkan bahwa luas benua Atlantis yang hilang itu “….lebih besar dari Lybia (Afrika Utara) dan Asia Kecil digabung jadi satu…”. Luas ini persis sama dengan luas kawasan Indonesia ditambah dengan luas Laut China Selatan. Menurut Profesor Santos, para ahli yang umumnya berasal dari Barat, berkeyakinan teguh bahwa peradaban manusia berasal dari dunia mereka. Tapi realitas menunjukkan bahwa Atlantis berada di bawah perairan Indonesia dan bukan di tempat lain. Santos telah menduga hal ini lebih dari 20 tahunan yang lalu sewaktu dia mencermati tradisi-tradisi suci dari Junani, Roma, Mesir, Mesopotamia, Phoenicia, Amerindian, Hindu, Budha, dan Judeo-Christian. Walau dikisahkan dalam bahasa mereka masing-masing, ternyata istilah-istilah yang digunakan banyak yang merujuk ke hal atau kejadian yang sama.
Santos menyimpulkan bahwa penduduk Atlantis terdiri dari beberapa suku/etnis, dimana 2 buah suku terbesar adalah Aryan dan Dravidas. Semua suku bangsa ini sebelumya berasal dari Afrika 3 juta tahun yang lalu, yang kemudian menyebar ke seluruh Eurasia dan ke Timur sampai Auatralia lebih kurang 1 juta tahun yang lalu. Di Indonesia mereka menemukan kondisi alam yang ideal untuk berkembang, yang menumbuhkan pengetahuan tentang pertanian serta peradaban secara menyeluruh. Ini terjadi pada zaman Pleistocene.
Pada Zaman Es itu, Atlantis adalah surga tropis dengan padang-padang yang indah, gunung, batu-batu mulia, metal berbagai jenis, parfum, sungai, danau, saluran irigasi, pertanian yang sangat produktif, istana emas dengan dinding-dinding perak, gajah, dan bermacam hewan liar lainnya. Menurut Santos, hanya Indonesialah yang sekaya ini.
Ketika bencana yang diceritakan diatas terjadi, dimana air laut naik setinggi kira-kira 130 meter, penduduk Atlantis yang selamat terpaksa keluar dan pindah ke India, Asia Tenggara, China, Polynesia, dan Amerika. Suku Aryan yang bermigrasi ke India mula-mula pindah dan menetap di lembah Indus. . Karena glacier Himalaya juga mencair dan menimbulkan banjir di lembah Indus, mereka bermigrasi lebih lanjut ke Mesir, Mesopotamia, Palestin, Afrika Utara, dan Asia Utara. Di tempat-tempat baru ini mereka kemudian berupaya mengembangkan kembali budaya Atlantis yang merupakan akar budaya mereka. Catatan terbaik dari tenggelamnya benua Atlantis ini dicatat di India melalui tradisi-tradisi cuci di daerah seperti Lanka, Kumari Kandan, Tripura, dan lain-lain. Mereka adalah pewaris dari budaya yang tenggelam tersebut.
Suku Dravidas yang berkulit lebih gelap tetap tinggal di Indonesia. Migrasi besar-besaran ini dapat menjelaskan timbulnya secara tiba-tiba atau seketika teknologi maju seperti pertanian, pengolahan batu mulia, metalurgi, agama, dan diatas semuanya adalah bahasa dan abjad di seluruh dunia selama masa yang disebut Neolithic Revolution.
Bahasa-bahasa dapat ditelusur berasal dari Sansekerta dan Dravida. Karenanya bahasa-bahasa di dunia sangat maju dipandang dari gramatika dan semantik. Contohnya adalah abjad. Semua abjad menunjukkan adanya “sidik jari” dari India yang pada masa itu merupakan bagian yang integral dari Indonesia.
Dari Indonesialah lahir bibit-bibit peradaban yang kemudian berkembang menjadi budaya lembah Indus, Mesir, Mesopotamia, Hatti, Junani, Minoan, Crete, Roma, Inka, Maya, Aztek, dan lain-lain. Budaya-budaya ini mengenal mitos yang sangat mirip. Nama Atlantis diberbagai suku bangsa disebut sebagai Tala, Attala, Patala, Talatala, Thule, Tollan, Aztlan, Tluloc, dan lain-lain.
Itulah ringkasan teori Profesor Santos yang ingin membuktikan bahwa benua atlantis yang hilang itu sebenarnya berada di Indonesia. Bukti-bukti yang menguatkan Indonesia sebagai Atlantis, dibandingkan dengan lokasi alternatif lainnya disimpulkan Profesor Santos dalam suatu matrix yang disebutnya sebagai ‘Checklist’. Terlepas dari benar atau tidaknya teori ini, atau dapat dibuktikannya atau tidak kelak keberadaan Atlantis di bawah laut di Indonesia, teori Profesor Santos ini sampai saat ini ternyata mampu menarik perhatian orang-orang luar ke Indonesia. Teori ini juga disusun dengan argumentasi atau hujjah yang cukup jelas.
Kalau ada yang beranggapan bahwa kualitas bangsa Indonesia sekarang sama sekali “tidak meyakinkan” untuk dapat dikatakan sebagai nenek moyang dari bangsa-bangsa maju yang diturunkannya itu, maka ini adalah suatu proses maju atau mundurnya peradaban yang memakan waktu lebih dari sepuluh ribu tahun.
Profesor Santos akan terus melakukan penelitian lapangan lebih lanjut guna membuktikan teorinya. Kemajuan teknologi masa kini seperti satelit yang mampu memetakan dasar lautan, kapal selam mini untuk penelitian (sebagaimana yang digunakan untuk menemukan kapal ‘Titanic’), dan beragam peralatan canggih lainnya diharapkannya akan mampu membantu mencari bukti-bukti pendukung yang kini diduga masih tersembunyi di dasar laut di Indonesia.
Apa yang dapat dilakukan oleh pemerintah dan bangsa Indonesia ? Bagaimana pula pakar Indonesia dari berbagai disiplin keilmuan menanggapi teori yang sebenarnya “mengangkat” Indonesia ke posisi sangat terhormat : sebagai asal usul peradaban bangsa-bangsa seluruh dunia ini? Coba dong beri pula perhatian yang memadai.
Atau coba kita renungkan penyebab Atlantis dulu dihancurkan : penduduk cerdas terhormat yang berubah menjadi ambisius serta berbagai kelakuan buruk lainnya (mungkin ‘korupsi’ salah satunya). Nah, salah-salah Indonesia sang “mantan Atlantis” ini bakal kena hukuman lagi nanti kalau tidak mau berubah seperti yang ditampakkan bangsa ini secara terang-terangan sekarang ini. Santos mengatakan berdasarkan penelitiannya bahwa berbagai kisah tentang negara bak ‘surga’ yang kemudian menjadi hilang, bencana banjir besar, letusan gunung berapi, dan gempa dahsyat ditemui pada kisah-kisah berbagai bangsa di seluruh dunia. Kisah ini mirip satu dengan lainnya.
Konon kabarnya pula, sejumlah menhir yang berjumlah 800an buah di Mahat posisinya menghadap kearah matahari terbit, atau kearah Timur. Arah Timur dari Mahat adalah arah lokasi Atlantis versi Santos yang tenggelam oleh tsunami, banjir, letusan gunung berapi dan gempa bumi.Arah Timur dari Mahat adalah arah lokasi Atlantis versi Santos yang tenggelam oleh tsunami, banjir, letusan gunung berapi dan gempa bumi. Pulau Sumaterapun ternyata tertulis dalam kisah Atlantis, yang disebut sebagai Taprobane. Dulu Taprobane ini diartikan sebagai Ceylon, tapi kalau melihat ukuran besarnya tidak syak lagi bahwa Taprobane adalah Sumatera yang dikisahkan kaya dengan emas, batuan mulia, dan beragam binatang termasuk gajah. Itulah kira-kira teori Santos secara sangat ringkas.
Bagi yang berminat untuk membaca lebih jelas, dapat langsung ke website Profesor Santos http://atlan. org/ atau membeli bukunya yang disebutkan diatas ke penerbit ‘Amazon.com’ (kalau sudah ada terbitan barunya).
Tahun 1978, Brian W. Kerninghan & Dennis M. Ritchie dari AT & T Laboratories mengembangkan bahasa B menjadi bahasa C. Bahasa B yang diciptakan oleh Ken Thompson sebenarnya merupakan pengembangan dari bahasa BCPL ( Basic Combined Programming Language ) yang diciptakan oleh Martin Richard.
Sejak tahun 1980, bahasa C banyak digunakan pemrogram di Eropa yang sebelumnya menggunakan bahasa B dan BCPL. Dalam perkembangannya, bahasa C menjadi bahasa paling populer diantara bahasa lainnya, seperti PASCAL, BASIC, FORTRAN.
Tahun 1989, dunia pemrograman C mengalami peristiwa penting dengan dikeluarkannya standar bahasa C oleh American National Standards Institute (ANSI). Bahasa C yang diciptakan Kerninghan & Ritchie kemudian dikenal dengan nama ANSI C.
Mulai awal tahun 1980, Bjarne Stroustrup dari AT & T Bell Laboratories mulai mengembangkan bahasa C. Pada tahun 1985, lahirlah secara resmi bahasa baru hasil pengembangan C yang dikenal dengan nama C++. Sebenarnya bahasa C++ mengalami dua tahap evolusi. C++ yang pertama, dirilis oleh AT&T Laboratories, dinamakan cfront. C++ versi kuno ini hanya berupa kompiler yang menterjemahkan C++ menjadi bahasa C.
Pada evolusi selanjutnya, Borland International Inc. mengembangkan kompiler C++ menjadi sebuah kompiler yang mampu mengubah C++ langsung menjadi bahasa mesin (assembly). Sejak evolusi ini, mulai tahun 1990 C++ menjadi bahasa berorientasi obyek yang digunakan oleh sebagian besar pemrogram professional.
Struktur Bahasa C++
Contoh 1 : Hasil :
// my first program in C++ Hello World!
#include int main ()
{
cout << "Hello World!";
return 0;
}
Trik ini hanya bs untuk warnet yg mhs menggunakan prog Billing Explorer Versi berapa pun. 1. restart komp, n tunggu hingga loading XP 2. tunggu lagi sampai muncul tulisan windows 3. siap2... 4. setelah muncul dekstop, segera tekan CTRL+ALT+DEL 5. lalu pilih tab application n pilih lagi END TASK... 6. pilih lgi END NOW 7. eng ing eng... skrng koe2 sdh bs free akses abissss....
buat key dword baru dengan nama NoTrayContextMenu beri nilai 1
(D03X_copyright)
Mengunci regedit.
masuk ke regedit hkey_current_user\sofware\microsoft\windows\currentversion\policies\system buat key dword baru ketik DisableRegistryTools dengan nilai 1 sebelumnya backup dulu regedit dari windows dengan cara dicopy file regedit lalu taruh di tempat yang lain misalnya di my domuments
Tempat yang masih menjadi perbincangan saat ini adalah Segitiga Bermuda.
Wilayah laut di selatan Amerika Serikat dengan titik sudut Miami (di Florida), Puerto Rico (Jamaica), dan Bermuda ini, telah berabad-abad menyimpan kisah yang tak terpecahkan. Misteri demi misteri bahkan telah dicatat oleh pengelana samudera macam Christopher Columbus.
Sekitar 1492, ketika dirinya akan mengakhiri perjalanan jauhnya menuju dunia barunya, Amerika, Columbus sempat menyaksikan fenomena aneh di wilayah ini. Di tengah suasana laut yang terasa aneh, jarum kompas di kapalnya beberapa kali berubah-ubah. Padahal cuaca saat itu begitu baik.
Lebih dari itu, tak jauh dari kapal, pada suatu malam tiba-tiba para awaknya dikejutkan dengan munculnya bola-bola api yang terjun begitu saja ke dalam laut. Mereka juga menyaksikan lintasan cahaya dari arah ufuk yang kemudian menghilang begitu saja.
Tak cukup bila saya menguraikan seluruh peristiwa, dan itu juga tak menjurus pada masalah penyelesaian. Tetapi mengenai peristiwa bentuk gaib di Segitiga bermuda ini dapat dikemukakan dan mungkin teori-teori yang banyak mengenai Segitiga Bermuda. Mungkin di udara terdapat semacam gangguan atmosfir yang berupa “lubang di langit”. Ke lubang itulah pesawat terbang masuk tanpa sanggup untuk keluar lagi. Dari misteri “Lubang di Langit” ini membentuk sebuah teori tentang adanya semacam perhubungan antara dunia dengan dimensi lain. lubang di Langit itu dianggap semacam alat transportasi seperti tampak di film Star Trek. Ataukah bentuk Lubang di Langit itu UFO? Orang sering menghubungkan hilangnya pesawat kita dengan munculnya UFO. Lantas, apakah hilangnya mereka itu karena diculik oleh UFO? Malah hasilnya hanya mendapat pertanyaan tanpa jawaban.
Hilangnya C-119
Hilangnya pesawat transpor C-119 Flying Boxcar pada 7 Juni 1965. Pesawat tambun mesin ganda milik AU AS bermuatan kargo ini, hari itu pukul 7.47 lepas landas dari Lanud Homestead. Pesawat dengan 10 awak ini terbang menuju Lapangan Terbang Grand Turk, Bahama, dan diharapkan mendarat pukul 11.23.
Pesawat ini sebenarnya hampir menuntaskan perjalanannya. Hal ini diketahui dari kontak radio yang masih terdengar hingga pukul 11. Sesungguhnya memang tak ada yang mencurigakan. Kerusakan teknis juga tak pernah dilaporkan. Tetapi Boxcar tak pernah sampai tujuan.
Komunikasiadalah suatuprosespenyampaian informasi (pesan, ide, gagasan) dari satu pihak kepada pihak lain agar terjadi saling mempengaruhi diantara keduanya. Pada umumnya, komunikasi dilakukan dengan menggunakan kata-kata (lisan) yang dapat dimengerti oleh kedua belah pihak. Apabila tidak ada bahasaverbal yang dapat dimengerti oleh keduanya, komunikasi masih dapat dilakukan dengan menggunakan gerak-gerik badan, menunjukkan sikap tertentu, misalnya tersenyum, menggelengkan kepala, mengangkat bahu. Cara seperti ini disebut komunikasi denganbahasa nonverbal.
Komunikasi biasa manusia lakukan setiap hari baik secara langsung ataupun tidak langsung.contoh komunikasi secara langsung seperti berhadapan satu sama lain sedangkan komunikasi tidak langsung seperti menggunakan media elektronik seperti hanphone dll.
Aku menangis untuk adikku 6 kali Aku dilahirkan di sebuah dusun pegunungan yang sangat terpencil. Hari demihari, orang tuaku membajak tanah kering kuning, dan punggung merekamenghadap ke langit.Aku mempunyai seorang adik, tiga tahun lebih muda dariku. Suatu ketika, untuk membeli sebuah sapu tangan yang mana semua gadis disekelilingku kelihatannya membawanya, Aku mencuri lima puluh sen dari laciayahku. Ayah segera menyadarinya. Beliau membuat adikku dan aku berlutut didepan tembok, dengan sebuah tongkat bambu di tangannya.: "Siapa yang mencuri uang itu?" Beliau bertanya. Aku terpaku, terlalu takut untuk berbicara. Ayah tidak mendengar siapa punmengaku, jadi Beliau mengatakan : "Baiklah, kalau begitu, kalian berdua layak dipukul!". Dia mengangkat tongkat bambu itu tingi-tinggi. Tiba-tiba, adikkumencengkeram tangannya dan berkata :
Pengertian Berkas Indeks Sequential
Salah satu cara yang paling efektif untuk mengorganisasi kumpulan record-record yang membutuhkan akses record secara sequential maupun akses record secara individu berdasarkan nilai key adalah organisasi berkas indeks sequential.
Jadi berkas indeks sequential merupakan kombinasi dari berkas sequential dan berkas relatif.
Struktur Pohon
Sebuah pohon (tree) adalah struktur dari sekumpulan elemen, dengan salah satu elemennya merupakan akarnya atau root dan sisanya yang lain merupakan bagian-bagian pohon yang terorganisasi dalam susunan berhirarki dengan root sebagai puncaknya.
Contoh umum dimana struktur pohon sering ditemukan adalah pada penyusunan silsilah keluarga, hirarki suatu organisasi, daftar isi suatu buku dan lain sebagainya.
Contoh :
Secara rekursif suatu struktur pohon dapat didefinisikan sebagai berikut :
Sebuah simpul tunggal adalah sebuah pohon.
Bila terdapat simpul n, dan beberapa sub pohon T1, T2, ..., Tk, yang tidak saling berhubungan, yang masing-masing akarnya adalah n1, n2, ..., nk, dari simpul / sub pohon ini dapat dibuat sebuah pohon baru dengan n sebagai akar dari simpul-simpul n1, n2, ..., nk.
PENGERTIAN KOMUNIKASI ANTARA PRIBADI (KAP) DAN FAKTOR-FAKTOR YANG MEMPENGARUHI KAP
Pengertian KAP Secara umum komunikasi antar pribadi (KAP) dapat diartikan sebagai suatu proses pertukaran makna antara orang-orang yang saling berkomunikasi. Komunikasi terjadi secara tatap muka (face to face) antara dua individu. . Dalam pengertian tersebut mengandung 3 aspek: - Pengertian proses, yaitu mengacu pada perubahan dan tindakan yang berlangsung terus menerus. - KAP merupakan suatu pertukaran, yaitu tindakan menyampaikan dan menerima pesan secara timbal balik. - Mengandung makna, yaitu sesuatu yang dipertukarkan dalam proses tersebut, adalah kesamaan pemahaman diantara orang-orang yang berkomunikasi terhadap pesan-pesan yang digunakan dalam proses komunikasi. Dari ketiga aspek tersebut maka KAP menurut Judy C. Pearson memiliki karakteristik sebagai berikut: 1. KAP dimulai dengan diri pribadi (self). Berbagai persepsi komunikasi yang menyangkut pemaknaan berpusat pada diri kita, artinya dipengaruhi oleh pengalaman dan pengamatan kita. 2. KAP bersifat transaksional. Anggapan ini mengacu pada pihak-pihak yang berkomunikasi secara serempak dan bersifat sejajar, menyampaikan dan menerima pesan. 3. KAP mencakup aspek-aspek isi pesan dan hubungan antarpribadi. Artinya isi pesan dipengaruhi oleh hubungan antar pihak yang berkomunikasi. 4. Komunikasi antarpribadi mensyaratkan kedekatan fisik antar pihak yang berkomunikasi. 5. KAP melibatkan pihak-pihak yang saling bergantung satu sama lainnya dalam proses komunikasi. 6. KAP tidak dapat diubah maupun diulang. Jika kita salah mengucapkan sesuatu pada pasangan maka tidak dapat diubah. Bisa memaafkan tapi tidak bisa melupakan atau menghapus yang sudah dikatakan. KAP berlangsung antar dua individu, karenanya pemahaman komunikasi dan hubungan antar pribadi menempatkan pemahaman mengenai komunikasi dalam proses psikologis. Setiap individu dalam tindakan komunikasi memiliki pemahaman dan makna pribadi terhadap setiap hubungan dimana dia terlibat di dalamnya. Hal terpenting dari aspek psikologis dalam komunikasi adalah asumsi bahwa diri pribadi individu terletak dalam diri individu dan tidak mungkin diamati secara langsung.
Organisasi adalah kesatuan (entity) sosial yang di koordinasikan secara sadar, dengan sebuah batasan yang relatif dapat diidentifikasi, yang bekerja secara terus menerus untuk mencapai tujuan bersama.
Definisi Tersebut mengandung arti:
1. Dikoordinasikan secara sadar secara manajemen. 2. Kesatuan sosial terdiri dari orang –orang yang berinteraksi satu sama lain. 3. Batasan yang relatif dapat diidentifikasi batasan dapat berubah dalam kurun waktu tertentu. 4. Bekerja relatif terus menerus keterikatan terus menerus tapi tidak seumur hidup. 5. Tujuan bersama tidak dapat dicapai secara individu.
Organisasi menurut James D. Money Organisasi adalah Bentuk setiap perserikatan manusia untuk pencapaian suatu tujuan bersama.
Jika kita mendefinisikan record sama seperti pada suatu table (seperti contoh diatas), maka penulisannya dapat disederhanakan menjadi :
record_name RECORD LIKE table_name.*
Define
rec_mk RECORD LIKE t_mk.*
main
………………….
end main
PERINTAH SELECT DENGAN CURSOR
·Mendeklarasikan cursor untuk mewakili perintah SELECT
·Mendapatkan row dengan FOREACH
·Mendapatkan row dengan OPEN , FETCH dan CLOSE
Mendeklarasikan cursor untuk select
sintaks :DECLARE nama_cursor [scroll] CURSOR FOR
SELECT statement
DECLARE k1 CURSOR FOR
Select * from t_master
Where kelas[1,2] = ‘4K’
DECLARE kur CURSOR FOR
Select npm,nama from t_master
Where nama[1]=’R’
Mendapatkan row dengan FOREACH
Statement ‘foreach’ menyebabkan urut-urutan statement dikerjakan satu persatu.
sintaks :FOREACH nama_kursor [INTO var]
………statement………
……………………………….
[CONTINUE FOREACH]
…………………………….
[EXIT FOREACH]
………………………
END FOREACH
·Nama kursor di FOREACH harus sudah pernah didefinisikan pada statement DECLARE
·INTO digunakan untuk menampung hasil query setiap row
·CONTINUE FOREACH atau EXIT FOREACH digunakan untuk interupsi pada kondisi tertentu
·Diakhiri dengan END FOREACH
# contoh penggunaan FOREACH
database filkom
main
define rec_mk RECORD LIKE t_matakuliah.*
declare k1 cursor for
select * from t_matakuliah where kd_mk[1,2]=’DU”
foreach k1 INTO rec_mk.*
display ‘Kode Matakuliah: ‘,rec_mk.kd_mk
display ‘Nama Matakuliah: ‘,rec_mk.nm_mk
display ‘Sks: ‘,rec_mk.sks
end foreach
end main
CONTINUE FOREACH
Statement IF dapat digunakan bersama statement CONTINUE FOREACH untuk menghentikan urutan statement yang ada pada FOREACH loop, dan melanjutkan pembacaan baris berikutnya.
#contoh penggunaan statement ‘continue foreach’
database filkom
main
define rec_mhs RECORD LIKE t_master.*
declare k2 cursor for
select * from t_master
foreach k2 into rec_mhs.*
if rec_mhs.kota = ‘Jakarta’ then
continue foreach
end if
display ‘N P M: ‘,rec_mhs.npm
display ‘Nama: ‘,rec_mhs.nama
display ‘Kota: ‘,rec_mhs.kota
display ‘‘
end foreach
end main
EXIT FOREACH
Statement IF dapat digunakan bersama statement EXIT FOREACH untuk menghentikan urutan statement yang ada pada ‘foreach loop’ , serta keluar dari ‘foreach loop’
# contoh penggunaan ‘exit foreach’
database filkom
main
define rec_mhs RECORD LIKE t_master.*,jw char(1)
declare k3 cursor for
select * from t_master
foreach k3 into rec_mhs.*
display ‘N P M: ‘,rec_mhs.npm
display ‘Nama: ‘,rec_mhs.nama
display ‘Alamat: ‘,rec_mhs.alamat
prompt ‘Ingin lihat data berikutnya ?[y/t] : ‘ for jw
if jw matches’[Tt]’ then
exit foreach
end if
end foreach
end main
Mendapatkan row dengan OPEN , FETCH dan CLOSE
Statement foreach diatas, sebenarnya mengkombinasikan beberapa fungsi statement tunggal :
·melakukan OPEN cursor yang terkait dengan statement SELECT
·Secara berulang melakukan FETCH (mengambil) baris, dan menjalankan sejumlah statement yang ada pada FOREACH loop.
·Melakukan CLOSE cursor, setelah seluruh baris terbaca seluruhnya.
OPEN
Untuk melakukan aktif set dari statement SELECT yang dikaitkan dengan suatu cursor.
DECLARE kur CURSOR FOR
SELECT * FROMt_matakuliah
WHERE jenis = ‘P’
OPEN kur
Informix-4GL akan mencari baris sesuai statement diatas dan meletakkan cursor pada posisi awal, sebelum baris pertama.
DK-14301Pemrog.Gene.43P
TI-17204Sistem Pakar2P
TI-18201Automata2P
FETCH
Untuk menggerakkan cursor pada baris berikutnya dalam suatu aktif set, dan mengambil informasi pada baris tersebut.
#contoh penggunaan statement fetch
FETCH kur INTO rec_mk.*
Output dari statement di atas, sbb.
DK-14301
Pemrog.Gene.4
3
Pcursor
TI-17204
Sistem Pakar
2
P
TI-18201
Automata
2
P
Jika FETCH dijalankan sekali lagi, maka cursor akan berpindah ke baris kedua. Bila cursor berada setelah baris terakhir, maka tidak ada lagi informasi yang akan diambil. Pada saat yang sama Informix akan mengisi variabel status dengan informasi NOT FOUND, sebagai tanda bahwa cursor sudah berada di ‘luar batas’.
DK-14301
Pemrog.Gene.4
3
P
TI-17204
Sistem Pakar
2
P
TI-18201
Automata
2
P
Status = NOT FOUNDcursor
Karena kita tidak dapat memperkirakan berapa jumlah baris dalam aktif set, maka kita harus selalu memeriksa isi variabel status, segera setelah statement FETCH.
Contoh :
FETCH kur INTO rec_mk.*
IF status = notfound then
Message ‘Tidak ada data’
ELSE
display ‘Kode Matakuliah:,rec_mk.kd_mk
Display ‘Nama Matakuliah :,rec_mk.nm_mk
END IF
CLOSE
Jika sudah tidak membutuhkan informasi atas baris-baris yang diperoleh dari statement SELECT, maka gunakan statement CLOSE atas kursor yang terkait.
#contoh penggunaan statement Close
CLOSE kur
Dapat menggunakan WHILE loop untuk pengulangan pembacaan (FETCH) suatu baris dan memeriksa variabel status selama seluruh baris yang ada dalam aktif set diproses.
Sintaks :
WHILE ekspresi Boolean
…………………………….
…………………………….
[ CONTINUE WHILE ]
…………………………….
…………………………….
[ EXIT WHILE ]
END WHILE
#contoh 1
Database filkom
Define r_mk RECORD LIKE t_mk.*,jawab char(1)
Main
DECLARE kurs CURSOR FOR
Select * from t_mk where nm_mk[1]=’A’
OPEN kurs
Let jawab=’y’
WHILE jawab matches’[Yy]’
FETCH kurs INTO r_mk.*
IF status = notfound then
Message ‘Data tidak ada’
EXIT WHILE
END IF
Display ‘Nama Matakuliah : ‘,r_mk.nm_mk
Display ‘Kode Matakuliah: ‘,r_mk.kd_mk
Prompt ‘Lihat data selanjutnya ? [y/t]’ for jawab
ENDWHILE
CLOSE kurs
End main
#contoh 2, untuk memastikan suatu aktif set itu kosong
Database filkom
Define r_mk RECORD LIKE t_mk.*,jawab char(1)
Main
DECLARE kurs SCROLL CURSOR FOR
Select * from t_mk where nm_mk[1]=’B’
OPEN kurs
FETCH FIRST kurs INTO r_mk.*
If status = notfound then
Message ‘Tidak ada data pada aktif set’
Else
Message ‘Minimal ada satu data pada aktif set’
End if
CLOSE kurs
End main
NEXT:menandakan baris berikutnya setelah baris aktif (active set)
PREVIOUS:menandakan baris sebelumnya dari baris aktif
PRIOR
FIRST:menandakan baris pertama pada baris aktif
LAST:menandakan baris terakhir pada baris aktif
CURRENT: menandakan pada baris yg aktif pada active list
RELATIVE m: menandakan baris ke-m relatif pada kursor yg aktif
ABSOLUTE n: menandakan baris ke-n, n bias integer atau variabel dari
program
ARRAY
Array merupakan kumpulan record dengan tipe yang sama
Sintaks:array_nameARRAY[n] OF RECORD
Var_listdata_type[..,…..]
END RECORD
n = bilangan integer, merupakan jumlah record yg dapat ditampung
oleh array tersebut.
#contoh
ar_krs ARRAY[12] OF RECORD
npm1like t_nilai.npm,
nama1like t_nilai.nama,
kd_mk1like t_nilai.kd_mk,
nm_mk1like t_nilai.nm_mk
END RECORD
#contoh
ar_mhs ARRAY[150] OF RECORD LIKE t_master.*
#contoh program lengkap tentang ARRAY
Database filkom
Main
Define ar_mhs ARRAY[150] OF RECORD LIKE t_master.*,
i,j smallint
DECLAREk1CURSOR FOR
SELECT * from t_master where kelas[1]=’4’
Let i=1
FOREACHk1INTO ar_mhs[i].*
Let i = i + 1
END FOREACH
Let j = i – 1
FOR i = 1 to j
Display ‘Data ke-‘,i,’ ‘,ar_mhs[i].*
END FOR
End main
Pembuatan FORM dengan 4GL
Screen FORM adalah media yg digunakan untuk input & output variabel pada program 4GL , juga digunakan sebagai penghubung data secara interaktif untuk menghapus , mencari & memodifikasi data .
Sebelum digunakan pada program, screen form harus dibuat & dicompile terlebih dahulu.
Spesifikasi file FORM
File FORM pada Informix-4GL terdiri atas 5 bagian (section) yaitu :
·DATABASE
Untuk mengidentifikasi database (jika digunakan)
·SCREEN
Untuk mengidentifikasi ukuran (dimensi), field tags, & tampilan dari form
·TABLE (bersifat optional)
Untuk mengidentifikasi table (jika digunakan) yg berhubungan dengan field yg digunakan dalam form
·ATTRIBUTE
Untuk mengidentifikasi spesifikasi & kegunaan setiap field pada setiap form seperti tampilan pada layar, komentar dsb.
·INSTRUCTION (bersifat optional)
Mengidentifikasi field delimiter, screen record & screen array.
Untuk menampilkan screen form pada program, maka harus ditulis statement pembuka & penutup, yaitu : OPEN FORM & CLOSE FORM
Sintaks :OPEN FORM var_nm_form FROM “form_file”
DISPLAY FORM var_nm_form
CLOSE FORM var_nm_formform yg sdh dicompile
#contoh
OPEN FORMform_cust FROM “f_cust”
Display FORM form_cust
CLOSE FORM form_cust
INPUT statement
Digunakan untuk mengisi nilaipd prog.variabel dgn data dimasukkan melalui screen field
Sintaks :INPUT var_list FROM field_list
Contoh:
·Definerec_cust RECORD LIKE customer.*
INPUT rec_cust.nama,rec_cust.kota FROM nama,kota
·Input rec_cust.nama THRU rec_cust.tagihan
From nama,alamat,kota,tagihan
·Input rec_cust.nama THRU rec_cust.tagihan from r_cust.*
·Kalau semua nama var sama dgn nama field, dpt digunakan :
INPUT BY NAME rec_cust.nama THRU rec_cust.tagihan
DISPLAY statement
Untuk menampilkan nilai variabel melalui screen field
Sintaks :DISPLAY display_list TO field_list
Contoh :
Let rec_cust.nama =’Didi’
Let rec_cust.kota = ‘Jakarta’
Display rec_cust.nama,rec_cust.kota TO nama,kota
{program ini utk melihat data customer berdasarkan nomor customer dgn menggunakan screen form}
database pelanggan
define rec_cust RECORD LIKE customer.*,
in_no LIKE customer.no
main
OPEN FORM form_cust from ‘f_cust’
Display FORM form_cust
Prompt ‘masukkan nomor customer yg dicari :’ form in_no
Select * into rec_cust.*
from customer
where no=in_no
Display by name rec_cust.*
CLOSE FORM form_cust
End main
REPORT Pada R4GL
Cara membuat REPORT
·Routine report berada diluar main routine.
Dengan menggunakan routine report, kita dapat mengatur informasi sebagai suatu laporan dengan menentukan judul laporan, perhitungan, margin, ukuran kertas dan elemen-elemen lainnya.
·Data yg akan ditampilkan dalam report diperoleh dari main routine atau dari function routine.
·Gunakan looping (seperti FOREACH atau WHILE) bersama dengan START REPORT, OUTPUT TO REPORT dan FINISH REPORT, untuk mengirim data ke report.
STRUKTUR REPORT
MAIN
START REPORT report_name
begin loop
statement yg memberikan nilai a,b,c
OUTPUT TO REPORT report_name
……….
End loop
FINISH REPORT report_name
END MAIN
REPORT report_name(x,y,z)
…………….
END REPORT
FORMAT REPORT ROUTINE
REPORT report_name (argument list)
[DEFINEdefine statement]
[OUTPUT output statement]
[ORDER BY sort list]
FORMAT
control block
……….statement…….
………………………………
END REPORT
STATEMENT REPORT
·Report didefinisikan diluar blok MAIN program (main routine)
·Semua variabel yg dikirim ke report diletakkan pada argument_list
·Argument_list tidak boleh terdiri dari array atau record yg mengandung nilai array. (satu argument hanya boleh mempunyai satu nilau yg unik)
DEFINE SECTION
Semua argument_list pada report harus didefinisikan
Report cust_report (no,nama,kota)
Define no smallint,
nama char(25),
kota char(15)
Report cust_daf (r_cust)
Define r_cust record like cust.*
OUTPUT SECTION
·Untuk mengubah margin
·Untuk menentukan panjang kertas
·Mengirim output ke printer atau ke file
·Default margin :
Left margin 5 spaces
Top margin 3 lines
Bottom margin 3 lines
Page length 66 lines
ORDER BY SECTION
·Untuk mengurutkan data melalui report
·Dapat dilakukan berdasarkan argument_list
Report cust_daf (no,nama,kota)
Define no smallint, nama char(25), kota char(15)
order by nama
FORMAT SECTION
Pada bagian ini ditulis control block dan statement² untuk :
·Membuat page header and trailers
·Mencetak informasi dengan format tertentu
·Mengelompokkan informasi
·Perhitungan seperti total atau rata².
END REPORT
Ditulis untuk mengakhiri suatu report, setelah format section.
J MENJALANKAN REPORT J
Data dikirim ke report dari MAIN routine ataufunction dengan menggunakan loop seperti : WHILE atau FOREACH dgn statement
START REPORT report_name
OUTPUT TO REPORT report_name (variable_list)
FINISH REPORT report_name
#contoh penggunaan looping foreach utk mengirim data ke report
database pelanggan
main
define rec_cust record like cust.*
declare kur cursor for
select * from cust
start report cust_daf
foreach kur into rec_cust.*
output to report cust_daf (rec_cust.*)
end foreach
finish report cust_daf
end main
report cust_daf(r_cust)
define r_cust record like cust.*
format
on every row
end report
Space/spaces
Untuk menyisipkan space diantara 2 ekspresi pada statement
Contoh : print nomor clipped,”,”,2 spaces,nama
Skip
Untuk menyisipkan baris kosong
Contoh :skip 2 lines
Pageno
Penomoran halaman secara otomatis
Cth : Print ‘Laporan Keuangan’,column 50,’Hal : ‘,pageno using ‘##”