Category Archives: 17 june close 2 18june

17 june close 2 18june

17 june 2008

A day b4 my birthday…been waiting 2 celebrate so long. don’t know wht d surprise they gone make tonite….janji bkn somethin stupid dah, but have not 2 worry bout it la… they not going to do somethin redicilious.

Today i can’t even open my eyes, so exhausted. last night went to KK. Reach home about 4.30am, then ain lock d room, so yan n me have to sleep kat ruang tamu,day of unfortunate…..

Pagi ni x sedar aper… zakwan sms pon x sedar… pengsan dho.
Anyway best of luck 4 d driving test Mohd Zakuwan Bin mohd Tambidzi bin addullah bin ismail.Don’t make anymistake tau…

Last night know lots of people, eat till full,fell like bloody full….sampai raser cam nak termuntah… like revenge 4 day break…

Advertisements

Part of my works

‘READER MPT1
devModel = “AC800+”
devNo = “1”
ipAdd = “192.168.1.202”
portNo = “4370”
comm = “0”
commPort = “0”
baudRate = “115200”
reader = “1”

lvX.ColumnHeaders.Add 1, , “Enroll Number”, 500
lvX.ColumnHeaders.Add 2, , “verif ymode”, 1000
lvX.ColumnHeaders.Add 3, , “in out”, 1000
lvX.ColumnHeaders.Add 4, , “timestr”, 3000

CZKEM1.BASE64 = 1
bconn = False
CZKEM1.GetSDKVersion SDKVersion
labSDK.Caption = “SDKVersion:” + SDKVersion

If portNo = “” Then Exit Sub
bconn = CZKEM1.Connect_Net(CStr(ipAdd), CLng(portNo))
If bconn = True Then

StatusBar1.Panels(1).Text = “connect successful”

CZKEM1.Beep 150
Else
StatusBar1.Panels(1).Text = “connect fail”
Write #fn, “============================================================================ ”
Write #fn, “Date : ” + date_current + ” Time : ” + time_current
Write #fn, “Id Date Time WorkCode Reader IpAdress”
End If

If CZKEM1.ReadGeneralLogData(CInt(devNo)) Then
i = i + 1
Do While CZKEM1.GetGeneralLogDataStr(CInt(devNo), dwEnrollNumber, dwVerifyMode, dwInOutDate, timeStr)
lvX.ListItems.Add i, , dwEnrollNumber
With lvX.ListItems(i)
.SubItems(1) = IIf(IsNull(dwVerifyMode), “”, dwVerifyMode)
.SubItems(2) = IIf(IsNull(dwInOutDate), “”, dwInOutDate)
.SubItems(3) = IIf(IsNull(timeStr), “”, timeStr)

End With
i = i + 1
Debug.Print i
time = timeStr

id = (dwEnrollNumber)

If id 10 And id 100 And id 1000 And id 10000 And id 40000 And time_tmp 40000 And time_tmp 150000 And time_tmp 64500 And time_tmp < 83000)) Then
code = 1
Else
End If

Write #fn, (id_tmp) + ” ” & (timeStr) & ” ” & (code) & ” ” & (reader) & ” ” & ipAdd
oConn.Execute “insert into ea_attendancetxn (eaax_locid,eaax_termid,eaax_txndatetime,eaax_txnflag,eaax_staffid,eaax_mfgno,eaax_mykadflag) values (2,1,'” & time & “‘,'” & code & “‘, ‘” & id & “‘ ,'” & id & “‘ ,Null);”
Loop

Else
End If

Are u agree ?