Planet Gliese 581d Dipastikan Layak Huni

 Gliese 581d, sebuah planet bebatuan raksasa yang mengitari sebuah bintang red dwarf (bintang dengan massa lebih rendah dibanding Matahari dan bersuhu di bawah 4000 derajat Kelvin) dikonfirmasi sebagai planet pertama yang memenuhi persyaratan mampu menampung kehidupan.

Planet yang berjarak sekitar 20 tahun cahaya dari Bumi ini merupakan salah satu tetangga terdekat planet kita. Ia diperkirakan bersuhu cukup hangat dan cukup basah untuk menumbuh kembangkan kehidupan serupa yang dimiliki planet Bumi.

Gliese 581d mengorbit di zona Goldilocks (kawasan di mana kehidupan dimungkinkan terbentuk) milik bintang Gliese 581. Seperti diketahui, di Goldilocks zone, temperatur tidak terlalu panas sehingga menyebabkan air mendidih ataupun tidak terlalu dingin hingga membuatnya membeku namun  berada di suhu yang tepat agar air tetap dalam bentuk cair.

“Dengan atmosfir yang padat akan karbon dioksida, yang merupakan skenario paling memungkinkan untuk planet berukuran raksasa, iklim di Gliese 581d stabil dan cukup hangat untuk memiliki samudera, awan, dan curah hujan,” kata peneliti National Centre for Scientific Research (CNRS).

Dikutip dari Daily Galaxy, 19 Mei 2011, menurut penelitian yang dipublikasikan diAstrophysical Journal Letters, Gliese 581d memiliki massa setidaknya 7 kali lipat dibanding Bumi berukuran sekitar 2 kali lipat planet Bumi. 

Pengenalan Warna Menggunakan Visual Basic 6.0

Kesempatan kali ini kita akan belajar mengenai pengenalan warna menggunakan VV 6.0 , sebenernya sih ga susah-susah banget ,, ok langsung aja ..

1. Pertama kita buat dulu tampilan form seperti ini :

 2. Kemudian copy listing dibawah ini :

Private Sub cmbkeluar_Click()

If MsgBox("Yakin Mau Keluar?", vbYesNo, "Konfirmasi") = vbYes Then

Unload Me

End If

End Sub

Private Sub cmdbersih_Click()

thasil = ""

thasil.SetFocus

End Sub

Private Sub Form_Load()

Form1.BackColor = vbBlack

thasil.BackColor = &HFFFF80

End Sub

Private Sub oblue_Click()

thasil.ForeColor = vbBlue

End Sub

Private Sub obold_Click()

thasil.FontBold = True

thasil.FontUnderline = False

thasil.FontItalic = False

End Sub

Private Sub oitalic_Click()

thasil.FontBold = False

thasil.FontUnderline = False

thasil.FontItalic = True

End Sub

Private Sub ored_Click()

thasil.ForeColor = vbRed

End Sub

Private Sub ounderline_Click()

thasil.FontBold = False

thasil.FontUnderline = True

thasil.FontItalic = False

End Sub

Private Sub oyellow_Click()

thasil.ForeColor = vbYellow

End Sub

3. Untuk nama-nama toolboxnya bisa disesuaikan dengan listing ya

4. Oh ya untuk warna bisa kita ganti sesuai keinginan caranya tinggal ganti wana option button sesuai kemauan kita.

Contoh :

Private Sub oblue_Click()

thasil.ForeColor = vbBlue

End Sub

jadi :

Private Sub oblue_Click()

thasil.ForeColor = vbGreen

End Sub

5. Jangan lupa ubah juga caption dan name untuk option buttonnya biar ga bingung hehe

*** Oke deh selamat mencoba ***