VB和三菱FXPLC通讯的实现

    数据读与写采用函数input和output

（1）窗口加载程序

    Private Sub Form_Load（） 

    MSComm1.CommPort = 1 ‘选择COM1口 

    MSComm1.Settings = "9600,e,7,1" 

    If mscomm1.portopen=false then mscomm1.portopen=true

    End Sub

  （2）数据读取子程序：

    Public Function GetData（ByVal StartAddress As String, ByVal GetBytes As     Integer, ByVal Hex_Bytes As String） As String 

    MSComm1.InputLen = GetBytes ＊ 2 + 4 

    MSComm1.Output = STX + CMD_Read + StartAddress + Hex_Bytes + ETX + GetSumChk（CMD_Read + StartAddress + Hex_Bytes + ETX） 

    ‘传送数据组成：起始符+命令+首地址+数据位+结束符+和检验码 

    GetData = MSComm1.Input 

    MSComm1.InBufferCount = 0 

    MSComm1.InputLen = 0

    End Function 

上一页  [1] [2] 

本文关键字：三菱  PLC通信，plc技术 - PLC通信