form8.frm

停车

VERSION 5.00
Begin VB.Form Form8 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "硬件参数设置"
   ClientHeight    =   4485
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7665
   Icon            =   "Form8.frx":0000
   LinkTopic       =   "Form8"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4485
   ScaleWidth      =   7665
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame2 
      Caption         =   "COM端口配置"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3675
      Left            =   4290
      TabIndex        =   4
      Top             =   180
      Width           =   3135
      Begin VB.ComboBox Combo1 
         Height          =   300
         Index           =   5
         Left            =   1320
         TabIndex        =   14
         Text            =   "Combo1"
         Top             =   2070
         Width           =   975
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Index           =   4
         Left            =   1320
         TabIndex        =   13
         Text            =   "Combo1"
         Top             =   1670
         Width           =   975
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Index           =   3
         Left            =   1320
         TabIndex        =   12
         Text            =   "Combo1"
         Top             =   1270
         Width           =   975
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Index           =   2
         Left            =   1320
         TabIndex        =   11
         Text            =   "Combo1"
         Top             =   870
         Width           =   975
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "登记使用"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   2
         Left            =   360
         TabIndex        =   8
         Top             =   900
         Width           =   960
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "收费使用"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   3
         Left            =   360
         TabIndex        =   7
         Top             =   1305
         Width           =   960
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "办卡使用"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   4
         Left            =   360
         TabIndex        =   6
         Top             =   1725
         Width           =   960
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "线圈使用"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   5
         Left            =   360
         TabIndex        =   5
         Top             =   2130
         Width           =   960
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确  定"
      Height          =   495
      Left            =   6150
      TabIndex        =   3
      Top             =   3930
      Width           =   1395
   End
   Begin VB.Frame Frame1 
      Caption         =   "采集卡参数"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3675
      Left            =   150
      TabIndex        =   0
      Top             =   180
      Width           =   4035
      Begin VB.ComboBox Combo1 
         Height          =   300
         Index           =   1
         Left            =   1500
         TabIndex        =   10
         Text            =   "Combo1"
         Top             =   1050
         Width           =   975
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Index           =   0
         Left            =   1530
         TabIndex        =   9
         Text            =   "Combo1"
         Top             =   660
         Width           =   975
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "收费使用第        通道"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   330
         TabIndex        =   2
         Top             =   1050
         Width           =   2640
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "登记使用第        通道"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   0
         Left            =   330
         TabIndex        =   1
         Top             =   690
         Width           =   2640
      End
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Dim i As Integer
  Open App.Path & "\file\config.c" For Output As #1
  For i = 0 To 5
     Print #1, Combo1(i).Text
  Next
  Close #1
End Sub

Private Sub Form_Load()
    Dim i As Integer
    Me.Left = (MDIForm1.Width - Me.Width) / 2
    Me.Top = (MDIForm1.Height - Me.Height) / 2 - 1000
    Me.Show
    For i = 0 To 5
       Combo1(0).AddItem i
       Combo1(1).AddItem i
    Next
    For i = 1 To 4
       Combo1(2).AddItem i
       Combo1(3).AddItem i
       Combo1(4).AddItem i
       Combo1(5).AddItem i
    Next
    For i = 0 To 5
        Combo1(i).Text = Yj(i + 1)
    Next
End Sub