Type BELLINFO
MValid MAX_BELLCOUNT_DAY (1) the As Byte
MHour (MAX_BELLCOUNT_DAY - 1) As Byte
MMinute (MAX_BELLCOUNT_DAY - 1) As Byte
24 byte End Type '
Dim mlngBellInfo (DataLen/4 to 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!"
The Else
FrmMain. FP_CLOCK1. GetLastError vErrorCode
LblMessage. Caption=ErrorPrint (vErrorCode)
End the If

Private Sub ShowValue ()
Dim As Long I

For I=0 To MAX_BELLCOUNT_DAY - 1
TxtHour (I). The Text=mBellInfo. MHour (I)
TxtMinute (I). The Text=mBellInfo. MMinute (I)
If mBellInfo. MValid (I) & gt; 1 Then mBellInfo. MValid (I)=0
ChkValid (I) Value=https://bbs.csdn.net/topics/mBellInfo.mValid (I)
Next I
TxtBellCount. Text=mBellCount
End Sub

CodePudding user response:

You can refer to the following link

http://bbs.csdn.net/topics/360161225

CodePudding user response:

I like http://bbs.csdn.net/topics/360161225 is, equipment are the same

CodePudding user response:

Define a blob of 24 bytes, ref,

CodePudding user response:

I also tried, blob array also didn't succeed

CodePudding user response:

refer to the second floor fuxiaoyang13 response:

I like http://bbs.csdn.net/topics/360161225 is the condition of the equipment are the same

In C or Delphi to encapsulate a dynamic libraries, and then to call with PB

CodePudding user response:

Only so, don't want to in the pb?

CodePudding user response:

refer to 6th floor fuxiaoyang13 response:

can only so, don't want to in the pb?

No, PB does not support pointer

CodePudding user response:

Why no one top?

CodePudding user response:

http://download.csdn.net/detail/liuchaobin/7472453
I in my computer test feasible? This gadget is only one pb by ole to a set of electronic watch will merge into a spreadsheet or a digital watch according to split into different electronic field conditions and pinyin query import electronic watch a try, you test over there is what? Thank you

Another consult pb ole excel sort syntax, thank you

CodePudding user response:

No one has ever top?

CodePudding user response:

VB to write a really not ocx for pb calls