精华内容
下载资源
问答
  • vb.net函数返回数组

    千次阅读 2018-10-18 17:11:13
    今天写了一个程序需要函数返回数组,看了别的网友的程序发现有bug,特此... Private Function Fun_Fp32ToByte(ByVal fp32 As Single) As Byte() Dim byt(3) As Byte byt = System.BitConverter.GetBytes(fp32) ...

    今天写了一个程序需要函数返回数组,看了别的网友的程序发现有bug,特此记录一下

     

    返回函数写法

    
        Private Function Fun_Fp32ToByte(ByVal fp32 As Single) As Byte()
            Dim byt(3) As Byte
            byt = System.BitConverter.GetBytes(fp32)
            Debug.WriteLine("Gao      " & byt(3).ToString("X2"))
            Debug.WriteLine("ZhongGao " & byt(2).ToString("X2"))
            Debug.WriteLine("ZhongDi  " & byt(1).ToString("X2"))
            Debug.WriteLine("Di       " & byt(0).ToString("X2"))
    
            Return byt
        End Function

    调用方法

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    
            Dim tmp(3) As Byte
            tmp = Fun_Fp32ToByte(Fun_ByteToFp32(&HC2, &H54, &H80, &H0))
            For Each td As Byte In tmp
                Debug.WriteLine("数组返回  " & td.ToString("X2"))
            Next
    
    End Sub

    辅助函数

        '浮点数转换
        Private Function Fun_ByteToFp32(ByVal gao As Byte, ByVal zhonggao As Byte, ByVal zhongdi As Byte, ByVal di As Byte) As Single
            Dim byt(4) As Byte
            byt(3) = gao
            byt(2) = zhonggao
            byt(1) = zhongdi
            byt(0) = di
            Return System.BitConverter.ToSingle(byt, 0)
        End Function

    输出结果

    Gao           C2
    ZhongGao 54
    ZhongDi    80
    Di               00
    数组返回  00
    数组返回  80
    数组返回  54
    数组返回  C2
     

     

    展开全文
  • API函数是指,操作系统除了协调应用程序的执行、内存分配、系统资源管理外,同时也是一个很大的服务中心,调用这个服务中心的各种服务(每一种服务是一个函数),可以帮助应用程序达到开启...若有返回值,则可声明为Fun
    API函数是指,操作系统除了协调应用程序的执行、内存分配、系统资源管理外,同时也是一个很大的服务中心,调用这个服务中心的各种服务(每一种服务是一个函数),可以帮助应用程序达到开启视窗、描绘图形、使用周边设备的函数服务的对象的应用程序。
      利用VBa使用API函数的方法:
      (1)用Declare语句声明所要调用的API函数,若该函数无返回值,可声明为Sub过程;若有返回值,则可声明为Function函数。
      (2)一旦声明了某一个API函数后,就可以象调用VisualBasic的函数一样。但如果参数传递不对,可能会导致死机。
    展开全文
  • 内存加载DLL并调用函数--VB

    千次阅读 2013-12-23 17:37:06
    从内存中加载并调用DLL的代码,很邪恶,VBGOOD的仙剑魔同学从C翻译成VB的。 直接在内存中调用DLL中的函数 使用方法:  Dim data() As Byte  Dim handle As Long  Dim fun_stdcall As Long  Open ...

    从内存中加载并调用DLL的代码,很邪恶,VBGOOD的仙剑魔同学从C翻译成VB的。

    直接在内存中调用DLL中的函数

    使用方法:

      Dim data()  As Byte
        Dim handle As Long
        Dim fun_stdcall As Long
        Open "SampleDLL.dll" For Binary As #1
        ReDim data(0 To LOF(1) - 1)
        Get #1, , data
        Close #1    '先将DLL读取BYTE数组中

        handle = MemoryLoadLibrary(VarPtr(data(0)))   '加载DLL    
        fun_cdecl = MemoryGetProcAddress(handle, "subNumbers")  '取得函数地址    
         Debug.Print CallFunc_cdecl(fun_cdecl, 1, 2)  '调用函数 
        Call MemoryFreeLibrary(handle)  '擦屁股。。。

        Erase data   '释放数组内存

    VB代码下载: 

    点击下载内存中调用DLL函数(VB)

    也附上C的源代码吧:

    点击下载内存中调用DLL函数(C) 

     

    展开全文
  • 请教在VB中如何调用Dll中的这个函数 bool BeginMultiInv(unsigned char usercode, HANDLE_FUN fun_name ) fun_name 调用者定义的回调函数如下 void _stdcall handle_data(BYTE* pData, int length)
  • VB程序中有两个Timer,分别为Timer1,Timer2,Timer1中调用的函数fun()会在开始的时候开启Timer2,让Timer2中检测输入信号Input。若是检测到Input=1时,要立刻终止fun()函数,请问有什么方法可以实现?
  • 用vc写的DLL的有__stdcall才可以被其他的调用,所以。。。 vb调用 16 位DLL 调用方法与32 位DLL 调用方法类同。 语法: [Public | Private] Declare Fun Function name Lib "libname" [Alias "aliasname"] ...

    用vc写的DLL的有__stdcall才可以被其他的调用,所以。。。  
      vb调用  
      16   位DLL   调用方法与32   位DLL   调用方法类同。  
      语法:  
      [Public   |   Private]   Declare   Fun   Function   name   Lib   "libname"   [Alias   "aliasname"]  
      ction   [([arglist])]   [As   type]  
      Declare   语句的语法包含下面部分:  
      Public   可选的。用于声明对所有模块中的所有其它过程都可以使用的函数。  
      Private   可选的。用于声明只能在包含该声明的模块中使用的函数。  
      name   必需的。任何合法的函数名。动态链接库的入口处(entry   points)区分大小写。  
      libname   必需的。包含所声明的函数动态链接库名或代码资源名。  
      Alias   可选的。表示将被调用的函数在动态链接库(DLL)   中还有另外的名称。当外部函数名与某个函数重名时,就可以使用这个参数。当动态链接库的函数与同一范围内的公用变量、常数或任何其它过程的名称相同时,也可以使用Alias。如果该动态链接库函数中的某个字符不符合动态链接库的命名约定时,也可以使用Alias。  
      aliasname   可选的。动态链接库。如果首字符不是数字符号(#),则aliasname   是动态链接库中该函数的入口处的名称。如果首字符是(#),则随后的字符必须指定该函数的入口处的顺序号。  
      arglist   可选的。代表调用该函数时需要传递的参数的变量表。  
      type可选的。Function   返回值的数据类型;可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(只支持变长)或Variant,用户定义类型,或对象类型。  
      arglist   参数的语法以及语法各个部分如下:  
      [Optional]   [ByVal   |   ByRe   ByRef]   [ParamArray]   varname[(   )]   [As   type]   部分描述:  
      Optional可选的。表示参数不是必需的。如果使用该选项,则arglist   中的后续参数都必需是可选的,而且必须都使用Optional   关键字声明。如果使用了ParamArray,则任何参数都不能使用Optional。  
      ByVal   可选的。表示该参数按值传递。  
      ByRef   表示该参数按地址传递。  
      ParamArray   可选的。只用于arglist   的最后一个参数,表示最后的参数是一个  
      Variant   元素的Optional   的数组。使用ParamArray   关键字可以提供任意数目的参数。  
      ParamArray   关键字不能与ByVal、ByRef   或Optional   一起使用。  
      varname   必需的。代表传给该函数的参数的变量名;遵循标准的变量命名约定。  
      (   )   对数组变量是必需的。指明varname   是一个数组。  
      type可选的。传递给函数的参数的数据类型;可以是除Decimal   以外的任何类型。  
      说明:  
      Function   的数据类型决定其返回值的数据类型。可以在arglist   之后使用As   子句来指定函数返回值的数据类型。在arglist   中,可以使用As   子句来指定任何传给该函数的参数的数据类型。不单可以指定为任何标准数据类型,还可以在arglist   中指定As   Any   来禁止类型检查,从而允许将任意数据类型传递给该函数。空圆括号表示该Function   没有参数,且Visual   Basic   应确保不会传递任何参数。  
      注意:(1)   当所调用的外部函数需要一个值为0   的字符串时,就要使用vbNullString   常数。该常数与零长度字符串("")   是不相同的。  
      (2)   VB5   或VB6   调用32   位动态库,对于ASCII   码值大于128   的读写操作,请参考Examples   中16   进制方式读写。  

    转载于:https://www.cnblogs.com/penglink/archive/2009/09/12/1565297.html

    展开全文
  • vb接口的实现

    千次阅读 2013-12-29 18:36:19
    '什么是回调函数?回调函数就是由你自己写的。你需要调用另外一个函数,而...'作为另外一个函数的参数,比如有以下两个函数 CallFun是回调函数, MainFun是调用回调函数函数 'Private Sub CallFun(i as Integer) ' 'End
  • vc DLL vb 调用

    千次阅读 2006-12-07 22:30:00
    VC开发的dll要vb调用有这几个步骤要做在vc中extern "C" __declspec(dllexport) 参数 __stdcall fun(参数)vc中设置 "模块定义文件" 设置 xxx.def文件xxx.def文件里面写函数的倒出名称, funvb中调用:Private Declare...
  • vb.net 使用windows API方法

    千次阅读 2017-02-08 09:13:41
    首先确定使用的API所在的动态库,例:gettickcount 函数 在kerner32.dll中  第二步,声明到VB.net中 。有二种方法  2.1  _  Public Function GetTickCount() As Long  End Function  2.2  Public Declare...
  • VB6测试工具ComUnit使用心得

    千次阅读 2009-08-19 10:01:00
    1.例如函数main1中调用了一个下位函数fun1,则需要在源代码中的两个地方插入代码:(1)main1调用fun1的上一步插入代码isShield_ fun1 = True,表示确定屏蔽函数fun1。(2)fun1的第一步插入代码执行屏蔽,如下: ...
  • 由于在实际的AI数据采集中,数据波动较大,自己写了一个滤波FUN,保持输入最近的10个值, 然后去掉最小和最大值 后,取平均值。 调用:AI地址,个数,数据临时保存地址,输出数据地址 LD Clock_1s:SM0.5 A M4.4 ...
  • C#中调用WIN32API函数

    万次阅读 2012-10-19 11:21:02
      磐实文章站(首页)首页 >Visual Basic软件开发资料 ...http://www.panshsoft.com/Sort_VB/API_fun/   GetWindowRect用法 http://blog.csdn.net/coolszy/article/details/5601455 函数功能:该函数
  • VB中关于while...wend的使用

    千次阅读 2019-02-23 08:50:47
    设a、b都是自然数,为求a除以b的余数,某人编写了以下函数: Function fun(a As Integer,b As Integer) While a>b  a=a-b Wend fun=a End Function 在调试时发现函数是错误的。为使函数...
  • VB调试中的条件断点

    千次阅读 2015-03-17 20:22:24
    假如某For循环中,最终发现当i=31时...1.在n = fun1(i)行设置断点,然后按F5一步步到i=31时改按F8进入子函数单步调试 2.插入一小片代码设置断点,例如: Visual Basic code ? 1 2 3 4 5 6 7 8 9
  • 1.例如函数main1中调用了一个下位函数fun1,则需要在源代码中的两个地方插入代码: (1)main1调用fun1的上一步插入代码isShield_ fun1 = True,表示确定屏蔽函数fun1。 (2)fun1的第一步插入代码执行屏蔽,如下: ...
  • 函数最小值(使用f(x)和g(x)) Alpha:0.618法 FenShu:分数法 Three:三次插值法 PaoWu:抛物线法 数值微分(使用fun(x)和gun(x)) LarrangeS:Larrange公式(一阶) LarrangeD:Larrange公式(二阶) WeiOut:外推法 ...
  • VB 关闭已知标题窗口

    千次阅读 2008-05-03 13:25:00
    使用API函数。先通过FindWindow得到窗口的句柄,然后对窗口发送关闭消息。Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName...
  • For Input As #1 '记事本close_id.txt上每行一个你要关闭的程序名Do While Not EOF(1) '历遍每行 Line Input #1, uid If fun_FindProcess(uid) <> 0 Then '调用上面的函数判断是否存在这个...
  • 如何检查软盘驱动器里是否有软盘 使用:Dim Flag As BooleanFlag = Fun_FloppyDrive(/"A:/")If Flag = False Then MsgBox /"A:驱没有准备好,请将磁盘插入驱动器!/", vbCritical/-------------------------------/...
  •  (1)编辑m文件,将需要输出的结果(包括中间结果和最终结果)都作为函数的输出 如[a,b,c,d]=fun(e,f,g) ;(2)在matlab 7.4 中,敲入命令deploytool,然后新建一工程,将所需的m文件加入,生成dll,再将结果...
  •  VB提供了API函数SetWindowLong和GetWindowLong,可以让我们很容易取得对窗口的操作;通过对窗口属性的操作,可以更改窗口的显示风格。有些看来是正常情况下无法实现的窗口,现在你可以很容易的实现。只要你想到,...
  • kotlin有着JAVA般强大的功能,却象VB一样简单人性化。真是很好的一门语言。 package hello import java.io.File import kotlin.math.cos import kotlin.math.sign // 可选的包头 fun main(args: Array<...
  • 无忧OCR验证码识别

    千次阅读 2009-11-06 23:14:00
    1、大小:2.5M 2、语言支持:可提供COM接口,支持VB,C++、C#、JAVA、ASP使用 VB脚本使用示例(其中一个识别函数) set com = CreateObject("OCRCOM.Fun") yzm = com.GetText("F:/10010/10010/2.bmp") (yzm为...
  • 第五章、异常处理 第一节、异常处理基础 异常(Exception)是指运行时代码序列中产生的异常情况。换句话说,异常是一个运行时错误(runtime error)... 一个VB(visual basic)函数(function)的例子:Private Fun
  • 语句结束 } 输出函数 换行符 例2 在屏幕上显示: 在屏幕上显示: Programming is fun! And Programming in C is even more fun! # include <stdio.h> 编译预处理命令 void main( ) { printf("Programming is fun! \n...

空空如也

空空如也

1 2
收藏数 28
精华内容 11
关键字:

fun函数vb