WEEK9: VISUAL BASIC PROGRAM

Private Sub Code_Change()
'Dim code As String
code = code.Text
If (code = "9556107301300") Then
Location.Text = "BES MINUMAN BUAH OREN [SUNQUICK]"
Status.Text = "HALAL"
Timer2 = True
Else
If (code = "9556570103364") Then
Location.Text = "SUSU KACANG SOYA SEASONS [F&N]"
Status.Text = "HALAL"
Timer2 = True
Else
If (code = "9556570311134") Then
Location.Text = "MINUMAN ISOTONIK 100 PLUS [100PLUS]"
Status.Text = "HALAL"
Timer2 = True
Else
If (code = "025296932026") Then
Location.Text = "MI SEGERA PERISA ASLI [CINTAN]"
Status.Text = "HALAL"
Timer2 = True
Else
If (code = "9556166041513") Then
Location.Text = "SUSU BERPERISA STRAWBERI [DUTCH LADY]"
Status.Text = "HALAL"
Timer2 = True
Else
If (code = "9557062402071") Then
Location.Text = "SNEK JAGUNG JAGUNG PERISA KEJU [CORNTOZ]"
Status.Text = "HALAL"
Timer2 = True
Else
If (code = "9556139861919") Then
Location.Text = "MINUMAN MABUK [CARLSBERG]"
Status.Text = "CANNOT BE USE"
Timer2 = True
Else
Location.Text = "NOT IN THE LIST"
Status.Text = "NO IN THE LIST"
Timer2 = True
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub Reset_Click()
code.Text = ""
Location.Text = ""
Status.Text = ""
End Sub

Private Sub Timer1_Timer()
Dim Today As Variant
Today = Now
lblTime.Caption = Format(Today, "hh:mm:ss ampm")
End Sub

Private Sub Timer2_Timer()
code.Text = ""
Location.Text = ""
Status.Text = ""
Timer2 = False
End Sub