ShoutBox


ShoutMix chat widget

10.27.2008

Memanfaatkan HScrollBar dan VScrollBar Pada Visual Basic


Trik : Untuk membuat gambar yang dapat bergeser anda perlu menanamkan sebuah kontrol image, kontrol VscrollBar dan HScrollBar diatas sebuah kontrol Picture. Jadi dalam hal ini kontrol Picture bertindak sebagai kontainer.
Membuat Sub StatusBingkai yang berfungsi membuat ukuran Picturebox sama dengan ukuran Form sebelah dalam (ScaleWidth, ScaleHeight) dengan menggunakan Metoda Move. Dan membuat kontrol imgGambar rapat kiri atas terhadap kontainernya (0,0)


Selengkapnya File1 Download
Selengkapnya File2 Download
Selengkapnya File3 Download
Selengkapnya File4 Download

Memanfaatkan kontrol image di Visual Basic


Memanfaatkan kontrol image untuk menampilkan Foto perserta
Pada Latihan ini kita akan meningkatkan fasilitas project Modul 4 Latihan 1 sebelumnya dengan kemampuan menampilkan foto dan menyimpan foto perserta. Adapun foto dari masing-masing peserta akan disimpan pada file-file eksternal yang diberi nama Fotox.bmp, dimana x disesuaikan dengan nomor record data dalam random file. Misalnya pada record 1, maka nama file fotonya adalah Foto1.bmp, record 2 nama file fotonya adalah Foto2.bmp, dst.

Download File 1 Selengkapnya
Download File 2 Selengkapnya
Download File 3 Selengkapnya
Download File 4 Selengkapnya
Download File 5 Selengkapnya



10.26.2008

BAHASA PEMROGRAMAN BASIC dengan QBASIC

DASAR-DASAR QBASIC


Bahasa BASIC dibuat oleh John G.Kemmeny dan Thomas E.Kurtz lebih
dari 20 tahun yang lalu dan merupakan bahasa tingkat tinggi yang
relatif mudah dipelajari dan dimengerti.

Dalam perkembangannya , Bahasa BASIC dikembangkan dalam dua
jenis, yaitu interpreter dan compiler. Interpreter seperti GW-
BASIC pada sistem operasi MS-DOS, maupun BASICA pada sistem
operasi PC-DOS, sedangkan salah satu compilernya yang terkenal
adalah Quick BASIC yang dilengkapi dengan sistem pemrograman
yang terstruktur, Quick Library, on-line help yang terpadu,
editor yang efisien (bisa merapikan teks serta memberitahukan
kesalahan syntax penulisan suatu perintah)



MENGAKTIFKAN QUICK BASIC

Untuk mengaktifkan Quick BASIC diperlukan sistem Quick BASIC yang
minimal terdiri dari file QB.EXE/QBasic.EXE. Jika kita telah
memiliki file tersebut tinggal diberi perintah QB pada Dos
Prompt.

Contoh

A>QB

atau

A>QBasic

Setelah pemberian perintah tersebut, pemakai akan dihadapkan
kepada suatu editor sebagai tempat pengetikan program yang akan
dikembangkan. Dibagian atas editor terdapat perintah menu yang
dapat diaktifkan dengan Tombol Alt disertai huruf depan dari
masing-masing pilihan.

File
/------------------\
| New Program | memulai program baru
| Open Program... | memuat program dari diskette ke RAM
| Save | menyimpan program ke diskette (file *.BAS)
| Save As... | menyimpan program ke nama yang lain
|------------------|
| Print... | mencetak program ke printer
|------------------|
| Exit | keluar ke Dos permanen
\------------------/

Edit
/----------------------\
| Undo Alt+Backspace | membatalkan perubahan terakhir
| Cut Shift+Del | memotong tulisan Blok ke ClipBoard
| Copy Ctrl+Ins | menduplikasi tulisan Blok ke ClipBoard
| Paste Shift+Ins | menyisip ClipBoard ke posisi Kursor
| Clear Del | menghapus tulisan yang di Blok
|----------------------|
| New SUB... |
| New FUNCTION... |
\----------------------/

Options
/-----------------\
| Display... | mengatur tampilan layar
| Help Set Path | mengatur default Dos Path
| Syntax Checking | mengatur keaktifan pemeriksaan Syntax
\-----------------/

Run
/---------------------\
| Start Shift+F5 | menjalankan program yang aktif
| Restart | mereset memory program
| Continue F5 | melanjutkan program yang terhenti
\---------------------/

MEMBUAT PROGRAM PADA QUICK BASIC

Apa yang dimaksud dengan pemrogram komputer ?

Pemrograman komputer berarti anda memberitahukan kepada komputer
ada yang anda ingin dia lakukan. Untuk memberitahukan komputer
apa yang harus dia lakukan, anda membutuhkan kata-kata khusus
(special words). Kata-kata ini disebut sebagai kata-kata kunci
(key words). Ketika anda menempatkan kata-kata kunci ini dalam
program anda sehingga kelihatan seperti kode khusus (special
code) yang disebut sebagai CODE dan pekerjaan menulis program
disebut CODING.


KATA, DATA, PERINTAH, dan FUNGSI BANTU merupakan komponen utama
suatu program yang saling berinteraksi. Pembuatan program dalam
Quick BASIC tidak terlepas dari keempat komponen di atas dalam
baris-baris perintah yang berkapasitas maksimum 256 character
yang mencakup identitas baris, perintah, dan kata-kata(Remark).
Identitas baris bisa berupa nomor baris (0-65529) [menjaga
kompatibilitas dengan GWBASIC maupun BASICA], dan bisa berupa
label dengan ketentuan :

- Maksimum 40 character, dimulai dengan huruf A..Z, diakhiri
dengan tanda :
- huruf besar/kecil sama, tidak sama dengan reserved word, dan
tidak pakai spasi

Setiap proses yang berhubungan dengan pengolahan data biasanya
memerlukan tempat penampung sementara dalam memory yang disebut
variabel dan dalam pengolahannya diperlukan operator dan fungsi
bantu.

Jenis Type Variabel pada Quick Basic :
/--------------------------------------------------------------------------\
|Data Type |Suffix|Maximum |Minimum | Size|
|--------------------------------------------------------------------------|
| | | |
|Strings | $ | 32,767 chars. | 0 chars. | |
|Integers | % | 32,767 |-32,768 | 2 |
|Long Integers | & | 2,147,483,647 |-2,147,483,648 | 4 |
|Single (7-digit) precision | ! |+3.402823 E+38 |+1.401298 E-45 | 4 |
_ _
|Double (15-digit) precision| # |+1.7976931 D+308|+4.940656 D-324 | 8 |
_ _
|User-Defined Data Types |----------------------------------------------/
\---------------------------/

Nama variabel juga memiliki ketentuan antara lain :
- Maksimum 40 character, diawali dengan huruf A..Z, diakhiri
dengan $, %, &, !, # untuk menunjukan type
- Tidak boleh sama dengan reserved word, tidak boleh pakai spasi
dan spesial character.

Operator pada Quick BASIC dibagi atas 5 jenis, antara lain :

1. Arithmetic operators : melakukan tugas perhitungan
/--------------------\ /----------------------------\
|Operator|Kegunaan | |Operator|Kegunaan |
|--------------------| |----------------------------|
| |
| ^ | Pangkat | | \ | Pembagian integer |
| - | Negatif | | MOD | Sisa bagi |
| * | Perkalian | | + | Penjumlahan |
| / | Pembagian | | - | Pengurangan |
\--------------------/ \----------------------------/

2. Relational operators : membandingkan strings dan nilai numerik
/--------------------------------------\
|Operator|Kegunaan |
|--------------------------------------|
| = | Sama dengan |
| <> | Tidak sama dengan |
| < | Lebih kecil | | > | Lebih besar |
| <= | Lebih besar atau sama dengan| | >= | Lebih kecil atau sama dengan|
\--------------------------------------/

Relational operators akan menghasilkan dua kemungkinan nilai
yaitu -1 jika benar dan 0 jika salah.

3. Logical operators : test kondisi dan manipulasi bits
/-----------------------------------------------------\
|Expresi1|Expresi2| NOT | AND | OR | XOR | EQV | IMP |
|-----------------------------------------------------|
| | | | | | |
| T | T | F | T | T | F | T | T |
| T | F | F | F | T | T | F | F |
| F | T | T | F | T | T | F | T |
| F | F | T | F | F | F | T | T |
\-----------------------------------------------------/

Functional operators : operator pelengkap
String operators : mengabung (+), dan membandingkan String

PERINTAH DASAR INPUT OUTPUT

Komputer hanya melaksanakan apa yang diperintahkan pemrogram.
Jadi, dalam membuat program untuk menyelesaikan suatu masalah,
kita harus tahu cara penyelesaiannya. Untuk itu diperlukan tahap-
tahap dalam menyelesaikan masalah tersebut.

INPUT dan OUTPUT merupakan awal dan akhir pengolahan suatu
data. Tanpa proses INPUT, kita tidak dapat memperoleh data untuk
diolah dan data-data yang telah selesai diolah tidak akan berarti
tanpa proses OUTPUT.

Syntax :
INPUT [;]["Prompt"{,|;}], Var list
PRINT [expresion list {,|;}]

Contoh 1 :
REM Program mencari Isi Bujursangkar
INPUT "MASUKKAN SISI BUJURSANGKAR :",S
ISI = S * S
PRINT "ISI DARI BUJURSANGKAR ADALAH :",ISI
END


QBASIC MODUL 1 DOWNLOAD
QBASIC MODUL 2 DOWNLOAD
QBASIC MODUL 3 DOWNLOAD
QBASIC MODUL 4 DOWNLOAD
QBASIC MODUL 5 DOWNLOAD
QBASIC MODUL 6 DOWNLOAD
QBASIC MODUL 7 DOWNLOAD
QBASIC MODUL 8 DOWNLOAD
QBASIC MODUL 9DOWNLOAD
QBASIC MODUL 10 DOWNLOAD
QBASIC MODUL 11 DOWNLOAD
QBASIC MODUL 12 DOWNLOAD
QBASIC MODUL 13 DOWNLOAD

Google Vs Hacking


Tidak tahu apakah penggunaan google ini sudah bisa disebut seni atau bukan dan mudah mudahan juga istilah seni internet tidak dipatenkan sehingga saya tidak disebut plagiat dan harus membayar fee J . Tulisan ini dibuat untuk berbagi pengalaman mudah-mudahan bermanfaat dan semoga juga tidak membosankan serta tidak mengesalkan.
Satu keumuman yang dapat dicermati ketika kita membaca tulisan-tulisan yang ditampilkan di Jasakom (mungkin juga di situs-situs lain yang berkaitan dengan tema-tema h4_0r) adalah penulisnya menggunakan google sebagai mesin pencarinya. Banyak ungkapan menarik yang dituliskan untuk menunjukkan kedekatan para penulis ini dengan google. Di bawah ini diberikan contoh beberapa ungkapan tersebut yang diambil dari tulisan di Jasakom.
Download Selengkanya

TRIK 9 HACKING

===========
Tittle : SUPER KIDDIES HACKING: “PHP SUPER BUGS”
Author : K-159
Greetz : Lieur-Euy, Red_Face, Itsme-, yudhax, pe_es, bithedz, KuNtuA, Baylaw, Minangcrew,
Chanel : #bandunghacker, #indohackinglink, #hackercrew, #batamhacker, #aikmel
Email : eufrato@linuxmail.org
Reference : security-corporations.com, security-focus.com, bugs-traq, google.com
Selengkapnya Disini

Pemrograman Pascal Lengkap

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:
Selengkapnya di Sini

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
Selengkapnya di Sini

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}
Selengkapnya di Sini

STRUKTUR KONTROL PROGRAM
1. Struktur Pengulangan
Secara alamiah, suatu proses bisa berupa proses berurutan dari awal hingga selesai, pilihan berdasarkan kondisi tertentu atau pengulangan bedasarkan batasan tertentu pula. PASCAL menyediakan beberapa konstruksi perintah untuk melakukan proses-proses itu, yaitu:
1. For … to … do
2. While … do
3. Repeat … until
4. goto
Selengkapnya di Sini

SUB PROGRAM (Procedure)
1. Pemrograman Modular
Modular programming adalah merupakan suatu teknik untuk menulis program yang berukuran besar. Program dibagi menjadi beberapa bagian kecil. Tiap bagian disebut module, yang melakukan suatu tugas tertentu.
Contoh :
• Menampilkan menu pilihan
• Menghitung nilai rata-rata
• Mensortir data
Selengkapnya Disini

ARRAY (LARIK)
1. Pendahuluan
Suatu array adalah sebuah struktur data yang terdiri atas banyak variabel dengan tipe data sama, dimana masing-masing elemen variabel mempunyai nilai indeks. Setiap elemen array mampu untuk menyimpan satu jenis data (yaitu: variabel). Suatu array dinyatakan dengan type, sehingga variabel yang bekerja akan dinyatakan dengan:
contoh type
A = array [1..10] of integer;
Selengkapnya Disini

RECORD (REKAMAN)
Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array). Contoh , sebuah record dengan empat buah field.

Selengkapnya Disini






10.19.2008

Festival Seni Budaya Asmat Tahun 2008


Jika Anda berkesempatan mengunjungi Festival Budaya Suku Asmat (Asmat Culture Festival), pasti Anda akan terkesima dan kagum dengan keunikan dan keindahan hasil karya mereka. Karya seni yang lahir dari budaya dan keterampilan mereka, selain mengangkat citra dan jati diri suku Asmat, juga menghasilkan uang yang cukup fantastis.

ADALAH Yohanis Kimisinai, dari Kampung Kairin, Asmat, salah satu pemahat yang paling bahagia dalam Festival Budaya Asmat ke 25 Tahun 2008. Walau patungnya hanya berpredikat Juara III Kategori Panel, tapi patung ukiran Yohanis memecahkan rekor penjualan tertinggi dalam lelang Sesi I Festival Seni Budaya Asmat ke 25 tanggal 8-12 Oktober Tahun 2008 yang belangsung di Asmat.
Patung hasil karya Yohanis yang bercerita tentang keberanian membunuh musuh di kampung lain, kemudian mayatnya dibawa pulang dan melakukan pesta kemenangannya, dihargai Rp 30 juta oleh Bupati Asmat, Yuven Biakai.



Selain karya Yohanis, sejumlah hasil karya patung seni pahat dan seni ukir suku Asmat juga bernilai tinggi dengan harga puluhan juta rupiah.
Hasil karya Yakobus Seranbi dari Er dan Demianus Kortus, juga dihargai masing-masing Rp 20 juta. Selain itu sejumlah patung karya tangan terampil warga suku Asmat juga dihargai bervariasi, ada yang dihargai Rp 15 juta, Rp10 juta. Rp7,5 juta, Rp6 juta sampai dengan harga di bawah Rp1 juta.
Jumlah uang yang dikumpulkan para pematung Asmat dalam lelang sesi pertama pagi, Jumat (10/10) kemarin, lebih dari Rp100 juta. Lelang ini dilanjutkan sore harinya.
Selain warga suku Asmat berhasil mendapatkan uang melalui lelang resmi dalam forum festival, ratusan karya mereka yang dipajang dalam stand pameran festival, banyak yang terjual kepada pengunjung.
Festival Seni Budaya Asmat ke 25 tahun 2008, diikuti 203 pemahat dan ratusan penari dan diliput sejumlah wartawan cetak dan elektronika dari Indonesia. Festival yang ke-25 tahun 2008 ini berlangsung mulai tangal 8 s/d 12 Oktober 2008. Dengan thema "Mengupayakan Pelestarian Nilai-nilai Luhur Budaya sebagai Jati Diri dalam Mewujudkan Pembangunan Masa Depan Asmat Baru".
Dalam Pembukaan Lelang hasil karya para pematung yang berlangsung di Asmat, Jumat (10/10) kemarin, dihadiri Dubes Vatikan untuk Indonesia, Mgr. Leopoldo Girelli yang mewakili Paus Benedictus XVI, sekaligus mendapat kepercayaan membuka lelang hasil karya para pematung suku Asmat.
Hadir pula dalam acara ini, Bupati Merauke Yohanis Gluba Gebse, Bupati Asmat Yuven Biakai, Uskup Timika, Mgr. John Philip Saklil, Pr, Uskup Agats Mgr. Aloysius Murwito, OFM, sejumlah pejabat Muspida Asmat dan Merauke, serta tamu undangan dari dalam dan luar negeri. Sejumlah tamu luar negeri juga bergabung dalam rombongan PT Freeport Indonesia.
Melalui Dubes Vatikan untuk Indonesia, Paus Benedictus XVI menyerukan kepedulian Gereja Katolik untuk ikut melestarikan budaya Suku Asmat karena melalui budaya itu juga dapat ditemukan kebenaran dan jati diri manusia. Ia mengatakan, sejak dari awal gereja Katolik punya komitmen untuk tidak memisahkan budaya Asmat dari masyarakat Asmat.
Sementara ketua Panitia Penyelenggara Festival Budaya Asmat Tahun 2008, Emerikus Kasamol, mengatakan, festival tahun ini agak istimewa karena merupakan "tahun perak" karena sudah 25 tahun festival ini diselenggarakan dan sudah memberi manfaat bagi masyarakat suku Asmat.
Selain memberikan hasil ekonomi, juga berhasil mengangkat jati diri suku Asmat sampai ke tingkat internasional. "Melalui festival ini, suku Asmat menjadi manusia Asmat sejati," kata Kasamol berapi-api.
Kepada Wartawan, Kasamol juga berharap, tahun ini kalau bisa hasil penjualan lebih meningkat. Tahun lalu, lelang tertinggi hanya Rp 24 juta. Namun tahun perak ini salah satu hasil karya putra suku Asmat dihargai Rp 30 juta. "Ini sangat menyenangkan," ujar Kasamol bangga.
Dalam festival ini, kata Kasamol, ada enam kategori yang dilombakan, yaitu Kategori Patung Kecil, Patung Sedang, Patung Besar, Kategori Cerita Rakyat, Kategori Tradisional dan Kategori Panel. Mereka yang berhasil merebut juara I masing-masing kategori akan masuk museum dan pematungnya diberi penghargaan masing-masing senilai Rp10 juta. Sementara Juara II dan III masing-masing kategori akan diikutkan lelang.
Festival Seni Budaya Asmat tahun ini juga akan dihadiri kapal pesiar yang memuat sejumlah turis asing untuk membeli hasil karya para pematung. Juga ada tujuh delapan kali gelombang pengunjung dari luar Asmat yang mendatangi arena pameran.
Sementara juru bicara PT Freeport Indonesia, Mindo Pangaribuan yang juga hadir dalam festival ini, mengatakan PTFI memahami kebutuhan masyarakat Papua untuk melestarikan tradisi kebudayaan. PTFI juga kata Mindo, tetap berkomitmen mendukung upaya pelestarian budaya ini.
PTFI datang sebagai tamu atau pengunjung, juga membantu mempromosikan festival termasuk memfasilitasi tamu-tamu dari dalam dan luar negeri untuk mengunjungi festival ini.
Lanjut Mindo, PTFI telah lama mendukung festival tahunan Asmat ini. Dalam meningkatkan pemahaman terhadap kebudayaan lokal, menurut Mindo, PTFI sudah melakukan sejumlah kajian tentang masalah sosial, kebudayaan, bahasa dan ekonomi masyarakat yang ada di sekitar wilayah kerja perusahaan. Kajian-kajian tersebut telah meningkatkan komunikasi dan pemahaman antara PTFI dengan masyarakat sekitar. Selain itu, kajian-kajian tersebut telah memberikan kontribusi yang signifikan terhadap pengetahuan dunia mengenai kebudayaan lokal yang unik. Bahkan menurut Mindo, PTFI juga telah mensponsori terbitnya dua buku tentang sosial budaya masyarakat Kamoro dan Amungme.
Dikatakan, ikut melestarikan dan mengembangkan seni budaya lokal Papua, merupakan salah satu komitmen PTFI. Untuk itu setiap tahun, PTFI ikut mendatangkan tamu baik dari dalam maupun dari luar negeri agar mereka mengenal dan membeli hasil karya budaya lokal Papua, khususnya yang ada di wilayah kerja PTFI, seperti Asmat, Kamoro dan Amungme.

Atraksi Asmat Rambah Belanda


Upaya pemerintah untuk memperkenalkan kesenian tradisional terus dilakukan. Salah satunya adalah dengan memperkenalkan kesenian suku Asmat dari Papua pada masyarakat Belanda sebagai bagian dari Trade, Tourism and Investment (TTI). Rombongan Bupati Asmat bertandang ke Belanda pada 28 Agustus - 5 September 2008.
Duta Besar RI untuk Kerajaan Belanda J.E. Habibie mengemukakan bahwa kunjungan tersebut dilakukan untuk mendukung pembangunan Kawasan Timur Indonesia serta mempromosikan atraksi seni budaya Indonesia.
"Kegiatan tersebut diisi dengan demonstrasi memahat kayu yang sudah melegenda di seluruh dunia, demo memasak makanan Papua, serta tari-tarian tradisional Asmat yang menarik minat seratus lebih masyarakat serta sejumlah media massa Belanda," ujarnya dalam keterangan resmi kemarin (3/9).
Fanny Habibie, sapaan akrabnya, menjelaskan bahwa seni pahat Asmat sangat kental dipengaruhi oleh spirit yang mempengaruhi si pemahat dan berusaha dituangkan dalam patung yang dibuat.


"Sehingga hasil akhir dari karya seni itu tampak berjiwa dan tidak semata-mata benda mati sebagaimana patung lain. Secara umum, budaya suku Asmat sangat unik dan terus bertahan hingga sekarang sehingga menjadi salah satu tujuan kunjungan utama Indonesia," lanjutnya.
Pada kesempatan tersebut, Bupati Asmat Yuvensius A. Biakai mengemukakan bahwa sebagai bagian dari Indonesia, Asmat berharap dapat memberikan andil besar serta mendukung pembangunan RI.
"Disadari bahwa kondisi geografis yang terisolir dan daerah berawa-rawa cukup menyulitkan proses pembangunan Asmat, sehingga rencana besar yang hendak diwujudkan ialah membangun bandara internasional dan pelabuhan guna memperluas akses dan mendorong peningkatan pariwisata Asmat," imbuhnya.
Dalam demo memahat patung kayu, tampil tiga warga Asmat dengan pakaian tradisional yang memahat sambil sesekali melafalkan semacam mantra untuk meminta "dukungan spiritual" dari alam sekitar.
Sedangkan ibu-ibu dari Papua Indonesia dan Belanda bergabung untuk demo memasak makanan khas Papua berupa Papeda dengan sup ikan dan hasilnya langsung disuguhkan kepada para pengunjung yang tampak puas menikmati sajian lezat tersebut.
Puncak dari penampilan seni budaya Asmat adalah pertunjukan tari-tarian tradisional yang unik dan kadangkala langsung dikomando oleh Bapak Bupati. Banyak di antara tarian Asmat dilakukan untuk acara ritual, namun salah satu tarian yang ditampilkan berjudul Persahabatan.
Ini merupakan tarian yang bersifat lebih terbuka dan semua orang dapat menari bersama, sehingga tak ayal pada saat dipertunjukkan di akhir acara, hampir semua penonton ikut menari tari tersebut mengikuti gerakan para penari Asmat.
Selain pertunjukan seni budaya, rombongan Asmat juga melakukan acara dialog interaktif di Radio Nederland tanggal 1 September 2008 dan Business Meeting bersama para pengusaha Belanda pada tanggal 2 September 2008.

10.17.2008

Rumah Seribu Cermin


Di sebuah desa kecil, ada sebuah rumah yang dikenal dengan nama "Rumah Seribu Cermin." Suatu hari seekor anjing kecil sedang berjalan-jalan di desa itu dan melintasi "Rumah Seribu Cermin". Ia tertarik pada rumah itu dan memutuskan untuk masuk melihat-lihat apa yang ada di dalamnya.
Sambil melompat-lompat ceria ia menaiki tangga rumah dan masuk melalui pintu depan. Telinga terangkat tinggi-tinggi, ekornya bergerak-gerak secepat mungkin.
Betapa terkejutnya ia ketika masuk ke dalam rumah, ia melihat ada seribu wajah ceria anjing-anjing kecil dengan ekor yang bergerak-gerak cepat. Ia tersenyum lebar, dan seribu wajah anjing kecil itu juga membalas dengan senyum lebar, hangat dan bersahabat.


Ketika ia meninggalkan rumah itu, ia berkata pada dirinya sendiri, "Tempat ini sangat menyenangkan. Suatu saat saya akan kembali mengunjunginya sesering mungkin."

Sesaat setelah anjing itu pergi, datanglah anjing kecil yang lain. Namun, anjing yang satu ini tidak seceria anjing yang sebelumnya. Ia juga memasuki rumah itu.
Dengan perlahan ia menaiki tangga rumah dan masuk melalui pintu. Ketika berada di dalam, ia terkejut melihat ada seribu wajah anjing kecil yang muram dan tidak bersahabat. Segera saja ia menyalak keras-keras, dan dibalas juga dengan seribu gonggongan yang menyeramkan.
Ia merasa ketakutan dan keluar dari rumah sambil berkata pada dirinya sendiri, "Tempat ini sungguh menakutkan, saya takkan pernah mau kembali ke sini lagi."

Seringkali gambaran atau kesan tentang wajah yang ada di dunia ini, yang kita lihat ... adalah cermin gambaran dan kesan dari wajah kita sendiri.

Kalau kita mengesankan keramahan, maka dunia akan tampak ramah...
Kalau dunia terasa suram, mungkin itu karena kesan yang kita berikan...



Salam SUKSES,



Jika kamu memancing ikan....


Jika Kamu Memancing Ikan

Setelah ikan itu terlekat di mata kail, hendaklah kamu mengambil ikan itu....
Janganlah sesekali kamu lepaskan ia semula ke dalam air begitu saja....
Karena ia akan sakit oleh karena bisanya ketajaman mata kailmu dan
mungkin ia akan menderita selagi ia masih hidup.


Begitulah juga setelah kamu memberi banyak pengharapan kepada seseorang...

Setelah ia mulai menyayangimu hendaklah kamu menjaga hatinya....
Janganlah sesekali kamu meninggalkannya begitu saja....
Karena dia akan terluka oleh kenangan bersamamu dan mungkin tidak dapat
melupakan segalanya selagi dia mengingatmu....

Jika kamu menadah air biarlah berpada, jangan terlalu mengharap pada
takungannya dan janganlah menganggap ia begitu
teguh.... cukuplah
sekadar keperluanmu....

Apabila sekali ia retak.... tentu sukar untuk kamu menamba
lnya semula....
Akhirnya ia dibuang....
Sedangkan jika kamu coba membaikinya mungkin ia masih dapat dipergunakan
lagi....


Begitu juga jika kamu memiliki seseorang, terimalah seadanya....
Janganlah kamu terlalu mengaguminya dan janganlah kamu menganggapnya
begitu istimewa....
Anggaplah dia manusia biasa.
Apabila sekali dia melakukan kesilapan bukan mudah bagi kamu untuk
menerimanya.... akhirnya kamu kecewa dan meninggalkannya
.

Sedangkan jika kamu memaafkannya boleh jadi hubungan kamu akan terus
hingga ke akhirnya....


Jika kamu telah memiliki sepinggan nasi... yang kamu pasti baik untuk
dirimu.
Mengenyangkan. Berkhasiat.
Mengapa kamu berlengah, coba mencari makanan yang lain..

Terlalu ingin mengejar kelezatan.
Kelak, nasi itu akan basi dan kamu tidak boleh memakannya.
Kamu akan menyesal.

Begitu juga jika kamu telah bertemu dengan seorang insan..... y
ang kamu
pasti membawa kebaikan kepada dirimu.
Menyayangimu. Mengasihimu.
Mengapa kamu berlengah, coba membandingkannya dengan yang lain.
Terlalu mengejar kesempurnaan.
Kelak, kamu akan kehilangannya apabila dia menjadi m
ilik orang lain
Kamu juga yang akan menyesal.


10.14.2008

SISTEM DAN MODEL1

I. PENGERTIAN SISTEM DAN MODEL
Suatu sistem didefinisikan sebagai himpunan atau kombinasi dari bagian-bagian yang
membentuk sebuah kesatuan yang kompleks. Namun tidak semua kumpulan dan gugus
bagian dapat disebut suatu sistem kalau tidak memenuhi syarat adanya kesatuan (unity),
hubungan fungsional, dan tujuan yang berguna. Suatu kawasan dengan berbagai sumber
daya dan aktivitas di dalamnya merupakan suatu sistem yang kompleks. Dalam penataan
ruang suatu kawasan jelas ketiga syarat tersebut dapat dipenuhi, tata ruang yang berbasis
lahan merupakan suatu kesatuan yang didalamnya terdapat hubungan fungsional
antarsektor atau bagian dalam mencapai tujuan optimalisasi pemanfaatan tata ruang suatu
kawasan. Hubungan fungsional tersebut tercermin pada hubungan antara kondisi sosial,
ekonomi, dan biofisik kawasan. Ketiga kondisi akan saling mempengaruhi dengan fungsifungsi
yang dapat dijelaskan. Kondisi sosial, sebagai contoh adalah perubahan kondisi
kependudukan akan mempengaruhi aktivitas ekonomi yang selanjutnya berpengaruh pada
penggunaan ruang yang akan mengubah kondisi biofisik kawasan.
Model didefinisikan sebagai suatu perwakilan atau abstraksi dari sebuah obyek atau situasi
Download Selengkapnya Disini

aktual. Model memperlihatkan hubungan-hubungan langsung maupun tidak langsung
serta kaitan timbal balik dalam istilah sebab akibat. Oleh karena suatu model adalah
abstraksi dari realitas, pada wujudnya kurang kompleks daripada realitas itu sendiri. Jadi,
1). Makalah disampaikan pada Pelatihan Penyusunan Produk Domestik Regional Bruto(Pdrb) Hijau Dan
Perencanaan Kehutanan Berbasis Penataan Ruang. Badan Planologi Kehutanan, Departemen
Kehutanan. Bogor 4 – 9 Juni 2006
Tujuan Instruksional Khusus:
Setelah mengikuti pelatihan ini, peserta pelatihan akan dapat:
1. menjelaskan perbedaan pengertian sistem dan model,
2. menentukan jenis dan klasifikasi model,
3. menjelaskan tentang permodelan sistem


model adalah sutau penyederhanaan dari suatu realitas yang kompleks. Model dikatakan
lengkap apabila dapat mewakili berbagai aspek dari realitas yang sedang dikaji. Sebagai
contoh, boneka adalah model dari bentuk manusia; boneka yang dapat tertawa, menangis,
dan berjalan adalah model manusia yang lebih lengkap, tidak hanya mewakili bentuk
tetapi juga beberapa perilaku manusia.
II. PENDEKATAN SISTEM DALAM PENYUSUNAN TATA RUANG
Kenyataan yang mendasar dari persoalan aktual tata ruang adalah kompleksitas, dimana
unitnya adalah keragaman. Oleh karena itu, keragaman yang begitu besar tidak mungkin
dikaji atau dikendalikan oleh satu atau dua metode spesifik saja. Dalam hal ini, teori
sistem menyatakan bahwa kesisteman adalah suatu meta-konsep atau meta-disiplin,
formalitas dan proses dari keseluruhan disiplin ilmu dan pengetahuan sosial dapat
dipadukan dan berhasil. Karena sistem selalu mencari keterpaduan antarbagian melalui
pemahaman yang utuh, maka perlu suatu kerangka fikir yang dikenal sebagai pendekatan
sistem (system approach) dalam penataan ruang suatu kawasan.
Pendekatan sistem dalam penataan ruang suatu kawasan adalah cara penyelesaian
persoalan yang dimulai dengan dilakukannya identifikasi terhadap adanya sejumlah kebutuhankebutuhan
ruang sehingga dapat menghasilkan suatu operasi dari sistem tata ruang yang
dianggap efektif. Dalam pendekatan sistem umumnya ditandai oleh dua hal, yaitu (1)
mencari semua faktor yang penting yang ada dalam mendapatkan solusi yang baik untuk
menyelesaikan masalah dan (2) dibuat suatu model kuantitatif untuk membantu
keputusan secara rasional. Untuk dapat bekerja sempurna suatu pendekatan sistem
mempunyai delapan unsur yang meliputi (1) metodologi untuk perencanaan dan
pengelolaan, (2) suatu tim yang multidisipliner, (3) pengorganisasian, (4) disiplin untuk
bidang yang non-kuantitatif, (5) teknik model matematik, (6) teknik simulasi, (7) teknik
optimasi, dan (8) aplikasi komputer.
Salah satu unsur yang penting adalah aplikasi manajerial pada metodologi perencanaan,
pengendalian, dan pengelolaan sistem. Proses tersebut melalui beberapa tahap yang
dimulai dengan mendefinisikan kebutuhan, memformulasikan masalah, sintesa dari alternatif
pemecahan masalah, kelayakan dari alternatif, metode untuk memperoleh alternatif yang
ada, rancangan yang optimal, dan operasionalisasi sistem.
4
Dalam pelaksanaannya, pendekatan sistem memerlukan kerja lintas disiplin dan atau
suatu tim yang multidisipliner. Tim ini terdiri dari beberapa pakar dan praktisi berbagai
fungsi yang berlainan. Tim ini secara bersama-sama melaksanakan pendekatan sistem
untuk memecahkan perihal yang dihadapi. Dengan adanya berbagai disiplin atau keahlian
yang berbeda fungsi yang kemudian membentuk suatu tim yang multidisipliner, maka
agar tersebut bekerja secara sempurna perlu adanya komunikasi interpersonal dan
pengorganisasian. Adanya pengorganisasian yang sempurna menyebabkan tim tersebut
dapat melaksanakan aktivitas secara efektif, terutama dalam alokasi sumber daya manusia
dan potensi fisik selama menjalankan suatu perencanaan dari operasi sistem.
Teknik model matematik sebagai unsur penting dalam penyusunan model abstrak yang
representatif bagi sistem patut dipelajari. Hal ini terutama dalam mempelajari perilaku
sistem (system behaviour) dan menunjang rasionalisasi keputusan yang berhubungan dengan
perihal yang dihadapi.
Perilaku sistem diartikan sebagai status sistem dalam suatu periode waktu tertentu.
Perubahan status sistem tersebut dapat diamati melalui dinamika outputnya. Status
sistem dapat berkeadaan transien yaitu adanya perubahan output di setiap satuan waktu
atau berkeadaan berkesinambungan (steady state) yaitu adanya keseimbangan aliran masuk
dan keluar. Status sistem juga berkaitan dengan apakah tertutup (closed system) dimana
interaksi dengan lingkungan sangat kecil sehingga bisa diabaikan, dan atau terbuka (open
system) dimana paling sedikit satu elemennya berinteraksi dengan lingkungannya.
Disamping sejumlah hal-hal yang nyata dapat dikuantitatifkan, juga harus diperhatikan
adanya pemikiran yang bersifat non-kuantitatif (non-quantitative thinking) dimana hal ini
tidak dapat digantikan oleh suatu ’model mental’. Berdasarkan pengalaman, hal tersebut
timbul bersama-sama dengan hal-hal yang nyata atau fisik.
Teknik simulasi biasanya berguna bila ahli sistem memiliki program komputer atau model
fungsi lainnya dimana dapat menyusun suatu rancangan strategi untuk melaksanakan
manajemen.
5
Teknik optimisasi adalah pengkajian dimana diinginkan suatu batas kritis maksimum atau
minimum dari suatu sistem yang berjalan, karena sistem tersebut tidak bisa lepas dari
adanya pengaruh-pengaruh yang bersifat fisik maupun sosial yang berasal dari kondisi
lingkungan dimana sistem tersebut berada.
Dalam melakukan pendekatan sistem dapat dengan menggunakan komputer atau tanpa
menggunakan komputer. Akan tetapi adanya fasilitas komputer memudahkan
penggunaan model dan teknik simulasi dalam sistem, terutama dalam menghadapi
masalah yang cukup luas dan kompleks dimana banyak sekali peubah, data dan interaksiinteraksi
yang mempengaruhi, seperti halnya dalam penataan ruang suatu kawasan.


10.13.2008

Ketika Seks Menjadi Menyakitkan


Banyak wanita yang merasakan kesakitan saat melakukan hubungan seks pada saat-saat tertentu yang dikenal dengan istilah dyspareunia. Bagi kebanyakan wanita, rasa itu hanyalah ketidak-nyamanan yang terjadi sesaat. Tetapi terkadang pada beberapa yang lain, rasa sakit seakan menjadi sesuatu yang selalu terjadi saat berhubungan. Ahli terapi psikoseksual Paula Hall akan menerangkan sebabnya dan solusinya.

Kurangnya rangsangan seksual
Selama ini hal inilah penyebab utama dari hubungan seks yang menyakitkan.

Ketika tubuh wanita siap untuk seks, vagina akan mengembang baik panjang dan lebarnya. Ketika hal ini terjadi, vagina Anda akan menjadi basah dan berpelumas untuk menghindari pergesekan. Vagina memang tidak didesain untuk dimasuki dalam keadaan yang tidak terangsang.

Jika Anda merasa yakin sudah begitu terangsang tetapi tetap merasakan sakit, lebih baik periksalah ke dokter Anda.

Rangkaian rasa sakit
Masalah dengan rasa sakit ini akan menghalangi rangsangan seksual. Dan tentu saja, kurangnya rangsangan seksual akan menyebabkan rasa sakit lebih lanjut lagi.


Banyak wanita menemukan kalau mereka terperangkap dalam rangkaian rasa sakit yaitu pernah punya pengalaman hubungan seks yang menyakitkan sebelumnya, mereka akan trauma akan mengalami rasa sakit lagi. Rasa takut akan rasa sakit ini akan menghalangi rangsangan yang dilakukan, kurangnya rangsangan yang dirasakan menyebabkan rasa sakit lagi dan seperti itulah rangkaian kejadian itu terus berulang.

Penyebab sementara
- Baru saja melahirkan
Hal ini menjadi suatu hal yang umum wanita merasa tidak nyaman berhubungan seks setelah melahirkan anak, terutama jika saat melahirkan dilakukan episiotomy (pemotongan untuk mempermudah proses melahirkan).
- Menopause
Hubungan seks akan menjadi menyakitkan ketika memasuki masa menopause di mana kadar hormon estrogen yang rendah menyebabkan tipisnya dinding vagina. Tanyalah dokter Anda atau klinik menopause tentang krim estrogen, yang mana akan mengatasi masalah ini dengan cepat.
- Infeksi saluran kemih
Cystitis atau iritasi vagina seperti sejenis sariawan, vaginitis, dan bisul pada alat kelamin juga bisa menyebabkan rasa sakit. Sekali penyebab utamanya diketahui, rangkaian pengobatan akan bisa mengatasi masalah ini.
- Sensitif terhadap kondom
Anda mungkin akan menderita iritasi akibat produk kondom tertentu, krim kontrasepsi atau pelumas. Cobalah merk lain.

Mengatasinya sendiri
- Rileks
Ini hal terpenting yang dapat Anda lakukan. Mandilah, lakukan latihan pernafasan atau belilah buku dan rekaman untuk melakukan rileksasi.
- Atasi masalah dalam hubungan Anda
Anda perlu memastikan bahwa isi kepala dan hati Anda berada dalam mood yang baik untuk seks, begitu juga tubuh Anda. Jika Anda merasa tidak senang dengan sesuatu hal dengan pasangan Anda, coba selesaikan dahulu.
- Lakukan latihan pada dasar panggul Anda
Ini akan meningkatkan aliran darah pada area genital Anda dan membuat Anda lebih peka terhadap segala sensasi dari rangsangan fisik.
- Coba gunakan fantasi
Timbulkan mood dalam diri Anda dengan masuk dalam fantasi favorit Anda.
- Nikmati rangsangan yang ada
Jangan tergesa-gesa dan biarkan tubuh Anda benar-benar fokus merasakan sensasi kenikmatan akan sentuhan.
- Gunakan pelumas
Sangatlah susah merangsang klitoris yang kering. Gunakan pelumas untuk mempercepat prosesnya, selalu sediakan sebotol di tempat tidur Anda.
- Rangsang saraf rasa takut Anda
Latihlah dengan menonton film horor, naik roller coaster atau lakukan hal lain yang membuat jantung Anda berdegup kencang. Peneliti mengatakan tubuh Anda akan lebih mudah merespon rangsangan seksual 15 sampai 30 menit berikutnya.

Periksa dengan dokter Anda
Jangan khawatir jika segala cara yang Anda coba sendiri di atas tidak berfungsi pada Anda. Sepertinya apa yang menyebabkan rasa sakit itu bisa disembuhkan begitu ditemukan perawatan yang tepat. Anda mungkin harus meminta nasehat dari dokter atau ahli terapi psikoseksual Anda.

Jika Anda merasakan hubungan seksual yang menyakitkan hanya sesaat, penting untuk mengetahui kalau Anda sedang tidak menderita sesuatu penyakit. Dokter Anda mungkin akan menanyakan beberapa seperti ini:
- Apakah rasa sakit hanya sekitar bagian luar vagina Anda atau di bagian yang lebih dalam lagi?
- Apakah sakitnya hanya pada satu sisi atau keduanya?
- Apakah Anda punya penyakit pada punggung?
- Bagaimana Anda menggambarkan rasa sakit itu? Apakah itu rasa sakit yang dalam, atau perih dan terasa terbakar, atau terasa seperti tertusuk-tusuk?
- Apakah Anda merasakan rasa sakit itu hanya saat berhubungan seks atau rasa itu ada terus menerus?
- Apakah itu berubah-ubah pada waktu yang berbeda dalam satu bulan atau pada posisi yang berbeda?

Jika rasa sakit berada di bagian bawah perut atau pada salah satu sisinya, Anda harus memeriksakan diri pada dokter untuk mengetahui apakah ada kelainan ginekologi seperti endometriosis, prolapse, kista indung telur, fibroid dan radang pada bagian panggul.

Kemungkinan lain adalah uterine retroversion, suatu keadaan alami di mana rahim miring ke arah belakang panggul. Pada kondisi ini, Anda akan menemukan dengan memakai posisi yang berbeda, di mana bisa masuk tidak terlalu dalam, akan terasa lebih nyaman.

Jika Anda merasa tidak nyaman secara terus menerus pada daerah kelamin Anda, Anda harus memeriksakan diri pada dokter Anda untuk mengetahui apakah Anda mengalami vulvodynia atau vulval vestibulitus. (bbc/cax)

Domenech Menghitung Hari

MENGHITUNG HARI

CONSTANTA – Masa depan pelatih Prancis Raymond Domenech makin di ujung tanduk. Indikasinya adalah hasil seri 2-2 (2-0) yang diraih Les Bleus, sebutan Prancis, kala dijamu Rumania di Stadion Farul, Constanta, dini hari kemarin WIB. Raihan yang membuat Federasi Sepak Bola Prancis atau FFF segera mengambil keputusan terhadap status Domenech.


2 Rumania v Prancis 2 (Grup 7 Zona Eropa)

MENGHITUNG HARI

CONSTANTA – Masa depan pelatih Prancis Raymond Domenech makin di ujung tanduk. Indikasinya adalah hasil seri 2-2 (2-0) yang diraih Les Bleus, sebutan Prancis, kala dijamu Rumania di Stadion Farul, Constanta, dini hari kemarin WIB. Raihan yang membuat Federasi Sepak Bola Prancis atau FFF segera mengambil keputusan terhadap status Domenech.

Namun, sabar dulu. Sebab, Presiden FFF Jean-Pierre Escalettes mengatakan jika status Domenech masih akan menunggu hingga Rabu (15/10) nanti atau bertepatan dengan rapat dewan pengurus FFF. “Kita lihat saja karena waktunya tidak lama lagi,” katanya kepada stasiun televisi TF1.

“Prancis harus segera berkonsentrasi untuk laga uji coba lawan Tunisia pada Selasa nanti (14/10). Setelah itu, biarlah rapat dewan pengurus FFF yang memutuskan apa yang bakal terjadi,” sambung Escalettes.

Dari pernyataan Escalettes, hasil uji coba lawan Tunisia yang dihelat di Stade de France, Paris, itu bisa jadi adalah tes terakhir bagi Domenech. Tapi, bisa juga merupakan laga perpisahan bagi pelatih 56 tahun itu mengacu hasil kurang menggembirakan di tiga laga awal kualifikasi PD 2010.

Terpenting, Domenech jelas-jelas gagal memenuhi target tidak resmi FFF. Sebagaimana yang diyakini media-media di Prancis, pelatih yang menangani Les Bleus sejak 12 Juli 2004 itu harus merebut minimal 5 poin di tiga laga awal kualifikais PD 2010. Kabarnya, target itu sebagai deal antara Domenech dan FFF gara-gara hasil buruk Les Bleus di Euro 2008 Juni lalu yang sudah tersisih sejak fase grup.

Kenyataannya, Domenech hanya mempersembahkan 4 poin. Di laga pertama, Prancis kalah 1-3 dari Austria (6/9) meski sempat menang 2-1 atas Serbia di laga berikutnya (10/9). Efeknya, juara Piala Dunia 1998 dan runner-up Piala Dunia 2006 itu kini harus rela menempati peringkat keempat grup 7 zona Eropa di bawah Serbia, Lithuania, dan Austria.

Saat menghadapi Rumania, Prancis sejatinya juga nyaris kalah. Itu setelah Rumania leading dua gol di awal pertandingan lewat aksi Florentin Petre pada menit keenam dan heading Dorin Goian menit ke-17. Tapi, gelandang muda Prancis Yoann Gourcuff menjadi penyelamat Prancis lewat tendangan jarak jauh pada menit ke-69 setelah didahului gol Franck Ribery di menit ke-36.

“Secara hasil kami memang belum maksimal. Tapi, dari segi spirit permainan, khususnya yang ditunjukkan pemain di babak kedua, saya salut dengan para pemain,” ungkap Domenech kepada AFP.

Terkait jabatannya yang tengah terancam, Domenech kembali memperlihatkan sikap cuek. Sikap mantan pelatih Prancis U-21 itulah yang terkadang membuat publik atau fans Les Bleus geram. Seperti kala Domenech justru asyik mempertontonkan kemesraan dengan pacarnya di televisi usai kegagalan Prancis di Euro 2008.

Di sisi lain, di Prancis saat ini sudah santer beredar nama-nama pelatih yang dianggap pantas menggantikan posisi Domenech. Antara lain mantan kapten Les Bleus di Piala Dunia 1998 Didier Deschamps, pelatih Bordeaux Laurent Blanc, maupun Gerard Houllier, mantan pelatih Prancis pada 1992-1993.

Sementara itu, start kurang menggembirakan Prancis di kualifikasi PD 2010 menular kepada tim raksasa Eropa lainnya, Portugal. Sekalipun kembali diperkuat Cristiano Ronaldo, Portugal hanya mampu bermain imbang tanpa gol lawan Swedia di Stadion Rasunda di Solna.

Dengan hasil tersebut, skuad Carlos Queiroz masih tertahan di peringkat ketiga grup 1 dengan 4 poin atau berselisih tiga poin dengan urutan teratas Denmark. “Hasil yang lumayan karena laga yang kami jalani tidak mudah. Saya juga puas tidak lagi mengalami masalah dengan cedera,” ucap Ronaldo sebagaimana dilansir Reuters. (dns)



STATISTIK PERTANDINGAN

RUMANIA PRANCIS

3 Tembakan ke Gawang 2

0 Tembakan Melenceng 0

2 Penyelamatan 2

3 Sepak Pojok 6

1 Offside 2

1 Kartu Kuning 2

0 Kartu Merah 0

61% Penguasaan Bola 39%



HOME || INDEX


Contoh program Menggunakan while… do..

program ulang;
uses crt;
var
jml,I:integer;
begin
clrscr;
I:=0;
while I<10 do
begin
I:=I+1;
writeln(’data ke:’,i,’unisbank’);
writeln(’teknik industri’);
end;
readln;
end.

Contoh program Menggunakan for….do…

program ulang_taufik;
uses crt;
var
X,celcius:integer;
fahrenheit:real;
begin
writeln(’********************’);
writeln(’ celcius fahrenheit ‘);
writeln(’********************’);
celcius:=0;
for X:=1 to 10 do
begin
fahrenheit:=1.8*celcius+32;
writeln(celcius:8,fahrenheit:14:2);
celcius:=celcius+25;
end;
writeln(’*******************’);
readln;
end.

Contoh program Menggunakan case ….of….

program latihan_bytaufik;
uses crt;
var
npeserta,nkursus:string;
kkursus:char;
biaya:real;
lama:integer;
begin
clrscr;
write(’nama peserta’);readln(npeserta);
write(’nama kursus’);readln(nkursus);
write(’kode kursus(A/B/C/D):’);readln(kkursus);
case kkursus of
‘A’,'a’:begin
nkursus:=’visual basic’;
biaya:=300000;
lama:=26;
end;
‘B’,'b’:begin
nkursus:=’visual foxpro’;
biaya:=250000;
lama:=18;
end;
‘C’,'c’:begin
nkursus:=’java’;
biaya:=350000;
lama:=24;
end;
‘D’:begin
nkursus:=’c++’;
biaya:=200000;
lama:=15;
end;
end;
writeln(’nama peserta:’,npeserta);
writeln(’nama kursus:’,nkursus);
writeln(’kode kursus:’,kkursus);
writeln(’lama :’,lama);
readln;
end.

Contoh program Pascal menggunakan If…then..else

program menumakan_bytaufik;
uses crt;
var pil:char;
begin
writeln(’1.nasi soto ‘ ) ;
writeln(’2.nasi rames ‘ );
writeln(’3.nasi rawon ‘ ) ;
write(’menu pilihan anda:’);readln(pil);
if pil=’1′ then
writeln(’anda memilih nasi soto ‘ )
else if pil=’2′ then
writeln(’anda memilih nasi rames ‘ )
else if pil=’3′ then
writeln(’anda memilih nasi rawon ‘ )
else
writeln(’coba1_3′);
readln;
end.

Short Cut Editor Pascal

Perintah menngakses menu

F10 : Mengakses menu
Ctrl + KS atau F2 : Menyimpan program ke disk
F3 : Memanggil program ke disk
Alt + F3 : Menutup program atau jendela yang sedang aktif

Perintah – perintah memindah kursor

Ctrl + S atau anak panah kiri : memindah kursor satu karakter ke kiri
Ctrl + D atau anak panah kanan : memindah satu karakter ke kanan
Ctrl + A atau anak panah kiri : satu kata ke kiri
Ctrl + F atau Ctrl + Anak panah kanan : Satu kata ke kanan
Ctrl + E atau anak panah atas : satu karakter ke atas
Ctrl + X atau anak panah bawah : satu karakter ke bawah
Ctrl + W : Menggulung satu layer ke atas
Ctrl + Z : menggulung satu layer ke bawah
Ctrl + R atau PgUp : Menggulung satu halaman ke atas
Ctrl + C atau PgDn : Menggulung satu halaman ke bawah

Perintah – perintah Menyisip dan menghapus

Ctrl + V atau Ins : Mematikan / menghidupkan mode insert
Ctrl + N : Menyisip baris
Ctrl + Y : menghapus baris
Ctrl + QY : hapus hingga ke akhir baris
Ctrl + H atau Backspace : Menghapus satu karakter ke kiri
Ctrl + G atau Del : Menghapus satu karakter ke kanan
Ctrl + T menghapus satu kata ke kanan

Mencari dan Mengganti kata
Ctrl + QF : Mencari kata
Ctrl + QA : Mencari dan mengganti kata

Perintah – Perintah Blok

Ctrl + KB : Menandai awal blok
Ctrl + KK : Menandai akhir blok
Ctrl + KT : Menandai sebuah kata
Ctrl + KC : Mengcopy blok
Ctrl + KV : Memindah blok
Ctrl + KY : Menghapus blok
Ctrl + KR : Membaca blok dari disk
Ctrl + KW : Menulis blok ke disk
Ctrl + KH : Menyembunyikan atau memunculkan tanda blok
Ctrl + KP : Mencetak blok ke printer
Ctrl +KI : Menindentasi blok
Ctrl + KU : Meng –unindentasi blok
Ctrl + QB : Memindah kursor ke awal blok
Ctrl + QK : Memindah kursor ke akhir blok
Ctrl + KD : Keluar ke menu
Ctrl + KL : Menandai garis ( mark line )
Ctrl + Ins : Mengcopy blok ke Clipboard
Shift+ Del : Hapus blok dan kirim ( Copy ) ke Cilpboard
Ctrl + Del : Menghapus blok
Shift + Ins : Panggil isi Clipboard

Perintah-Perintah dalam Turbo Pascal

erintah – Perintah Unit System Golongan Arithmatic di Turbo Pascal

Perintah –perintah berikut ini adalah perintah –perintah yang tidak perlu menggunakan perintah USES pada awal program, lebih tepatnya tidak perlu menggunakan Uses System. Semua perintah yang tergabung dalam Unit System bisa langsung diterjemahkan oleh kompiler turbo pascal. Sebab perintah – perintah yang ada dalan Unit System adalah perintah – perintah utama dalam Turbo Pascal. Tetapi jika anda memasukkan perintah dari unit lain, maka perintah USES harus diberikan pada awal program diikuti nama unit dari perintah yang bersangkutan.

Berikut adalah perintah-perintah Unit System Golongan Arithmatic:

Int :
Perintah untuk mengabaikan angka dibalik koma. Penggunaannya : Int(45,78)=45
Frac:
Mengambil desimal suatu bilangan. Frac(45,78)=0,78 . (Frac=Fraction)
Sqr:
Mencari pangkat 2 dari suatu bilangan. Sqr(3)=9. (Sqr=Square)
Sqrt:
Mencari akar pangkat dua dari suatu bilangan. Sqrt(16)=4. (Sqrt=Square Root)
Exp:
Untuk mencari eksponensial (exponential) dari suatu bilangan. Contoh Exp dari 1 =2,72
Ln:
Mencari logaritma natural dari suatu bilangan. (Ln=logarithma natural).
Pi :
Untuk memasukkan bilangan pi (3,1415926536)
Sin :
Untuk mencari Sinus dari suatu bilangan dalam satuan radian.
Bentuk umumnya adalah: Sin(angka)
Untuk mengkonversi kedalam derajat, maka harus ditambahkan rumus:Sin(Angka/(180/Pi).
Cos:
Untuk mencari Cosinus dari suatu bilangan dalam satuan radian.
Bentuk umumnya adalah : Cos(angka)
Untuk mengkonversi kedalam derajat maka harus ditambahkan rumus:Cos(angka/(180/Pi)
Tan:
Turbo pascal tidak menyediakan perintah untuk mencari tangen dari suatu bilangan. Tetapi dengan perintah Sinus dan Cosinus, maka Tangen dari suatu bilangan dengan dicari dengan rumus : Tan=Sin(angka)/Cos(angka)
Arctan:
Untuk mencari Arctangen dari suatu bilangan.
ArcSin:
Sama dengan Tan, Turbo Pascal tidak menyediakan perintah untuk mencari Arcsinus dari suatu bilangan. Tetapi dengan adanya perintah Arctan, Sqr dan Sqrt, maka ArcSin dari suatu bilangan dapat dicari dengan rumus : ArcSin(x)=ArcTan(x/Sqrt (1-Sqr(x))), dimana x adalah bilangan Real.
ArcCos:
Turbo pascal tidak menyediakan ArcCos.Rumusnya adalah : ArcCos(x)=ArcTan(sqrt(1-sqr(x)) /x), dimana x adalah bilangan Real.
Abs:
Untuk mencari absolut (menghilangkan tanda negatif) dari suatu bilangan.

 
Powered by Blogger