WEEK10: PROGRAM TESTING

In this week the program will be tested whether it can work with the scanner ARGOX 8250. The program look working without any problem but it must enhance with the many list of product.

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

WEEK8: START PROGRAMING AND DO BLOCK DIAGRAM OF PROJECT

In this week i start program the project. The result or actual program i expect done next week or at least two weeks from this week. The other side i completed do block diagram of the project. below is the block diagram of the project:

WEEK7: RESEARCH ON JAKIM AND HALAL DEVELOPMNET CENTRE

From research and my observations when visiting websites  JAKIM and Halal Industry Development Corporation, both sides are simply listing the companies and products that are halal approved. This means that the project is a promising because no longer be implemented by any party.