module1.bas

来自「Rs232串口通信专题范例,Vusual Basic,Mscomm,PCOMMP」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
Option Explicit

'宣告使用GettickCount的API函式
Declare Function GetTickCount Lib "kernel32" () As Long

'''''''''''''''''''''''''''''''''''
'制造乱数的函式，Randomize用於重置乱数产生器
'使用VB中的Rnd函式即可造出
'''''''''''''''''''''''''''''''''''
Function GetData()
Randomize
GetData = 10 * Rnd()
End Function