ASP源码.NET源码PHP源码JSP源码JAVA源码DELPHI源码PB源码VC源码VB源码Android源码
当前位置:首页 >> 网络编程 >> VB教程 >> 传递VB数组给DLL中的函数

传递VB数组给DLL中的函数

来源:网络整理     时间:2017-05-07     关键词:

本篇文章主要介绍了" 传递VB数组给DLL中的函数",主要涉及到方面的内容,对于VB教程感兴趣的同学可以参考一下: 用Cbuilder6编写一个标准的DLL给VB6调用,需要从DLL取出字节数组,在VB中接收。Private Declare Function OpenComm...

用C++builder6编写一个标准的DLL给VB6调用,需要从DLL取出字节数组,在VB中接收。
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  '清空缓冲区数据
Dim buff(100) As Long


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
 传递VB数组给DLL中的函数

以上就介绍了 传递VB数组给DLL中的函数,包括了方面的内容,希望对VB教程有兴趣的朋友有所帮助。

本文网址链接:http://www.codes51.com/article/detail_4307093.html

相关图片

相关文章