form aplikasi game centre

Membuat form data game center dengan menggunakan visual studio 2010.

• Bukalah microsoft visual studio 2010 lalu pilih new project,kemudian pilih direktori unutk menyimpanya,alu pilih windows form application.
• langkah pertama buat 4 label masing masing label textnya diganti dengan cara mengganti text di kolom properties sebelah kanan bawah, buat juga 1 combo box dan 3 textbox

• nah sesudah itu kita tambahkan button

• kemudian kita masukan koding seperti ini:
• Public Class form1
• 
  
•     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
•         If ComboBox1.Text = "PC" Then txtperjam.Text = 3000 Else If ComboBox1.Text = "XBOX360" Then txtperjam.Text = 3500 Else txtperjam.Text = 3500
•     End Sub
• 
  
•     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
•         txttotal.Text = Val(txtperjam.Text) * Val(txtdurasi.Text)
•     End Sub
• 
  
•     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
•         txtdurasi.Text = ""
•         txtperjam.Text = ""
•         txttotal.Text = ""
•         ComboBox1.Text = ""
•     End Sub
• 
  
•     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
•         Dim pesan = MsgBox("Apakah Anda yakin ingin keluar?", vbYesNo, "KONFIRMASI")
•         If pesan = vbYes Then End
•     End Sub
• 
  
•     Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
• 
  
•     End Sub
• 
  
•     Private Sub txtperjam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtperjam.TextChanged
• 
  
•     End Sub
• 
  
•     Private Sub txtdurasi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdurasi.TextChanged
• 
  
•     End Sub
• 
  
•     Private Sub txttotal_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotal.TextChanged
• 
  
•     End Sub
• End Class

• kemudian kita beri sedikit variasi misalnya ditambahkan background maka hasilnya akan terlihat seperti ini : 

lalu kita coba unutk men debugnya:

dan misalnya kita contohkan untuk merental xbox 360 selama 5 jam maka hasilnya seperti ini:

   sekian dari saya dan trims  :)