'声明部分
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))