Desainlah Form Seperti berikut :




-ubah properti name button1 menjadi "btnulangi"
-ubah properti name button2 menjadi "btnselesai"

Kemudian Ketikan Source Kode berikut :



Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Focus()
ComboBox1.Items.Add("B002")
ComboBox1.Items.Add("C003")
ComboBox1.Items.Add("D004")
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox9.Enabled = False
End Sub
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
If ComboBox1.Text = "A001" Then
TextBox1.Text = "Mesin Cuci"
TextBox2.Text = 1000000
ElseIf ComboBox1.Text = "B002" Then
TextBox1.Text = "Kulkas"
TextBox2.Text = 1500000
ElseIf ComboBox1.Text = "C003" Then
TextBox1.Text = "Televisi"
TextBox2.Text = 1250000
ElseIf ComboBox1.Text = "D004" Then
TextBox1.Text = "Komputer"
TextBox2.Text = 3500000
End If
TextBox3.Focus()
End Sub



Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
If Val(TextBox3.Text) > 5 Then
TextBox5.Text = 0.3 * Val(TextBox4.Text)
Else
TextBox5.Text = 0
End If
TextBox6.Text = 0.1 * Val(TextBox4.Text)
TextBox7.Text = Val(TextBox4.Text) - Val(TextBox5.Text) + Val(TextBox6.Text)
TextBox8.Focus()
End Sub


Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
TextBox9.Text = Val(TextBox8.Text) - Val(TextBox7.Text)
End Sub

Private Sub btnselesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnselesai.Click
End
End Sub

Private Sub bersih()
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub

Private Sub btnulangi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnulangi.Click
bersih()
ComboBox1.Focus()
End Sub
End Class



kemudian jalankan programnya dan lihat hasilnya....
untuk aplikasi ini cukup sampai disini...Insya Allah postingan berikunya sudah menggunakan database....
Semoga Bermanfaat.....
Baca Selengkapnya...

Kode Program

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton3.Checked = False
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox2.Items.Add("Islam")
ComboBox2.Items.Add("Kristen Katolik")
ComboBox2.Items.Add("Kristen Protestan")
ComboBox2.Items.Add("Hindu")
ComboBox2.Items.Add("Budha")
ComboBox1.Items.Add("Makassar")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Ambon")
ComboBox1.Items.Add("Bogor")
ComboBox3.Items.Add("PNS")
ComboBox3.Items.Add("Wiraswasta")
ComboBox3.Items.Add("Pengusaha")
ComboBox3.Items.Add("Petani")
ComboBox4.Items.Add("Ibu Rumah Tangga")
ComboBox4.Items.Add("PNS")
ComboBox4.Items.Add("Wiraswasta")
End Sub
End Class

kemudian jalankan programnya bisa dengan menekan tombol F5.....

JANGAN LUPA KOMENTARNYA.....


Baca Selengkapnya...