tim_cnt.frm

vb与三菱PLC的通信例子 对初学者很有用的

VERSION 4.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   Caption         =   "Form1"
   ClientHeight    =   4830
   ClientLeft      =   1965
   ClientTop       =   1395
   ClientWidth     =   5010
   FillColor       =   &H000000FF&
   BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   Height          =   5235
   Left            =   1905
   LinkTopic       =   "Form1"
   ScaleHeight     =   4830
   ScaleWidth      =   5010
   Top             =   1050
   Width           =   5130
   Begin VB.OptionButton Option1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Option1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   468
      Left            =   3360
      TabIndex        =   10
      Top             =   120
      Width           =   1332
   End
   Begin VB.OptionButton Option2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Option2"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   468
      Left            =   3360
      TabIndex        =   9
      Top             =   576
      Width           =   1332
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Check1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   8
      Top             =   1680
      Width           =   3975
   End
   Begin VB.CommandButton Command3 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Command3"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   120
      TabIndex        =   5
      Top             =   1080
      Width           =   1332
   End
   Begin VB.CommandButton Command2 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Command2"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   600
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Command1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Frame1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   1725
      Left            =   360
      TabIndex        =   2
      Top             =   2040
      Width           =   4335
      Begin VB.Line Line1 
         BorderColor     =   &H00000000&
         BorderWidth     =   10
         Index           =   27
         X1              =   840
         X2              =   540
         Y1              =   915
         Y2              =   930
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   26
         X1              =   510
         X2              =   435
         Y1              =   510
         Y2              =   825
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   25
         X1              =   405
         X2              =   330
         Y1              =   1005
         Y2              =   1335
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   24
         X1              =   450
         X2              =   765
         Y1              =   1410
         Y2              =   1425
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   23
         X1              =   945
         X2              =   870
         Y1              =   1035
         Y2              =   1380
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   22
         X1              =   1050
         X2              =   975
         Y1              =   495
         Y2              =   870
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   21
         X1              =   930
         X2              =   630
         Y1              =   420
         Y2              =   420
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00000000&
         BorderWidth     =   10
         Index           =   20
         X1              =   1800
         X2              =   1530
         Y1              =   915
         Y2              =   915
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   19
         X1              =   1515
         X2              =   1440
         Y1              =   510
         Y2              =   810
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   18
         X1              =   1395
         X2              =   1320
         Y1              =   1020
         Y2              =   1365
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   17
         X1              =   1455
         X2              =   1755
         Y1              =   1410
         Y2              =   1395
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   16
         X1              =   1935
         X2              =   1860
         Y1              =   1035
         Y2              =   1350
      End
      Begin VB.Line Line1 
         BorderWidth     =   10
         Index           =   15
         X1              =   2040