Terdiri dari 22 ToolBox:
Object
|
Properties
|
Value
|
Label 1
|
Text
|
Nama
|
Label 2
|
Text
|
Absensi
|
Label 3
|
Text
|
Keaktifan
|
Label 4
|
Text
|
Tugas
|
Label 5
|
Text
|
UTS
|
Label 6
|
Text
|
UAS
|
Label 7
|
Text
|
Nilai
AKhir
|
Label 8
|
Text
|
GRADE
|
Label 9
|
Text
|
Keterangan
|
TextBox 1
|
Name
|
txtNama
|
TextBox 2
|
Name
|
txtAbsensi
|
TextBox 3
|
Name
|
txtKeaktifan
|
TextBox 4
|
Name
|
txtTugas
|
TextBox 5
|
Name
|
txtUts
|
TextBox 6
|
Name
|
txtUas
|
TextBox 7
|
Name
|
txtNilaiAkhir
|
TextBox 8
|
Name
|
txtGrade
|
TextBox 9
|
Name
|
txtKet
|
Button 1
|
Text/Name
|
&Hasil/btnHasil
|
Button 2
|
Text/Name
|
&Clear/btnClear
|
Button 3
|
Text/Name
|
&Exit/btnExit
|
Source Code :
Public Class ifdanelse
Private Sub btnUsia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUsia.Click
If rdbDibawah.Checked = True Then
MessageBox.Show("Kamu dibawah umur 16 Tahun!")
ElseIf rdbDiatas.Checked = True Then
MessageBox.Show("Kamu diatas umur 16 Tahun!")
End If
End Sub
Private Sub btnMoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMovie.Click
If chkUpin.Checked = True Then
MessageBox.Show("Kamu menyukai film upin dan ipin")
End If
If chkKiky.Checked = True Then
MessageBox.Show("Kamu menyukai film kiky si kancil")
End If
If chkMahabrata.Checked = True Then
MessageBox.Show("Kamu menyukai film mahabrat")
End If
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
End Class
1. Percabangan
IF dan ELSE IF
Object
|
Properties
|
Value
|
GroupBox 1
|
Text
|
Usia
|
GroupBox 2
|
Text
|
Movie
|
RadioButton 1
|
Text/Name
|
Usia
dibawah 16 tahun/rdbDibawah
|
RadioButton 2
|
Text/Name
|
Usia
diatas 16 tahun/rdbDiatas
|
CheckBox 1
|
Text/Name
|
Upin
dan Ipin/chkUpin
|
CheckBox 2
|
Text/Name
|
Kiky
si Kancil/chkKiky
|
CheckBox 3
|
Text/Name
|
Mahabrata/chkMahabrata
|
Button 1
|
Text/Name
|
&Usia/btnUsia
|
Button 2
|
Text/Name
|
&Keluar/btnKeluar
|
Button 3
|
Text/Name
|
&Movie/btnMovie
|
Source Code :
Public Class ifdanelse
Private Sub btnUsia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUsia.Click
If rdbDibawah.Checked = True Then
MessageBox.Show("Kamu dibawah umur 16 Tahun!")
ElseIf rdbDiatas.Checked = True Then
MessageBox.Show("Kamu diatas umur 16 Tahun!")
End If
End Sub
Private Sub btnMoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMovie.Click
If chkUpin.Checked = True Then
MessageBox.Show("Kamu menyukai film upin dan ipin")
End If
If chkKiky.Checked = True Then
MessageBox.Show("Kamu menyukai film kiky si kancil")
End If
If chkMahabrata.Checked = True Then
MessageBox.Show("Kamu menyukai film mahabrat")
End If
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
End Class
0 komentar:
Posting Komentar