WEEK14: PRESENTATION DAY

After struggling for nearly 14 weeks, I present the results of my work over the semester.  Dr Zainuddin bin Kornain and Madam Izanoordina binti Ahmad was access me. Both interested in my  project  that I produce. Alhamdulillah

WEEK13: DESIGN AND PRINT POSTER

In this week, i design the poster that need when the presentation day. The design complete by tuesday and i show to supervisor the softcopy to confirm the poster has no error. Below is the poster design:

WEEK12: ANALYSIS DATA RESULT

The product is cannot be use

The product is not in the list

The product is halal

 All above is result of the project. It is display in LCD laptop. For the bar code program set all "halal" product must start with 955 at front of bar code number. Either start number for example 899 program will assume it is "cannot be use". Beside that all the bar code number that not in the database, the program will display "not in the list".

WEEK11: FLOWCART OF PROJECT

Above is flowchart of the project. The software and hardware working nicely. Alhamdulillah 90% of my project is done.

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: