Pages

Wednesday 1 January 2014

BELAJAR VB.NET : MEMBUAT PROGRAM PERSENTASE CINTA

Cinta, kita pasti sudah akrab dengan kata ini. Siapa sih yang tidak kenal dengan cinta dan apa pengaruhnya bagi hidup kita?? Menurut saya cinta itu penting karena disitu kita bisa berbagi dengan pasangan kita baik itu tentang pergaulan, studi, masalah hidup, dan sebagainya.
Yah disini kita tidak akan membahas terlalu banyak tentang cinta karena disini kita akan belajar membuat sebuah program yang berhubungan dengan cinta. Kalau kalian tanya "Kok tumben buat program tentang cinta??" saya akan menjawab "Karena saya lagi jatuh cinta dengan seseorang" heheehhe :P
Oke kita lanjut, saya menamakannya Program Persentase Cinta. Mengapa?? Karena program ini dapat memprediksi apakah anda cocok dengan pasangan anda dengan menggunakan angka dari 1-100%.

Mungkin anda ada yang akan bertanya "Kok program komputer bisa menghitung jumlah cinta seseorang??" Hahahahah tenang saja kita disini hanya akan membuat program yang tidak betul2 memprediksi kekuatan cinta seseorang alias BOHONGAN jadi jangan percaya dengan program seperti ini (Percayalah pada pasangan anda masing2 :D).
Disini kita hanya akan melatih skill kita dalam membuat sebuah program sederhana.
Sebelum kita membuat program ini, kita harus tahu bagaimana cara kerjanya. Cek it out!!
Tampilan saat programnya baru dijalankan
Silahkan masukkan nama dan tekan tombol Cek
Nah gambar diatas menjelaskan bagaimana cara program kita bekerja. Perlu saya jelaskan bahwa mengapa persentase nya bisa dihitung?? Apakah ada resep rahasianya (emangnya ini kraby patty!!) ?? Saya mengatakan "TIDAK ADA" kenapa ?? Karena kita hanya menggunakan angka acak dari 1-100 jadi tidak perlu ada yang namanya resep rahasia untuk menghitung persentasenya. 
Nah bagaimana cara membuatnya ?? Ikuti langkah dibawah ini : 
  • Buat ProjectBaru - WindowsApplication (seperti yg kalian lakukan biasa)
  • Buat 1 Label ganti property Name menjadi Label1 dan ganti property Text nya menjadi "Nama Anda" (lihat gambar dibawah)
  • Buat 1 Label ganti property Name menjadi Label2 dan ganti property Text nya menjadi "Nama Pasangan Anda"  (lihat gambar dibawah)
  • Buat 1 TextBox ganti property Name menjadi TextBox1 (lihat gambar dibawah)
  • Buat 1 TextBox ganti property Name menjadi TextBox2 (lihat gambar dibawah)
  • Buat 1 Button ganti property Name menjadi Button1 dan ganti property Text nya menjadi "Cek"  (lihat gambar dibawah)
  • Buat 1 Label ganti property Name menjadi Label3 dan ganti property Text nya menjadi "Persentase"  (lihat gambar dibawah)
  • Buat 1 Label ganti property Name menjadi PersentaseLabel dan ganti property Text nya          menjadi "0 %"  (lihat gambar dibawah)
Langkah selanjutnya yaitu memasukkan kodenya, silahkan double klik tombol Cek tadi dan masukkan kode dibawah ini :
 If Me.TextBox1.Text.Trim.Length = 0 Or Me.TextBox2.Text.Trim.Length = 0 Then
     MsgBox("Nama harus diisi", MsgBoxStyle.Critical, "Error")
 Else
     Dim nilai As Integer = 0
     Dim r As New Random
     nilai = r.Next(100)
     Me.PersentaseLabel.Text = nilai & " % "
 End If

Dari kode diatas kita bisa melihat bahwa :
  • Jika textbox nama dan pasangan tidak diisi maka akan keluar sebuah MessageBox yang mengharuskan nama harus diisi
  • Nilai yang ditampilkan adalah nilai random atau acak dari 1-100
Jika kodenya sudah dimasukkan semua, coba jalankan programnya dan lihat apa yang terjadi. Coba anda masukkan nama anda dan pasangan anda (kalau ada hehehe) dan jika anda tidak mempunyai pasangan kekasih maka anda boleh menulis nama siapapun yang anda suka :D

Jika anda masih bingung tentang tutorial diatas silahkan komen dibawah atau download programnya disini.

Nah sekian dari saya, semoga membantu, selamat mencoba.
Terima kasih telah membaca :D

0 comments:

Post a Comment

Followers