home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / comm / vbcomm / comtest2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  5.1 KB  |  163 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Initialize Port"
  6.    ClientHeight    =   2100
  7.    ClientLeft      =   1875
  8.    ClientTop       =   2610
  9.    ClientWidth     =   2475
  10.    ControlBox      =   0   'False
  11.    Height          =   2625
  12.    Left            =   1815
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2100
  18.    ScaleWidth      =   2475
  19.    Top             =   2145
  20.    Width           =   2595
  21.    Begin CommandButton Command2 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "Cancel"
  24.       Height          =   435
  25.       Left            =   1260
  26.       TabIndex        =   11
  27.       Top             =   1620
  28.       Width           =   1155
  29.    End
  30.    Begin CommandButton Command1 
  31.       Caption         =   "OK"
  32.       Default         =   -1  'True
  33.       Height          =   435
  34.       Left            =   60
  35.       TabIndex        =   0
  36.       Top             =   1620
  37.       Width           =   1155
  38.    End
  39.    Begin Frame Frame2 
  40.       BackColor       =   &H00C0C0C0&
  41.       Caption         =   " &Speed "
  42.       Height          =   1575
  43.       Left            =   1320
  44.       TabIndex        =   6
  45.       Top             =   0
  46.       Width           =   1095
  47.       Begin OptionButton Option2 
  48.          BackColor       =   &H00C0C0C0&
  49.          Caption         =   "9600"
  50.          Height          =   255
  51.          Index           =   3
  52.          Left            =   180
  53.          TabIndex        =   10
  54.          TabStop         =   0   'False
  55.          Top             =   1260
  56.          Width           =   735
  57.       End
  58.       Begin OptionButton Option2 
  59.          BackColor       =   &H00C0C0C0&
  60.          Caption         =   "2400"
  61.          Height          =   255
  62.          Index           =   2
  63.          Left            =   180
  64.          TabIndex        =   9
  65.          TabStop         =   0   'False
  66.          Top             =   960
  67.          Width           =   735
  68.       End
  69.       Begin OptionButton Option2 
  70.          BackColor       =   &H00C0C0C0&
  71.          Caption         =   "1200"
  72.          Height          =   255
  73.          Index           =   1
  74.          Left            =   180
  75.          TabIndex        =   8
  76.          Top             =   660
  77.          Value           =   -1  'True
  78.          Width           =   735
  79.       End
  80.       Begin OptionButton Option2 
  81.          BackColor       =   &H00C0C0C0&
  82.          Caption         =   "300"
  83.          Height          =   255
  84.          Index           =   0
  85.          Left            =   180
  86.          TabIndex        =   7
  87.          TabStop         =   0   'False
  88.          Top             =   360
  89.          Width           =   615
  90.       End
  91.    End
  92.    Begin Frame Frame1 
  93.       BackColor       =   &H00C0C0C0&
  94.       Caption         =   " &Port "
  95.       Height          =   1575
  96.       Left            =   60
  97.       TabIndex        =   1
  98.       Top             =   0
  99.       Width           =   1215
  100.       Begin OptionButton Option1 
  101.          BackColor       =   &H00C0C0C0&
  102.          Caption         =   "COM 4:"
  103.          Height          =   255
  104.          Index           =   3
  105.          Left            =   180
  106.          TabIndex        =   5
  107.          TabStop         =   0   'False
  108.          Top             =   1200
  109.          Width           =   915
  110.       End
  111.       Begin OptionButton Option1 
  112.          BackColor       =   &H00C0C0C0&
  113.          Caption         =   "COM 3:"
  114.          Height          =   255
  115.          Index           =   2
  116.          Left            =   180
  117.          TabIndex        =   4
  118.          TabStop         =   0   'False
  119.          Top             =   900
  120.          Width           =   915
  121.       End
  122.       Begin OptionButton Option1 
  123.          BackColor       =   &H00C0C0C0&
  124.          Caption         =   "COM 2:"
  125.          Height          =   255
  126.          Index           =   1
  127.          Left            =   180
  128.          TabIndex        =   3
  129.          TabStop         =   0   'False
  130.          Top             =   600
  131.          Width           =   915
  132.       End
  133.       Begin OptionButton Option1 
  134.          BackColor       =   &H00C0C0C0&
  135.          Caption         =   "COM 1:"
  136.          Height          =   255
  137.          Index           =   0
  138.          Left            =   180
  139.          TabIndex        =   2
  140.          Top             =   300
  141.          Value           =   -1  'True
  142.          Width           =   915
  143.       End
  144.    End
  145. Sub Command1_Click ()
  146.    Form1.Comm1.Parity = 0
  147.    If Option1(0).Value <> 0 Then Form1.Comm1.Comport = 0
  148.    If Option1(1).Value <> 0 Then Form1.Comm1.Comport = 1
  149.    If Option1(2).Value <> 0 Then Form1.Comm1.Comport = 2
  150.    If Option1(3).Value <> 0 Then Form1.Comm1.Comport = 3
  151.    If Option2(0).Value <> 0 Then Form1.Comm1.Baud = 0
  152.    If Option2(1).Value <> 0 Then Form1.Comm1.Baud = 1
  153.    If Option2(2).Value <> 0 Then Form1.Comm1.Baud = 2
  154.    If Option2(3).Value <> 0 Then Form1.Comm1.Baud = 3
  155.    Form1.Comm1.Stop = 0
  156.    Form1.Comm1.Enable = 1
  157.    Form2.Hide
  158.    Unload Form2
  159. End Sub
  160. Sub Command2_Click ()
  161.    Form2.Hide
  162. End Sub
  163.