module1.bas

Rs232串口通信专题范例,Vusual Basic,Mscomm,PCOMMPRO

Attribute VB_Name = "Module1"
Option Explicit

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

'''''''''''''''''''''''''''''''''''
'制造乱数的函式，Randomize用於重置乱数产生器
'使用VB中的Rnd函式即可造出
'''''''''''''''''''''''''''''''''''
Function GetData(Data() As Byte)
    Dim i%
    Randomize
    '以下产生0~255之间的数字
    For i = LBound(Data) To UBound(Data)
       Data(i) = CByte(255! * Rnd())
    Next i
End Function