form1.frm

VB开发的进行PLC通讯测试的程序

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
Begin VB.Form Form1 
   BackColor       =   &H8000000B&
   Caption         =   "uss控制测试"
   ClientHeight    =   2190
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8310
   FillColor       =   &H00C0C0C0&
   ForeColor       =   &H8000000B&
   LinkTopic       =   "Form1"
   ScaleHeight     =   2190
   ScaleWidth      =   8310
   StartUpPosition =   2  '屏幕中心
   Begin VB.HScrollBar HScroll1 
      Height          =   375
      Index           =   1
      Left            =   960
      Max             =   64
      TabIndex        =   10
      Top             =   1320
      Width           =   3135
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   375
      Index           =   0
      Left            =   960
      Max             =   64
      TabIndex        =   9
      Top             =   720
      Width           =   3135
   End
   Begin VB.CommandButton Command3 
      Caption         =   "停止"
      Height          =   375
      Index           =   1
      Left            =   6960
      TabIndex        =   7
      Top             =   1320
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Caption         =   "停止"
      Height          =   375
      Index           =   0
      Left            =   6960
      TabIndex        =   6
      Top             =   720
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "启动"
      Height          =   375
      Index           =   1
      Left            =   5640
      TabIndex        =   5
      Top             =   1320
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "启动"
      Height          =   375
      Index           =   0
      Left            =   5640
      TabIndex        =   4
      Top             =   720
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   1
      Left            =   4440
      TabIndex        =   3
      Text            =   "20"
      Top             =   1320
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   0
      Left            =   4440
      TabIndex        =   2
      Text            =   "20"
      Top             =   720
      Width           =   855
   End
   Begin MSCommLib.MSComm MSComm3 
      Left            =   0
      Top             =   1800
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
      InBufferSize    =   512
      OutBufferSize   =   10240
      ParitySetting   =   2
      InputMode       =   1
   End
   Begin VB.Label Label3 
      Caption         =   "1号"
      Height          =   255
      Index           =   2
      Left            =   360
      TabIndex        =   8
      Top             =   1440
      Width           =   495
   End
   Begin VB.Label Label3 
      Caption         =   "0号"
      Height          =   255
      Index           =   1
      Left            =   360
      TabIndex        =   1
      Top             =   840
      Width           =   495
   End
   Begin VB.Label Label3 
      Caption         =   "速度"
      Height          =   255
      Index           =   0
      Left            =   4680
      TabIndex        =   0
      Top             =   360
      Width           =   495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SendByte(15) As Byte '变频器使用的变量

Private Sub Command2_Click(Index As Integer) '启动
SendByte(2) = Index
   SendByte(11) = &H4
   SendByte(12) = &H7F
   SendByte(13) = CByte(Val(HScroll1(Index).Value))
   'SendByte(14) = &H0
   SendByte(15) = &H2 Xor &HE Xor SendByte(2) Xor &H10 Xor &H3 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor SendByte(11) Xor SendByte(12) Xor SendByte(13) Xor &H0
MSComm3.InBufferCount = 0
MSComm3.Output = SendByte
End Sub

Private Sub Command3_Click(Index As Integer) '停止
SendByte(2) = Index
   SendByte(11) = &H4
   SendByte(12) = &H7E
   SendByte(13) = CByte(Val(HScroll1(Index).Value))
   'SendByte(14) = &H0
   SendByte(15) = &H2 Xor &HE Xor SendByte(2) Xor &H10 Xor &H3 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor SendByte(11) Xor SendByte(12) Xor SendByte(13) Xor &H0
MSComm3.InBufferCount = 0
MSComm3.Output = SendByte
End Sub

Private Sub Form_Load()

MSComm3.PortOpen = True

SendByte(0) = &H2
SendByte(1) = &HE
SendByte(2) = &H0
SendByte(3) = &H10
SendByte(4) = &H3
SendByte(5) = &H0
SendByte(6) = &H0
SendByte(7) = &H0
SendByte(8) = &H0
SendByte(9) = &H0
SendByte(10) = &H0
SendByte(11) = &H0
SendByte(12) = &H0
SendByte(13) = &H0
SendByte(14) = &H0
SendByte(15) = &H0


   SendByte(11) = &H4
   SendByte(12) = &H80
   SendByte(13) = &H0
   'SendByte(14) = &H0
   SendByte(15) = &H2 Xor &HE Xor &H0 Xor &H10 Xor &H3 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor SendByte(11) Xor SendByte(12) Xor SendByte(13) Xor &H0
MSComm3.InBufferCount = 0
MSComm3.Output = SendByte
Sleep 50
SendByte(15) = &H2 Xor &HE Xor &H1 Xor &H10 Xor &H3 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor &H0 Xor SendByte(11) Xor SendByte(12) Xor SendByte(13) Xor &H0
MSComm3.InBufferCount = 0
MSComm3.Output = SendByte
End Sub


Private Sub Form_Unload(Cancel As Integer)

MSComm3.PortOpen = False

End Sub


Private Sub HScroll1_Change(Index As Integer)
Text1(Index).Text = (HScroll1(Index).Value / 64) * 50
'Text2(Index).Text = HScroll1(Index).Value
End Sub