Belajar Logika dan Pemrograman

Public Class Form4
Dim tahun As Integer
Dim JlhHari As String
Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
tahun = 1944
Do While tahun <= 2014
tahun += 1
thn.Items.Add(tahun)
Loop
bln.Items.Add("January")
bln.Items.Add("Febuary")
bln.Items.Add("March")
bln.Items.Add("April")
bln.Items.Add("May")
bln.Items.Add("June")
bln.Items.Add("July")
bln.Items.Add("August")
bln.Items.Add("September")
bln.Items.Add("October")
bln.Items.Add("November")
bln.Items.Add("December")
End Sub
Private Sub bln_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bln.TextChanged
JlhHari = 0
If bln.Text = "January" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "Febuary" Then
If Val(thn.Text) Mod 4 = 0 Then
Do While Val(JlhHari) <= 28
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
Else
Do While JlhHari <= 27
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
End If
ElseIf bln.Text = "March" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "April" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "May" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "June" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "July" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "August" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "September" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "October" Then
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
ElseIf bln.Text = "November" Then
Do While JlhHari <= 29
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
Else
Do While JlhHari <= 30
JlhHari += 1
tgl.Items.Add(JlhHari)
Loop
End If
End Sub

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

Private Sub btnLoad_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoad.Click
Me.OpenDlg.Filter = "File_Gambar (*.BMP;*.JPG;*GIF;*.ICO)|*.BMP; *.JPG;*.GIF;*.ICO|Semua_File (*.*)|*.*"
Me.OpenDlg.ShowDialog()
If Not Me.OpenDlg.FileName = "" Then
Me.picture.Image = Image.FromFile(OpenDlg.FileName)
End If
picture.SizeMode = PictureBoxSizeMode.StretchImage
End Sub


Private Sub show_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles show.Click
Dim nilai As Integer
Dim umur As String
Dim TglWkt As Date
TglWkt = Now
Select Case (bln.Text)
Case "January"
nilai = 1
Case "Febuary"
nilai = 2
Case "March"
nilai = 3
Case "April"
nilai = 4
Case "May"
nilai = 5
Case "June"
nilai = 6
Case "July"
nilai = 7
Case "August"
nilai = 8
Case "September"
nilai = 9
Case "October"
nilai = 10
Case "November"
nilai = 11
Case "December"
nilai = 12
End Select

If nilai < TglWkt.Month Then
umur = TglWkt.Year - Val(thn.Text)
Else
umur = TglWkt.Year - Val(thn.Text) + 1
End If

Dim kelas As String
If g1.Checked = True Then
kelas = "first class"
ElseIf g2.Checked = True Then
kelas = "second class"
ElseIf g3.Checked = True Then
kelas = "third class"
ElseIf g4.Checked = True Then
kelas = "fourth clas"
Else
kelas = "fifth class"
End If

Dim gender As String
If RadioButton1.Checked = True Then
gender = "He"
Else
gender = "She"
End If
MessageBox.Show(TextBox1.Text + " is a student in the " + kelas + "." & vbCrLf & gender + " is " + umur + " years old.")

End Sub

Private Sub btnNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNew.Click
Dim a As RadioButton

TextBox1.Text = ""
picture.Image = Nothing
For Each a In GroupBox1.Controls
a.Checked = False
Next
For Each a In GroupBox2.Controls
a.Checked = False
Next
tgl.Text = "(Tgl)"
bln.Text = "(Bln)"
thn.Text = "(Thn)"
End Sub
End Class