Ads 468x60px

Sabtu, 13 Oktober 2012

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  :)
















Tidak ada komentar:

Posting Komentar