求助 vb函数装化为delphi

2009-08-01 10:09:14 155 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB中randomize函数的用法注意若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。以下事例将随机产生0到100的数字，如果不使用Randomize函数，得到的结果将有规律性。阅读详情

/********************************************************************************
'命令01: 打开串口
'功能：打开串口，在程序调用卡机的功能函数前必须先调用
'参数说明:
char * Com:串口名称，如 "COM1","COM2"
unsigned int Baud : 通讯波特率，如：19200,38400等。
'********************************************************************************/
unsigned char _stdcall OpenCOMPort( unsigned char ComNum, unsigned int Baud );

怎么转化为delphi的函数？

...全文