mValid(MAX_BELLCOUNT_DAY - 1) As Byte
mHour(MAX_BELLCOUNT_DAY - 1) As Byte
mMinute(MAX_BELLCOUNT_DAY - 1) As Byte
End Type '24byte
Dim mlngBellInfo(DataLen / 4 - 1) As Long
Dim mBellCount As Long
Dim mBellInfo As BELLINFO
vRet = frmMain.FP_CLOCK1.GetBellTime(mMachineNumber, mBellCount, mlngBellInfo(0))
If vRet = True Then
CopyMemory mBellInfo, mlngBellInfo(0), DataLen
ShowValue
lblMessage.Caption = "Success!"
Else
frmMain.FP_CLOCK1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If
Private Sub ShowValue()
Dim i As Long
For i = 0 To MAX_BELLCOUNT_DAY - 1
txtHour(i).Text = mBellInfo.mHour(i)
txtMinute(i).Text = mBellInfo.mMinute(i)
If mBellInfo.mValid(i) > 1 Then mBellInfo.mValid(i) = 0
chkValid(i).Value = mBellInfo.mValid(i)
Next i
txtBellCount.Text = mBellCount
End Sub
