Cara Menbuat Program Sederhan Dengan Vb.Net

Contoh cara membuat aplikasi kasir sebuah villa 

1. anda buka form seperti contoh dibawah ini...

2. Klik pada form yang telah anda buat seperti diatas tadi contoh kode source seperti ini.
Private Sub Form_Load()
Combo1 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Combo1.AddItem ("VIP")
Combo1.AddItem ("Kelas Menengah")
Combo1.AddItem ("Kelas Umum")

3. Untuk Menbuat tangal dan jam klik pada timer dan untuk sourenya bisa seperti ini
Private Sub Timer1_Timer()
Label12.Caption = Format(Date, "dd/mmmm/yyyy")
Label13.Caption = Time
End Sub
4.Untuk Membuat Tampilan Tipe-kamar, Fasilitas,Sewa harga kode sourcenya seperti ini Private Sub Combo1_Click()
If Combo1 = "VIP" Then
Text1 = "Kasur Empuk"
Text2 = "Kamar Mandi"
Text3 = "WC Duduk + Sower"
Text4 = "TV LCD 3D 42"
Text5 = "AC Panas + Dingin"
Text6 = 1000000
Else
If Combo1 = "Kelas Menengah" Then
Text1 = "Kasur Empuk"
Text2 = "Kamar Mandi"
Text3 = "WC Duduk + Sower"
Text4 = "TV LCD 21"
Text5 = "AC Biasa"
Text6 = 500000
Else
If Combo1 = "Kelas Umum" Then
Text1 = "Kasur Bisa"
Text2 = "Kamar Mandi"
Text3 = "WC Jongkok"
Text4 = "TV Tabung 21"
Text5 = "Kipas Bisa"
Text6 = 100000
End If
End If
End If
End Sub
5. Untuk Kode sourcenya fasilitas tambahan seperti ini Private Sub Option1_Click()
Text7 = 100000
End Sub
Private Sub Option2_Click()
Text7 = 110000
End Sub
Private Sub Option3_Click()
Text7 = 150000
End Sub
Private Sub Text7_Change()
End Sub
6. Untuk Kode Source Paket Makanan seperti ini Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 And Check3 = 1 Then
Text8 = 210000
Else
If Check1 = 1 And Check2 = 1 And Check3 = 0 Then
Text8 = 120000
Else
If Check1 = 1 And Check2 = 0 And Check3 = 1 Then
Text8 = 140000
Else
If Check1 = 1 And Check2 = 0 And Check3 = 0 Then
Text8 = 50000
Else
Text8 = 0
End If
End If
End If
End If
End Sub
Private Sub Check2_Click()
If Check2 = 1 And Check1 = 1 And Check3 = 1 Then
Text8 = 210000
Else
If Check2 = 1 And Check1 = 1 And Check3 = 0 Then
Text8 = 120000
Else
If Check2 = 1 And Check1 = 0 And Check3 = 1 Then
Text8 = 160000
Else
If Check2 = 1 And Check1 = 0 And Check3 = 0 Then
Text8 = 70000
Else
Text8 = 0
End If
End If
End If
End If
End Sub
Private Sub Check3_Click()
If Check3 = 1 And Check2 = 1 And Check1 = 1 Then
Text8 = 210000
Else
If Check3 = 1 And Check2 = 1 And Check1 = 0 Then
Text8 = 160000
Else
If Check3 = 1 And Check2 = 0 And Check1 = 1 Then
Text8 = 140000
Else
If Check3 = 1 And Check2 = 0 And Check1 = 0 Then
Text8 = 90000
Else
Text8 = 0
End If
End If
End If
End If
End Sub
7. Untuk Sourcenya Hitung seperti ini
Private Sub Command1_Click()
Text10 = Val(Text6) * (Text9) + (Text7) + (Text8)
Text12 = Val(Text11) - (Text10)
End Sub
8. Untuk Source Keluar seperti ini
Private Sub Command3_Click()
Dim pesan As String
pesan = MsgBox("Yakin Mau Keluar??", vbYesNo + vbExclamation, "Konfirmasi")
If pesan = vbYes Then
End If
Unload Me
End Sub
9. Untuk Source Bersih Seperti ini
Private Sub Command2_Click()
Combo1 = ""
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Option1 = False
Option2 = False
Option3 = False
Check1 = 0
Check2 = 0
Check3 = 0
Text1.SetFocus
End Sub
10 Jalan kan Progaram bila tidak ada kesalahan akan ada laporan.. selamat mencoba sukses