请教LED显示屏动态库调用
对VB完全不懂,不知道这个动态库如何调用.请坛友写个UDF方便调用.附件中包含了开发包的说明文件.
1000块金钱，出手好阔啊！
好奇楼主在搞啥研究，下来看一下。
大师的问题，多给我几个0，我也不敢接招呢。
只能是帮顶啦~~ 自己大概试了下,表示参数太多,也知道是否有问题.故发贴求助,还请大家帮忙.
下面这个玩意也许错误百出,真心求教.
Local $iControlType = 66
Local $iScreenNo = 1
Local $iWidth = 64
Local $iHeight = 32
Local $iScreenType = 1
Local $iPixelMode = 1
Local $iDataDA = 0
Local $iDataOE = 1
Local $iRowOrder = 0
Local $iFreqPar = 0
Local $iBaud = 57600
Local $iSocketPort = 5005
Global $BX=DllOpen("BX_IV.dll")
Local $init=DllCall($BX,"int","InitDLLResource","hwnd",0)
Func InitDLLResource($handle)
Return DllCall($BX,"int","InitDLLResource","hwnd",0)
EndFunc
Func Addscreen($nControlType,$nScreenNo,$nWidth,$nHeight,$nScreenType,$nPixelMode,$nDataDA,$nDataOE,$nRowOrder,$nFreqPar,$Pcom,$nBaud,$pSocketIP,$nSocketPort)
$add=DllCall($BX,"int","Addscreen","int",$nControlType,"int",$nScreenNo,"int",$nWidth,"int",$nHeight,"int",$nScreenType,"int",$nPixelMode,"int",$nDataDA,"int",$nDataOE,"char",$Pcom,"int",$nBaud,"char",$pSocketIP,"int",$nSocketPort)
If $add=0xf8 Then Return SetError(1)
If $add=0xff Then Return SetError(2)
Return 0
EndFunc
页:
[1]