高志福的专栏

Visual_C_组件技巧之ComboBox美容

omron plc fins 通信源码 Private Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long Private Declare Function WSAStartup Lib "WSOCK32.DLL" _ (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long Private Declare Function gethostname Lib "WSOCK32.DLL" _ (ByVal szHost As String, ByVal dwHostLen As Long) As Long Private Declare Function gethostbyname Lib "WSOCK32.DLL" _ (ByVal szHost As String) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private ICF As String Private RSV As String Private GCT As String Private DNA As String Private DA1 As String Private DA2 As String Private SNA As String Private SA1 As String Private SA2 As String Private SID As Byte Private HostNode As String Private HeaderCode As String Private DelayTim As String Private Memory As String Private CommandCode As String Private Address As String Private Bit As String Private Num As String Private WriteData As String Private EndStr As String Dim EtnFins() As Byte Dim RevInfo() As Byte Dim RevInfoStr As String Dim RevinfoCnt As Long

校验原理 1、循环校验码（CRC码）：是数据通信领域中最常用的一种差错校验码，其特征是信息字段和校验字段的长度可以任意选定。 2、生成CRC码的基本原理：任意一个由二进制位串组成的代码都可以和一个系数仅为‘0’和‘1’取值的多项式一一对应。例如：代码1010111对应的多项式为x6+x4+x2+x+1，而多项式为x5+x3+x2+x+1对应的代码101111。 3、CRC码集选择的原则：若设码字长度为N，信息字段为K位，校验字段为R位(N=K+R)，则对于CRC码集中的任一码字，存在且仅存在一个R次多项式g(x)，使得 V(x)=A(x)g(x)=xRm(x)+r(x); 其中: m(x)为K次信息多项式， r(x)为R-1次校验多项式， g(x)称为生成多项式： g(x)=g0+g1x+ g2x2+...+g(R-1)x(R-1)+gRxR 发送方通过指定的g(x)产生CRC码字，接收方则通过该g(x)来验证收到的CRC码字。 4、CRC校验码软件生成方法： 借助于多项式除法，其余数为校验字段。 例如：信息字段代码为: 1011001；对应m(x)=x6+x4+x3+1 假设生成多项式为：g(x)=x4+x3+1；则对应g(x)的代码为: 11001 x4m(x)=x10+x8+x7+x4 对应的代码记为：10110010000； 采用多项式除法: 得余数为: 1010 (即校验字段为：1010） 发送方：发出的传输字段为: 1 0 1 1 0 0 1 1 0 10 信息字段 校验字段 接收方：使用相同的生成码进行校验:接收到的字段/生成码（二进制除法） 如果能够除尽，则正确，

omron plc 串口 Fins 通信测试 源码 Private Sub cmdOpen_Click() On Error GoTo ErrHandler If MSComm1.PortOpen Then MSComm1.PortOpen = False cmdOpen.Caption = "开启端口" cmdOpen.ToolTipText = "开启通讯端口" cmdSet.Enabled = True cmdSend.Enabled = False Else MSComm1.PortOpen = True cmdOpen.Caption = "关闭端口" cmdOpen.ToolTipText = "关闭通讯端口" cmdSet.Enabled = False cmdSend.Enabled = True End If Exit Sub ErrHandler: MsgBox "不能操作端口，请重新设置端口！", vbInformation, "错误" End Sub

omron plc 以太网 Fins 通信测试 源码 Private Sub Command1_Click() Dim CommandStr As String CommandStr = Text2.Text FinsMsg1.sendFinsCommand NetNo.Text, NodeNo.Text, UnitNo.Text, CommandStr 'FinsMsg.sendFinsCommand 网络号， 节点号， 单元号， Fins命令 End Sub Private Sub Command2_Click() Text1.Text = "" 'Text2 = "010182006400000a" End Sub

1、循环校验码（CRC码）：是数据通信领域中最常用的一种差错校验码，其特征是信息字段和校验字段的长度可以任意选定。 　　2、生成CRC码的基本原理：任意一个由二进制位串组成的代码都可以和一个系数仅为‘0’和‘1’取值的多项式一一对应。例如：代码1010111对应的多项式为x6+x4+x2+x+1，而多项式为x5+x3+x2+x+1对应的代码101111。 　　3、CRC码集选择的原则：若设码字长度为N，信息字段为K位，校验字段为R位(N=K+R)，则对于CRC码集中的任一码字，存在且仅存在一个R次多项式g(x)，使得 　　V(x)=A(x)g(x)=xRm(x)+r(x); 　　其中: m(x)为K次信息多项式， r(x)为R-1次校验多项式， 　　g(x)称为生成多项式： 　　g(x)=g0+g1x+ g2x2+...+g(R-1)x(R-1)+gRxR 　　发送方通过指定的g(x)产生CRC码字，接收方则通过该g(x)来验证收到的CRC码字。 　　4、CRC校验码软件生成方法： 　　借助于多项式除法，其余数为校验字段。 　　例如：信息字段代码为: 1011001；对应m(x)=x6+x4+x3+1 　　假设生成多项式为：g(x)=x4+x3+1；则对应g(x)的代码为: 11001 　　x4m(x)=x10+x8+x7+x4 对应的代码记为：10110010000； 　　采用多项式除法: 得余数为: 1010 (即校验字段为：1010） 　　发送方：发出的传输字段为: 1 0 1 1 0 0 1 1 0 10 　　信息字段 校验字段 　　接收方：使用相同的生成码进行校验:接收到的字段/生成码（二进制除法） 　　如果能够除尽，则正确，