LONDON, KOMPAS.com — Hari ini Jose Mourinho akan datang ke Real Madrid untuk diperkenalkan sebagai pelatih baru di klub tersebut. Namun, sebelum kontraknya selesai dalam empat tahun, Mourinho mungkin saja pindah ke Manchester United, tim yang pernah ia rindukan.
Mourinho memang pernah mengakui bahwa ia berniat menggantikan Sir Alex Ferguson sebagai "The Gaffer" di Old Trafford. Namun, Mourinho pun mengakui bahwa keinginan besar itu tak akan terwujud sebelum Ferguson merasa masanya telah usai.
Sampai saat ini setidaknya Ferguson masih ingin membawa MU menjadi juara di musim 2010/2011. Karena itu, tidak ada jalan lain bagi Mourinho selain mencari jalan memutar sebelum mendarat ke Manchester.
Banyak jalan menuju Roma, pun banyak cara menjadi pelatih MU. Slogan ini barangkali cocok untuk menggambarkan skenario panjang "The Special One" untuk kembali ke Liga Primer. Sudah menjadi rahasia umum bila pelatih asal Portugal tersebut punya hasrat besar untuk kembali merasakan atmosfer Liga Inggris.
Sebagai pencinta Chelsea, tempat ia menjuarai liga di negara itu, wajar jika Mourinho ingin pulang ke Inggris. Namun, bukankah "Theatre of Dreams" milik MU juga berada di Inggris?
"Saya akan mempertimbangkan pergi ke Manchester United, tetapi United harus mempertimbangkan apakah mereka menginginkan saya untuk menggantikan Sir Alex Ferguson. Jika mereka mau, tentu saja (saya mau)," kata Mourinho pada September tahun lalu.
Dengan kontrak empat tahun bersama "El Real", Mourinho akan cukup aman meninggalkan Santiago Bernabeu setelah tahun kedua. Di waktu itu, ia berharap sudah sukses membawa Madrid menjadi raja Eropa untuk ke-10 kali. Jika itu terjadi, momennya akan sangat tepat karena usia Ferguson akan membuatnya siap merelakan jabatannya berpindah tangan.
Ferguson adalah muara segala desas-desus pelatih masa depan MU. Dialah yang akan memberikan jawaban kepada dewan klub tentang siapa yang layak memangku jabatan nakhoda MU pada masa datang.
Ketua Eksekutif MU David Gill mengakui, tidak banyak pelatih yang bisa disebut menjadi bakal pelatih "Setan Merah". Mourinho bisa jadi masuk dalam skala kecil itu.
"Dia (Mourinho) bekerja sangat baik, bukan?" jawab Gill terhadap pertanyaan Mirror Football soal kemungkinan Mourinho sebagai suksesor Ferguson. "Dia jelas-jelas memiliki sesuatu dalam dirinya. Dia seorang juara," katanya.
Jawaban Gill ini memang multitafsir, bisa ya, bisa juga tidak. Satu hal yang jelas adalah pernyataannya tentang kualitas Mourinho sebagai juara. Pria kelahiran Setubal, 47 tahun lalu, itu telah memenangi 18 piala penting dalam sembilan tahun terakhir. Titel membanggakan yang diraihnya adalah triplete bersama Inter Milan, termasuk titel Liga Champions musim ini.
Senin, 31 Mei 2010
milan berburu pemain ke spanyol
AC Milan mulai berburu pemain untuk musim depan. Kali ini Wakil Presiden Milan Adriano Galliani bergerilya mencari pemain dari Liga Spanyol.
Kedatangan Galliani ke Madrid, Minggu (30/5/2010) malam, itu diyakini untuk membuka pintu transfer beberapa pemain sekaligus. Targetnya adalah pemain-pemain Real Madrid, seperti Royston Drenthe, Fernando Gago, Guti, dan Rafael van der Vaart.
"I Rossoneri" juga akan kembali mendekati Luis Fabiano, pemain Sevilla yang urung pindah ke San Siro musim ini. Pada bursa transfer pemain tahun lalu, Milan hampir mendapatkan striker Brasil tersebut. Namun, Sevilla mematok harga 20 juta euro dan itu terlalu mahal bagi Milan. Milan kemudian pindah haluan dan membeli Klaas-Jan Huntelaar dari Madrid.
Tidak menutup kemungkinan jika Galliani merapat ke Barcelona untuk membujuk Zlatan Ibrahimovic. Striker asal Swedia itu masih merupakan pemain dambaan setiap tim meski gajinya banyak dikeluhkan klub-klub di Italia.
Di luar Spanyol, pemain lain yang menjadi target potensial Milan adalah defender Benfica, David Luiz. Milan cukup dekat dengan tim asal Portugal itu karena mantan pemain mereka, Manuel Rui Costa, menjadi Direktur Umum Benfica. (FBI)
Kedatangan Galliani ke Madrid, Minggu (30/5/2010) malam, itu diyakini untuk membuka pintu transfer beberapa pemain sekaligus. Targetnya adalah pemain-pemain Real Madrid, seperti Royston Drenthe, Fernando Gago, Guti, dan Rafael van der Vaart.
"I Rossoneri" juga akan kembali mendekati Luis Fabiano, pemain Sevilla yang urung pindah ke San Siro musim ini. Pada bursa transfer pemain tahun lalu, Milan hampir mendapatkan striker Brasil tersebut. Namun, Sevilla mematok harga 20 juta euro dan itu terlalu mahal bagi Milan. Milan kemudian pindah haluan dan membeli Klaas-Jan Huntelaar dari Madrid.
Tidak menutup kemungkinan jika Galliani merapat ke Barcelona untuk membujuk Zlatan Ibrahimovic. Striker asal Swedia itu masih merupakan pemain dambaan setiap tim meski gajinya banyak dikeluhkan klub-klub di Italia.
Di luar Spanyol, pemain lain yang menjadi target potensial Milan adalah defender Benfica, David Luiz. Milan cukup dekat dengan tim asal Portugal itu karena mantan pemain mereka, Manuel Rui Costa, menjadi Direktur Umum Benfica. (FBI)
Sabtu, 29 Mei 2010
LINEAR LIST
Linear List adalah suatu struktur data yang merupakan himpunan terurut. Misal didefinisikan suatu linear list A yang terdiri atas T buah elemen sebagai berikut :
A = [a1, a2, .........., aT]
Jika T = 0, maka A dikatakan sebagai “Null List”.
Suatu elemen dari sembarang posisi pada linear list A dapat dihilangkan. Sebaliknya, suatu elemen baru dapat dimasukkan ke dalam list dan dapat menempati sembarang posisi pada list tersebut. Jadi suatu linear list dapat berkurang atau bertambah setiap saat.
A = [a1, a2, .........., aT]
Jika T = 0, maka A dikatakan sebagai “Null List”.
Suatu elemen dari sembarang posisi pada linear list A dapat dihilangkan. Sebaliknya, suatu elemen baru dapat dimasukkan ke dalam list dan dapat menempati sembarang posisi pada list tersebut. Jadi suatu linear list dapat berkurang atau bertambah setiap saat.
analisis sistem
Analisis sistem adalah penguraian dari suatu sistem informasi yang utuh ke dalam bagian-bagian komponennya dengan maksud untuk mengidentifikasikan dan mengevaluasi permasalahan, kesempatan, hambatan yang terjadi dan kebutuhan yang diharapkan sehingga dapat diusulkan perbaikan.
Ada juga yang berpendapat, analisis sistem adalah Suatu metode yang mencoba untuk melihat hubungan seluruh masalah untuk menyelidiki kesistematisan tujuan dari sistem yang tidak efektif dan evaluasi pilihan dalam bentuk ketidak efektifan dan biaya.
Tugas utama analis sistem adalah :
* Menetapkan ruang lingkup sistem,
* Mengumpulkan fakta studi,
* Menganalisis fakta studi,
* Mengkomunikasikan penemuan melalui LAPORAN ANALISIS SISTEM.
Mengapa perlu melakukan Analisis sistem ?
Tahap Analisis sistem dilakukan setelah tahap perencanaan sistem dan sebelum tahap desain sistem. Tahap ini merupakan tahap yang kritis karena kesalahan dalam tahap ini menyebabkan kesalahan pada tahap selanjutnya. Misalnya anda dihadapakan pada suatu sistem untuk menentukan seberapa jauh sistem tersebut telah mencapai sasarannya. Jika sistem mempunyai beberapa kelemahan, maka anda harus dapat menemukannya. Tugas ini yang di sebut analisis sistem.
Langkah-langkah dasar yang harus dilakukan oleh analisis sistem adalah :
1. Indentify, Mengidentifikasi masalah.
Mengidentifikasi merupakan langkah pertama yang dilakukan dalam tahap analisis sistem. Masalah dapat didefinisikan sebagai suatu pertanyaan yang diinginkan untuk dipecahkan. Masalah ini yang menyebakab sasaran sistem tidak dapat di capai.
Tugas Identify adalah :
* Mengidentifikasi penyebab masalah,
* Mengidentifikasi titik keputusan,
* Mengidentifikasi personal-personal kunci.
2. Understand, Memahami masalah dan kerja sistem yang ada.
Langkah ini dilakukan dengan mempelajari secara terperinci bagaimana sistem yang ada beroperasi. Diperlukan data yang dapat di peroleh dengan cara melakukan penelitian. Bila di tahap perencanaan sudah pernah diadakan penelitian, sifatnya masih penelitian pendahuluan (preliminary survey), sedangkan pada tahap analisis sistem, penelitian bersifat terperinci (detailed survey).
Analis sistem perlu mempelajari apa dan bagaimana operasi sistem yang ada sebelum mencoba untuk menganalisis permasalahan, kelemahan dan kebutuhan pemakai sistem untuk dapat memberikan rekomendasi pemecahannya. Sejumlah data perlu dikumpulkan, dengan menggunakan teknik pengumpulan data yang ada, wawancara, observasi, daftar pertanyaan dan pengambilan sampel.
3. Analyze, Menganalisis sistem.
Menganalisis sistem dilakukan berdasarkan data yang telah diperoleh dari hasil penelitian yang telah dilakukan. Menganalisis kelemahan sistem dan kebutuhan informasi pemakai/manajemen penelitian dilakukanuntuk menjawab pertanyaan :
- Apa yang di kerjakan ?
- Bagaimana mengerjakannya ?
- Siapa yang mengerjakannya ?
- Dimana dikerjakannya ?
- Mengapa dikerjakan ?
- Perlukah dikerjakan ?
- Apakah telah dikerjakan dengan baik ?
Sasaran yang harus dicapai untuk menentukan kriteria penilaian adalah relevance, capacity, efficiency, timeliness, accessibility, flexibility, accuracy, realibility, security, economy dan simplicity.
4. Report, Membuat laporan.
Laporan hasil analisis diserahkan ke steering committee yang nantinya akan diteruskan ke manajemen. PIhak manajemen bersama-sama dengan panitia pengarah dan pemakai sistem akan mempelajari temuan-temuan dan analis yang telah dilakukan oleh analis sistem yang disajikan dalam laporan.
Tujuan pembuatan laporan :
- Analisis telah selesai dilakukan
- Meluruskan kesalahpahaman mengenai apa yang telah ditemukan dan dianalisis tetapi tidak sesuai menurut manajemen.
- Meminta pendapat dan saran dari pihak manajemen.
- Meminta persetujuan dan saran dari pihak manajemen untuk melakukan tindakan selanjutnya (dapat berupa meneruskan ke taha[ design sistem atau menghentikan proyek bila dipandang tidak layak lagi)
Semua hasil yang didapat dari penelitian perlu dilampirkan pada Laporan hasil analisis sehingga manajemen dan user dapat memeriksa kembali kebenaran data yang telah diperoleh.
Masing-masing dari langkah tersebut perlu kertas kerja. Selanjutnya, sistem analis yang sukses bergantung pada :
* Fakta studi yang komprehensif, Fakta merupakan bagian dari informasi yang menunjukan realita, situasi dan relasi yang menjamin analisis dan pemodelan.
* Teknik untuk mengumpulkan fakta studi.
* Keterlibatan penuh pemakai.
* Perangkat pemodelan untuk menganalisis.
* Iterasi.
Ada juga yang berpendapat, analisis sistem adalah Suatu metode yang mencoba untuk melihat hubungan seluruh masalah untuk menyelidiki kesistematisan tujuan dari sistem yang tidak efektif dan evaluasi pilihan dalam bentuk ketidak efektifan dan biaya.
Tugas utama analis sistem adalah :
* Menetapkan ruang lingkup sistem,
* Mengumpulkan fakta studi,
* Menganalisis fakta studi,
* Mengkomunikasikan penemuan melalui LAPORAN ANALISIS SISTEM.
Mengapa perlu melakukan Analisis sistem ?
Tahap Analisis sistem dilakukan setelah tahap perencanaan sistem dan sebelum tahap desain sistem. Tahap ini merupakan tahap yang kritis karena kesalahan dalam tahap ini menyebabkan kesalahan pada tahap selanjutnya. Misalnya anda dihadapakan pada suatu sistem untuk menentukan seberapa jauh sistem tersebut telah mencapai sasarannya. Jika sistem mempunyai beberapa kelemahan, maka anda harus dapat menemukannya. Tugas ini yang di sebut analisis sistem.
Langkah-langkah dasar yang harus dilakukan oleh analisis sistem adalah :
1. Indentify, Mengidentifikasi masalah.
Mengidentifikasi merupakan langkah pertama yang dilakukan dalam tahap analisis sistem. Masalah dapat didefinisikan sebagai suatu pertanyaan yang diinginkan untuk dipecahkan. Masalah ini yang menyebakab sasaran sistem tidak dapat di capai.
Tugas Identify adalah :
* Mengidentifikasi penyebab masalah,
* Mengidentifikasi titik keputusan,
* Mengidentifikasi personal-personal kunci.
2. Understand, Memahami masalah dan kerja sistem yang ada.
Langkah ini dilakukan dengan mempelajari secara terperinci bagaimana sistem yang ada beroperasi. Diperlukan data yang dapat di peroleh dengan cara melakukan penelitian. Bila di tahap perencanaan sudah pernah diadakan penelitian, sifatnya masih penelitian pendahuluan (preliminary survey), sedangkan pada tahap analisis sistem, penelitian bersifat terperinci (detailed survey).
Analis sistem perlu mempelajari apa dan bagaimana operasi sistem yang ada sebelum mencoba untuk menganalisis permasalahan, kelemahan dan kebutuhan pemakai sistem untuk dapat memberikan rekomendasi pemecahannya. Sejumlah data perlu dikumpulkan, dengan menggunakan teknik pengumpulan data yang ada, wawancara, observasi, daftar pertanyaan dan pengambilan sampel.
3. Analyze, Menganalisis sistem.
Menganalisis sistem dilakukan berdasarkan data yang telah diperoleh dari hasil penelitian yang telah dilakukan. Menganalisis kelemahan sistem dan kebutuhan informasi pemakai/manajemen penelitian dilakukanuntuk menjawab pertanyaan :
- Apa yang di kerjakan ?
- Bagaimana mengerjakannya ?
- Siapa yang mengerjakannya ?
- Dimana dikerjakannya ?
- Mengapa dikerjakan ?
- Perlukah dikerjakan ?
- Apakah telah dikerjakan dengan baik ?
Sasaran yang harus dicapai untuk menentukan kriteria penilaian adalah relevance, capacity, efficiency, timeliness, accessibility, flexibility, accuracy, realibility, security, economy dan simplicity.
4. Report, Membuat laporan.
Laporan hasil analisis diserahkan ke steering committee yang nantinya akan diteruskan ke manajemen. PIhak manajemen bersama-sama dengan panitia pengarah dan pemakai sistem akan mempelajari temuan-temuan dan analis yang telah dilakukan oleh analis sistem yang disajikan dalam laporan.
Tujuan pembuatan laporan :
- Analisis telah selesai dilakukan
- Meluruskan kesalahpahaman mengenai apa yang telah ditemukan dan dianalisis tetapi tidak sesuai menurut manajemen.
- Meminta pendapat dan saran dari pihak manajemen.
- Meminta persetujuan dan saran dari pihak manajemen untuk melakukan tindakan selanjutnya (dapat berupa meneruskan ke taha[ design sistem atau menghentikan proyek bila dipandang tidak layak lagi)
Semua hasil yang didapat dari penelitian perlu dilampirkan pada Laporan hasil analisis sehingga manajemen dan user dapat memeriksa kembali kebenaran data yang telah diperoleh.
Masing-masing dari langkah tersebut perlu kertas kerja. Selanjutnya, sistem analis yang sukses bergantung pada :
* Fakta studi yang komprehensif, Fakta merupakan bagian dari informasi yang menunjukan realita, situasi dan relasi yang menjamin analisis dan pemodelan.
* Teknik untuk mengumpulkan fakta studi.
* Keterlibatan penuh pemakai.
* Perangkat pemodelan untuk menganalisis.
* Iterasi.
jenis bahasa pemrograman
1. Bahasa Pemrograman HTML
HyperText Markup Language (HTML) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser Internet.
HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium (W3C).
HTML berupa kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan.
Sebuah file yang merupakan file HTML dapat dibuka dengan menggunakan browser web seperti Mozilla Firefox atau Microsoft Internet Explorer.
2. Bahasa Pemrograman PHP
PHP adalah bahasa pemrograman script yang paling banyak dipakai saat ini.
PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama FI (Form Interpreted), yang wujudnya berupa sekumpulan script yang digunakan untuk mengolah data form dari web.
PHP banyak dipakai untuk membuat situs web yang dinamis, walaupun tidak tertutup kemungkinan digunakan untuk pemakaian lain.
PHP biasanya berjalan pada sistem operasi linux (PHP juga bisa dijalankan dengan hosting windows).
3. Bahasa Pemrograman ASP
ASP adalah singkatan dari Active Server Pages yang merupakan salah satu bahasa pemograman web untuk menciptakan halaman web yang dinamis.
ASP merupakan salah satu produk teknologi yang disediakan oleh Microsoft.
ASP bekerja pada web server dan merupakan server side scripting.
4. Bahasa Pemrograman XML
Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data.
XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja.
XML merupakan suatu metode dalam membuat penanda/markup pada sebuah dokumen.
HyperText Markup Language (HTML) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser Internet.
HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium (W3C).
HTML berupa kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan.
Sebuah file yang merupakan file HTML dapat dibuka dengan menggunakan browser web seperti Mozilla Firefox atau Microsoft Internet Explorer.
2. Bahasa Pemrograman PHP
PHP adalah bahasa pemrograman script yang paling banyak dipakai saat ini.
PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama FI (Form Interpreted), yang wujudnya berupa sekumpulan script yang digunakan untuk mengolah data form dari web.
PHP banyak dipakai untuk membuat situs web yang dinamis, walaupun tidak tertutup kemungkinan digunakan untuk pemakaian lain.
PHP biasanya berjalan pada sistem operasi linux (PHP juga bisa dijalankan dengan hosting windows).
3. Bahasa Pemrograman ASP
ASP adalah singkatan dari Active Server Pages yang merupakan salah satu bahasa pemograman web untuk menciptakan halaman web yang dinamis.
ASP merupakan salah satu produk teknologi yang disediakan oleh Microsoft.
ASP bekerja pada web server dan merupakan server side scripting.
4. Bahasa Pemrograman XML
Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data.
XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja.
XML merupakan suatu metode dalam membuat penanda/markup pada sebuah dokumen.
bahasa pemrograman java
Sebelum belajar lebih lanjut tentang java alangkah baiknya terlebih dulu kita mengetahui berbagai bahasa yang digunkan di dalam pemrograman Java agar nantinya kita paham dan tidak kesulitan dalam mengartikan bahasa pemrograman tersebut.
Elemen terkecil pada pemrograman Java adalah karakter yang terdiri atas huruf, angka, simbol dan kode kontrol. Dalam Java memiliki kata kunci yang digunakan diantaranya :
abstrack
else
interface
super
boolean
extends
long
switch
break
final
native
synchronize
byte
finally
new
this
case
float
null
throw
catch
For
package
throws
char
goto
private
transient
class
If
protected
try
const
implements
public
void
continue
import
return
volatile
do
instanceof
short
while
double
Int
static
Dalam pemrogramaman Java memiliki delapan tipe data diantaranya : (byte, short, int, long) tipe ini digunakan sebagai tipe data bilangan bulat, (float, double) tipe ini digunakan sebagai tipe data bilangan real,(char) digunakan untuk tipe data yang mewakili sebuah karakter, dan (Boolean) digunakan untuk tipe data yang menyatakan keadaan logika : true atau false.
Bahasa Pemrograman Java juga memiliki Literal yang merupakan suatu nilai yang dituliskan pada kode sumber Java, misalnya :
public class Literal {
public static void main(String[] args) {
System.out.println(27);
System.out.println(0×27); //Literal Bilangan
System.out.println(‘s’); // Literal Karakter
System.out.println(’6′);
System.out.println(‘#’);
System.out.println(false);//Literal Boolean
System.out.println(true);
}
}
Dalam Pemrograman Java juga menggunakan variable yang menyatakan suatu lokasi di dalam memori komputer yang digunakan untuk menyimpan suatu nilai dan nilai yang ada di dalamnya bias diubah. Variable yang digunakan harus dideklerasikan, yakni :
tipe namaVariable [, namaVariable]
Elemen terkecil pada pemrograman Java adalah karakter yang terdiri atas huruf, angka, simbol dan kode kontrol. Dalam Java memiliki kata kunci yang digunakan diantaranya :
abstrack
else
interface
super
boolean
extends
long
switch
break
final
native
synchronize
byte
finally
new
this
case
float
null
throw
catch
For
package
throws
char
goto
private
transient
class
If
protected
try
const
implements
public
void
continue
import
return
volatile
do
instanceof
short
while
double
Int
static
Dalam pemrogramaman Java memiliki delapan tipe data diantaranya : (byte, short, int, long) tipe ini digunakan sebagai tipe data bilangan bulat, (float, double) tipe ini digunakan sebagai tipe data bilangan real,(char) digunakan untuk tipe data yang mewakili sebuah karakter, dan (Boolean) digunakan untuk tipe data yang menyatakan keadaan logika : true atau false.
Bahasa Pemrograman Java juga memiliki Literal yang merupakan suatu nilai yang dituliskan pada kode sumber Java, misalnya :
public class Literal {
public static void main(String[] args) {
System.out.println(27);
System.out.println(0×27); //Literal Bilangan
System.out.println(‘s’); // Literal Karakter
System.out.println(’6′);
System.out.println(‘#’);
System.out.println(false);//Literal Boolean
System.out.println(true);
}
}
Dalam Pemrograman Java juga menggunakan variable yang menyatakan suatu lokasi di dalam memori komputer yang digunakan untuk menyimpan suatu nilai dan nilai yang ada di dalamnya bias diubah. Variable yang digunakan harus dideklerasikan, yakni :
tipe namaVariable [, namaVariable]
graph pada stuktur data
Struktur Data Graph
Struktur data yang berbentuk network/jaringan, hubungan antar elemen adalah many-to-many Keterhubungan dan jarak tidak langsung antara dua kota = data keterhubungan langsung dari kota-kota lainnya yang memperantarainya. Penerapan struktur data linear atau hirarkis pada masalah graph dapat dilakukan tetapi kurang efisien. Struktur data graph secara eksplisit menyatakan keterhubungan ini sehingga pencariannya langsung (straight forward) dilakukan pada strukturnya sendiri. 1.
Struktur Data Linear = keterhubungan sekuensial antara entitas data 2.
Struktur Data Tree = keterhubungan hirarkis 3.
Struktur Data Graph = keterhubungan tak terbatas antara entitas data. Contoh graph :
Informasi topologi jaringan dan keterhubungan antar
Graph terdiri dari himpunan verteks (node) dan himpunan sisi (edge, arc). Verteks menyatakan entitas-entitas data dan sisi menyatakan keterhubungan antara verteks. Notasi matematis graph G adalah :
G = (V, E)
Sebuah sisi antara verteks x dan y ditulis {x, y}. Subgraph : graph yang merupakan suatu subset (bagian) graph yang connected Graph H = (V1, E1) disebut subgraph dari graph G jika V1 adalah himpunan bagian dari V dan E1 himpunan bagian dari E.
Jenis Graph
a. Directed Graph (Digraph)
Jika sisi-sisi graph hanya berlaku satu arah. Misalnya : {x,y} yaitu arah x ke y, bukan dari y ke x; x disebut origin dan y disebut terminus. Secara notasi sisi digraph ditulis sebagai vektor (x, y).
Contoh Digraph G = {V, E} :
V = {A, B, C, D, E, F, G, H, I,J, K, L, M} E = {(A,B),(A,C), (A,D), (A,F), (B,C), (B,H), (C,E), (C,G), (C,H), (C,I), (D,E), (D,F), (D,G), (D,K), (D,L), (E,F), (G,I), (G,K), (H,I), (I,J), (I,M), (J,K), (J,M), (L,K), (L,M)}.
b. Graph Tak Berarah (Undirected Graph atau Undigraph)
Setiap sisi {x, y} berlaku pada kedua arah: baik x ke y maupun y ke x. Secara grafis sisi pada undigraph tidak memiliki mata panah dan secara notasional menggunakan kurung kurawal.
Contoh Undigraph G = {V, E}
V = {A, B, C, D, E, F, G, H, I,J, K, L, M} E = { {A,B},{A,C}, {A,D}, {A,F}, {B,C}, {B,H}, {C,E}, {C,G}, {C,H}, {C,I}, {D,E}, {D,F}, {D,G}, {D,K}, {D,L}, {E,F}, {G,I}, {G,K}, {H,I}, {I,J}, {I,M}, {J,K}, {J,M}, {L,K}, {L,M}}. Khusus graph, undigraph bisa sebagai digraph (panah di kedua ujung edge berlawanan) Struktur data linear maupun hirarkis adalah juga graph. Node-node pada struktur linear ataupun hirarkis adalah verteks-verteks dalam
ngertian graph dengan sisi-sisinya menyusun node-node tersebut secara linear atau hirarkis. Struktur data linear adalah juga tree dengan pencabangan pada setiap node hanya satu atau tidak ada. Linear 1-way linked list (digraph), linear 2-way linked list (undigraph)
Struktur data yang berbentuk network/jaringan, hubungan antar elemen adalah many-to-many Keterhubungan dan jarak tidak langsung antara dua kota = data keterhubungan langsung dari kota-kota lainnya yang memperantarainya. Penerapan struktur data linear atau hirarkis pada masalah graph dapat dilakukan tetapi kurang efisien. Struktur data graph secara eksplisit menyatakan keterhubungan ini sehingga pencariannya langsung (straight forward) dilakukan pada strukturnya sendiri. 1.
Struktur Data Linear = keterhubungan sekuensial antara entitas data 2.
Struktur Data Tree = keterhubungan hirarkis 3.
Struktur Data Graph = keterhubungan tak terbatas antara entitas data. Contoh graph :
Informasi topologi jaringan dan keterhubungan antar
Graph terdiri dari himpunan verteks (node) dan himpunan sisi (edge, arc). Verteks menyatakan entitas-entitas data dan sisi menyatakan keterhubungan antara verteks. Notasi matematis graph G adalah :
G = (V, E)
Sebuah sisi antara verteks x dan y ditulis {x, y}. Subgraph : graph yang merupakan suatu subset (bagian) graph yang connected Graph H = (V1, E1) disebut subgraph dari graph G jika V1 adalah himpunan bagian dari V dan E1 himpunan bagian dari E.
Jenis Graph
a. Directed Graph (Digraph)
Jika sisi-sisi graph hanya berlaku satu arah. Misalnya : {x,y} yaitu arah x ke y, bukan dari y ke x; x disebut origin dan y disebut terminus. Secara notasi sisi digraph ditulis sebagai vektor (x, y).
Contoh Digraph G = {V, E} :
V = {A, B, C, D, E, F, G, H, I,J, K, L, M} E = {(A,B),(A,C), (A,D), (A,F), (B,C), (B,H), (C,E), (C,G), (C,H), (C,I), (D,E), (D,F), (D,G), (D,K), (D,L), (E,F), (G,I), (G,K), (H,I), (I,J), (I,M), (J,K), (J,M), (L,K), (L,M)}.
b. Graph Tak Berarah (Undirected Graph atau Undigraph)
Setiap sisi {x, y} berlaku pada kedua arah: baik x ke y maupun y ke x. Secara grafis sisi pada undigraph tidak memiliki mata panah dan secara notasional menggunakan kurung kurawal.
Contoh Undigraph G = {V, E}
V = {A, B, C, D, E, F, G, H, I,J, K, L, M} E = { {A,B},{A,C}, {A,D}, {A,F}, {B,C}, {B,H}, {C,E}, {C,G}, {C,H}, {C,I}, {D,E}, {D,F}, {D,G}, {D,K}, {D,L}, {E,F}, {G,I}, {G,K}, {H,I}, {I,J}, {I,M}, {J,K}, {J,M}, {L,K}, {L,M}}. Khusus graph, undigraph bisa sebagai digraph (panah di kedua ujung edge berlawanan) Struktur data linear maupun hirarkis adalah juga graph. Node-node pada struktur linear ataupun hirarkis adalah verteks-verteks dalam
ngertian graph dengan sisi-sisinya menyusun node-node tersebut secara linear atau hirarkis. Struktur data linear adalah juga tree dengan pencabangan pada setiap node hanya satu atau tidak ada. Linear 1-way linked list (digraph), linear 2-way linked list (undigraph)
tips membuat resume
Resume memang bisa dibilang sebagai sarana untuk “mempromosikan” diri kepada pihak perusahaan, dimana Anda mengajukan lamaran kerja. Jadi dari resume itulah, first impression si pelamar akan terlihat.
Dan untuk mendapatkan sinyal positif dari perusahaan tersebut, tentu dalam mengolah tiap kata dalam resume, harus benar-benar diperhatikan. Agar komunikasi yang ingin disampaikan melalui lembaran resume, bisa diterima dengan jelas oleh pihak perusahaan.
Untuk itu, tentu ada beberapa hal yang perlu menjadi perhatian ketika Anda mengetik resume yang akan dikirim ke perusahaan yang dimaksud. Ini dia tipsnya.
Surat lamaran wajib ada!
Ibarat sayur tanpa garam, mengirimkan resume tanpa menyertakan surat lamaran, maka akan sia-sia. Surat lamaran dan resume adalah dua hal yang wajib ada apabila Anda akan melamar pekerjaan.
Perhatikan bahasa yang digunakan
Pilihlah bahasa yang akan digunakan. Kalau memang dari awal yaitu surat lamaran, Anda memilih menggunakan bahasa Indonesia, sebaiknya hingga lembar resume, Anda tetap konsisten menggunakan bahasa Indonesia.
Jangan mencapur adukkan antara penggunaan bahasa, kecuali untuk beberapa hal, seperti posisi jabatan, lembaga pendidikan, gelar dan lainnya.
Perhatikan kata-kata yang digunakan
Perhatikan penggunaan huruf dan tanda baca, seperti huruf kapital, titik dan koma-nya. Hal ini penting, terutama dalam menuliskan nama atau jabatan seseorang. Karena meskipun hanya hal kecil, namun beberapa perusahaan memandang hal tersebut sebagai sikap yang kurang sopan.
Fokus pada jabatan yang dimaksud
Tuliskanlah posisi jabatan yang Anda inginkan, seperti Account Manager, Adm. Staff, atau posisi lainnya. Jangan menuliskan hanya posisi secara umum, misalnya Karyawan atau Karyawati, karena itu berarti Anda siap ditempatkan di posisi mana saja di perusahan tersebut, dan bukan tidak mungkin di posisi yang tidak Anda harapkan sama sekali.
Periksa ulang
Luangkanlah beberapa menit untuk membaca kembali hasil ketikan resume dan surat lamaran Anda. Karena, tanpa Anda sadar, barangkali masih ada beberapa kekeliruan saat pengetikan.
Kalau Anda mengerimkan melalui pos, pastikan semua copy-an dokumen yang dibutuhkan sudah terlampir dan juga periksa lagi alamat perusahaan apakah sudah benar atau belum.
sumber; www.hanyawanita.com
Dan untuk mendapatkan sinyal positif dari perusahaan tersebut, tentu dalam mengolah tiap kata dalam resume, harus benar-benar diperhatikan. Agar komunikasi yang ingin disampaikan melalui lembaran resume, bisa diterima dengan jelas oleh pihak perusahaan.
Untuk itu, tentu ada beberapa hal yang perlu menjadi perhatian ketika Anda mengetik resume yang akan dikirim ke perusahaan yang dimaksud. Ini dia tipsnya.
Surat lamaran wajib ada!
Ibarat sayur tanpa garam, mengirimkan resume tanpa menyertakan surat lamaran, maka akan sia-sia. Surat lamaran dan resume adalah dua hal yang wajib ada apabila Anda akan melamar pekerjaan.
Perhatikan bahasa yang digunakan
Pilihlah bahasa yang akan digunakan. Kalau memang dari awal yaitu surat lamaran, Anda memilih menggunakan bahasa Indonesia, sebaiknya hingga lembar resume, Anda tetap konsisten menggunakan bahasa Indonesia.
Jangan mencapur adukkan antara penggunaan bahasa, kecuali untuk beberapa hal, seperti posisi jabatan, lembaga pendidikan, gelar dan lainnya.
Perhatikan kata-kata yang digunakan
Perhatikan penggunaan huruf dan tanda baca, seperti huruf kapital, titik dan koma-nya. Hal ini penting, terutama dalam menuliskan nama atau jabatan seseorang. Karena meskipun hanya hal kecil, namun beberapa perusahaan memandang hal tersebut sebagai sikap yang kurang sopan.
Fokus pada jabatan yang dimaksud
Tuliskanlah posisi jabatan yang Anda inginkan, seperti Account Manager, Adm. Staff, atau posisi lainnya. Jangan menuliskan hanya posisi secara umum, misalnya Karyawan atau Karyawati, karena itu berarti Anda siap ditempatkan di posisi mana saja di perusahan tersebut, dan bukan tidak mungkin di posisi yang tidak Anda harapkan sama sekali.
Periksa ulang
Luangkanlah beberapa menit untuk membaca kembali hasil ketikan resume dan surat lamaran Anda. Karena, tanpa Anda sadar, barangkali masih ada beberapa kekeliruan saat pengetikan.
Kalau Anda mengerimkan melalui pos, pastikan semua copy-an dokumen yang dibutuhkan sudah terlampir dan juga periksa lagi alamat perusahaan apakah sudah benar atau belum.
sumber; www.hanyawanita.com
Slash
Slash lahir di Hampstead, pinggiran kota London. Ayah Slash berasal dari Inggris, sedangkan ibunya keturununan Amerika-Afrika. Ibu Slash, Ola Hudsons, adalah seorang perancang pakaian yang bekerja untuk David Bowie, dan bapaknya adalah seorang seniman yang menyumbang ansambel hidup bagi musisi terkenal termasuk Neil Young dan Joni Mitchell. Slash dbesarkan di kota Stoke-on-Trent, Staffordshire, sampai ia berumur 11 tahun, saat orang-tuanya memindahkan keluarganya ke Los Angeles, California di pertengahan tahun 1970. Tetapi kemudian orang tua Slash berpisah, dan setelah itu, Slash tinggal bersama ibunya dan David Geffen. Dia diberikan nama panggilan "Slash" oleh teman keluarganya, [[Seymour Cassel]. Saat berumur 16, sebelum ia dikeluarkan dari sekolah Crespi Carmelite, Slash diberikan gitar pertamanya oleh neneknya. Gitar itu hanya mempunyai 1 helai tali (string). Dia menghabiskan setiap harinya untuk berlatih. Akhirnya, fokus seluruhnya dipertaruhkan atas musik dan dia membuat keputusan untuk berhenti sekolah. Di artikel majalah Rolling Stone, katanya:
“ My big awakening happened when I was fourteen. I'd been trying to get into this older girl's pants for a while, and she finally let me come over to her house. We hung out, smoked some pot and listened to Aerosmith's Rocks. It hit me like a fucking ton of bricks . I sat there listening to it over and over, and totally blew off this girl. I remember riding my bike back to my grandma's house knowing that my life had changed. Now I identified with something. ”
(Kebangkitan besar saya terjadi ketika saya berumur empat belas tahun. Saya sudah mencoba memasuki celana gadis ini yang lebih tua untuk sesaat, dan dia akhirnya membiarkan saya datang ke rumahnya. Kami berkeluyuran, menghisap beberapa batang dan mendengarkan lagu Aerosmith, Rocks. Itu memukul saya seperti tertimpa satu ton bata. Saya duduk di sana mendengarkannya berulang-ulang kali dan secara total mengesampingkan gadis ini. Saya teringat saat mengendarai sepeda saya kembali ke rumah nenek dimana saat itu saya mengetahui hidup saya telah berubah. Sekarang saya bisa memahami sesuatu.)
Disamping Aerosmith, pengaruh awal Slash termasuk AC/DC, Alice Cooper, Black Sabbath, Jeff Beck, Eric Clapton, Iron Maiden, Rory Gallagher, Jimi Hendrix, David Bowie, Led Zeppelin, Queen, Rolling Stone, Thin Lizzy, Van Halen dan Festival of Weeks. Pada tahun 1983, setelah gagal bergabung dengan Poison bersama teman masa kecilnya, Steven Adler, mereka bersama membentuk Road Crew. Slash menempatkan iklan di sehelai koran untuk bassis, dan setelah itu ia menerima jawaban dari Duff McKagan. Ketika Road Crew bubar, Slash bergabung dengan band lokal, Black Sheep. Diketuai oleh Willie Bass, band ini kemudian saling berbagi seorang agen dengan band lainnya, yang dikenal sebagai Hollywod Rose. Pada 1984, kedua band tersebut membuka untuk band Christian Metal Stryper. Setelah pertunjukan tersebut, Slash dan lead singer Axl Rose diperkenalkan kepada satu sama lain oleh seorang teman. Keduanya dengan cepat menjadi teman, dan setelah beberapa bulan, Slash dan Steven Adler diundang bergabung dengan Axl Rose, Duff McKagan dan Izzy Stradlin sebagai personel band, Guns N Roses
pensil termahal di dunia
Graf von Faber-Castell memamerkan Pensil tertua di dunia, Pensil Terkecil di dunia dan Pensil Termahal di dunia. Pensil Termahal di dunia dengan tutup pensil terbuat dari emas putih solid dan dimahkotai oleh tiga buah berlian berukuran 0.06 karat. Pensil edisi terbatas 99 buah didunia ini dijual Rp. 140 juta. Tampak seorang model menunjukan pensil termahal pada Superlatives Pencil Exhibition, Senin (11/5) di Grand Indonesia.
Graf von Faber-Castell, produsen pensil terkenal dunia, memperkenalkan pensil seharga Rp140 juta dalam Superlative Pencil Exhibition di Grand Plaza Indonesia, Senin.
"Pensil yang diberi nama `Perfect Pencil` tersebut terbuat dari emas bercampur palladium, salah satu metal platinum sehingga tercipta emas putih," kata Direktur Utama Faber-Castell untuk Asia Pasifik, Count Andreas von Faber-Castell, di Jakarta, Senin.
Count Andreas mengatakan, tutup pensil terbuat dari emas putih solid dan dimahkotai tiga buah berlian dengan kualtas terbaik yang menyimbolkan milenium ketiga.
"Berlian ini berukuran 0,05 sampai 0,06 karat dengan tingkat kecermelangan yang tidak biasa sehingga menjadikan pensil ini paling eksklusif dan dijual dalam edisi terbatas dan diproduksi tahun 2001 dan hanya dibuat sebanyak 99 buah di seluruh dunia, namun sebagian besar sudah laku terjual," kata Count Andreas.
Direktur Utama PT Faber-Castell Indonesia International, Yandrawamin Halim, mengatakan, pembuatan pensil termahal dunia ini, kata Halim, karena perusahaan ingin menciptakan sesuatu produk yang berkualitas tinggi yang dalam proses pembuatannya dilakukan dalam nuansa unik.
Selain pensil termahal, Faber-Castell juga memperkenalkan pensil tertua di dunia, dibuat sejak tahun 1761, terbuat dari dua buah kayu lime yang direkatkan bersama dengan sebuah graphite murni.Pensil tertua merupakan benda luar biasa yang ditemukan pertama kali di sebuah rumah yang sedang direnovasi pada abad ke-17 dimana tukangkayu tanpa sengaja meninggalkannya tetapi kemudian ditemukan tiga abad kemudian," kata Halim.
Selain kedua pensil tersebut, pensil terkecil di dunia berdiameter 0,3 milimeter (mm) panjang 17,5 mm dan tebal 5 mm terbuat dari pohon cemara Amerika Utara, salah satu yang dipamerkan.
"Penggunaan pensil ini dengan menggunakan pinset, dan merupakan barang langka karena hanya diproduksi 50 buah sebagai hadiah Natal untuk konsumen produk Faber-Castell," kata Halim, sambil menambahkan produksi pensil Castell sudah mencapai generasi kedelapan.
source: http://haxims.blogspot.com/2009/10/pensil-termahal-dan-tertua-di-dunia.html
fakta B.J.Habibie
Mantan Presiden RI Ketiga, Si Jenius ilmuwan konstruksi pesawat terbang, ini selalu menjadi berita hangat . Pada masa emas kejayaan dengan segudang jabatan diemban, dialah manusia paling multidimensional di Indonesia. Ia manusia cerdas ajaib yang sempat menghadirkan selaksa harapan kemajuan teknologi demi kejayaan negeri ini.Agak aneh, memang, anak bangsa yang satu ini. Dia hanya setahun kuliah di ITB Bandung, 10 tahun kuliah hingga meraih gelar doktor konstruksi pesawat terbang di Jerman dengan predikat Summa Cum laude. Lalu bekerja di industri pesawat terbang terkemuka MBB Gmbh Jerman, sebelum memenuhi panggilan Presiden Soeharto untuk kembali ke Indonesia.Di Indonesia dia 20 tahun menjabat Menteri Negara Ristek/Kepala BPPT, memimpin 10 perusahaan BUMN Industri Strategis, dipilih MPR menjadi Wakil Presiden RI, dan disumpah oleh Ketua Mahkamah Agung menjadi Presiden RI menggantikan Presiden RI ke-2 Soeharto.Itulah sosok dan kilas balik singkat perjalanan hidup B.J. Habibie, lelaki kelahiran Pare-Pare, 25 Juni 1936 ini. Dia penuh kontroversi dan merupakan sosok manusia paling multidimensional di Indonesia. Begitu banyak kawan-kawannya dan nyaris segitu banyak pula orang yang tak setuju dengan sepakterjang tokoh industri pesawat terbang kelas dunia yang memperoleh berbagai penghargaan, salah satunya paling berkelas adalah Theodhore van Karman Award, yang dianugerahkan oleh International Council for Aeronautical Sciences) pada pertemuan tahunan dan konggres ke-18 ICAs yang diselenggarakan di Beijing, China tahun 1992 dari Pemerintah China.Ketika dia mendirikan ICMI (Ikatan Cendekiawan Muslim Indonesia) dan didaulat menjadi Ketua Umum, misalnya, sebagai antitesa berdiri pula Forum Demokrasi (Fordem) pimpinan Abdurrahman Wahid alias Gus Dur yang populis dan egaliter serta inklusif. ICMI, yang dalam perjalanan selanjutnya praktis menjadi kekuatan politik Habibie, oleh Gus Dur dituding sebagai sektarian karena itu kurang bagus untuk masa depan sebuah bangsa yang majemuk seperti Indonesia.Ketika pada 10 Agustus 1995 dia berhasil menerbangkan pesawat terbang N-250 “Gatotkoco” kelas commuter asli buatan dan desain putra-putra terbaik bangsa yang bergabung dalam PT Industri Pesawat Terbang Nusantara (IPTN, kini menjadi PT Dirgantara Indonesia), dia diserang pelaku ekonomi lain bahwa yang dibutuhkan rakyat Indonesia adalah beras bukan “mainan” pesawat terbang.Pemikiran ekonomi makro Habibie yang terkenal dengan Habibienomics, dihadirkan oleh lingkarannya sebagai counter pemikiran lain seperti Widjojonomics (yang sesungguhnya merupakan Soehartonomic). Ketika Habibie berhasil melakukan imbal-beli pesawat terbang “Tetuko” CN-235 dengan beras ketan itam Thailand, dia diledekin, pesawat terbangnya hanya sekelas ketan itam.Dan kontroversi paling hangat adalah ketika dia menawarkan opsi otonomi luas atau bebas menentukan nasib sendiri kepada rakyat Timor Timur, satu propinsi termuda Indonesia yang direbut dan dipertahankan dengan susah payah oleh rezim Soeharto. Siapapun dia orangnya tentu ingin bebas merdeka termasuk rakyat Timor Timur, sehingga ketika jajak pendapat dilakukan pilihan terhadap bebas menentukan nasib sendiri (merdeka) unggul mutlak.Dan kontroversi paling hangat adalah ketika dia menawarkan opsi otonomi luas atau bebas menentukan nasib sendiri kepada rakyat Timor-Timur (Tim-Tim), asatu propinsi termuda Indonesia yang direbut dan dipertahankan dengan susah-payah oleh Rezim Soeharto. Siapaun dia orangnya tentu ingin bebas merdeka termasuk rakyat Tim-Tim. Sehingga ketika jajak pendapat dilakukan pilihan terhadap bebas menentukan nasib sendiri (merdeka) unggulk merdeka.Masalah Tim-Tim, salah-satu yang dianggap menjadi penyebab penolakan pidato pertanggungjawaban Habibie dalam Sidang Umum MPR RI hasil Pemilu 1999. Pemilu terbaik paling demokratis setelah Pemilu tahun 1955. penolakan ini membuat BJ, Habibie tidak bersedia maju sebagai kandidat calon presiden (Capres).Kjetika Habibie menjabat presiden hampir tidak ada hari tanpa demontrasi. Demontrasi itu mendesak Habibie merepon tuntutan reformasi dalam berbagai bidang kehidupan berbangsa dan bernegara, seperti kebebasan pers, kebebasan berpolitik, kebebasan rekrutmen politik, kebebasan berserikat dan mendirikan partai politik, mebebasan berusaha, dan berbagai kebebasan lainnya. Namun kendati Habibie merespon tuntutan reformasi itu, tetap saja pemerintahannya dianggap merupakan kelanjutan Orde Baru . Pemerintahannya yang berusia 518 hari hanya dianggap sebagai pemerintahan transisi.Keinginan Habibi mengakselerasi pembangunan sesungguhnya sudah dimulainya di Industri pesawat Terbang Nusantara (IPTN) dengan menjalankan program evolusi empat tahapan alih tehnologi yang dipercepat “berawal dari akhir dan berakhir diawal.”Empat tahapan alih tehnologi itu, pertama, memproduksi pesawat terbang berdasarkan lisensi ituh dari industri pesawat terbang lain, hasilnya adalah NC 212 lisensi dari CASA Spanyol. Kedua, memproduksi pesawat terbang secara bersama- sama, hasilnya adalah “Tetuko” CN-235 berkapasitas 30-35 penumpang yang merupakan produksi kerjasama antara aqual antara IPTN dengan Casa Spanyol.
Ketiga, mengintegrasikan seluruh tehnologi dan sistem konstruksi pesawat terbang yang paling mutakhir yang ada di dunia menjadi sesuatu yang sama sekali didesain baru, hasilnya adalah “Gatotkoco” N-250 berkapasitas 50-60 pemumpang yang dikembangkan dengan teknologi fly-by-wire.Keempat, memproduksi pesawat terbang berdasarkan hasil riset kembali dari awal, yang diproyeksikan bernama N 2130 berkapasitas 130 penumpang dengan biaya pengembangan diperkirakan sekitar 2 milyar dolar AS.Empat tahapan alih tehnologi yang dipercepat didefinisikan “bermula dari akhir dan berakhir di awal,” memang sukar dipahami pikiran awam. Habibie dianggap hanyut dengan angan-angan teknologinya yang tidak memenuhi kebutuhan dasar tehnologi Indonesia, yang ternyata nenbuat sepeda saja secara utuh belum sampai.Pemerintah orde baru sangat memanjakan program empat tahapan alih tehnologi Habibie dengan menempatkan berbagai proyeknya sebagai industri strategis yang menyedot banyak dana. Satu diantaranya, yang paling spetakuler, adalah IPTN, yang memerlukan subsidi.Ketika masa reformasi, IMF mencantumkan dalam LOI (Letter Of Intent), bahwa pemerintah Indonesia tidak boleh lagi memberikan subsidi kepada IPTN, (Perusahaan ini kemudian menjadi IPTD). Otomatis perusahaan yang sudah menyusun program produksi baru, terpaksa merumahkan dan mem-PHK- 6000 karyawannya. Lalu, dalam kesempatan deklarasi pendirian Masyarakat Ilmuwan dan Tehnologi Indonesia (MITI), Habibie menyebut hancurnya IPTN adalah ulah IMF yang menghambat Pemerintah RI membantu pengembangan pesawat terbang dengan mencantumkan klausal pencabutan subsidi dalam Letter Of Intent (LOI).Istri adalah alasan utama Habibie untuk bolak-balik tinggal di Jerman. Pendamping hidup sekaligus teman suka dan duka yang sudah dikenal anak-anak umur 14 tahun, dr Hasri Ainun Habibie. Putri keempat H. Mohammad Besari itu disebut terbaring menjalani perawatan di sebuah rumahsakit di Jerman. Habibie ingin untuk selalu harus bisa mendampingi istri, dan harapnya istri juga akan sealu bisa mendampinginya. Menurut tim dokter yang menanganinya, Hasri Ainun belum dibenarkan tinggal atau berkunjung kedaerah tropis karena kelembabannya tinggi. Karena itu, tim dokter merekomendasikan untuk tinggal di Jerman sampai sehat secara tuntas.Kendati demikian, kepulangan ke tanah air Habibie agaknya hanya karena dia ingin dikenang sebagai manusia yang baik. “Mungkin saat ini tak disadari. Tapi bisa jadi, berguna satu saat kelak, bila saya sudah tiada nanti," tutur lelaki itu, lirih,’ demikian tulis Liputan6.com. Adalah stasiun TV SCTV ini, dikenal sangat dekat dengan Habibie, yang pada 2 Juli 2002 menyiarkan langsung dari Jerman kesaksian Habibie dalam kasus pelanggaran HAM berat Timtim untuk kebutuhan persidangan di Pengadilan Ad Hoc HAM Jakarta Pusat.Habibie menyebutkan presiden itu bukan segala-galanya. Walau jenius dengan memperoleh royalti atas delapan hak paten hasil temuannya sebagai ilmuwan konstruksi pesawat terbang seperti dari Airbus dan F-16, dia mengaku masih banyak yang jauh lebih baik dari dirinya. Lama bermukim di lingkungan yang sangat menghargai ketokohan dan personality setiap orang, Habibie mendefinisikan jika ingin dihargai maka yang diperhatikan orang lain adalah sikap yang tak berubah terhadap lingkungan. Menurutnya status, jabatan, dan prestasi bukan alasan untuk berubah terhadap lingkungan. Itulah sebabnya, ketika sudah menjadi RI-1 sikap Habibie terhadap lingkungan tetap tidak berubah. Malah semakin menampakkan watak aslinya, misalnya tidak mau diam dan bergerak sesuka hati padahal sudah ada aturan protokoler yang harus dipatuhi.
sumber: http://eksplorasi-dunia.blogspot.com/2010/04/bacharuddin-jusuf-habibie.html
fakta kepunahan mamoth
Musnahnya mammoth bisa saja karena penyakit, manusia atau bencana cuaca. Peneliti menyimpulkan mammoth punah hampir dipastikan bukan karena perubahan iklim. Hasil studi itu dipublikasikan di proceding Royal Society B. Penyebab sesungguhnya binatang yang ada di area luas sepanjang Eurasia dan Amerika Utara itu punah di akhir zaman es, telah menyebabkan debat keras.Beberapa ahli berpendapat bahwa mammoth diburu hingga punah sekitar 10 ribu tahun lalu oleh spesies yang akhirnya menjadi predator dominan di planet yakni manusia. Sementara argumen lainnya menyebut perubahan iklimlah yang seharusnya lebih disalahkan, dan menyebabkan spesies yang beradaptasi dengan iklim beku harus melawan dunia yang semakin menghangat.Telah lama diketahui bahwa sebuah koloni mammoth berbulu tebal selamat hingga hampir 4 ribu tahun lalu di sebuah pulau yang disebut Wrangel milik Rusia di utara Siberia di lautan Arktik. Penanggalan radiokarbon menunjukkan bahwa setidaknya ada beberapa ekor yang masih bertahan hingga akhir 1700 sebelum masehi.Untuk lebih mengetahui tentang kematian mereka, peneliti yang dipimpin oleh Anders Angerbjorn dari Universitas Stockholm menganalisis sedikit mitokondrial DNA, material genetika yang diwariskan oleh sang betina, diekstrak dari tulang dan gading. Mereka beralasan keanekaragaman genetika yang menyusut berarti bahwa terlalu banyak mammoth yang berkembang biak di antara populasi yang secara parsial menyebabkan hewan tersebut punah.
“Bisa saja pulau tersebut terlalu kecil untuk menyokong populasi mammoth dalam jangka panjang,” spekulasi penulis.
Jumat, 28 Mei 2010
menggunakan script dasar pada lingo
go the frame
go the frame berguna untuk melakukan looping pada frameyang dilewati playback head. Sebagai contoh, berikut ini Kita akanmenggunakan he ri pt go the frame untuk melakukan looping padaframe gambar, playback head tidak akan berjalan ke frame berikutnyayang berisi movie flash sebelum diberi perintah untuk melanjutkan.Script go the frame sama dengan go to the frame.
Contoh : On exitFrame me
go the frame end
Maksud instruksi tersebut di atas adalah, bahwa pada saat headsampai pada frame yang diberi script, maka head tidak akan bergeraklagi, atau menetap pada frame tersebut.
go
berguna untuk menuju ke frame yang telah ditentukan.Playback head akan berpindah ke suatu frame lalu memainkan moviehingga batas frame yang telah ditentukan.
Contoh : On mouseUp me
go 11 end
Maksud instruksi tersebut di atas adalah, bahwa pada mouse diklik,maka head akan pergi ke frame 11
pause
berguna amok menghentikan sejenak playback head ataumovie yang sedang dimainkan. Sebagai contoh, berikut ini Kita akanmembuat tombol pause yang akan diberi script pause agar moviedapat dihentikan sejenak.
Contoh : On mouseUp me
pause end
Maksud instruksi tersebut di atas adalah, bahwa pada mouse diklik,maka head akan berhenti sementara pada frame tempat script.
continue
berguna untuk melanjutkan pemutaran movie yangdihentikan sejenak. Sebagai contoh, berikut ini Kita akan membuattombol continue yang akan diberi script continue.
Contoh : On mouseUp me
continue end
Maksud instruksi tersebut di atas adalah, bahwa pada mouse diklik,maka head akan bergerak kembali ke frame berikutnya.
go the frame berguna untuk melakukan looping pada frameyang dilewati playback head. Sebagai contoh, berikut ini Kita akanmenggunakan he ri pt go the frame untuk melakukan looping padaframe gambar, playback head tidak akan berjalan ke frame berikutnyayang berisi movie flash sebelum diberi perintah untuk melanjutkan.Script go the frame sama dengan go to the frame.
Contoh : On exitFrame me
go the frame end
Maksud instruksi tersebut di atas adalah, bahwa pada saat headsampai pada frame yang diberi script, maka head tidak akan bergeraklagi, atau menetap pada frame tersebut.
go
berguna untuk menuju ke frame yang telah ditentukan.Playback head akan berpindah ke suatu frame lalu memainkan moviehingga batas frame yang telah ditentukan.
Contoh : On mouseUp me
go 11 end
Maksud instruksi tersebut di atas adalah, bahwa pada mouse diklik,maka head akan pergi ke frame 11
pause
berguna amok menghentikan sejenak playback head ataumovie yang sedang dimainkan. Sebagai contoh, berikut ini Kita akanmembuat tombol pause yang akan diberi script pause agar moviedapat dihentikan sejenak.
Contoh : On mouseUp me
pause end
Maksud instruksi tersebut di atas adalah, bahwa pada mouse diklik,maka head akan berhenti sementara pada frame tempat script.
continue
berguna untuk melanjutkan pemutaran movie yangdihentikan sejenak. Sebagai contoh, berikut ini Kita akan membuattombol continue yang akan diberi script continue.
Contoh : On mouseUp me
continue end
Maksud instruksi tersebut di atas adalah, bahwa pada mouse diklik,maka head akan bergerak kembali ke frame berikutnya.
tipe script lingo
Script Lingo terbagi menjadi 4 tipe, yaitu :
-Behavior script
adalah script yang ditulis untuk mengontrol propertiesdan gerakan sprite. Tipe script ini memudahkan pemrograman yangberorientasi pada objek atau lebih dikenal dengan istilah OOP (Object-oriented programming)
-Movie script
adalah script yang tidak ditulis untuk sprite melainkan untukmengontrol movie. Tipe script ini dapat digunakan untuk mengontrolberbagai aspek pads movie, khususnya ketika mulai dan akhir dari sebuahmovie. Tipe script ini juga dapat disesuaikan dengan script lain untukpenggunaan handle pada instance
-Parent script
adalah script yang digunakan untuk membuat ataumelahirkan sebuah objek ke dalam Global Uariabel dengan perintah °new". Objek-objek ini nantinya dapat mengontrol sprite dan media kontrollainnya tanpa dihubungkan langsung dengan sprite menggunakan scriptatau bahkan dapat digunakan untuk mengontrol data atau objek yang tidakterlihat.Untuk Behavior, Movie, dan Parent script, cast member script akan berdirisendiri.
-Cast member script
adalah script yang ditulis secara langsung pada castmember di dalam Cast window tanpa membuat cast member baru sepertitipe script lainnya. Ketika cast member ditempatkan pada stage danberubah menjadi sprite, scat itu pula script yang ada pada cast memberdiaktilkan. Cast member yang diberi script akan menampilkan ikon script di pojok kiribawah thumbnail cast member
-Behavior script
adalah script yang ditulis untuk mengontrol propertiesdan gerakan sprite. Tipe script ini memudahkan pemrograman yangberorientasi pada objek atau lebih dikenal dengan istilah OOP (Object-oriented programming)
-Movie script
adalah script yang tidak ditulis untuk sprite melainkan untukmengontrol movie. Tipe script ini dapat digunakan untuk mengontrolberbagai aspek pads movie, khususnya ketika mulai dan akhir dari sebuahmovie. Tipe script ini juga dapat disesuaikan dengan script lain untukpenggunaan handle pada instance
-Parent script
adalah script yang digunakan untuk membuat ataumelahirkan sebuah objek ke dalam Global Uariabel dengan perintah °new". Objek-objek ini nantinya dapat mengontrol sprite dan media kontrollainnya tanpa dihubungkan langsung dengan sprite menggunakan scriptatau bahkan dapat digunakan untuk mengontrol data atau objek yang tidakterlihat.Untuk Behavior, Movie, dan Parent script, cast member script akan berdirisendiri.
-Cast member script
adalah script yang ditulis secara langsung pada castmember di dalam Cast window tanpa membuat cast member baru sepertitipe script lainnya. Ketika cast member ditempatkan pada stage danberubah menjadi sprite, scat itu pula script yang ada pada cast memberdiaktilkan. Cast member yang diberi script akan menampilkan ikon script di pojok kiribawah thumbnail cast member
bahasa lingo?
Mengenal Dasar Lingo
Lingo adalah bahasa pemrograman Director yang berguna untukmenciptakan interaksi antara pemakai dengan movie yang istilah populernyadisebut movie interaktif. Dengan Lingo Kita dapat mengontrol movie agarmemberikan respon dari suatu kondisi dan kejadian tertentu. Sebagai contoh,Lingo dapat membuat tombol navigasi untuk berpindah antar halamanpresentasi atau movie dengan mudah, menggerakkan objek, mengontrolvolume suara, dan masih banyak lagi.Saat ini Director dan Lingo mulai banyak digunakan untuk keperluanmultimedia interaktif seperti membuat CD Pembelajaran, Tutorial, game,presentasi produk, company profile sampai CD menu interaktif yang adadalam bonus majalah dan buku komputer
Lingo adalah bahasa pemrograman Director yang berguna untukmenciptakan interaksi antara pemakai dengan movie yang istilah populernyadisebut movie interaktif. Dengan Lingo Kita dapat mengontrol movie agarmemberikan respon dari suatu kondisi dan kejadian tertentu. Sebagai contoh,Lingo dapat membuat tombol navigasi untuk berpindah antar halamanpresentasi atau movie dengan mudah, menggerakkan objek, mengontrolvolume suara, dan masih banyak lagi.Saat ini Director dan Lingo mulai banyak digunakan untuk keperluanmultimedia interaktif seperti membuat CD Pembelajaran, Tutorial, game,presentasi produk, company profile sampai CD menu interaktif yang adadalam bonus majalah dan buku komputer
The Lazy Clown
binatang ini hidup di hutan amazon, selatan Brazil. hewan ini adalah anggota dari serangga "LONOMIA". nama asli dari hewan ini adalah Taturana Tatarana. binatang sejenis ini banyak kita jumpai di pohon-pohon tetapi ini berbeda dari ulat pohon biasa. duri ditubuhnya sebanyak ratusan dimana didalam duri tersebut menyimpan racun ANTICOAGULANT. racun ini bisa memecah belah dan menghancurkan susunan sel darah kita.
jamur doang !!!
Jamur seharga 27 Juta Rupiah
Satu kilo jamur ini dapat mencapai harga 60 juta rupiah. Jamur White Truffle ini adalah jamur paling mahal di dunia. Rasanya yang mantap dan 'earthy' merupakan ciri khusus yang tidak dapat ditandingi oleh jamur lain. Jamur ini digunakan dalam ukuran yang sangat kecil (hanya sedikit parutan saja) dalam setiap masakan. Dan masakan yang menghidangkan jamur ini tentunya bukan masakan biasa. Jamur ini hanya bisa ditemui di Piedmont, Italia utara, dan hanya dipanen pada saat musim gugur. Panen-nya pun harus dibantu oleh anjing khusus yang mendapat latihan khusus juga!
kecil tapi mematikan
Dilihat dari bentuknya keliatannya ga berbahaya. tapi setelah baca ini agan pasti bakalan takut kalo ketemu ni binatang. Binatang ini sangat beracun, sumber racunnya adalah ujung pangkal mulutnya tersebut dan racunnya sangat cukup untuk mengirim agan ke ALAM BAKA !!!! hanya dalam waktu 4menit saja! racun tersebut ditembakkan seperti panah yang bahkan mampu menembus baju selan yang cukup tebal. efek dari racun ini apabila korban terkena racun ini adalah syaraf-syaraf didalam tubuh anda akan menjadi malfungsi, sang krban akan menjadi beku seketika dimana tidak ada satupun otot yang akan bisa digerakkan. ada kabar yang mengemukakan bahwa racun dari binatang ini dikembangkan oleh CIA untuk digunakan sebagai senjata pelumpuh
kastil ditengah laut
Kastil ini terletak di pulau Mont Saint Michael di Prancis. Pulau yang dikenal karena gelombang tinggi (9 m), sehingga dari waktu ke waktu membuat semenanjung yang sekarang ini menjadi tempat berdirinya kastil. Di kastil tersebut ditinggali sebanyak 80 orang, 50 diantaranya merupakan para biarawan. Tapi bagaimana kehidupan yang menarik bisa ke sana? Mari kita lihat kemegahan kastil ini.
karya seni seorang pembunuh berantai
Pembunuh Serial
Gacy kemudian menikah untuk kedua kalinya. Dan Gacy kembali dalam petualangan sebagai pembunuh berantai. Ruang bawah tanah rumahnya segera menjadi kuburan massal , Gacy yang kewalahan lantas membuang mayat-mayat itu ke sungai terdekat. Polisi yang mulai curiga kepadanya , memeriksa catatan kriminal dan mulai yakin bahwa Gacy adalah pelaku. Polisi kemudian memeriksa rumahnya dan menemukan fakta-fakta mengerikan, yaitu di temukannya 27 mayat yang menjadi korban Gacy.
Sidang dimulai pada 6 Januari 1980 di Chicago dan kerabat korban memberikan bukti. Ada 60 saksi di persidangan. Seorang psikolog mengatakan dia menderita skizofrenia dan gila ketika dia melakukan pembunuhan, namun ia dinyatakan bersalah dan dihukum mati. Dia akhirnya di eksekusi dengan suntikan mematikan pada tanggal 9 Mei 1994. Setelah kematiannya rumah tempat mengubur korbannya Gacy dihancurkan untuk mencegah pengunjung mengerikan. Tanah dibersihkan dan meskipun usaha dilakukan untuk tanaman rumput di situs itu tidak akan tumbuh dan tetap patch berlumpur."Basketball of Fame" , Lukisan Gacy yang di tandatangani sekitar 46 Baseball Hall Of Fame , termasuk Presiden Nixon
Selama 14 tahun di penjara, Gacy membuat lukisan minyak, subjek favoritnya adalah badut. Lukisan-lukisannya termasuk gambar Putri Salju dan Tujuh dwarf dan sesama pembunuh berantai Jeffrey Dahmer dan Ed Gein, yang juga memiliki “reputasi” di bidang seni. Banyak lukisan Gacy yang dijual pada lelang setelah eksekusi. Sembilan belas yang disiapkan untuk penjualan, harga mulai dari $ 195 sampai $ 9.500. Beberapa orang membeli lukisan Gacy untuk menghancurkannya. Api unggun di Naperville, Illinois pada Juni 1994 dihadiri oleh 300 orang, termasuk anggota keluarga dari sembilan korban yang menyaksikan pembakaran sekitar 25 lukisan.Dua lainnya dimiliki Museum Nasional Kejahatan termasuk “Baseball Hall of Fame”, ditandatangani oleh 46 anggota Baseball Hall of Fame termasuk Duke Snider, Willie Mays, Joe DiMaggio, Mickey Mantle, Ted Williams, Sandy Koufax, Yogi Berra, dan Roy Campanella. Presiden Richard Nixon juga menandatangani kerja. Semua penandatangan tidak sadar bahwa Gacy adalah seniman.
Penemu font
Saat mengetik anda pasti sudah tidak asing dengan nama font Times New Roman, Arial, Tahoma, Comic Sans MS, dan lain-lain. Font² tersebut menjadi font default yang paling sering dipakai di seantero jagat.
Namun tahukah anda siapa yang membuatnya ? Sedikit ulasan tentang pencipta font Times New Roman. Times New Roman, tentu banyak orang yang tahu. Jenis huruf ini digunakan sebagai standar huruf dalam dunia pengetikan. Keberadaannya dikenal luas oleh orang dari berbagai kalangan profesi. Namun, seberapa banyak di antara kita yang mengetahui sejarah penciptaan huruf jenis Times New Roman ini?
Huruf ini dirancang oleh seorang berkebangsaan Inggris bernama Stanley Morrison. Ia lahir pada tanggal 6 Mei 1889 di Wanstead, Inggris. Stanley tumbuh sebagai figur yang tidak memiliki pengetahuan tentang percetakan, namun di kemudian hari ia menempati banyak posisi penting di dunia tersebut. Pengetahuannya yang banyak dalam hal tipografi didapatkan sejak menjadi anggota percetakan The Pelican Press.
Namun tahukah anda siapa yang membuatnya ? Sedikit ulasan tentang pencipta font Times New Roman. Times New Roman, tentu banyak orang yang tahu. Jenis huruf ini digunakan sebagai standar huruf dalam dunia pengetikan. Keberadaannya dikenal luas oleh orang dari berbagai kalangan profesi. Namun, seberapa banyak di antara kita yang mengetahui sejarah penciptaan huruf jenis Times New Roman ini?
Huruf ini dirancang oleh seorang berkebangsaan Inggris bernama Stanley Morrison. Ia lahir pada tanggal 6 Mei 1889 di Wanstead, Inggris. Stanley tumbuh sebagai figur yang tidak memiliki pengetahuan tentang percetakan, namun di kemudian hari ia menempati banyak posisi penting di dunia tersebut. Pengetahuannya yang banyak dalam hal tipografi didapatkan sejak menjadi anggota percetakan The Pelican Press.
Kamis, 27 Mei 2010
tipe data record
Record Type merupakan type ciptaan yang dibuat oleh pemakai
sesuai dengan tuntutan program. Record Type merupakan type
variabel yang terdiri dari kumpulan type-type standar Quick
Basic.
Mendeklarasikan suatu Record Type
Pada QBasic Record Type dapat dideklarasikan dengan penulisan
berikut :
Syntax :
Type nama
AS
AS
…
End Type
Contoh :
Type PESERTA
Nomor AS String*10
Nama AS String*20
Email AS String*30
Umur AS Integer
End Type
Mendeklarasikan type data PESERTA yang merupakan kumpulan dari
data Nomor, Nama, Email, dan Umur.
Mendeklarasikan Variabel Record Type
Untuk mendeklarasikan variabel berdasarkan Record Type tertentu
dengan menggunakan perintah DIM.
Contoh :
Dim DataPeserta As PESERTA
Mendeklarasikan variabel DataPeserta yang memiliki type PESERTA,
sehingga variabel DataPeserta memiliki komponen Nomor, Nama,
Email dan Umur.
Menggunakan Variabel Record Type
Pemakaian variabel Record Type sama saja dengan variabel biasa,
dan kita juga dapat menyatakan masing-masing komponennya.
Contoh :
Dim Peserta1 As PESERTA
Dim Peserta2 As PESERTA
Dim Temp As PESERTA
Peserta1.Nomor = 9224 ‘komponen Nomor
Peserta1.Nama = “Hendra” ‘komponen Nama
Peserta1.Email = “hendra@indoprog.com” ‘Komponen Email
Peserta1.Umur = 27 ‘Komponen Umur
Peserta2.Nomor = 9241 ‘komponen Nomor
Peserta2.Nama = “Limada” ‘komponen Nama
Peserta2.Email = “limada@hsbc.com” ‘Komponen Email
Peserta2.Umur = 26 ‘Komponen Umur
Record Type banyak digunakan dalam pengolahan data, dan random
file karena menawarkan fleksibilitas dan kemudahan dalam
pemakaiannya.
Contoh :
Temp = Peserta1
Peserta1 = Peserta2
Peserta2 = Temp
atau
SWAP Peserta1, Peserta2
Menukar data Peserta1 dengan Peserta2 dan sebaliknya, tanpa perlu
menyebutkan sub komponennya. Dapatkah saudara bayangkan kalau hal
tersebut tidak menggunakan Record Type ?
Contoh :
‘Program isi data siswa dan sortir
‘DEKLARASI RECORD TYPE SISWA
Type SISWA
NOINDUK AS STRING * 10
NAMA AS STRING * 15
TEORI AS SINGLE
PRAKTEK AS SINGLE
RATA AS SINGLE
End Type
Input “Masukkan jumlah siswa “;JS
Dim DSiswa(JS) AS SISWA ‘Deklarasi Array DSiswa
‘berdasarkan Record Type SISWA
‘MENGISI DATA
For I = 1 TO JS STEP 1
Print “RECORD KE -”;I
Input “NO.INDUK :”,DSISWA(I).NOINDUK
Input “NAMA :”,DSISWA(I).NAMA
Input “TEORI :”,DSISWA(I).TEORI
Input “PRAKTEK :”,DSISWA(I).PRAKTEK
DSISWA(I).RATA = (DSISWA(I).TEORI+DSISWA(I).PRAKTEK)/2
NEXT I
‘MENGURUT DATA BERDASARKAN NILAI RATA-RATA
For I = (JS-1) TO 1 STEP -1
Sempurna = 1
For J = 1 TO I
If DSISWA(J).RATA < DSISWA(J+1).RATA THEN
SWAP DSISWA(J),DSISWA(J+1)
Sempurna = 0
End If
Next J
If Sempurna = 1
I = 0
End If
Next I
CLS
Print ” HASIL UJIAN SISWA”
Print ” BASIC PROGRAMMING MEI 2001″
Print
Print “——————————————————————-”
Print “NO.INDUK NAMA TEORI PRAKTEK RATA-RATA LULUS “
Print “——————————————————————-”
POLA$=”\ \ \ \ ###.## ###.## ###.## \ \ “
VIEW PRINT 4 TO 23
For I = 1 TO JS
IF DSISWA(I).RATA < 60 THEN LULUS$=”TIDAK” ELSE LULUS$ = “YA”
PRINT USING POLA$;DSISWA(I).NOINDUK;DSISWA(I).NAMA;DSISWA(I).TEORI;
DSISWA(I).PRAKTEK;DSISWA(I).RATA;LULUS$
Next I
END
sesuai dengan tuntutan program. Record Type merupakan type
variabel yang terdiri dari kumpulan type-type standar Quick
Basic.
Mendeklarasikan suatu Record Type
Pada QBasic Record Type dapat dideklarasikan dengan penulisan
berikut :
Syntax :
Type nama
AS
AS
…
End Type
Contoh :
Type PESERTA
Nomor AS String*10
Nama AS String*20
Email AS String*30
Umur AS Integer
End Type
Mendeklarasikan type data PESERTA yang merupakan kumpulan dari
data Nomor, Nama, Email, dan Umur.
Mendeklarasikan Variabel Record Type
Untuk mendeklarasikan variabel berdasarkan Record Type tertentu
dengan menggunakan perintah DIM.
Contoh :
Dim DataPeserta As PESERTA
Mendeklarasikan variabel DataPeserta yang memiliki type PESERTA,
sehingga variabel DataPeserta memiliki komponen Nomor, Nama,
Email dan Umur.
Menggunakan Variabel Record Type
Pemakaian variabel Record Type sama saja dengan variabel biasa,
dan kita juga dapat menyatakan masing-masing komponennya.
Contoh :
Dim Peserta1 As PESERTA
Dim Peserta2 As PESERTA
Dim Temp As PESERTA
Peserta1.Nomor = 9224 ‘komponen Nomor
Peserta1.Nama = “Hendra” ‘komponen Nama
Peserta1.Email = “hendra@indoprog.com” ‘Komponen Email
Peserta1.Umur = 27 ‘Komponen Umur
Peserta2.Nomor = 9241 ‘komponen Nomor
Peserta2.Nama = “Limada” ‘komponen Nama
Peserta2.Email = “limada@hsbc.com” ‘Komponen Email
Peserta2.Umur = 26 ‘Komponen Umur
Record Type banyak digunakan dalam pengolahan data, dan random
file karena menawarkan fleksibilitas dan kemudahan dalam
pemakaiannya.
Contoh :
Temp = Peserta1
Peserta1 = Peserta2
Peserta2 = Temp
atau
SWAP Peserta1, Peserta2
Menukar data Peserta1 dengan Peserta2 dan sebaliknya, tanpa perlu
menyebutkan sub komponennya. Dapatkah saudara bayangkan kalau hal
tersebut tidak menggunakan Record Type ?
Contoh :
‘Program isi data siswa dan sortir
‘DEKLARASI RECORD TYPE SISWA
Type SISWA
NOINDUK AS STRING * 10
NAMA AS STRING * 15
TEORI AS SINGLE
PRAKTEK AS SINGLE
RATA AS SINGLE
End Type
Input “Masukkan jumlah siswa “;JS
Dim DSiswa(JS) AS SISWA ‘Deklarasi Array DSiswa
‘berdasarkan Record Type SISWA
‘MENGISI DATA
For I = 1 TO JS STEP 1
Print “RECORD KE -”;I
Input “NO.INDUK :”,DSISWA(I).NOINDUK
Input “NAMA :”,DSISWA(I).NAMA
Input “TEORI :”,DSISWA(I).TEORI
Input “PRAKTEK :”,DSISWA(I).PRAKTEK
DSISWA(I).RATA = (DSISWA(I).TEORI+DSISWA(I).PRAKTEK)/2
NEXT I
‘MENGURUT DATA BERDASARKAN NILAI RATA-RATA
For I = (JS-1) TO 1 STEP -1
Sempurna = 1
For J = 1 TO I
If DSISWA(J).RATA < DSISWA(J+1).RATA THEN
SWAP DSISWA(J),DSISWA(J+1)
Sempurna = 0
End If
Next J
If Sempurna = 1
I = 0
End If
Next I
CLS
Print ” HASIL UJIAN SISWA”
Print ” BASIC PROGRAMMING MEI 2001″
Print “——————————————————————-”
Print “NO.INDUK NAMA TEORI PRAKTEK RATA-RATA LULUS “
Print “——————————————————————-”
POLA$=”\ \ \ \ ###.## ###.## ###.## \ \ “
VIEW PRINT 4 TO 23
For I = 1 TO JS
IF DSISWA(I).RATA < 60 THEN LULUS$=”TIDAK” ELSE LULUS$ = “YA”
PRINT USING POLA$;DSISWA(I).NOINDUK;DSISWA(I).NAMA;DSISWA(I).TEORI;
DSISWA(I).PRAKTEK;DSISWA(I).RATA;LULUS$
Next I
END
fungsi bantu ciptaan dan sub rutin
Fungsi Ciptaan
Fungsi-fungsi bawaan yang disediakan oleh QBasic adalah bersifat
umum, sehingga kadang-kadang programmer harus membuat fungsi
sendiri sesuai dengan kebutuhannya.
Misalnya :
Dalam mengembangkan program keuangan, seorang programmer akan
banyak membutuhkan fungsi-fungsi Time Value of Money seperti
Present Value, Future Value, Depresiasi dll.
QBasic menyediakan fasilitas bagi programmer yang ingin
mengembangkan fungsi ciptaannya sendiri. Adapun tata cara
penulisannya adalah sebagai berikut :
FUNCTION namafungsi[(parameterlist)] [STATIC]
[statementblock]
namafungsi = expression
[statementblock]
END FUNCTION
type data yang dikembalikan ditentukan oleh akhiran pada nama
tersebut(%, &, !, #, atau $) yang masing-masing adalah INTEGER,
LONG, SINGLE, DOUBLE dan STRING.
Contoh :
FUNCTION SLN#(cost AS double, salvage AS double, life AS single)
SLN# = (cost-salvage)/life
END FUNCTION
Fungsi diatas adalah fungsi ciptaan untuk menghitung depresiasi
dengan metode garis lulus.
Contoh Lain :
FUNCTION FV#(pv AS double, rate AS single, term AS integer)
Dim npv as double, i as integer
npv = pv
FOR i = 1 TO term STEP 1
npv = npv + npv*rate ‘nilai akhir = pokok + bunga
NEXT i
FV# = npv
END FUNCTION
atau dengan rumus pertumbuhan
FUNCTION FV#(pv AS double, rate AS single, term AS integer)
FV# = np*(1+rate)^term
END FUNCTION
Fungsi diatas adalah fungsi ciptaan untuk menghitung Future Value
dari suatu nilai uang, jika diketahui suku bunga per periode dan
jumlah periode yang diinginkan.
Contoh :
Misalnya anda memiliki uang Rp. 1.000.000 (satu juta), anda
menyimpannya ke Bank dengan suku bunga 10% per tahun, berapa uang
anda setelah disimpan 3 tahun ?
Catatan :
Pada Qbasic, fungsi ciptaan disimpan pada lokasi yang berlainnan
dengan program utama, untuk beralih ke program utama maupun
fungsi ciptaan anda dapat menggunakan tombol F2
Anda dapat menggunakan perintah EXIT FUNCTION untuk keluar dari
fungsi.
Contoh :
FUNCTION PRIMA! (bilangan AS LONG)
DIM i AS INTEGER
IF bilangan < 2 THEN
PRIMA! = 0 ‘semua bilangan < 2 bukan prima
ELSEIF bilangan < 4 THEN
PRIMA! = 1 ‘bilangan 2 dan 3 adalah prima
ELSE
i = 2 ‘bagi bilangan tersebut mulai
DO WHILE i 0 THEN
baca = angka$(a100, posisi) + “ratus”
END IF
IF a10 = 1 THEN ‘Sepuluh s/d Sembilanbelas
baca = baca + angka$(a10 * 10 + a1, posisi)
ELSE
IF a10 > 0 THEN ‘Duapuluh s/d Sembilanpuluh
baca = baca + angka$(a10, posisi) + “puluh”
END IF
IF a1 > 0 THEN ‘Satu s/d Sembilan
baca = baca + angka$(a1, posisi)
END IF
END IF
ratus$ = baca
END FUNCTION
FUNCTION terbilang$ (x AS LONG)
DIM milyar AS INTEGER, juta AS INTEGER, ribu AS INTEGER, satu AS
INTEGER
DIM baca AS STRING
IF x = 0 THEN ‘Jika x = Nol
baca$ = angka$(0, 1) ‘Dibaca Nol
ELSE
milyar = x \ 1E+09 ‘Ambil bagian ratusan milyar
juta = (x MOD 1E+09) \ 1000000 ‘Ambil bagian ratusan juta
ribu = (x MOD 1000000) \ 1000 ‘Ambil bagian ratusan ribu
satu = x MOD 1000 ‘Ambil bagian ratusan
IF milyar > 0 THEN
baca = ratus$(milyar, 4) + “milyar”
END IF
IF juta > 0 THEN
baca = baca + ratus$(juta, 3) + “juta”
END IF
IF ribu > 0 THEN
baca = baca + ratus$(ribu, 2) + “ribu”
END IF
IF satu > 0 THEN
baca = baca + ratus$(satu, 1)
END IF
END IF
terbilang$ = baca
END FUNCTION
Fungsi-fungsi bawaan yang disediakan oleh QBasic adalah bersifat
umum, sehingga kadang-kadang programmer harus membuat fungsi
sendiri sesuai dengan kebutuhannya.
Misalnya :
Dalam mengembangkan program keuangan, seorang programmer akan
banyak membutuhkan fungsi-fungsi Time Value of Money seperti
Present Value, Future Value, Depresiasi dll.
QBasic menyediakan fasilitas bagi programmer yang ingin
mengembangkan fungsi ciptaannya sendiri. Adapun tata cara
penulisannya adalah sebagai berikut :
FUNCTION namafungsi[(parameterlist)] [STATIC]
[statementblock]
namafungsi = expression
[statementblock]
END FUNCTION
type data yang dikembalikan ditentukan oleh akhiran pada nama
tersebut(%, &, !, #, atau $) yang masing-masing adalah INTEGER,
LONG, SINGLE, DOUBLE dan STRING.
Contoh :
FUNCTION SLN#(cost AS double, salvage AS double, life AS single)
SLN# = (cost-salvage)/life
END FUNCTION
Fungsi diatas adalah fungsi ciptaan untuk menghitung depresiasi
dengan metode garis lulus.
Contoh Lain :
FUNCTION FV#(pv AS double, rate AS single, term AS integer)
Dim npv as double, i as integer
npv = pv
FOR i = 1 TO term STEP 1
npv = npv + npv*rate ‘nilai akhir = pokok + bunga
NEXT i
FV# = npv
END FUNCTION
atau dengan rumus pertumbuhan
FUNCTION FV#(pv AS double, rate AS single, term AS integer)
FV# = np*(1+rate)^term
END FUNCTION
Fungsi diatas adalah fungsi ciptaan untuk menghitung Future Value
dari suatu nilai uang, jika diketahui suku bunga per periode dan
jumlah periode yang diinginkan.
Contoh :
Misalnya anda memiliki uang Rp. 1.000.000 (satu juta), anda
menyimpannya ke Bank dengan suku bunga 10% per tahun, berapa uang
anda setelah disimpan 3 tahun ?
Catatan :
Pada Qbasic, fungsi ciptaan disimpan pada lokasi yang berlainnan
dengan program utama, untuk beralih ke program utama maupun
fungsi ciptaan anda dapat menggunakan tombol F2
Anda dapat menggunakan perintah EXIT FUNCTION untuk keluar dari
fungsi.
Contoh :
FUNCTION PRIMA! (bilangan AS LONG)
DIM i AS INTEGER
IF bilangan < 2 THEN
PRIMA! = 0 ‘semua bilangan < 2 bukan prima
ELSEIF bilangan < 4 THEN
PRIMA! = 1 ‘bilangan 2 dan 3 adalah prima
ELSE
i = 2 ‘bagi bilangan tersebut mulai
DO WHILE i 0 THEN
baca = angka$(a100, posisi) + “ratus”
END IF
IF a10 = 1 THEN ‘Sepuluh s/d Sembilanbelas
baca = baca + angka$(a10 * 10 + a1, posisi)
ELSE
IF a10 > 0 THEN ‘Duapuluh s/d Sembilanpuluh
baca = baca + angka$(a10, posisi) + “puluh”
END IF
IF a1 > 0 THEN ‘Satu s/d Sembilan
baca = baca + angka$(a1, posisi)
END IF
END IF
ratus$ = baca
END FUNCTION
FUNCTION terbilang$ (x AS LONG)
DIM milyar AS INTEGER, juta AS INTEGER, ribu AS INTEGER, satu AS
INTEGER
DIM baca AS STRING
IF x = 0 THEN ‘Jika x = Nol
baca$ = angka$(0, 1) ‘Dibaca Nol
ELSE
milyar = x \ 1E+09 ‘Ambil bagian ratusan milyar
juta = (x MOD 1E+09) \ 1000000 ‘Ambil bagian ratusan juta
ribu = (x MOD 1000000) \ 1000 ‘Ambil bagian ratusan ribu
satu = x MOD 1000 ‘Ambil bagian ratusan
IF milyar > 0 THEN
baca = ratus$(milyar, 4) + “milyar”
END IF
IF juta > 0 THEN
baca = baca + ratus$(juta, 3) + “juta”
END IF
IF ribu > 0 THEN
baca = baca + ratus$(ribu, 2) + “ribu”
END IF
IF satu > 0 THEN
baca = baca + ratus$(satu, 1)
END IF
END IF
terbilang$ = baca
END FUNCTION
fungsi bantu bawaan
Fungsi bantu adalah fasilitas yang disediakan untuk membantu
programmer dalam mengembangkan program. Dengan adanya fungsi
bantu bawaan programmer tidak perlu mengembangkan program untuk
melakukan hal yang sama.
Contoh :
Pada Qbasic telah tersedia fungsi bantu Sinus yang dapat
digunakan untuk mendapatkan nilai sinus dari suatu sudut dalam
radian.
Dim B As Double
B = Sin(30 * 3.14/180)
Akan mengisi nilai sinus sudut 30 derajat ke variabel B
Tanpa mengunakan fungsi bantu Sinus, programmer dapat
mengembangkan program sendiri untuk melakukan hal yang sama,
tetapi hal ini tentu saja menuntut pengetahuan yang lebih
mendalam.
Contoh :
Dengan menggunakan Ekspansi Trigonometris, suatu nilai Sinus
dapat diturunkan.
DIM S AS DOUBLE
DIM Sinus AS DOUBLE
S = 30 * 3.14 / 180 ‘ Sudut 30 derajat dalam radian
F = 1
Tanda = 1
Sinus = S
FOR I = 2 TO 11
F = F * I ‘ Menghitung nilai faktorial
IF I MOD 2 = 1 THEN ‘ Suku 3, 5, 7, 9, 11
Tanda = -Tanda ‘ Tanda -1, 1, -1, 1, dst
Sinus = Sinus + (S ^ I / F * Tanda)
END IF
NEXT I
B = Sinus
Potongan program diatas akan menghasilkan nilai Sinus 30 derajat
ke variabel B.
Dengan menggunakan fungsi bantu bawaan yang telah tersedia
pekerjaan programmer akan lebih terfokus pada program yang akan
dikembangkan.
FUNGSI BANTU STRING
LEFT$ (stringexpression,n)
Mengembalikan sejumlah karakter string dari suatu data string
dari sebelah kiri.
Contoh :
Print Left$(“IndoProg”,4) ‘ Akan mencetak Indo
RIGHT$ (stringexpression,n)
Mengembalikan sejumlah karakter string dari suatu data string
dari sebelah kanan.
Contoh :
Print Right$(“IndoProg”,4) ‘ Akan mencetak Prog
MID$(stringexpression,start[,length])
Mengembalikan sejumlah karakter string dari suatu string mulai
posisi tertentu.
Contoh :
Print Mid$(“1234567890″,3,4) ‘ Akan mencetak 3456
Print Mid$(“1234567890″,3) ‘ Akan mencetak 34567890
LTRIM$(stringexpression)
Mengembalikan string dengan menghilangkan spasi sebelah kiri.
Contoh :
A$ = ” 100″
B$ = LTRIM$(A$)
Print A$ ‘Akan mencetak 100
Print B$ ‘Akan mencetak 100
RTRIM$(stringexpression)
Mengembalikan string dengan menghilangkan spasi sebelah kanan.
INSTR([start,]stringexpression1,stringexpression2)
Mencari posisi suatu string pada string lain (0 jika tidak
ditemukan).
Contoh :
Print INSTR(“ABCD”,”B”) ‘Akan mencetak 2
Print INSTR(4,”ABCDABCD”,”A”) ‘Akan mencetak 5
Print INSTR(“ABCD”,”a”) ‘Akan mencetak 0
LCASE$(stringexpression)
Mengembalikan suatu string yang telah diubah ke huruf kecil.
Contoh :
Print LCase$(“IndoProg”) ‘Akan mencetak indoprog
UCASE$(stringexpression)
Mengembalikan string yang telah dibuat huruf besar.
Contoh :
Print UCase$(“IndoProg”) ‘Akan mencetak INDOPROG
SPACE$(n)
Mengembalikan string yang berisi sejumlah spasi.
Contoh :
Print Space$(30), “IndoProg”
STRING$(m,n) atau STRING$(m,stringexpression)
Mengembalikan string yang mengandung sejumlah character yang
berulang.
Contoh :
Print String$(10,65) ‘ Akan mencetak AAAAAAAAAA
Print String$(10,”A”) ‘ Akan mencetak AAAAAAAAAA
LEN(stringexpression)
Mengembalikan jumlah huruf suatu data string.
Contoh :
Print Len(“Indonesia Programmer”) ‘ Akan mencetak 20
FUNGSI BANTU KONVERSI
STR$(numeric-expression)
Mengembalikan string dari suatu expresi numeric
Contoh :
A = 100
B$ = Str$(A) ‘B berisi “100″
VAL(stringexpression)
Mengembalikan numeric dari suatu expresi string
Contoh :
B$ = “100″
A = Val(B) ‘A berisi 100
C = “IndoProg”
D = Val(C) ‘D berisi 0
ASC(stringexpression)
Mengembalikan nilai ASCII dari suatu character.
Contoh :
Print Asc(“A”) ‘Akan mencetak 65
CHR$(n)
Mengembalikan character ASCII n.
Contoh :
Print Chr$(65) ‘Akan mencetak “A”
FUNGSI BANTU ARITMATIKA
SIN(numeric-expression)
COS(numeric-expression)
TAN(numeric-expression)
ATN(numeric-expression)
Mengembalikan nilai trigonometri.
numeric-expression dinyatakan dalam radian (sudut*3.14/180).
Cukup jelas
EXP(numeric-expression)
Mengembalikan nilai exponential.
Cukup jelas
LOG(numeric-expression)
Mengembalikan nilai logaritma natural.
Cukup jelas
SQR(numeric-expression)
Mengembalikan nilai akar pangkat dua.
Contoh :
Print Sqr(9) ‘Akan mencetak 3
INT(numeric-expression)
Mengembalikan nilai bulat dari suatu desimal.
Contoh :
Print Int(3.5) ‘Akan mencetak 3
FUNGSI BANTU RANDOM
RANDOMIZE [integer-expression]
RANDOMIZE TIMER
Memberikan bibit kepada nilai random.
RND
Mengembalikan nilai pseudo random antara 0 s/d HASIL THEN PRINT “TERLALU BESAR”
IF TEBAK < HASIL THEN PRINT “TERLALU KECIL”
LOOP UNTIL HASIL=TEBAK
PRINT “TEBAKAN ANDA SEBANYAK “;N;” KALI”
END
Latihan :
1. Bandingkan hasil Sinus dengan fungsi bantu Sin dan Ekspansi
Trigonometris.
2. Buatlah program putar String “Indonesia Programmer” dari kiri
ke kanan.
3. Bagaimana kalau putar dari kanan ke kiri.
4. Cobalah program tebak angka, berapa kali anda mampu
selesai menebaknya?
programmer dalam mengembangkan program. Dengan adanya fungsi
bantu bawaan programmer tidak perlu mengembangkan program untuk
melakukan hal yang sama.
Contoh :
Pada Qbasic telah tersedia fungsi bantu Sinus yang dapat
digunakan untuk mendapatkan nilai sinus dari suatu sudut dalam
radian.
Dim B As Double
B = Sin(30 * 3.14/180)
Akan mengisi nilai sinus sudut 30 derajat ke variabel B
Tanpa mengunakan fungsi bantu Sinus, programmer dapat
mengembangkan program sendiri untuk melakukan hal yang sama,
tetapi hal ini tentu saja menuntut pengetahuan yang lebih
mendalam.
Contoh :
Dengan menggunakan Ekspansi Trigonometris, suatu nilai Sinus
dapat diturunkan.
DIM S AS DOUBLE
DIM Sinus AS DOUBLE
S = 30 * 3.14 / 180 ‘ Sudut 30 derajat dalam radian
F = 1
Tanda = 1
Sinus = S
FOR I = 2 TO 11
F = F * I ‘ Menghitung nilai faktorial
IF I MOD 2 = 1 THEN ‘ Suku 3, 5, 7, 9, 11
Tanda = -Tanda ‘ Tanda -1, 1, -1, 1, dst
Sinus = Sinus + (S ^ I / F * Tanda)
END IF
NEXT I
B = Sinus
Potongan program diatas akan menghasilkan nilai Sinus 30 derajat
ke variabel B.
Dengan menggunakan fungsi bantu bawaan yang telah tersedia
pekerjaan programmer akan lebih terfokus pada program yang akan
dikembangkan.
FUNGSI BANTU STRING
LEFT$ (stringexpression,n)
Mengembalikan sejumlah karakter string dari suatu data string
dari sebelah kiri.
Contoh :
Print Left$(“IndoProg”,4) ‘ Akan mencetak Indo
RIGHT$ (stringexpression,n)
Mengembalikan sejumlah karakter string dari suatu data string
dari sebelah kanan.
Contoh :
Print Right$(“IndoProg”,4) ‘ Akan mencetak Prog
MID$(stringexpression,start[,length])
Mengembalikan sejumlah karakter string dari suatu string mulai
posisi tertentu.
Contoh :
Print Mid$(“1234567890″,3,4) ‘ Akan mencetak 3456
Print Mid$(“1234567890″,3) ‘ Akan mencetak 34567890
LTRIM$(stringexpression)
Mengembalikan string dengan menghilangkan spasi sebelah kiri.
Contoh :
A$ = ” 100″
B$ = LTRIM$(A$)
Print A$ ‘Akan mencetak 100
Print B$ ‘Akan mencetak 100
RTRIM$(stringexpression)
Mengembalikan string dengan menghilangkan spasi sebelah kanan.
INSTR([start,]stringexpression1,stringexpression2)
Mencari posisi suatu string pada string lain (0 jika tidak
ditemukan).
Contoh :
Print INSTR(“ABCD”,”B”) ‘Akan mencetak 2
Print INSTR(4,”ABCDABCD”,”A”) ‘Akan mencetak 5
Print INSTR(“ABCD”,”a”) ‘Akan mencetak 0
LCASE$(stringexpression)
Mengembalikan suatu string yang telah diubah ke huruf kecil.
Contoh :
Print LCase$(“IndoProg”) ‘Akan mencetak indoprog
UCASE$(stringexpression)
Mengembalikan string yang telah dibuat huruf besar.
Contoh :
Print UCase$(“IndoProg”) ‘Akan mencetak INDOPROG
SPACE$(n)
Mengembalikan string yang berisi sejumlah spasi.
Contoh :
Print Space$(30), “IndoProg”
STRING$(m,n) atau STRING$(m,stringexpression)
Mengembalikan string yang mengandung sejumlah character yang
berulang.
Contoh :
Print String$(10,65) ‘ Akan mencetak AAAAAAAAAA
Print String$(10,”A”) ‘ Akan mencetak AAAAAAAAAA
LEN(stringexpression)
Mengembalikan jumlah huruf suatu data string.
Contoh :
Print Len(“Indonesia Programmer”) ‘ Akan mencetak 20
FUNGSI BANTU KONVERSI
STR$(numeric-expression)
Mengembalikan string dari suatu expresi numeric
Contoh :
A = 100
B$ = Str$(A) ‘B berisi “100″
VAL(stringexpression)
Mengembalikan numeric dari suatu expresi string
Contoh :
B$ = “100″
A = Val(B) ‘A berisi 100
C = “IndoProg”
D = Val(C) ‘D berisi 0
ASC(stringexpression)
Mengembalikan nilai ASCII dari suatu character.
Contoh :
Print Asc(“A”) ‘Akan mencetak 65
CHR$(n)
Mengembalikan character ASCII n.
Contoh :
Print Chr$(65) ‘Akan mencetak “A”
FUNGSI BANTU ARITMATIKA
SIN(numeric-expression)
COS(numeric-expression)
TAN(numeric-expression)
ATN(numeric-expression)
Mengembalikan nilai trigonometri.
numeric-expression dinyatakan dalam radian (sudut*3.14/180).
Cukup jelas
EXP(numeric-expression)
Mengembalikan nilai exponential.
Cukup jelas
LOG(numeric-expression)
Mengembalikan nilai logaritma natural.
Cukup jelas
SQR(numeric-expression)
Mengembalikan nilai akar pangkat dua.
Contoh :
Print Sqr(9) ‘Akan mencetak 3
INT(numeric-expression)
Mengembalikan nilai bulat dari suatu desimal.
Contoh :
Print Int(3.5) ‘Akan mencetak 3
FUNGSI BANTU RANDOM
RANDOMIZE [integer-expression]
RANDOMIZE TIMER
Memberikan bibit kepada nilai random.
RND
Mengembalikan nilai pseudo random antara 0 s/d HASIL THEN PRINT “TERLALU BESAR”
IF TEBAK < HASIL THEN PRINT “TERLALU KECIL”
LOOP UNTIL HASIL=TEBAK
PRINT “TEBAKAN ANDA SEBANYAK “;N;” KALI”
END
Latihan :
1. Bandingkan hasil Sinus dengan fungsi bantu Sin dan Ekspansi
Trigonometris.
2. Buatlah program putar String “Indonesia Programmer” dari kiri
ke kanan.
3. Bagaimana kalau putar dari kanan ke kiri.
4. Cobalah program tebak angka, berapa kali anda mampu
selesai menebaknya?
variabel array
Array adalah sekumpulan data yang menggunakan nama variabel yang
sama. Tiap-tiap nilai dari array disebut sebagai elemen dan memiliki
index. Setiap elemen array adalah sebuah variabel juga.
Menciptakan Variabel Array
Untuk menciptakan variabel array dapat menggunakan perintah :
DIM variable[(subscripts)] [AS type]
Contoh :
DIM A(20) As Integer
Akan menciptakan variabel array yang bernama A yang memiliki 20
elemen (mulai dari index 0 s/d 19), yang masing-masing dapat
menampung data integer, dan memiliki nilai awal 0 (nol).
Menggunakan Variabel Array
Penggunakan Variabel Array sama saja dengan variabel biasa, cuma
kita perlu menyebutkan nomor index elemen yang diinginkan.
Contoh :
A(0) = 100
A(1) = 200
A(2) = 300
Akan mengisi nilai 100 ke elemen pertama, 200 ke elemen kedua,
dan 300 ke elemen ketiga.
Catatan : Elemen pertama dari array dimulai dengan nomor index 0
Contoh lain :
For I = 0 To 19 Step 1
Input “Masukkan Nilai :”,A(I)
Next I
Akan menanyakan kepada pemakai untuk mengisi elemen pertama s/d
elemen keduapuluh.
Contoh lain :
Total = 0
For I = 0 To 19 Step 1
Total = Total + A(I) ‘A(0), A(1), …, A(19)
Next I
Print “Total :”,Total
Akan menjumlahkan nilai elemen pertama s/d elemen keduapuluh ke
variabel total.
Dalam Quick Basic, kita mengenal dua jenis variabel array, yakni
dynamic array dan static array. Static array dapat kita bentuk
tanpa perintah khusus, tetapi terbatas sampai nomor index ke 10
saja tanpa dipengaruhi jumlah dimensi.
Contoh :
For I = 0 To 10 Step 1
Input “Masukkan Nilai :”,B(I)
Next I
Total = 0
For I = 0 To 10 Step 1
Total = Total + B(I)
Next I
Print “Total :”,Total
Program diatas dapat dijalankan tanpa kesalahan walaupun variabel
array B tidak dideklarasikan sebagai variabel array. Hal ini
karena kita menggunakan Static array yang otomatis disediakan
oleh Quick Basic, tetapi hanya terbatas sampai nomor index ke 10
saja.
Pada defaultnya index awal dari variabel array adalah dimulai
dari 0, tetapi hal ini bisa diubah dengan perintah OPTION BASE 1.
Contoh :
OPTION BASE 1
DIM A(30)
For I = 1 To 30
Input “Masukkan Nilai :”,A(I)
Next I
Index awal dari variabel array dapat juga ditentukan pada saat
deklarasi.
Contoh :
DIM C(5 To 15)
For I = 5 To 15 Step 1
Input “Masukkan Nilai :”,A(I)
Next I
Akan menghasilkan variabel array C, dengan elemen pertama
memiliki nomor index 5, dan elemen terakhir memiliki nomor index
15.
Anda dapat juga menggunakan fungsi LBound dan UBound untuk
mendapatkan index awal dan index akhir dari suatu array.
Contoh :
DIM C(5 To 15)
For I = LBound(C) To UBound(C) Step 1
Input “Masukkan Nilai :”,A(I)
Next I
Static Array dan Dynamic Array
Pada QBasic, semua array yang dideklarasikan dengan numerik
adalah Static Array, dan array yang dideklarasikan dengan
variabel adalah Dynamic Array.
Contoh :
DIM D(30)
D adalah variabel Static Array
E = 30
DIM F(E)
F adalah variabel Dynamic Array, karena jumlah elemennya
ditentukan dengan menggunakan variabel E, dalam hal ini 30.
Perbedaan Static Array dan Dynamic Array :
1. Memory Static Array dialokasikan oleh QBasic pada awal
eksekusi program dimulai, sedangkan Memory Dynamic Array
dialokasikan secara dinamis pada saat eksekusi program
berlangsung.
2. Static Array tidak dapat dideklarasi ulang, sedangkan Dynamic
Array dapat dideklarasikan ulang dengan perintah REDIM
Contoh :
DIM A(10)
REDIM A(20)
Akan terjadi kesalahan, karena variabel A adalah Static Array.
B = 10
DIM C(B)
REDIM C(30)
Tidak terjadi kesalahan.
Catatan : REDIM akan menghapus isi array, dan mendimensi ulang
jumlah elemennya.
3. Static Array tidak dapat dihapus dari memory, sedangkan
Dynamic Array dapat dihapus dari memory dengan perintah ERASE.
OPTION BASE 1
DIM A(3)
A(1) = 1
A(2) = 2
A(3) = 3
ERASE A
Print A(1) ‘ akan tercetak 0
Print A(2) ‘ akan tercetak 0
Print A(3) ‘ akan tercetak 0
Karena perintah Erase hanya mereset isi variabel Static Array ke
0 (jenis numeric) atau “” (Null) (jenis string), sedangkan
Variabel dan dimensinya tetap dipertahankan.
Contoh Lain :
OPTION BASE 1
B = 3
DIM C(B)
C(1) = 1
C(2) = 2
C(3) = 3
ERASE C
Print C(1) ‘ terjadi kesalahan subscript out of range
Karena variabel array C telah dihapus dari memory.
Variabel Array Multi Dimensi
Anda dapat membentuk variabel array 2 atau 3 dimensi dengan
perintah dim.
Contoh :
DIM A(10,10)
Akan membentuk array 11 baris (0 s/d 10), 11 kolom (0 s/d 10)
(121 elemen)
Cara pemakaian array Multi Dimensi sama saja dengan array 1
dimensi yaitu perlu disebutkan nomor indexnya masing-masing.
Contoh :
A(2,2) = 5
Akan mengisi nilai 5 ke elemen baris 3 kolom 3 dari Array dua
dimensi A. (ingat index dimulai dari 0, kecuali dengan pernyataan
OPTION BASE 1)
Bahan Latihan
1. Susun sebuah program dengan ketentuan berikut :
– program menanyakan jumlah data
– program menerima data sesuai dengan jumlah data satu persatu
– program mengurut data tersebut secara ascending
– program menghitung :
1. data terbesar
2. data terkecil
3. rata-rata
4. median
2. Buatlah program faktur sederhana dengan ketentuan :
– program menanyakan Tanggal dan Penjual
– program menanyakan
1. Jumlah
2. Satuan
3. Nama barang
secara berulang sampai jumlah yang dimasukkan 0 (nol)
– hasil menghasilkan tampilan faktur berikut :
FAKTUR PENJUALAN
Tanggal : 01-Jan-1995
Penjual : Budianto
——————————————————–
No. Jlh Satuan Nama Barang Harga @ Jumlah
=========================================
1. 30 Kotak Diskette 3M 15,000.00 450,000.00
2. 10 Buah Pita printer 7,000.00 70,000.00
=========================================
Total : 520,000.00
——————————————————–
sama. Tiap-tiap nilai dari array disebut sebagai elemen dan memiliki
index. Setiap elemen array adalah sebuah variabel juga.
Menciptakan Variabel Array
Untuk menciptakan variabel array dapat menggunakan perintah :
DIM variable[(subscripts)] [AS type]
Contoh :
DIM A(20) As Integer
Akan menciptakan variabel array yang bernama A yang memiliki 20
elemen (mulai dari index 0 s/d 19), yang masing-masing dapat
menampung data integer, dan memiliki nilai awal 0 (nol).
Menggunakan Variabel Array
Penggunakan Variabel Array sama saja dengan variabel biasa, cuma
kita perlu menyebutkan nomor index elemen yang diinginkan.
Contoh :
A(0) = 100
A(1) = 200
A(2) = 300
Akan mengisi nilai 100 ke elemen pertama, 200 ke elemen kedua,
dan 300 ke elemen ketiga.
Catatan : Elemen pertama dari array dimulai dengan nomor index 0
Contoh lain :
For I = 0 To 19 Step 1
Input “Masukkan Nilai :”,A(I)
Next I
Akan menanyakan kepada pemakai untuk mengisi elemen pertama s/d
elemen keduapuluh.
Contoh lain :
Total = 0
For I = 0 To 19 Step 1
Total = Total + A(I) ‘A(0), A(1), …, A(19)
Next I
Print “Total :”,Total
Akan menjumlahkan nilai elemen pertama s/d elemen keduapuluh ke
variabel total.
Dalam Quick Basic, kita mengenal dua jenis variabel array, yakni
dynamic array dan static array. Static array dapat kita bentuk
tanpa perintah khusus, tetapi terbatas sampai nomor index ke 10
saja tanpa dipengaruhi jumlah dimensi.
Contoh :
For I = 0 To 10 Step 1
Input “Masukkan Nilai :”,B(I)
Next I
Total = 0
For I = 0 To 10 Step 1
Total = Total + B(I)
Next I
Print “Total :”,Total
Program diatas dapat dijalankan tanpa kesalahan walaupun variabel
array B tidak dideklarasikan sebagai variabel array. Hal ini
karena kita menggunakan Static array yang otomatis disediakan
oleh Quick Basic, tetapi hanya terbatas sampai nomor index ke 10
saja.
Pada defaultnya index awal dari variabel array adalah dimulai
dari 0, tetapi hal ini bisa diubah dengan perintah OPTION BASE 1.
Contoh :
OPTION BASE 1
DIM A(30)
For I = 1 To 30
Input “Masukkan Nilai :”,A(I)
Next I
Index awal dari variabel array dapat juga ditentukan pada saat
deklarasi.
Contoh :
DIM C(5 To 15)
For I = 5 To 15 Step 1
Input “Masukkan Nilai :”,A(I)
Next I
Akan menghasilkan variabel array C, dengan elemen pertama
memiliki nomor index 5, dan elemen terakhir memiliki nomor index
15.
Anda dapat juga menggunakan fungsi LBound dan UBound untuk
mendapatkan index awal dan index akhir dari suatu array.
Contoh :
DIM C(5 To 15)
For I = LBound(C) To UBound(C) Step 1
Input “Masukkan Nilai :”,A(I)
Next I
Static Array dan Dynamic Array
Pada QBasic, semua array yang dideklarasikan dengan numerik
adalah Static Array, dan array yang dideklarasikan dengan
variabel adalah Dynamic Array.
Contoh :
DIM D(30)
D adalah variabel Static Array
E = 30
DIM F(E)
F adalah variabel Dynamic Array, karena jumlah elemennya
ditentukan dengan menggunakan variabel E, dalam hal ini 30.
Perbedaan Static Array dan Dynamic Array :
1. Memory Static Array dialokasikan oleh QBasic pada awal
eksekusi program dimulai, sedangkan Memory Dynamic Array
dialokasikan secara dinamis pada saat eksekusi program
berlangsung.
2. Static Array tidak dapat dideklarasi ulang, sedangkan Dynamic
Array dapat dideklarasikan ulang dengan perintah REDIM
Contoh :
DIM A(10)
REDIM A(20)
Akan terjadi kesalahan, karena variabel A adalah Static Array.
B = 10
DIM C(B)
REDIM C(30)
Tidak terjadi kesalahan.
Catatan : REDIM akan menghapus isi array, dan mendimensi ulang
jumlah elemennya.
3. Static Array tidak dapat dihapus dari memory, sedangkan
Dynamic Array dapat dihapus dari memory dengan perintah ERASE.
OPTION BASE 1
DIM A(3)
A(1) = 1
A(2) = 2
A(3) = 3
ERASE A
Print A(1) ‘ akan tercetak 0
Print A(2) ‘ akan tercetak 0
Print A(3) ‘ akan tercetak 0
Karena perintah Erase hanya mereset isi variabel Static Array ke
0 (jenis numeric) atau “” (Null) (jenis string), sedangkan
Variabel dan dimensinya tetap dipertahankan.
Contoh Lain :
OPTION BASE 1
B = 3
DIM C(B)
C(1) = 1
C(2) = 2
C(3) = 3
ERASE C
Print C(1) ‘ terjadi kesalahan subscript out of range
Karena variabel array C telah dihapus dari memory.
Variabel Array Multi Dimensi
Anda dapat membentuk variabel array 2 atau 3 dimensi dengan
perintah dim.
Contoh :
DIM A(10,10)
Akan membentuk array 11 baris (0 s/d 10), 11 kolom (0 s/d 10)
(121 elemen)
Cara pemakaian array Multi Dimensi sama saja dengan array 1
dimensi yaitu perlu disebutkan nomor indexnya masing-masing.
Contoh :
A(2,2) = 5
Akan mengisi nilai 5 ke elemen baris 3 kolom 3 dari Array dua
dimensi A. (ingat index dimulai dari 0, kecuali dengan pernyataan
OPTION BASE 1)
Bahan Latihan
1. Susun sebuah program dengan ketentuan berikut :
– program menanyakan jumlah data
– program menerima data sesuai dengan jumlah data satu persatu
– program mengurut data tersebut secara ascending
– program menghitung :
1. data terbesar
2. data terkecil
3. rata-rata
4. median
2. Buatlah program faktur sederhana dengan ketentuan :
– program menanyakan Tanggal dan Penjual
– program menanyakan
1. Jumlah
2. Satuan
3. Nama barang
secara berulang sampai jumlah yang dimasukkan 0 (nol)
– hasil menghasilkan tampilan faktur berikut :
FAKTUR PENJUALAN
Tanggal : 01-Jan-1995
Penjual : Budianto
——————————————————–
No. Jlh Satuan Nama Barang Harga @ Jumlah
=========================================
1. 30 Kotak Diskette 3M 15,000.00 450,000.00
2. 10 Buah Pita printer 7,000.00 70,000.00
=========================================
Total : 520,000.00
——————————————————–
struktur kendali perulangan
STRUKTUR KENDALI PERULANGAN
LOOPING
Salah satu kelebihan komputer daripada manusia adalah ia tidak
pernah bosan terhadap tugas-tugas rutin. Inilah yang menyebabkan
komputerisasi selalu diterapkan terhadap tugas-tugas yang rutin.
1 Looping Counter
Digunakan untuk proses berulang yang jumlah perulangannya
ditentukan berdasarkan perhitungan (sistem counter).
FOR counter = mulai TO selesai [STEP selisih]
Statement
…
NEXT [counter]
Contoh :
Mencetak nilai faktorial 7, dimana 7!=1x2x3x4x5x6x7
Fak = 1
For I = 2 To 7 Step 1
Fak = Fak * I ‘ Fak menjadi Fak * I
Next I
Print “Nilai faktorial 7 :”, Fak
END
Mencetak 10 suku bilangan fibonanci yang pertama, dimana :
fibo(1) = 1
fibo(2) = 1
fibo(n) = fibo(n-1) + fibo(n-2)
sehingga hasilnya : 1,1,2,3,5,8,13,21,34,55
For I = 1 To 10 Step 1 ‘ Looping 10 kali
If I = 1 Then ‘ Jika suku ke 1
fKurangSatu = 1
Print 1
ElseIF I = 2 Then ‘ Jika suku ke 2
fKurangDua = 1
Print 1
Else ‘ Untuk suku ke n
fibo = fKurangSatu+fKurangDua
Print fibo
fKurangSatu = fKurangDua
fKurangDua = fibo
End IF
Next I
END
2 Looping Trapping
Perulangan jenis ini ditentukan berdasarkan kondisi tertentu.
Pemeriksaan diawal
DO [{WHILE | UNTIL} ekspresi logika]
Statement
…
LOOP
Contoh :
Mencari KPK dari dua bilangan
Input “Bilangan pertama :”, pertama
Input “Bilangan kedua :”, kedua
If pertama > kedua Then ‘Jika bilangan pertama lebih besar
Lipat = pertama
Bagi = kedua
Else
Lipat = kedua
Bagi = pertama
End IF
N = 1
Do While ((Lipat*N) Mod Bagi) 0 ‘Kelipatan dinaikan jika
N = N + 1 ‘sisa bagi belum nol
Loop
Print “KPK kedua bilangan adalah :”, (Lipat*N)
END
NB : operator matematika MOD adalah untuk sisa bagi
Pemeriksaan diakhir
DO
[statementblock]
LOOP [{WHILE | UNTIL} ekspresi logika]
Contoh :
Program password, program akan terus menanyakan password sampai
jawabannya benar.
password$ = “INDOPROG”
DO
Color 7,0
Print “Password”;
Color 0,0
Input pass$
LOOP until pass$ = password$
Print “Selamat bergabung !”
END
Perintah EXIT DO dapat digunakan untuk meninggalkan proses DO -
LOOP
Contoh :
N = 1
password$ = “INDOPROG”
DO
Color 7,0
If N > 3 Then
EXIT DO
End IF
Print “Password”;
Color 0,0
Input pass$
N = N + 1
LOOP until pass$ = password$
If N > 3 Then
Print “Akses ditolak !”
Else
Print “Selamat bergabung !”
End IF
END
TUGAS
1. Buatlah program menentukan bilangan yang dimasukkan merupakan
bilangan PRIMA atau tidak.
2. Buatlah program mencetak tabel pertumbuhan simpanan anda di
bank.
Jumlah simpanan ?
Suku bunga bank/tahun ?
Lama simpanan ?
Tabel pertumbuhan
————————————————————
Tahun Awal Tahun Bunga/tahun Pajak Akhir Tahun
————————————————————
1
2
.
.
.
Awal Tahun 1 = Jumlah simpanan
Bunga/tahun = Awal Tahun * Suku bunga bank/100
Pajak dihitung berdasarkan :
Jika Awal Tahun + Bunga/tahun > 7500000
Pajak = 20% dari Bunga/tahun
Jika tidak
Pajak = 0
Akhir Tahun = Awal Tahun + Bunga/tahun – Pajak
Awal Tahun ke n = Akhir Tahun n – 1
LOOPING
Salah satu kelebihan komputer daripada manusia adalah ia tidak
pernah bosan terhadap tugas-tugas rutin. Inilah yang menyebabkan
komputerisasi selalu diterapkan terhadap tugas-tugas yang rutin.
1 Looping Counter
Digunakan untuk proses berulang yang jumlah perulangannya
ditentukan berdasarkan perhitungan (sistem counter).
FOR counter = mulai TO selesai [STEP selisih]
Statement
…
NEXT [counter]
Contoh :
Mencetak nilai faktorial 7, dimana 7!=1x2x3x4x5x6x7
Fak = 1
For I = 2 To 7 Step 1
Fak = Fak * I ‘ Fak menjadi Fak * I
Next I
Print “Nilai faktorial 7 :”, Fak
END
Mencetak 10 suku bilangan fibonanci yang pertama, dimana :
fibo(1) = 1
fibo(2) = 1
fibo(n) = fibo(n-1) + fibo(n-2)
sehingga hasilnya : 1,1,2,3,5,8,13,21,34,55
For I = 1 To 10 Step 1 ‘ Looping 10 kali
If I = 1 Then ‘ Jika suku ke 1
fKurangSatu = 1
Print 1
ElseIF I = 2 Then ‘ Jika suku ke 2
fKurangDua = 1
Print 1
Else ‘ Untuk suku ke n
fibo = fKurangSatu+fKurangDua
Print fibo
fKurangSatu = fKurangDua
fKurangDua = fibo
End IF
Next I
END
2 Looping Trapping
Perulangan jenis ini ditentukan berdasarkan kondisi tertentu.
Pemeriksaan diawal
DO [{WHILE | UNTIL} ekspresi logika]
Statement
…
LOOP
Contoh :
Mencari KPK dari dua bilangan
Input “Bilangan pertama :”, pertama
Input “Bilangan kedua :”, kedua
If pertama > kedua Then ‘Jika bilangan pertama lebih besar
Lipat = pertama
Bagi = kedua
Else
Lipat = kedua
Bagi = pertama
End IF
N = 1
Do While ((Lipat*N) Mod Bagi) 0 ‘Kelipatan dinaikan jika
N = N + 1 ‘sisa bagi belum nol
Loop
Print “KPK kedua bilangan adalah :”, (Lipat*N)
END
NB : operator matematika MOD adalah untuk sisa bagi
Pemeriksaan diakhir
DO
[statementblock]
LOOP [{WHILE | UNTIL} ekspresi logika]
Contoh :
Program password, program akan terus menanyakan password sampai
jawabannya benar.
password$ = “INDOPROG”
DO
Color 7,0
Print “Password”;
Color 0,0
Input pass$
LOOP until pass$ = password$
Print “Selamat bergabung !”
END
Perintah EXIT DO dapat digunakan untuk meninggalkan proses DO -
LOOP
Contoh :
N = 1
password$ = “INDOPROG”
DO
Color 7,0
If N > 3 Then
EXIT DO
End IF
Print “Password”;
Color 0,0
Input pass$
N = N + 1
LOOP until pass$ = password$
If N > 3 Then
Print “Akses ditolak !”
Else
Print “Selamat bergabung !”
End IF
END
TUGAS
1. Buatlah program menentukan bilangan yang dimasukkan merupakan
bilangan PRIMA atau tidak.
2. Buatlah program mencetak tabel pertumbuhan simpanan anda di
bank.
Jumlah simpanan ?
Suku bunga bank/tahun ?
Lama simpanan ?
Tabel pertumbuhan
————————————————————
Tahun Awal Tahun Bunga/tahun Pajak Akhir Tahun
————————————————————
1
2
.
.
.
Awal Tahun 1 = Jumlah simpanan
Bunga/tahun = Awal Tahun * Suku bunga bank/100
Pajak dihitung berdasarkan :
Jika Awal Tahun + Bunga/tahun > 7500000
Pajak = 20% dari Bunga/tahun
Jika tidak
Pajak = 0
Akhir Tahun = Awal Tahun + Bunga/tahun – Pajak
Awal Tahun ke n = Akhir Tahun n – 1
kisah - kisah keajaiban perang di Gaza,Palestina
Gaza, itulah nama hamparan tanah yang luasnya tidak lebih dari 360 km persegi. Berada di Palestina Selatan, “terjepit” di antara tanah yang dikuasai penjajah Zionis Israel, Mesir, dan laut Mediterania, serta dikepung dengan tembok di sepanjang daratannya.Sudah lama Israel “bernafsu” menguasai wilayah ini. Namun, jangankan menguasai, untuk bisa masuk ke dalamnya saja Israel sangat kesulitan.
Sudah banyak cara yang mereka lakukan untuk menundukkan kota kecil ini. Blokade rapat yang membuat rakyat Gaza kesulitan memperoleh bahan makanan, obat-obatan, dan energi, telah dilakukan sejak 2006 hingga kini. Namun, penduduk Gaza tetap bertahan, bahkan perlawanan Gaza atas penjajahan Zionis semakin menguat.
Akhirnya Israel melakukan serangan “habis-habisan” ke wilayah ini sejak 27 Desember 2008 hingga 18 Januari 2009. Mereka”mengguyurkan” ratusan ton bom dan mengerahkan semua kekuatan hingga pasukan cadangannya.
Namun, sekali lagi, negara yang tergolong memiliki militer terkuat di dunia ini harus mundur dari Gaza.Di atas kertas, kemampuan senjata AK 47, roket anti tank RPG, ranjau, serta beberapa jenis roket buatan lokal yang biasa dipakai para mujahidin Palestina, tidak akan mampu menghadapi pasukan Israel yang didukung tank Merkava yang dikenal terhebat di dunia. Apalagi menghadapi pesawat tempur canggih F-16, heli tempur Apache, serta ribuan ton “bom canggih” buatan Amerika Serikat.Akan tetapi di sana ada “kekuatan lain” yang membuat para mujahidin mampu membuat “kaum penjajah” itu hengkang dari Gaza dengan muka tertunduk, walau hanya dengan berbekal senjata-senjata “kuno”.
Itulah pertolongan Allah Subhanahu wa Ta’ala yang diberikan kepada para pejuangnya yang taat dan ikhlas. Kisah tentang munculnya “pasukan lain” yang ikut bertempur bersama para mujahidin, semerbak harum jasad para syuhada, serta beberapa peristiwa “aneh” lainnya selama pertempuran, telah beredar di kalangan masyarakat Gaza, ditulis para jurnahs, bahkan disiarkan para khatib Palestina di khutbah-khutbah Jumat mereka.
Berikut ini adalah rangkuman kisah-kisah “ajaib” tersebut dari berbagai sumber untuk kita ingat dan renungkan.
Pasukan "Berseragam Putih" di Gaza
Ada “pasukan lain” membantu para mujahidin Palestina. Pasukan Israel sendiri mengakui adanya pasukan berseragam putih itu.
Suatu hari di penghujung Januari 2009, sebuah rumah milik keluarga Dardunah yang berada di antara Jabal Al Kasyif dan Jabal Ar Rais, tepatnya di jalan Al Qaram, didatangi oleh sekelompok pasukan Israel.
Seluruh anggota keluarga diperintahkan duduk di sebuah ruangan. Salah satu anak laki-laki diinterogasi mengenai ciri-ciri para pejuang al-Qassam.
Saat diinterogasi, sebagaimana ditulis situs Filisthin Al Aan (25/1/2009), mengutip cerita seorang mujahidin al-Qassam, laki-laki itu menjawab dengan jujur bahwa para pejuang al-Qassam mengenakan baju hitam-hitam. Akan tetapi tentara itu malah marah dan memukulnya hingga laki-laki malang itu pingsan.
Selama tiga hari berturut-turut, setiap ditanya, laki-laki itu menjawab bahwa para pejuang al-Qassam memakai seragam hitam. Akhirnya, tentara itu naik pitam dan mengatakan dengan keras, “Wahai pembohong! Mereka itu berseragam putih!”
Cerita lain yang disampaikan penduduk Palestina di situs milik Brigade Izzuddin al-Qassam, Multaqa al-Qasami, juga menyebutkan adanya “pasukan lain” yang tidak dikenal. Awalnya, sebuah ambulan dihentikan oleh sekelompok pasukan Israel. Sopirnya ditanya apakah dia berasal dari kelompok Hamas atau Fatah? Sopir malang itu menjawab, “Saya bukan kelompok mana-mana. Saya cuma sopir ambulan.”
Akan tetapi tentara Israel itu masih bertanya, “Pasukan yang berpakaian putih-putih dibelakangmu tadi, masuk kelompok mana?” Si sopir pun kebingungan, karena ia tidak melihat seorangpun yang berada di belakangnya. “Saya tidak tahu,” jawaban satu-satunya yang ia miliki.
Suara Tak Bersumber
Ada lagi kisah karamah mujahidin yang kali ini disebutkan oleh khatib masjid Izzuddin Al Qassam di wilayah Nashirat Gaza yang telah ditayangkan oleh TV channel Al Quds, yang juga ditulis oleh Dr Aburrahman Al Jamal di situs Al Qassam dengan judul Ayaat Ar Rahman fi Jihad Al Furqan (Ayat-ayat Allah dalam Jihad Al Furqan).
Sang khatib bercerita, seorang pejuang telah menanam sebuah ranjau yang telah disiapkan untuk menyambut pasukan Zionis yang melalui jalan tersebut.
“Saya telah menanam sebuah ranjau. Saya kemudian melihat sebuah helikopter menurunkan sejumlah besar pasukan disertai tank-tank yang beriringan menuju jalan tempat saya menanam ranjau,” kata pejuang tadi.
Akhirnya, sang pejuang memutuskan untuk kembali ke markas karena mengira ranjau itu tidak akan bekerja optimal. Maklum, jumlah musuh amat banyak.
Akan tetapi, sebelum beranjak meninggalkan lokasi, pejuang itu mendengar suara “Utsbut, tsabatkallah” yang maknanya kurang lebih, “tetaplah di tempat maka Allah menguatkanmu.” Ucapan itu ia dengar berulang-ulang sebanyak tiga kali.
“Saya mencari sekeliling untuk mengetahui siapa yang mengatakan hal itu kapada saya. Akan tetapi saya malah terkejut, karena tidak ada seorang pun yang bersama saya,” ucap mujahidin itu, sebagaimana ditirukan sang khatib.
Akhirnya sang mujahid memutuskan untuk tetap berada di lokasi. Ketika sebuah tank melewati ranjau yang tertanam, sesualu yang “ajaib” terjadi. Ranjau itu justru meledak amat dahsyat. Tank yang berada di dekatnya langsung hancur. Banyak serdadu Israel meninggal seketika. Sebagian dari mereka harus diangkut oleh helikopter. “Sedangkan saya sendiri dalam keadaan selamat,” kata mujahid itu lagi, melalui lidah khatib.
Cerita yang disampaikan oleh seorang penulis Mesir, Hisyam Hilali, dalam situs alraesryoon.com, ikut mendukung kisah-kisah sebelumnya. Abu Mujahid, salah seorang pejuang yang melakukan ribath (berjaga) mengatakan,
“Ketika saya mengamati gerakan tank-tank di perbatasan kota, dan tidak ada seorang pun di sekitar, akan tetapi saya mendengar suara orang yang bertasbih dan beritighfar. Saya berkali-kali mencoba untuk memastikan asal suara itu, akhirnya saya memastikan bahwa suara itu tidak keluar kecuali dari bebatuan dan pasir.”
Cerita mengenai “pasukan tidak dikenal” juga datang dari seorang penduduk rumah susun wilayah Tal Islam yang handak mengungsi bersama keluarganya untuk menyelamatkan diri dari serangan Israel.
Di tangga rumah ia melihat beberapa pejuang menangis. “Kenapa kalian menangis?” tanyanya.
“Kami menangis bukan karena khawatir keadaan diri kami atau takut dari musuh. Kami menangis karena bukan kami yang bertempur. Di sana ada kelompok lain yang bertempur memporak-porandakan musuh, dan kami tidak tahu dari mana mereka datang,” jawabnya.
Saksi Serdadu Israel
Cerita tentang “serdadu berseragam putih” tak hanya diungkap oleh mujahidin Palestina atau warga Gaza. Beberapa personel pasukan Israel sendiri menyatakan hal serupa.
Situs al-Qassam memberitakan bahwa TV Channel 10 milik Israel telah menyiarkan seorang anggota pasukan yang ikut serta dalam pertempuran Gaza dan kembali dalam keadaan buta.
“Ketika saya berada di Gaza, seorang tentara berpakaian putih mendatangi saya dan menaburkan pasir di mata saya, hingga saat itu juga saya buta,” kata anggota pasukan ini.
Di tempat lain ada serdadu Israel yang mengatakan mereka pernah berhadapan dengan “hantu”. Mereka tidak diketahui dari mana asalnya, kapan munculnya, dan ke mana menghilangnya.
Masih dari Channel 10, seorang Lentara Israel lainnya mengatakan, “Kami berhadapan dengan pasukan berbaju putih-putih dengan jenggot panjang. Kami tembak dengan senjata, akan tetapi mereka tidak mati.”
Cerita ini menggelitik banyak pemirsa. Mereka bertanya kepada Channel 10, siapa sebenarnya pasukan berseragam putih itu?
Sudah Meledak, Ranjau Masih Utuh
Di saat para mujahidin terjepit, hewan-hewan dan alam tiba-tiba ikut membantu, bahkan menjelma menjadi sesuatu yang menakutkan.
Sebuah kejadian “aneh” terjadi di Gaza Selatan, tepatnya di daerah AI Maghraqah. Saat itu para mujahidin sedang memasang ranjau. Di saat mengulur kabel, tiba-tiba sebuah pesawat mata-mata Israel memergoki mereka. Bom pun langsung jatuh ke lokasi itu.
Untunglah para mujahidin selamat. Namun, kabel pengubung ranjau dan pemicu yang tadi hendak disambung menjadi terputus. Tidak ada kesempatan lagi untuk menyambungnya, karena pesawat masih berputar-putar di atas.
Tak lama kemudian, beberapa tank Israel mendekati lokasi di mana ranjau-ranjau tersebut ditanam. Tak sekadar lewat, tank-tank itu malah berhenti tepat di atas peledak yang sudah tak berfungsi itu.
Apa daya, kaum Mujahidin tak bisa berbuat apa-apa. Kabel ranjau jelas tak mungkin disambung, sementara tank-tank Israel telah berkumpul persis di atas ranjau.
Mereka merasa amat sedih, bahkan ada yang menangis ketika melihat pemandangan itu. Sebagian yang lain berdoa, “allahumma kama lam tumakkinna minhum, allahumma la tumakkin lahum,” yang maknanya, “Ya Allah, sebagaimana engkau tidak memberikan kesempatan kami menghadapi mereka, jadikanlah mereka juga lidak memiliki kesempatan serupa.”
Tiba-tiba, ketika fajar tiba, terjadilah keajaiban. Terdengar ledakan dahsyat persis di lokasi penanaman ranjau yang tadinya tak berfungsi.
Setelah Tentara Israel pergi dengan membawa kerugian akibat ledakan lersebut, para mujahidin segera melihal lokasi ledakan. Sungguh aneh, ternyata seluruh ranjau yang telah mereka tanam itu masih utuh. Dari mana datangnva ledakan? Wallahu a’lam.
Masih dari wilayah Al Maghraqah. Saat pasukan Israel menembakkan artileri ke salah satu rumah, hingga rumah itu terbakar dan api menjalar ke rumah sebelahnya, para mujahidin dihinggapi rasa khawatir jika api itu semakin tak terkendali.
Seorang dari mujahidin itu lalu berdoa,”Wahai Dzat yang merubah api menjadi dingin dan tidak membahayakan untuk Ibrahim, padamkanlah api itu dengan kekuatan-Mu.”
Maka, tidak lebih dari tiga menit, api pun padam. Para niujahidin menangis terharu karena mereka merasa Allah Subhanuhu wa Ta’ala (SWT) telah memberi pertolongan dengan terkabulnya doa mereka dengan segera.
Merpati dan Anjing
Seorang mujahid Palestina menuturkan kisah “aneh” lainnya kepada situs Filithin Al Aan (25/1/ 2009). Saat bertugas di wilayah Jabal Ar Rais, sang mujahid melihat seekor merpati terbang dengan suara melengking, yang melintas sebelum rudal-rudal Israel berjatuhan di wilayah itu.
Para mujahidin yang juga melihat merpati itu langsung menangkap adanya isyarat yang ingin disampaikan sang merpati.
Begitu merpali itu melintas, para mujahidin langsung berlindung di tempat persembunyian mereka. Ternyata dugaan mereka benar. Selang beberapa saat kemudian bom-bom Israel datang menghujan. Para mujahidin itu pun selamat.
Adalagi cerita “keajaiban” mengenai seekor anjing, sebagaimana diberitakan situs Filithin Al Aan. Suatu hari, tatkala sekumpulan mujahidin Al Qassam melakukan ribath di front pada tengah malam, tiba-tiba muncul seekor anjing militer Israel jenis doberman. Anjing itu kelihatannya memang dilatih khusus untuk membantu pasukan Israel menemukan tempat penyimpanan senjata dan persembunyian para mujahidin.
Anjing besar ini mendekat dengan menampakkan sikap tidak bersahabat. Salah seorang mujahidin kemudian mendekati anjing itu dan berkata kepadanya, “Kami adalah para mujahidin di jalan Allah dan kami diperintahkan untuk tetap berada di tempat ini. Karena itu, menjauhlah dari kami, dan jangan menimbulkan masalah untuk kami.”
Setelah itu, si anjing duduk dengan dua tangannya dijulurkan ke depan dan diam. Akhirnya, seorang mujahidin yang lain mendekatinya dan memberinya beberapa korma. Dengan tenang anjing itu memakan korma itu, lalu beranjak pergi.
Kabut pun Ikut Membantu
Ada pula kisah menarik yang disampaikan oleh komandan lapangan Al Qassam di kamp pengungsian Nashirat, langsung setelah usai shalat dhuhur di masjid Al Qassam (17/1/2009).
Saat itu sekelompok mujahidin yang melakukan ribath di Tal Ajul terkepung oleh tank-tank Israel dan pasukan khusus mereka. Dari atas, pesawat mata-mata terus mengawasi.
Di saat posisi para mujahidin terjepit, kabut tebal tiba-tiba turun di malam itu. Kabut itu lelah menutupi pandangan mata tentara Israel dan membantu pasukan mujahidin keluar dari kepungan.
Kasus serupa diceritakan oleh Abu Ubaidah. salah satu pemimpin lapangan Al Qassam, sebagaimana ditulis situs almesryoon.com (sudah tidak bisa diakses lagi). la bercerita bagaimana kabut tebal tiba-tiba turun dan membatu para mujahidin untuk melakukan serangan.
Awalnya, pasukan mujahiddin tengah menunggu waktu yang tepat untuk mendekati tank-tank tentara Israel guna meledakkannya. “Tak lupa kami berdoa kepada Allah agar dimudahkan untuk melakukan serangan ini,” kata Abu Ubaidah.
Tiba-tiba turunlah kabut tebal di tempat tersebut. Pasukan mujahidin segera bergerak menyelinap di antara tank-tank, menanam ranjau-ranjau di dekatnya, dan segera meninggalkan lokasi tanpa diketahui pesawat mata-mata yang memenuhi langit Gaza, atau oleh pasukan infantri Israel yang berada di sekitar kendaraan militer itu. Lima tentara Israel tewas di tempat dan puluhan lainnya luka-luka setelah ranjau-ranjau itu meledak.
Selamat Dengan al-Qur’an
Cerita ini bermula ketika salah seorang pejuang yang menderita luka memasuki rumah sakit As Syifa’. Seorang dokter yang memeriksanya kaget ketika mengelahui ada sepotong proyektil peluru bersarang di saku pejuang tersebut.
Yang membuat ia sangat kaget adalah timah panas itu gagal menembus jantung sang pejuang karena terhalang oleh sebuah buku doa dan mushaf al-Qur’an yang selalu berada di saku sang pejuang.
Buku kumpulun doa itu berlobang, namun hanya sampul muka mushaf itu saja yang rusak, sedangkan proyektil sendiri bentuknya sudah “berantakan”.
Kisah ini disaksikan sendiri oleh Dr Hisam Az Zaghah, dan diceritakannya saat Festival Ikatan Dokter Yordan sebagaimana ditulis situs partai Al Ikhwan Al Muslimun (23/1/2009).
Dr. Hisam juga memperlihatkan bukti berupa sebuah proyektil peluru, mushaf Al Qur’an, serta buku kumpulan doa-doa berjudul Hishnul Muslim yang menahan peluru tersebut.
Abu Ahid, imam Masjid AnNur di Hay As Syeikh Ridzwan, juga punya kisah menarik. Sebelumnya, Israel telah menembakkan 3 rudalnya ke masjid itu hingga tidak tersisa kecuali hanya puing-puing bangunan. “Akan tetapi mushaf-mushaf Al Quran tetap berada di tampatnya dan tidak tersentuh apa-apa,” ucapnya seraya tak henti bertasbih.
“Kami temui beberapa mushaf yang terbuka tepat di ayat-ayat yang mengabarkan tentang kemenangan dan kesabaran, seperti firman Allah, ‘Dan Kami pasti akan menguji kamu dengan sedikit ketakutan, kelaparan, kekurangan harta, jiwa, dan buah-buahan. Dan sampaikanlah kabar gembira kepada orang-orang yang sabar, yaitu orang-orang yang apabila ditimpa musibah mereka berkata, sesungguhnya kami milik Allah dan kepada-Nyalah kami kembali,”(Al-Baqarah [2]: 155-156),” jelas Abu Ahid sebagaimana dikutip Islam Online (15/1/2009).
Harum Jasad Para Syuhada
Abdullah As Shani adalah anggota kesatuan sniper (penembak jitu) al-Qassam yang menjadi sasaran rudal pesawat F-16 Israel ketika sedang berada di pos keamanan di Nashirat, Gaza.
Jasad komandan lapangan al-Qassam dan pengawal khusus para tokoh Hamas ini “hilang” setelah terkena rudal. Selama dua hari jasad tersebut dicari, ternyata sudah hancur tak tersisa kecuali serpihan kepala dan dagunya. Serpihan-serpihan tubuh itu kemudian dikumpulkan dan dibawa pulang ke rumah oleh keluarganya untuk dimakamkan.
Sebelum dikebumikan, sebagaimana dirilis situs syiria-aleppo. com (24/1/2009), serpihan jasad tersebut sempat disemayamkan di sebuah ruangan di rumah keluarganya. Beberapa lama kemudian, mendadak muncul bau harum misk dari ruangan penyimpanan serpihan tubuh tadi.
Keluarga Abdullah As Shani’ terkejut lalu memberitahukan kepada orang-orang yang mengenal sang pejuang yang memiliki kuniyah (julukan) Abu Hamzah ini.
Lalu, puluhan orang ramai-ramai mendatangi rumah tersebut untuk mencium bau harum yang berasal dari serpihan-serpihan tubuh yang diletakkan dalam sebuah kantong plastik.
Bahkan, menurut pihak keluarga, 20 hari setelah wafatnya pria yang tak suka menampakkan amalan-amalannya ini, bau harum itu kembali semerbak memenuhi rungan yang sama.
Cerita yang sama terjadi juga pada jenazah Musa Hasan Abu Nar, mujahid Al Qassam yang juga syahid karena serangan udara Israel di Nashiriyah. Dr Abdurrahman Al Jamal, penulis yang bermukim di Gaza, ikut mencium bau harum dari sepotong kain yang terkena darah Musa Hasan Abu Nar. Walau kain itu telah dicuci berkali-kali, bau itu tetap semerbak.
Ketua Partai Amal Mesir, Majdi Ahmad Husain, menyaksikan sendiri harumnya jenazah para syuhada. Sebagaunana dilansir situs Al Quds Al Arabi (19/1/2009), saat masih berada di Gaza, ia menyampaikan, “Saya telah mengunjungi sebagian besar kota dan desa-desa. Saya ingin melihat bangunan-bangunan yang hancur karena serangan Israel. Percayalah, bahwa saya mencium bau harumnya para syuhada.”
Dua Pekan Wafat, Darah Tetap Mengalir
Yasir Ali Ukasyah sengaja pergi ke Gaza dalam rangka bergabung dengan sayap milisi pejuang Hamas, Brigade Izzuddin al-Qassam. Ia meninggalkan Mesir setelah gerbang Rafah, yang menghubungkan Mesir-Gaza, terbuka beberapa bulan lalu.
Sebelumnya, pemuda yang gemar menghafal al-Qur’an ini sempat mengikuti wisuda huffadz (para penghafal) al-Qur’an di Gaza dan bergabung dengan para mujahidin untuk memperoleh pelatihan militer. Sebelum masuk Gaza, di pertemuan akhir dengan salah satu sahabatnya di Rafah, ia meminta didoakan agar memperoleh kesyahidan.
Untung tak dapat ditolak, malang tak dapat diraih, di bumi jihad Gaza, ia telah memperoleh apa yang ia cita-citakan. Yasir syahid dalam sebuah pertempuran dengan pasukan Israel di kamp pengungsian Jabaliya.
Karena kondisi medan, jasadnya baru bisa dievakuasi setelah dua pekan wafatnya di medan pertempuran tersebut.
Walau sudah dua pekan meninggal, para pejuang yang ikut serta melakukan evakuasi menyaksikan bahwa darah segar pemuda berumur 21 tahun itu masih mengalir dan fisiknya tidak rusak. Kondisinya mirip seperti orang yang sedang tertidur.
Sebelum syahid, para pejuang pernah menawarkan kepadanya untuk menikah dengan salah satu gadis Palestina, namun ia menolak. “Saya meninggalkan keluarga dan tanah air dikarenakan hal yang lebih besar dari itu,” jawabnya.
Kabar tentang kondisi jenazah pemuda yang memiliki kuniyah Abu Hamzah beredar di kalangan penduduk Gaza. Para khatib juga menjadikannya sebagai bahan khutbah Jumat mereka atas tanda-tanda keajaiban perang Gaza. Cerita ini juga dimuat oleh Arab Times (7/2/ 2009)
Terbunuh 1.000, Lahir 3.000
Hilang seribu, tumbuh tiga ribu. Sepertinya, ungkapan ini cocok disematkan kepada penduduk Gaza. Kesedihan rakyat Gaza atas hilangnya nyawa 1.412 putra putrinya, terobati dengan lahirnya 3.700 bayi selama 22 hari gempuran Israel terhadap kota kecil ini.
Hamam Nisman, Direktur Dinas Hubungan Sosial dalam Kementerian Kesehatan pemerintahan Gaza menyatakan bahwa dalam 22 hari 3.700 bayi lahir di Gaza. “Mereka lahir antara tanggal 27 Desember 2008 hingga 17 Januari 2009, ketika Israel melakukan serangan yang menyebabkan meninggalnya 1.412 rakyat Gaza, yang mayoritas wanita dan anak-anak,” katanya.
Bulan Januari tercatat sebagai angka kelahiran tertinggi dibanding bulan-bulan sebelumnya. “Setiap tahun 50 ribu kasus kelahiran tercatat di Gaza. Dan, dalam satu bulan tercatat 3.000 hingga 4.000 kelahiran. Akan tetapi di masa serangan Israel 22 hari, kami mencatat 3.700 kelahiran dan pada sisa bulan Januari tercatat 1.300 kelahiran. Berarti dalam bulan Januari terjadi peningkatan kelahiran hingga 1.000 kasus.
Rasio antara kematian dan kelahiran di Gaza memang tidak sama. Angka kelahiran, jelasnya lagi, mencapai 50 ribu tiap tahun, sedang kematian mencapai 5 ribu.
“Israel sengaja membunuh para wanita dan anak-anak untuk menghapus masa depan Gaza. Sebanyak 440 anak-anak dan 110 wanita telah dibunuh dan 2.000 anak serta 1.000 wanita mengalami luka-luka.
sumber: http://www.sayakasihtahu.com/2010/04/kisah-kisah-keajaiban-perang-di-gaza.html
arti warna menurut fengsui
Dalam feng shui, warna adalah getaran. Getaran itu selalu kita respon, secara sadar maupun tidak. Warna memengaruhi kenyamanan lingkungan dan mood. Warna yang kita kenakan sehari-hari memengaruhi pandangan orang lain terhadap kita. Berikut ini sejumlah karakter warna menurut feng shui:
Merah
Sifat merah memberi stimulasi dan dominan. Erat kaitannya dengan sifat hangat serta kemakmuran, tetapi juga menggambarkan kemarahan, malu dan kebencian. Untuk ruangan, merah mengurangi ukuran, tetapi memperbesar ukuran objek. Warna ini bagus sebagai aksen.
Tak cocok: ruang makan, kamar tidur anak-anak, dapur, dan ruang kerja.
Kuning
Erat dengan pencerahan dan intelektualitas. Sifatnya menstimulasi otak dan membantu pencernaan. Sifat positifnya adalah optimisme, akal, dan ketegasan. Sifat negatifnya, berlebihan dan kekakuan.
Cocok: pintu masuk rumah dan dapur.
Tak cocok: ruang meditasi dan kamar mandi.
Hijau
Simbol pertumbuhan, kesuburan, dan harmoni. Hijau adalah warna menenangkan dan menyegarkan. Sifat positifnya, optimisme, kebebasan, dan keseimbangan. Sifat negatifnya, iri hati dan kebohongan.
Cocok: ruang terapi dan kamar mandi.
Tak cocok: ruang keluarga, ruang bermain, dan ruang belajar.
Biru
Damai dan menyejukkan. Biru juga terkait dengan spiritualitas, kontemplasi, misteri, dan kesabaran. Asosiasi positifnya, rasa percaya dan stabilitas. Sifat negatifnya, curiga dan melankolis. Biru memberi kesan luas pada ruangan.
Cocok: ruang meditasi, ruang tidur, dan ruang terapi.
Tak cocok: ruang keluarga, ruang makan, dan ruang kerja.
Putih
Simbol awal baru, kemurnian dan kesucian. Kualitas positifnya, bersih dan segar. Sifat negatifnya, dingin dan tanpa kehidupan.
Cocok: kamar mandi dan dapur.
Tak cocok: kamar anak-anak dan ruang makan.
Hitam
Misterius dan independen adalah sifat hitam. Positifnya, daya tarik dan kekuatan. Sifat negatinya, kematian, kegelapan, dan kuasa jahat.
Cocok: kamar remaja dan kamar tidur.
Tak cocok: kamar kerja, kamar anak-anak, dan ruang keluarga.
Cokelat
Warna cokelat menggambarkan stabilitas dan bobot. Sifat positifnya kestabilan dan keanggunan, sedangkan sifat negatifnya depresi dan penuaan.
Cocok: kamar kerja
Tak cocok: kamar tidur.
sumber: http://www.indospiritual.com/artikel_arti-warna-menurut-feng-shui.html
kuda poni lahir dengan warna kulit mirip anjing dalmatian
kuda Yang Baru lahir dan berkulit / bercorak seperti Anjing Dalmatian.
Berekor Panjang Seperti Halnya Kuda yang lain, tapi kulitnya seperti anjing Dalmatian . Kuda Ini adalah kuda Pony asal Inggris – lahir dari Induk yang normal berwarna coklat.
“Pada hari Senin sebuah anak kuda yang mengagumkan dengan bulu putih dan bintik-bintik hitam lahir. Dia tampak seperti Anjing Dalmatian besar. Ini sangat tidak biasa untuk kuda poni dengan warna putih dan berbintik Hitam.Kuda Poni Yg Berwarna Mirip Dalmatian Dan Induknya
Kuda poni yg di beri nama Pongo berkeliaran bebas di padang rumput . Anak kuda tersebut lahir Pekan Lalu tetapi, pemiliknya mengatakan Nama sebenarnya adalah Pongo.
sumber: http://beritakorslet.wordpress.com/2010/04/13/seekor-kuda-poni-lahir-dengan-warna-kulit-mirip-anjing-dalmation/
Langganan:
Postingan (Atom)