'声明部分
Public Declare Function Encode Lib ".\LDPC_DEC_DLL.dll" _ (ByRef s As Byte,ByRef c As Byte) As Byte Public Declare Function Add_Noise Lib ".\LDPC_DEC_DLL.dll" _ (ByRef x As Byte,ByRef y As Byte,ByVal snr As Double) As Byte Public Declare Function LDPC_Dec_Init Lib ".\LDPC_DEC_DLL.dll" () _ As Integer Public Declare Function LDPC_Dec Lib ".\LDPC_DEC_DLL.dll" _ (ByRef y As Byte,ByRef y_d As Byte) As Byte
'使用部分
Dim flag As Boolean flag = LDPC_Dec(FrameCOntent(0),Dec(0))