form1.frm

OMRON PLC OMRON PLCO MRON PLCO MRON PLCO MRON PLCOMRON PLC

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5055
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7410
   LinkTopic       =   "Form1"
   ScaleHeight     =   5055
   ScaleWidth      =   7410
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton receive 
      Caption         =   "接受"
      Height          =   495
      Left            =   4800
      TabIndex        =   5
      Top             =   3840
      Width           =   1455
   End
   Begin VB.CommandButton CmdSend 
      Caption         =   "传送字符"
      Height          =   495
      Left            =   1800
      TabIndex        =   4
      Top             =   3840
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   1215
      Left            =   4080
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   2280
      Width           =   2415
   End
   Begin VB.TextBox Text1 
      Height          =   1215
      Left            =   1320
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   2280
      Width           =   2175
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   3240
      Top             =   840
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
      ParitySetting   =   2
      DataBits        =   7
      StopBits        =   2
      InputMode       =   1
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "#接受区#"
      Height          =   375
      Left            =   4200
      TabIndex        =   1
      Top             =   1680
      Width           =   2295
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "#传送区#"
      Height          =   375
      Left            =   1200
      TabIndex        =   0
      Top             =   1680
      Width           =   1935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function FCS(ByVal Sstr As String) As String
Dim Length As Integer
Dim FCS1 As Integer
Dim i As Integer
Length = Len(Sstr)
FCS1 = Asc(Mid(Sstr, 1, 1))
For i = 2 To Length
FCS1 = FCS1 Xor Asc(Mid(Sstr, 1, 1))
Next i
FCS = Hex(FCS1)
If Len(FCS) = 1 Then
FCS = "0" & FCS
End If
End Function

'Dim OutByte() As Byte
'Dim InByte() As Byte

Private Sub CmdExit_Click()

'MSComm1.PortOpen = False
'End
End Sub

Private Sub CmdSend_Click()
Dim Testdata As String
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,7,2"
MSComm1.PortOpen = Ture
Testdata = "@00TS" + Text1.Text
Testdata = Testdata + FCS(Testdata) + "*" + "Chr$(13)"
MSComm1.Output = Testdata
'Buf = Trim(txtSend.Text)

'OutByte = StrConv(Buf, vbFromUnicode)
'Buf = MSComm1.Input
'MSComm1.Output = OutByte
End Sub

Private Sub Form_Load()
'MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
'Dim Buf$, I%
'Select Case MSComm1.CommEvent
'Case comEvCD
'Case comEvCTS
'Case comEvDSR
'Case comEvSend
'Case comEvReceive
'Buf = ""
'InByte = Comm1.Input
'For I = LBound(InByte) To UBound(InByte)
'Buf = Buf + Hex(InByte(I)) + Chr(32)
'Next I
'TxtReceive.Text = Buf
'End Select
'End Sub
Private Sub receive_Click()
Dim Rdata As String
Rdata = Trim(MSComm1.Input)
Rfcs = Mid(Rdata, 6 + 10, 2)
Rstr = Mid(Rdata, 1, 5 + 10)
If Len(Rdata) = 0 Then
Text2.Text = "通讯失败"
Else
If Rfce <> FCS(Rstr) Then
Text2.Text = "通讯失败"
Else
Text2.Text = Mid(Rdata, 6, 10)
MsgBox "通讯成功"
End If
MSComm1.PortOpen = False

End Sub