mainfrm.frm

vb利用COMMCOM控件于FX系列PLC通讯

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   BackColor       =   &H00FFFF80&
   Caption         =   "调试FX-30MR 通信"
   ClientHeight    =   0
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   1560
   FillColor       =   &H80000012&
   Icon            =   "mainfrm.frx":0000
   ScaleHeight     =   0
   ScaleWidth      =   1560
   WindowState     =   2  'Maximized
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SendForcePLC(9) As String
Dim SendCmdstring As String
 
 
 
 
 Private Sub Command1_Click()
  SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H30)
  SendForcePLC(9) = Chr(h2f)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text2.Text = "接通"
Command1.Enabled = False
Command2.Enabled = True
 End Sub
 
 
 Private Sub Command2_Click()
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H30)
   SendForcePLC(9) = Chr(&H30)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text2.Text = "断开"
   Command2.Enabled = False
   Command1.Enabled = True
End Sub


 Private Sub Command3_Click()
   SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H31)
  SendForcePLC(9) = Chr(&H30)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text3.Text = "接通"
   Command3.Enabled = False
   Command4.Enabled = True
 End Sub
 Private Sub Command4_Click()
 
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H31)
   SendForcePLC(9) = Chr(&H31)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text3.Text = "断开"
   Command4.Enabled = False
   Command3.Enabled = True
 End Sub
 
  Private Sub Command5_Click()
   SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H32)
  SendForcePLC(9) = Chr(&H31)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text4.Text = "接通"
   Command5.Enabled = False
   Command6.Enabled = True
 End Sub
 Private Sub Command6_Click()
 
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H32)
   SendForcePLC(9) = Chr(&H32)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text4.Text = "断开"
   Command6.Enabled = False
   Command5.Enabled = True
 End Sub
 
 
  Private Sub Command7_Click()
   SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H33)
  SendForcePLC(9) = Chr(&H32)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text5.Text = "接通"
   Command7.Enabled = False
   Command8.Enabled = True
 End Sub
 Private Sub Command8_Click()
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H33)
   SendForcePLC(9) = Chr(&H33)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text5.Text = "断开"
   Command8.Enabled = False
   Command7.Enabled = True
 End Sub
 
 
 Private Sub Command9_Click()
   SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H34)
  SendForcePLC(9) = Chr(&H33)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text6.Text = "接通"
   Command9.Enabled = False
   Command10.Enabled = True
 End Sub
 Private Sub Command10_Click()

 
 
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H34)
   SendForcePLC(9) = Chr(&H34)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text6.Text = "断开"
  Command10.Enabled = False
  Command9.Enabled = True
 End Sub


 Private Sub Command11_Click()
   SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H35)
  SendForcePLC(9) = Chr(&H34)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text7.Text = "接通"
   Command11.Enabled = False
   Command12.Enabled = True
 End Sub
 Private Sub Command12_Click()

 
 
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H35)
   SendForcePLC(9) = Chr(&H35)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text7.Text = "断开"
   Command12.Enabled = False
   Command11.Enabled = True
   End Sub






 Private Sub Command13_Click()
   SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H36)
  SendForcePLC(9) = Chr(&H35)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text8.Text = "接通"
   Command13.Enabled = False
   Command14.Enabled = True
 End Sub
 Private Sub Command14_Click()

 
 
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H36)
   SendForcePLC(9) = Chr(&H36)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text8.Text = "断开"
   Command14.Enabled = False
   Command13.Enabled = True
   End Sub
   
   
   
   
   
    Private Sub Command15_Click()
   SendForcePLC(2) = Chr(&H37)
SendForcePLC(4) = Chr(&H37)
  SendForcePLC(9) = Chr(&H36)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text9.Text = "接通"
   Command15.Enabled = False
   Command16.Enabled = True
 End Sub
 Private Sub Command16_Click()

 
 
 SendForcePLC(2) = Chr(&H38)
 SendForcePLC(4) = Chr(&H37)
   SendForcePLC(9) = Chr(&H37)
 Call cmdstring
   
   MSComm1.Output = SendCmdstring
   Text9.Text = "断开"
   Command16.Enabled = False
   Command15.Enabled = True
   End Sub

Private Sub cmdstring()

SendCmdstring = ""

 For i = 1 To 9
   SendCmdstring = SendCmdstring + SendForcePLC(i)
Next i

End Sub


 

Private Sub Command17_Click()
SendForcePLC(1) = Chr(&H2)
 
  SendForcePLC(3) = Chr(&H30)
 SendForcePLC(5) = Chr(&H30)
 SendForcePLC(6) = Chr(&H35)
  SendForcePLC(7) = Chr(&H3)
 SendForcePLC(8) = Chr(&H30)
Rem 设置串口

Label10.Caption = "端口已打开"
Label1.Caption = "系统通讯正常"
         Comport = Asc(Text1.Text) - &H30
         

MSComm1.CommPort = Comport

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

Rem 打开串口
MSComm1.PortOpen = True

 Command17.Enabled = False
End Sub

Private Sub Form_Load()
 
   
   Rem 起始字符
   
   SendForcePLC(1) = Chr(&H2)
    
   Rem 命令 on
  
   SendForcePLC(2) = Chr(&H37)
   
   Rem 地址
  
   
   Rem 结束字符
   SendForcePLC(7) = Chr(&H3)
   
   
   
   
End Sub