Photo Flipbook Slideshow Maker
Diberdayakan oleh Blogger.
RSS

10 Ikan Raksasa

Ikan-ikan berukuran superjumbo alias raksasa seantero dunia jumlahnya terus berkurang. Sungai Amazon di Amerika Selatan dan Sungai Mekong yang melintas di enam negara; China, Myanmar, Thailand, Laos, Kamboja dan Vietnam; menjadi lokasi utama ikan-ikan punah raksasa dan 'berwajah aneh' itu.

Ikan-ikan yang masuk dalam daftar ukuran jumbo dan punah itu yakni.

1. Dog Eating Catfish
Ikan yang dari keluarga lele ini dijuluki sesuai namanya, pemakan daging anjing. Pada zaman dulu, ikan berkumis ini dipancing warga sekitar Sungai Mekong dengan umpan daging anjing.

2. Ikan Mas raksasa atau Giant Carp
Ikan Mas raksasa ini dulu kerap ditemui di Sungai Mekong bagian Thailand. Ikan berbobot sekitar 600 pon ini merupakan salah satu jenis yang mengalami jumlah penurunan populasi yang drastis di Asia Tenggara.
Ikan mas raksasa
3. White Sturgeon
Telur ikan ini merupakan makanan mewah kelas atas, telur kaviar. Ikan ini disebut-sebut hidup lebih lama dari dinosaurus. Populasinya di laut pasifik bagian barat daya dan Kanada semakin berkurang.

4. Hiu Gergaji
Ikan ini merupakan gabungan hiu dan gergaji, sesuai namanya. Ikan laut ini kerap menyangkut di jaring nelayan, maka itu jumlahnya terus menurun.

Ikan hiu gergaji
5. Pari raksasa
Ikan pari ini pernah ditangkap seorang nelayan di Sungai Mekong wilayah Kamboja. Seperti 'koleganya' di laut, ikan ini tetap berbahaya dan mematikan.

6. Arapaima gigas
Ikan berukuran luar biasa jumbo ini masih 'keluarga jauh' ikan arwana. Di Taman Akuarium Air Tawar (Taman Mini Indonesia Indah) dan Sea World, Ancol, Jakarta Utara, ikan ini masih dijumpai.

7. Lele rakasa
Ikan ini pernah dijuluki sebagai ikan air tawar raksasa terbesar.
Ikan lele raksasa di Sungai Mekong
8. River Yeti
Yeti merupakan julukan monster bigfoot di Amerika. Nah, ikan raksasa ini dianalogikan seperti sesosok monster. Ikan yang juga memiliki nama Bagarius yarrelli pernah menghebohkan warga karena menelan manusia.

9. Chinese Paddlefish
Ikan gajah raksasa ini juga memiliki nama China Swordfish. Secara resmi pemerintah Cina telah melarang penangkapannya, baik besar ataupun kecil sejak tahun 1983.
Ikan gajah raksasa, China Paddlefish
10. Alligator
Ikan jenis ini berpenampilan mirip buaya atau aligator. Jelek. Tetapi merupakan salah satu ikan dengan harga yang tinggi di pasaran. Untuk ukuran kecil ikan jenis ini kerap digandrungi di pasar ikan hias.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Cara Membuat Kalkulator dengan VB

Oke, kali ini saya akan membagikan tutor cara membuat kalkulator sederhana dengan VB. Sebenarnya ga susah susah amat, simple. Kodingnya juga ga terlalu banyak. Berikut ini stepnya.
1.       Tentunya buka VB dulu, pilih standard exe.
2.       Setelah itu kita desain formnya seperti pada gambar di bawah ini.
Keterangan :
-          Nama Textbox dengan label bil 1 : text1
-          Nama Textbox dengan label bil 2 : text2
-          Nama Command + : command1
-          Nama Command - : command2
-          Nama Command x : command3
-          Nama Command : : command4
-          Nama textbox dengan label hasil : text3
3.       kalo udah beres desainnya tinggal di masukkin kodingnya. Langsung “dimakan” aja nih koding di bawah. Tapi jangan mabok yaah gan ^_^
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a + b
Text3.Text = hasil
End Sub
Private Sub Command2_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a - b
Text3.Text = hasil
End Sub
Private Sub Command3_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a * b
Text3.Text = hasil
End Sub
Private Sub Command4_Click()
Dim a As Double
Dim b As Double
Dim hasil As Double
a = Text1.Text
b = Text2.Text
hasil = a / b
Text3.Text = hasil
End Sub
'koding dibawah hanyalah koding untuk menentukan karakter apa saja yang dapat di inputkan dalam textbox. baca juga artikel cara mengunci textbox. tanpa menyertakan koding di bawah juga tak masalah untuk pembuatan kalkulator.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("1234567890,.-+", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If InStr("1234567890,.-+", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If InStr("", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
4.       kalo udah masukin kodingnya, yaa tinggal di run aja.. beres, hasilnya kaya gini gan
5.       terus kalo misalnya pengen dipake di komputer agan, (bangga kan kalo bikinan sendiri) tinggal di jadiin file .exe aja, terus buat shorcutnya di desktop.  Kaya gini caranya :
Udah beres, sekian semoga bermanfaat :)

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS