Berikutlah langkah-langkahnya;
1. Bukalah aplikasi VB.NET
2. Buat desain seperti dibawah ini
3. Jika sudah maka masukkan kodingan pada setiap Button , seperti dibawah ini;
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "D3 MI" Then TextBox3.Text = "D3 MANAJEMEN INFORMATIKA"
If ComboBox1.Text = "S1 SI" Then TextBox3.Text = "S1 SISTEM INFORMASI"
If ComboBox1.Text = "S1 TI" Then TextBox3.Text = "S1 TEKNIK INFORMATIKA"
If ComboBox1.Text = "D3 MI" Then TextBox4.Text = "3850000"
If ComboBox1.Text = "S1 SI" Then TextBox4.Text = "4250000"
If ComboBox1.Text = "S1 TI" Then TextBox4.Text = "5000000"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ComboBox1.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bkuliah As New Integer
Dim discount As New Integer
Dim angsuran As New Integer
Dim spembayaran As New Integer
bkuliah = TextBox4.Text
discount = TextBox5.Text
angsuran = TextBox7.Text
spembayaran = bkuliah - discount - angsuran
TextBox6.Text = spembayaran
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked Then
TextBox5.Text = 0.1 * TextBox4.Text
TextBox7.Text = 0
End If
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked Then
TextBox7.Text = TextBox4.Text / 6
TextBox5.Text = 0
End If
End Sub
End Class
4. Jika udah maka RUN program tersebut
Ya begitulah langkah-langkah nya, sekian isi blog saya semoga bermanfaat . Terimakasi^^
0 komentar:
Posting Komentar