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...

Source Code

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Nasi Pecel")
ComboBox1.Items.Add("Nasi Rawon")
ComboBox1.Items.Add("Nasi Soto")
ComboBox1.Items.Add("Nasi Gule")
ComboBox1.Items.Add("Teh Hangat")
ComboBox1.Items.Add("Es Teh")
End Sub

Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
If ComboBox1.Text = "Nasi Pecel" Then
TextBox1.Text = 5000
ElseIf ComboBox1.Text = "Nasi Rawon" Then
TextBox1.Text = 5500
ElseIf ComboBox1.Text = "Nasi Soto" Then
TextBox1.Text = 6000
ElseIf ComboBox1.Text = "Nasi Gule" Then
TextBox1.Text = 5000
ElseIf ComboBox1.Text = "Teh Hangat" Then
TextBox1.Text = 2000
ElseIf ComboBox1.Text = "Nasi Gule" Then
TextBox1.Text = 2500
End If
End Sub

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

Private Sub Btn_Pesan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Pesan.Click
ListBox1.Items.Add(ComboBox1.Text & vbTab & TextBox1.Text)
ComboBox1.Text = ""
TextBox1.Text = ""
ComboBox1.Focus()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
End Sub
End Class




JANGAN LUPA KOMENTARNYA YA......


Baca Selengkapnya...

Sebelumnya maaf karna mungkin program ku ini blm terlalu bagus,,,karna aku skarang baru belajar VB.Net
Desain form Seperti berikut:




ketijan Source Kode berikut:


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Focus()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.Focus()
End Sub

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf RadioButton2.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf RadioButton3.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf RadioButton4.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
ElseIf RadioButton5.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)
End If
End Sub
End Class

kemudian jalankan programnya,,,bisa dengan menekan tombol F5...
semoga bermanfaat...
Baca Selengkapnya...