10 TIPS – TRIK MEMBELI HP SECOND ATAU BEKAS


Saya akan sedikit membagi Tips – Trik Membeli Hp Second Atau Bekas baik itu hp nokia, siemens, Sony Ericsson, Motorola, Samsung, O2, BlackBerry, LG dan lain-lain. Mungkin karena keterbatasan dana yang kita miliki, maka dengan terpaksa terkadang kita harus membeli ponsel second / bekas untuk menyesuaikan dengan kantong kita. Tapi tenang saja kawan, jikalau kita pintar dalam memilih HP second atau bekas tadi, insyaAllah kita akan mendapatkan HP yang masih berkualitas.  
tips-trik membeli hp/ponsel second atau bekas
1. Perhatikan Kondisi Fisik HP dan kelengkapan.
Periksalah kondisi luar maupun dalam ponsel apakah masih dalam keadaan baik, Jangan terkecoh dengan Cassing yang bagus/bersih. Lihat kondisi segel, apakah ada tanda-tanda pernah di bongkar? Perhatikan warna baut dan bentuk kembangnya, biasanya ponsel yg pernah di utak-atik warna bautnya sedikit memudar dan btk kembangnya sudah agak rusak. Setelah anda memeriksa kondisi ponsel, maka selanjutnya hidupkan ponsel, coba semua tombol-tombol pada keypad apakah ada yang macet ataupun malah tidak berfungsi. Cobalah menekan sembarang tombol angka pada keypad sebanyak mungkin dan pastikan ponsel tidak hang. Lalu pastikan fungsi-fungsi pada menu semua berfungsi dengan baik, misalnya: ringtone, getar, kamera, bluetooth, radio dan lain-lain.

2. Kondisi Baterai.
Tidak mudah untuk tahu kondisi baterai Handphone yang kita beli, apakah masih baik dan normal atau sudah ngedrop. Baterai yang bocor hanya bartahan satu atau dua hari dalam posisi standby dan beberapa jam saat kondisi sering digunakan. Jarang penjual yang terus terang tentang kondisi baterai HP karena tentunya akan menurunkan Harga HP yang ditawarkan. Cara yang terbaik adalah menanyakan dengan sopan tentang kondisi baterai, apakah masih baik dan normal atau bermasalah alias bocor.

3. Charger
Perhatikan charger-nya. Biasanya yang tidak original lama proses charger-nya, sebaliknya yang original cepat proses charger-nya. Fisik charger yang original lebih berat dibandingkan dengan yang tidak original. Kabel original lebih panjang dibanding yang tidak original.

4. Sinyal
Pastikan sinyal ponsel masih baik. Untuk mengecek sinyal ada cara yang ampuh yaitu menggunakan kartu yang di daerah Anda sinyalnya paling bagus. Jika menggunakan kartu itu saja sinyal terlihat naik turun terlalu lama mungkin sinyal sudah bobrok.

5 . Garansi.
Tanyakan kepada si penjual apakah hp/ponsel bekas atau second tersebut masih dalam masa garansi, biasanya ponsel yang masih bergaransi adalah ponsel yang belum berumur lebih dari setahun dari tanggal pembelian tangan pertama, jika tidak garansi lagi, sebaiknya anda tanyakan kepada si penjual untuk berapa lama ia berani menjamin hp tersebut, usahakan nyatakan secara tertulis atau paling tidak tulis dalam kwitansi pembelian. Karena barang hasil perbaikan dari yang rusak belum tentu stabil dan lengkap fungsinya. Pertimbangkan untuk tidak membeli HP apabila tidak ada jaminan, kecuali anda menanggung resiko yang besar.

6. Nomor IMEI
Periksalah dengan seksama apakah sama semua antara nomor IMEI pada ponsel (biasanya tertera di bagian belakang ponsel/dibalik battery), nomor IMEI pada program ponsel(mesin ponsel) dan nomor IMEI yang tertera pada dos ponsel. Hal ini dilakukan adalah untuk mempermudah anda untuk menjual kembali ponsel ini dikemudian hari sebab nomor IMEI pasti cocok semua.

7. Survey.
Hal terpenting sebelum Anda belanja handphone bekas adalah survey harga. Pengetahuan Anda tentang harga akan menyelamatkan Anda dari membayar lebih mahal dan harga pasar. Pelajari panduan terkini, panduan harga dapat anda temukan di koran atau media yang banyak memuat panduan harga ponsel second seperti koran atau situs / web yang menyediakan secara lengkap harga-harga terbaru dari hp / ponsel Second. Pelajari datanya dan sesuaikan dengan kemampuan kantong anda untuk membeli yang sesuai type cell phone yang anda inginkan.

8. Sparepart
Sebisa mungkin pilih hp / ponsel yang masih lengkap seperti kotak hp, buku manual, kabel data, ataupun CD software (jika memang masih ada) serta sebaiknya anda memilih ponsel yang memiliki jaringan servis yang banyak, hal ini mempermudah anda dalam memperbaiki kerusakan yang mungkin terjadi saat anda menggunakan ponsel tersebut, demikian juga dengan ketersediaan suku cadang/sparepart ataupun aksesori ponsel yang lengkap.

9. Curiga.
Hati-hati apabila anda ditawarkan seseorang sebuah Ponsel Second apalagi apabila yang ditawarkan terasa murah sekali baik di counter maupun dijalan. Memelihara rasa curiga akan lebih baik daripada anda membeli barang hasil tindak kejahatan atau semacamnya. Dan jangan pernah membeli barang panas atau istilah yang kita kenal Black Market karna itu akan merugikan anda sendir nantinya.

10. Tawar Harga
Kita pembeli adalah raja dan selain itu keuntungan membeli HP second adalah kita bisa melakukan tawar-menawar kepada penjual. Kita bisa mendapatkan HP second murah jika kita pintar-pintar memanfaatkan kondisi HP sebagai ‘senjata’ untuk menawar, misalnya dari cacat fisik atau kelengkapan HP yang kurang atau bukan original. Penjual pun sudah pasti memasang harga HP lebih tinggi dari modal yang mereka keluarkan, sehingga akan rugi rasanya jika kita tidak menawar harga yang mereka tetapkan.

Jika ke 10 Tips – Trik Membeli Hp Second Atau Bekas  ini anda sudah aplikasikan InsyaAllah kawan. Anda akan mendapatkan hp second yang masih berkualitas dan memuaskan. Good Luck !!!

KUMPULAN PUISI CINTA JALALUDIN RUMI

Jalaludin Rumi atau nama lengkapnya Maulana Jalaluddin Rumi Muhammad bin Hasin al Khattabi al-Bakri adalah sang pujangga dari tanah Persia. Selain penyair dia juga tokoh sufi yang berpengaruh di zamannya dia lahir pada 30 September 1207 Masehi di Balkh sebuah kota kecil di kota Khurasan, Afghanistan dan meninggal pada 17 Desember 1273 Masehi di Konya (Turki).
 Gambar Sufi dan penyair puisi Terkemuka jalaludin Rumi
 Gambar Sufi Terkemuka jalaludin Rumi
Jalaluddin Rumi, ia mengekspresikannya tulisannya dalam bahasa cinta yang syarat makna. Melalui puisi-puisinya Rumi menyampaikan bahwa pemahaman atas dunia hanya mungkin didapat lewat cinta, bukan semata-mata lewat kerja fisik. Dalam puisinya Rumi juga menyampaikan bahwa Tuhan, sebagai satu-satunya tujuan, tidak ada yang menyamai.
gambar puisi cinta karya jalaludin rumi
Berikut kumpulan puisi atau syair Jalaludin Rumi tentang Cinta :

KERANA CINTA
Kerana cinta duri menjadi mawar
kerana cinta cuka menjelma anggur segar
Kerana cinta keuntungan menjadi mahkota penawar
Kerana cinta kemalangan menjelma keberuntungan
Kerana cinta rumah penjara tampak bagaikan kedai mawar
Kerana cinta tompokan debu kelihatan seperti taman
Kerana cinta api yang berkobar-kobar
Jadi cahaya yang menyenangkan
Kerana cinta syaitan berubah menjadi bidadari
Kerana cinta batu yang keras
menjadi lembut bagaikan mentega
Kerana cinta duka menjadi riang gembira
Kerana cinta hantu berubah menjadi malaikat
Kerana cinta singa tak menakutkan seperti tikus
Kerana cinta sakit jadi sihat
Kerana cinta amarah berubah
menjadi keramah-ramahan

KEARIFAN CINTA
CINTA yang dibangkitkan
oleh khayalan yang salah
dan tidak pada tempatnya
bisa saja menghantarkannya
pada keadaan ekstasi.
Namun kenikmatan itu,
jelas tidak seperti bercinta dengan kekasih sebenarnya
kekasih yang sedar akan hadirnya seseorang

CINTA
“Dia adalah, orang yang tidak mempunyai ketiadaan,
Saya mencintainya dan Saya mengaguminya,
Saya memilih jalannya dan Saya memalingkan muka ke jalannya.
Setiap orang mempunyai kekasih, dialah kekasih saya,
Kekasih yang abadi. Dia adalah orang yang Saya cintai,
Dia begitu indah, oh dia adalah yang paling sempurna.
Orang-orang yang mencintainya adalah para pecinta
yang tidak pernah sekarat. Dia adalah dia dan
dia dan mereka adalah dia.Ini adalah sebuah rahasia
Jika kalian mempunyai cinta, kalian akan memahaminya.

CINTA : LAUTAN TAK BERTEPI
Cinta adalah lautan tak bertepi
langit hanyalah serpihan buih belaka.
Ketahuilah langit berputar karena gelombang Cinta
Andai tak ada Cinta, Dunia akan membeku.
Bila bukan karena Cinta,
Bagaimana sesuatu yang organik berubah menjadi tumbuhan?
Bagaimana tumbuhan akan mengorbankan diri demi memperoleh ruh (hewani)?
Bagaimana ruh (hewani) akan mengorbankan diri demi nafas (Ruh) yang menghamili Maryam?
Semua itu akan menjadi beku dan kaku bagai salju
Tidak dapat terbang serta mencari padang ilalang bagai belalang.
Setiap atom jatuh cinta pada Yang Maha Sempurna
Dan naik ke atas laksana tunas.
Cita-cita mereka yang tak terdengar, sesungguhnya, adalah
lagu pujian Keagungan pada Tuhan.

PERIH CINTA
Perih Cinta inilah yang membuka tabir hasrat pencinta:
Tiada penyakit yang dapat menyamai dukacita hati ini.
Cinta adalah sebuah penyakit karena berpisah, isyarat
Dan astrolabium rahasia-rahasia Ilahi.
Apakah dari jamur langit ataupun jamur bumi,
Cintalah yang membimbing kita ke Sana pada akhirnya.
Akal ’kan sia-sia bahkan menggelepar ’tuk menerangkan Cinta,
Bagai keledai dalam lumpur: Cinta adalah sang penerang Cinta itu sendiri.
Bukankah matahari yang menyatakan dirinya matahari?
Perhatikanlah ia! Seluruh bukit yang kau cari ada di sana.

PERNYATAAN CINTA
Bila tak kunyatakan keindahan-Mu dalam kata,
Kusimpan kasih-Mu dalam dada.
Bila kucium harum mawar tanpa cinta-Mu,
Segera saja bagai duri bakarlah aku.
Meskipun aku diam tenang bagai ikan,
Tapi aku gelisah pula bagai ombak dalam lautan
Kau yang telah menutup rapat bibirku,
Tariklah misaiku ke dekat-Mu.
Apakah maksud-Mu?
Mana kutahu?
Aku hanya tahu bahwa aku siap dalam iringan ini selalu.
Kukunyah lagi mamahan kepedihan mengenangmu,
Bagai unta memahah biak makanannya,
Dan bagai unta yang geram mulutku berbusa.
Meskipun aku tinggal tersembunyi dan tidak bicara,
Di hadirat Kasih aku jelas dan nyata.
Aku bagai benih di bawah tanah,
Aku menanti tanda musim semi.
Hingga tanpa nafasku sendiri aku dapat bernafas wangi,
Dan tanpa kepalaku sendiri aku dapat membelai kepala lagi.

TANPA CINTA, SEGALANYA TAK BERNILAI
Jika engkau bukan seorang pencinta,
maka jangan pandang hidupmu adalah hidup
Sebab tanpa Cinta, segala perbuatan tidak akan
dihitung Pada Hari Perhitungan nanti
Setiap waktu yang berlalu tanpa Cinta,
akan menjelma menjadi wajah yang memalukan dihadapanNya.
Burung-burung Kesedaran telah turun dari langit
dan terikat pada bumi sepanjang dua atau tiga hari
Mereka merupakan bintang-bintang di langit
agama yang dikirim dari langit ke bumi
Demikian pentingnya Penyatuan dengan Allah
dan betapa menderitanya Keterpisahan denganNya.
Wahai angin, buatlah tarian ranting-ranting
dalam zikir hari yang kau gerakkan dari Persatuan
Lihatlah pepohonan ini ! Semuanya gembira
bagaikan sekumpulan kebahagiaan
Tetapi wahai bunga ungu, mengapakah engkau larut dalam kepedihan ?
Sang lili berbisik pada kuncup : “Matamu yang menguncup akan segera mekar. Sebab engkau telah merasakan bagaimana Nikmatnya Kebaikan.”
Di manapun, jalan untuk mencapai Kesucian Hati
adalah melalui Kerendahan Hati.
Hingga dia akan sampai pada jawaban “YA” dalam pertanyaan :
“Bukankah Aku ini Rabbmu ?”

By: Jalaludin Rumi

PUISI KARYA W.S. RENDRA | PUISI RAHASIA KEINDAHAN LAUTAN

Rendra yang dijuluki “Si Burung Merak” adalah salah satu penyair dan budayawan terbaik yang dimiliki negeri ini rendra dilahirkan di solo 7 november 1935. Mula-mula ia bernama Willibrodus Surendra Broto, namun setelah memeluk islam ia merubah namanya menjadi Wahyu Sulaiman Rendra. W.S. Rendra wafat pada Kamis, 6 Agustus 2009, pukul 22.30 karena sakit.
Gambar W.S. Rendra sang penyair puisi
 Gambar W.S. Rendra sedang Berpuisi
Pengaruh WS Rendra dalam kesusastraan indonesia begitu dahsyat. Karya-karyanya seperti drama Orang-orang di Tikungan Jalan, Selamatan Anak Cucu Sulaiman hingga Kasidah Barzanji dan puisi Ballada Orang-Orang Tercinta, Sajak-sajak Sepatu Tua,  Mencari Bapak, Potret Pembangunan Dalam Puisi dan masih banyak lagi, menjadi pijakan dalam dunia sastra indonesia.
Berikut salah satu puisi rendra yang terkenal yang berjudul “Lautan” :    
gambar rahasia keindahan lautan   
Gambar Rahasia Keindahan lautan      

Daratan adalah rumah kita
dan lautan adalah kebebasan
langit telah bersatu dengan samudra
dalam jiwa dan dalam warna

Ke segenap arah 
berlaksa-laksa hasta
di atas dan di bawah
membentang warna biru muda
tanpa angin
mentari terpancang
bagai kancing dari tembaga

Tiga buah awan yang kecil dan jauh
berlayar di langit dan di air
bersama dua kapal layar
bagai sepasang burung camar
dari arah yang berbeda

Sedang lautan memandang saja
dihadapan wajah lautan
nampak diriku yang pendusta

Disini semua harus telanjang
bagai ikan di lautan
dan burung di udara
Tak usah bersuara !
Janganlah bersuara !
Suara dan kata terasa dena

Daratan adalah rumah kita,
dan lautan adalah rahasia

MEMBUAT GRAFIK PENJUALAN DENGAN VISUAL BASIC

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
 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
 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
 Gambar Program Grafik Penjualan dengan Visual Basic
8.      Good Luck !!! ( Berbagi itu Indah )

TUTORIAL MEMBUAT GAME SEDERHANA DENGAN VISUAL BASIC

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.

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
 Gambar keterangan Pemenang Game VB

STATUS FACEBOOK GOKIL LUCU KEREN POPULER DAN FENOMENAL


Facebookers anda bingung untuk update status ??? Baiklah saya akan mencoba untuk membantu anda dengan menghadirkan status-status di facebook yang gokil, lucu, keren, romantis, indah, kontroversial, populer dan fenomenal…hahaha mungkin sedikit berlebihan. Tapi jujur status-status ini banyak yang di komentari dan disukai oleh teman-teman saya.

1.  Kumpulan Status Facebook tentang motivasi diri :

- Kita harus berani melawan badai untuk menjejaki  tangga kesuksesan

- Berusaha u/membangkitkan rasa itu kembali demi masa depan yg gemilang...
 update status facebook gokil lucu keren populer
- Apapun konsekuensinya aku akan tetap berlari untuk mengejar mimpi itu

- Terus melangkah walaupun tertatih,,, hingga tujuan itu tercapai

- Aku akan berjalan bersama mereka yang berjalan.
Karena aku tidak akan berdiri diam sebagai penonton yang menyaksikan
mereka berlalu.

- Malas itu hanya datang dari hati yg kotor kawan.

- Segala sesuatu yg mengghalangi cita2ku akan kusingkirkan apapun itu ...!

- Banyak dapat pembelajaran dari smua ini...kesalahan ini tak kan kubiarkan terulang lagi...

- Bismillah aku yakin ada mutiara sesudah ini semua

-Perlahan mulai bangkit dan bergerak,,setelah sekian lama kehilangan ruh semangat itu

- if you fail to plan, you plan to fail

- Kesalahan adalah guru terbaik

- Ketika kekalahan itu datang maka akan kusambut dg senyum keindahan

- Alhamdulillah...hari ini mendapat pembelajaran yg sangat berarti

- "hidup bukanlah sekedar u/septg roti"...Spriritualisme slalu berperan besar dlm pencetakan para powerful leaders.

- Semangat2 tinggal satu hari lagi,,,akan ada happy ending setelah ini !!!

- Kehidupan adalah akumulasi dari berbagai pengalaman

- Jarak antara sungguh2 dan sukses, hanya bisa di isi oleh kesabaran

2.  Kumpulan Status Facebook Tentang Cinta yang Romantis :

- Kau cantik dan sederhana..ehmm..

- Sebaris waktu bersamamu menjadi pahatan terindah dalam perjalanan hidupku

- Kecantikanmu itu sudah sungguh keterlaluan...

- Tinggal tunggu waktu kau akan kubahagiakan...

- Aku tidak tahu apakah rasa ini dapat disebut “CINTA”

- Suasana ini,, suasanana yg sdh lama kurindukan...

- Senyum merupakan jarak yang terdekat  antara dua manusia

- Ketahuilah, apapun yang menjadikanmu tergetar, itulah yang terbaik untukmu !

- Pagi2 dengar lagu armada-pemilik hatiku...that song evokes my sweet memory and reminds me of someone..he3

- Mungkinkah masih ada waktu Yg tersisa untukku...
   Inginku melepasmu dengan senyuman...

- Bukan tidak mungkin ini akan menjadi sebuah keniscayaan...aku akan menanti celah dihatimu..

3.  Kumpulan status facebook Untuk Sahabat :

- Kutitip mimpi dan cintaku padamu kawan...

- Jangan kamu berjalan didepanku, aku tak dapat mengikuti mu. Jangan kamu berada di belakangku ,aku tak bisa memimpinmu. Berjalanlah disampingku, jadilah “temanku”.

- InsyaAllah keakraban kita friends tidak akan luntur oleh waktu..

- Hidup ini terlalu mudah & indah jika kita berdua yg menghadapinya kawan.

- Benar kata SO7 "Bersenang-senanglah karna hari ini akan kita rindukan, dihari nanti "

- Sepertinya nanti,,aku akan merindukan suasana ini

4.  Kumpulan Status Facebook tentang Politik :

- PM Jepang mengundurkan diri karna tidak bisa mewujudkan janji kampanyenya...
Bisakah pejabat kita seperti itu ?

- Ia hanya menjadi simbol dinegaranya layaknya boneka yg didikte oleh mereka yg ada kepentingan,,ia tidak berani mengikuti hati nuraninya karna ia tahu resiko melawan arus parlemen seperti yg telah dialami oleh pendahulunya..

- Dengarkan apa kata hatimu boy..jangan terpengaruh oleh paradigma dari luar..dan doktrin yg menyesatkan !

- Saya percaya Ideologi itu berawal dari goresan...
     Bahkan ada temanku yang bercita-citakan mengubah pola pikir masyarakat Eropa melalui tulisan...

- Berharap ada pemimpin yang seperti salahuddin al-ayubi dizaman seperti ini...

- Konsekuensi logis akibat percaya dr hal-hal mitos demi mempertahankan adat turun menurun, syirik adalah dosa yg tdk terampuni kawan

- Negeri ini telah dibuat lucu oleh si gayus dengan uangnya, dan PSSI yg semakin Diktator..Benar kata Dedy Mizwar "alangkah lucunya negeri ini"

- Kita berharap ini murni hanya u/membantu persepak bolaan Indonesia,,bukan sebuah pencitraan demi kepentingan partai.

- Sungguh ironis ketika transportasi publik malah menjd teror bg masyarakat...satu kata "amburadul"

5.   Kumpulan Status Facebook Tentang Keindahan Alam :

- Embun itu mulai ber metamorfosa menjd kristal2 indah, yg menyenangkan hati stiap org yg melihatnya

- Sebab dalam kesederhanaan embun, hati menemukan pagi yg segar.

- Pagi yg membawa pesan2 baru dr semesta, udara yg diam begitu indah menghadirkan bola matahari dg kemuning sinarnya.

- Embun itu akan senantiasa kujaga hingga matahari tak mampu menghapusnya

- Hanya angin dingin malam ini yg akan menjawabnya

- Bintang malam sampaikan padanya aq ingin melukis sinarmu dihatinya