Yoda dan pialanya/Metro

CALIFORNIA - Bulunya pendek dan jarang, lidahnya selalu menjulur, matanya bulat dan merah, membuat Yoda meraih juara sebagai anjing terjelek di Dunia.

Atas predikat itu, anjing jenis Chihuahua ini berhak membawa pulang uang tunai USD1.000 atau sekira Rp8,6 juta, sebuah piala.

Sang Pemilik, Terry Schumacher, mengaku saat kali pertama melihat anjingnya, dia berpikir itu adalah tikus.

Namun ketika dia menyadari bahwa rambut dan bentuk tubuhnya adalah seekor anjing, Terry akhirnya membawa pulang dan memeliharanya.

Sementara panitia lomba mengungkapkan, tujuan diadakannya lomba untuk menumbuhkan kesadaran untuk menyelamatkan dan memelihara anjing.

Pasalnya, anjing-anjing yang mengikuti kontes merupakan hewan peranakan yang gagal dan akhirnya ditinggalkan oleh para pemiliknya.

Seperti dilansir Metro, Senin (27/6/2011), anjing lainnya yang mengikuti lomba tersebut adalah Princess Abby, anjing Chihuahua yang memiliki satu mata, serta seekor anjing buldog yang buta matanya.

referensi bacaan dan sumber berita : okezone.com

kalo dimakan sendirian berapa tahun ya habissnya???? :gubrak:

Beruntung kalian yang menggunakan blogspot, kenapa? sebab dengan mempunyai blog di blogspot kita dapat dengan bebas memodifikasi dan memodifikasi.Seperti Membuat forum di blog kamu, salah satu ide baik untuk meningkatkan dan mempererat kamu dengan si pengunjung, maka dari itu saya akan memberikan tutorial untuk membuat forum di blogspot. Disini saya akan menjelaskan cara membuat forum terbaik dan mudah untuk di terapkan. bagaimana caranya? cekidot yak!


Membuat Forum di Nabble

1. Pertama kunjungi link ini
2. Setelah itu isi form yang telah disediakan sesuai ketentuan
   
   
   
   
3. setelah terisi semua, klik tombol create Forum
4. Lalu jreng jreng jreng, Forum kamu telah jadi, tapi belum bisa kamu setting atau kamu pasang di blog kamu. Agar forum itu bisa dipasang di blog kamu, kamu harus mengklaim forum itu dengan mengkonfirmasi email yang masuk dari Nabble.
   
   
   
   
5. Nah setelah konfirmasi maka kamu akan secara otomatis login ke forum kamu itu.
6. Langkah selanjutnya adalah, mengambil embed code dari Nabble agar dapat di pasang di blog kamu, caranya : Klik option >> Embedding Options >> ambil kodenya dan copas ke editor kesayangan kamu, misal Notepad
   
   
   
   
   
   
   
   
   
7. lanjut, login ke blogger
8. Masuk ke Edit Post >> Edit Page >> New Page
   
   
   
   
   
   
   
   
   
   
   
   
   
9. Setelah berada pada halaman editor, pilih tab Edit HTML lalu pastekan kode yang telah kamu copy tadi
   
   
   
   
10. Lalu terbitkan, dan jadilah forum kamu

Mudah, simple dan sempurna, sekarang kamu telah mempunyai sebuah forum. Mari kita jalin silahturahmi dan undang kami ke dalam forum kamu :)

Inilah Sembilan Orang Yang Paling Mengganggu Di Facebook, Apakan Anda Termasuk Orang Seperti Ini????

Sumber : http://www.ikadanewsonline.com/2011/06/9-jenis-orang-yang-paling-mengganggu-di.html

Berikut foto-foto hebat saat terjadinya letusan gunung berapi bawah laut

Pada postingan sebelumnya kita telah membuat grafik dengan matlab ataupun tutorial membuat grafik 3D dengan matlab. Tapi kali ini iseng2 saya ingin membuat grafik dengan visual basic, dan program ini sungguh sederhana dan semoga saja dapat menambah referensi anda dalam membuat simulasi di visual basic.

Baik berikut prosedur pembuatan program grafik penjualan pada Visual Basic :

1.  Bukalah aplikasi visual basic yang telah terinstall di PC anda, kemudian seperti biasa buat new project dengan standar.exe.

2.   Tambahkan kontrol grafik pada toolbox  dengan mengklik menu Project >> Components (Ctrl+T) kemudian pilih Microsoft Chart Control seperti contoh gambar dibawah ini dan OK

 Gambar Microsoft Control Chart Visual Basic 6.0

3.   Kemudian tambahkan 3 buah frame, 8 label, 6 textbox, 1 kontrol image, 2 CommandButton, dan pastinya control Mschart yang sudah kita tambahkan tadi.

4.      Lalu desainlah Form menjadi seperti gambar dibawah ini :

 Gambar Desain Grafik Penjualan dengan Visual Basic

5.      Aturlah properties kontrol-kontrol sesuai gambar diatas.

6.  Bukalah jendela program, lalu ketikkan kode / script / listing program seperti di bawah ini

Private Sub Command1_Click()

With Chart

        MSChart1.chartType = VtChChartType2dBar

        MSChart1.AllowSelections = False

        MSChart1.ColumnCount = 1

        MSChart1.RowCount = 6

        MSChart1.Row = 1

        MSChart1.RowLabel = "Januari"

        MSChart1.Data = Val(Text1.Text)

        MSChart1.Row = 2

        MSChart1.RowLabel = "Februari"

        MSChart1.Data = Val(Text2.Text)

        MSChart1.Row = 3

        MSChart1.RowLabel = "Maret"

        MSChart1.Data = Val(Text3.Text)

        MSChart1.Row = 4

        MSChart1.RowLabel = "April"

        MSChart1.Data = Val(Text4.Text)

        MSChart1.Row = 5

        MSChart1.RowLabel = "Mei"

        MSChart1.Data = Val(Text5.Text)

        MSChart1.Row = 6

        MSChart1.RowLabel = "Juni"

        MSChart1.Data = Val(Text6.Text)

       

    End With

End Sub

Private Sub Command2_Click()

End

End Sub

7.   Setelah anda yakin semuanya benar sekarang save dan jalankan (run) program. Lalu masukkan data penjualan pada tiap bulan dan klik Tampilkan, maka hasil tampilannya kan seperti gambar dibawah ini :

 Gambar Program Grafik Penjualan dengan Visual Basic

8.      Good Luck !!! ( Berbagi itu Indah )

Anda pernah main game ??? jawabannya pasti sering atau bahkan lupa waktu karena main game alias  ?Gamer Mania?. Game online seperti counter strike, point blank, poker, 3 kingdom, dan Dota saya yakin ini game tidak asing lagi ditelinga anda karena hampir di setiap sudut warung internet kita dapat menjumpainya.

Tapi jika ditanya Anda pernah bermain game buatan anda sendiri ??? saya yakin lebih dari 80 % jawabannya belum atau mungkin belum terpikir sama sekali untuk membuat game.

Baik kali ini saya akan menguraikan tentang proses bagaimana membuat game dengan software visual basic. Tetapi disini kita akan membuat game yang sederhana bukan membuat game seperti yang disebutkan diatas karena game seperti itu saya yakin sulit atau bahkan tidak bisa dibuat oleh satu orang artinya memerlukan banyak kepala dalam proses pembuatannya dan algoritma yang dipakai pun pasti sangat rumit.

Oke langsung saja berikut tutorial pembuatan game sederhana dengan Visual Basic :

1.      Bukalah aplikasi visual basic yang telah terinstall di PC anda, kemudian seperti biasa buat new project dengan standar.exe.

2.      Kemudian tambahkan 4 buah frame, 4 label, 9 kontrol image, 9 kontrol shape, 2 CommandButton, dan 2 buah timer pada form.

3.      Lalu desainlah menjadi seperti gambar dibawah ini :

 Gambar Pengaturan kontrol dalam Membuat Game VB

4.      Aturlah properties kontrol-kontrol sesuai gambar diatas dan isikan interval 100 pada kedua timer.

5.      Bukalah jendela kode, lalu ketikkan kode / script / listing program seperti di bawah ini :

Dim Merah, M1, M2, M3, M4, M5, M6, M7, M8, M9 As Boolean

Dim Hitam, H1, H2, H3, H4, H5, H6, H7, H8, H9 As Boolean

Dim Point_Merah As Integer

Dim Point_Hitam As Integer

Function Hidden()

Shape1.Visible = False

Shape2.Visible = False

Shape3.Visible = False

Shape4.Visible = False

Shape5.Visible = False

Shape6.Visible = False

Shape7.Visible = False

Shape8.Visible = False

Shape9.Visible = False

M1 = False: M2 = False: M3 = False: M4 = False

M5 = False:  M6 = False: M7 = False:  M8 = False:  M9 = False

H1 = False: H2 = False: H3 = False: H4 = False

H5 = False:  H6 = False: H7 = False:  H8 = False: H9 = False

End Function

Private Sub Command1_Click()

Hidden

Point_Merah = 0

Point_Hitam = 0

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Merah = True

Hitam = False

Shape1.Visible = False

Shape2.Visible = False

Shape3.Visible = False

Shape4.Visible = False

Shape5.Visible = False

Shape6.Visible = False

Shape7.Visible = False

Shape8.Visible = False

Shape9.Visible = False

End Sub

Private Sub Image1_Click()

If Merah = True And Shape1.Visible = False Then

Shape1.Visible = True

Shape1.BackColor = vbRed

M1 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape1.Visible = False Then

Shape1.Visible = True

Shape1.BackColor = vbBlack

H1 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image2_Click()

If Merah = True And Shape2.Visible = False Then

Shape2.Visible = True

Shape2.BackColor = vbRed

M2 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape2.Visible = False Then

Shape2.Visible = True

Shape2.BackColor = vbBlack

H2 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image3_Click()

If Merah = True And Shape3.Visible = False Then

Shape3.Visible = True

Shape3.BackColor = vbRed

M3 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape3.Visible = False Then

Shape3.Visible = True

Shape3.BackColor = vbBlack

H3 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image4_Click()

If Merah = True And Shape4.Visible = False Then

Shape4.Visible = True

Shape4.BackColor = vbRed

M4 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape4.Visible = False Then

Shape4.Visible = True

Shape4.BackColor = vbBlack

H4 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image5_Click()

If Merah = True And Shape5.Visible = False Then

Shape5.Visible = True

Shape5.BackColor = vbRed

M5 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape5.Visible = False Then

Shape5.Visible = True

Shape5.BackColor = vbBlack

H5 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image6_Click()

If Merah = True And Shape6.Visible = False Then

Shape6.Visible = True

Shape6.BackColor = vbRed

M6 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape6.Visible = False Then

Shape6.Visible = True

Shape6.BackColor = vbBlack

H6 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image7_Click()

If Merah = True And Shape7.Visible = False Then

Shape7.Visible = True

Shape7.BackColor = vbRed

M7 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape7.Visible = False Then

Shape7.Visible = True

Shape7.BackColor = vbBlack

H7 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image8_Click()

If Merah = True And Shape8.Visible = False Then

Shape8.Visible = True

Shape8.BackColor = vbRed

M8 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape8.Visible = False Then

Shape8.Visible = True

Shape8.BackColor = vbBlack

H8 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Image9_Click()

If Merah = True And Shape9.Visible = False Then

Shape9.Visible = True

Shape9.BackColor = vbRed

M9 = True

Hitam = True

Merah = False

Exit Sub

End If

If Hitam = True And Shape9.Visible = False Then

Shape9.Visible = True

Shape9.BackColor = vbBlack

H9 = True

Merah = True

Hitam = False

Exit Sub

End If

End Sub

Private Sub Timer1_Timer()

If M1 = True And M2 = True And M3 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If M4 = True And M5 = True And M6 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If M7 = True And M8 = True And M9 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If M1 = True And M5 = True And M9 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If M1 = True And M4 = True And M7 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If M3 = True And M5 = True And M7 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If M3 = True And M6 = True And M9 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If M2 = True And M5 = True And M8 = True Then

MsgBox "Pemain Merah yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Merah = Point_Merah + 1

Timer1.Enabled = True

End If

If H1 = True And H2 = True And H3 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

If H4 = True And H5 = True And H6 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

If H7 = True And H8 = True And H9 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

If H1 = True And H5 = True And H9 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

If H1 = True And H4 = True And H7 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

If H3 = True And H5 = True And H7 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

If H3 = True And H6 = True And H9 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

If H2 = True And H5 = True And H8 = True Then

MsgBox "Pemain Hitam yang Menang", vbOKOnly

Timer1.Enabled = False

Hidden

Point_Hitam = Point_Hitam + 1

Timer1.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

Label1.Caption = Point_Merah

Label2.Caption = Point_Hitam

End Sub

6.      Setelah anda yakin semuanya benar sekarang save dan jalankan (run) program. Maka tampilannya kan seperti gambar dibawah ini :

 Gambar Tampilan pertama Game pada VB

7.      Sekarang anda bisa mencoba game buatan anda sendiri (Good Luck)?!!!

(?Musuh terbesar kegagalan adalah usaha yang besar?)

 Gambar Tutorial Membuat Game Sederhana dengan VB

 Gambar keterangan Pemenang Game VB

Honda dengan mottonya "The Power of Dreams" membuat design revolusi baru dengan konsep mobil terbang. Mobil terbang adalah konsep baru yang didesign oleh Advanced Design Studio di Pasadena Honda, California.