传递VB数组给DLL中的函数

Private Declare Function OpenComm Lib "ScaleWeight" Alias "Open" (ByVal yibiaoType As String,ByVal Comm As String,ByVal Setup As String) As Boolean '打开串口
Private Declare Function GetWeight Lib "ScaleWeight" () As String  '获取重量
Private Declare Sub CloseComm Lib "ScaleWeight" Alias "Close" ()   '关闭串口

'辅助函数
Private Declare Function GetStatus Lib "ScaleWeight" () As Boolean '串口通信状态:true通信正常,false通信中断
Private Declare Function GetCount Lib "ScaleWeight" () As Integer  '获取串口缓冲区数据数量
Private Declare Function GetSourceData Lib "ScaleWeight" (ByRef buff As Byte) As Integer '获取原始数据
Private Declare Function Clear Lib "ScaleWeight" () As Integer  '清空缓冲区数据


Private Sub Command2_Click()
  Dim re As Boolean
  
  re = OpenComm(Combo1.Text,Text1.Text,Text2.Text)
  If re Then
     Label11.Caption = "串口打开成功"
  Else
     Label11.Caption = "串口打开失败，请检查串口是否存在"
  End If
End Sub


Private Sub Command3_Click()
  CloseComm
  Label11.Caption = "串口关闭"
End Sub

Private Sub Timer1_Timer()
  '读重量
  Label4.Caption = GetWeight()
  
  '读原始数据
  Text3.Text = ""
  Dim buff(1000) As Byte
  Dim nCount As Integer
  
  '传递数组作为参数
  nCount = GetSourceData(buff(0))
  If nCount > 0 Then
    For i = 0 To nCount
       Text3.Text = Text3.Text + " " + Str(buff(i))
    Next i
  End If
  
  '缓冲区数据数量
  Label9.Caption = GetCount()
  
  '通信状态
  Dim a As Boolean
  a = GetStatus()
  If a = False Then
     Label10.Caption = "通信数据中断"
  Else
     Label10.Caption = "通信正常"
  End If
  
  
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!