我有一delphi函数，需要调用两个外部函数（vb所写），但运行到da:= h*16 +l时总是得不到想要的值既DA值。请各位检查一下，问题出在哪里？谢谢！

2001-12-19 09:28:14 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

笔试题-2023-星宸-数字IC设计【纯净题目版】 4 笔试题-2023-星宸-数字IC设计【纯净题目版】阅读详情

我有一delphi函数，需要调用两个外部函数（vb所写），但运行到da:= h*16 +l时总是得不到想要的值既DA值。请各位检查一下，问题出在哪里？谢谢！

VB中声明：
Private Declare Sub out_byte Lib "vbdll.dll" (ByVal port%, ByVal da%)//写一个byte
Private Declare Function in_byte Lib "vbdll.dll" (ByVal port%) As Integer//读一个byte

DELPHI中声明：
procedure out_byte(port,dat:integer);external 'vbdll.dll';
function in_byte(port:integer):integer;external 'vbdll.dll';

函数：
Function ad2118(channel:Integer):integer;
var h,l,da:integer;
begin
out_byte(baseadd, channel);
sleep(100);
out_byte(baseadd+1, 1);
sleep(500);
h:= in_byte(baseadd + 2); //高位
sleep(50);
l:= round(in_byte(baseadd+3)/16); //低位
da:= h*16 +l ;
ad2118:= da ;
End;

...全文

vb调用颜色对话框 vb实现调用系统颜色对话框选择颜色，代码有注解，对于如何调用系统颜色对话框有学习参考作用，也可按思路转换到其他编程语言上。立即下载

天空的云彩

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

我有一delphi函数，需要调用两个外部函数（vb所写），但运行到da:= h*16 +l时总是得不到想要的值既DA值。请各位检查一下，问题出在哪里？谢谢！

相关推荐