home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / eqfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  6.4 KB  |  227 lines
  1. VERSION 2.00
  2. Begin Form EQFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Equipment and System Info"
  5.    ClientHeight    =   2595
  6.    ClientLeft      =   270
  7.    ClientTop       =   3345
  8.    ClientWidth     =   5355
  9.    Height          =   3000
  10.    Left            =   210
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form3"
  13.    ScaleHeight     =   2595
  14.    ScaleWidth      =   5355
  15.    Top             =   3000
  16.    Width           =   5475
  17.    Begin Label flopp 
  18.       Height          =   195
  19.       Index           =   1
  20.       Left            =   1530
  21.       TabIndex        =   9
  22.       Top             =   2085
  23.       Visible         =   0   'False
  24.       Width           =   645
  25.    End
  26.    Begin Label fLabel 
  27.       BackColor       =   &H00C0C0C0&
  28.       Caption         =   "Floppy 2:"
  29.       Height          =   195
  30.       Index           =   1
  31.       Left            =   585
  32.       TabIndex        =   7
  33.       Top             =   2085
  34.       Visible         =   0   'False
  35.       Width           =   810
  36.    End
  37.    Begin Label Label10 
  38.       BackColor       =   &H00C0C0C0&
  39.       Caption         =   "Num. Root Dirs:"
  40.       Height          =   180
  41.       Left            =   2895
  42.       TabIndex        =   17
  43.       Top             =   1785
  44.       Width           =   1365
  45.    End
  46.    Begin Label flopp 
  47.       Height          =   195
  48.       Index           =   0
  49.       Left            =   1530
  50.       TabIndex        =   8
  51.       Top             =   1800
  52.       Width           =   645
  53.    End
  54.    Begin Label fLabel 
  55.       BackColor       =   &H00C0C0C0&
  56.       Caption         =   "Floppy 1:"
  57.       Height          =   225
  58.       Index           =   0
  59.       Left            =   585
  60.       TabIndex        =   6
  61.       Top             =   1800
  62.       Width           =   810
  63.    End
  64.    Begin Label RdCnt 
  65.       Alignment       =   1  'Right Justify
  66.       Height          =   210
  67.       Left            =   4350
  68.       TabIndex        =   18
  69.       Top             =   1725
  70.       Width           =   450
  71.    End
  72.    Begin Label Label6 
  73.       BackColor       =   &H00C0C0C0&
  74.       Caption         =   "-Drives-"
  75.       Height          =   180
  76.       Index           =   0
  77.       Left            =   1035
  78.       TabIndex        =   5
  79.       Top             =   1560
  80.       Width           =   750
  81.    End
  82.    Begin Label klbl 
  83.       Alignment       =   1  'Right Justify
  84.       Height          =   195
  85.       Index           =   1
  86.       Left            =   3960
  87.       TabIndex        =   16
  88.       Top             =   1365
  89.       Width           =   855
  90.    End
  91.    Begin Label Label7 
  92.       BackColor       =   &H00C0C0C0&
  93.       Caption         =   "Free Kb:"
  94.       Height          =   225
  95.       Left            =   3105
  96.       TabIndex        =   14
  97.       Top             =   1365
  98.       Width           =   795
  99.    End
  100.    Begin Label Port 
  101.       Height          =   165
  102.       Index           =   2
  103.       Left            =   1425
  104.       TabIndex        =   11
  105.       Top             =   1275
  106.       Width           =   255
  107.    End
  108.    Begin Label Label6 
  109.       BackColor       =   &H00C0C0C0&
  110.       Caption         =   "Parallel:"
  111.       Height          =   225
  112.       Index           =   2
  113.       Left            =   510
  114.       TabIndex        =   4
  115.       Top             =   1245
  116.       Width           =   735
  117.    End
  118.    Begin Label klbl 
  119.       Alignment       =   1  'Right Justify
  120.       Height          =   195
  121.       Index           =   0
  122.       Left            =   3960
  123.       TabIndex        =   15
  124.       Top             =   1020
  125.       Width           =   855
  126.    End
  127.    Begin Label Label5 
  128.       BackColor       =   &H00C0C0C0&
  129.       Caption         =   "Tot Kb:"
  130.       Height          =   225
  131.       Left            =   3210
  132.       TabIndex        =   13
  133.       Top             =   1005
  134.       Width           =   675
  135.    End
  136.    Begin Label Port 
  137.       Height          =   165
  138.       Index           =   1
  139.       Left            =   1425
  140.       TabIndex        =   10
  141.       Top             =   1035
  142.       Width           =   255
  143.    End
  144.    Begin Label Label4 
  145.       BackColor       =   &H00C0C0C0&
  146.       Caption         =   "Serial:"
  147.       Height          =   225
  148.       Index           =   0
  149.       Left            =   645
  150.       TabIndex        =   2
  151.       Top             =   1005
  152.       Width           =   585
  153.    End
  154.    Begin Label Label4 
  155.       BackColor       =   &H00C0C0C0&
  156.       Caption         =   "-Ports-"
  157.       Height          =   195
  158.       Index           =   1
  159.       Left            =   1065
  160.       TabIndex        =   3
  161.       Top             =   765
  162.       Width           =   630
  163.    End
  164.    Begin Label Label3 
  165.       BackColor       =   &H00C0C0C0&
  166.       Caption         =   " Current Drive Stats"
  167.       Height          =   240
  168.       Left            =   3060
  169.       TabIndex        =   12
  170.       Top             =   615
  171.       Width           =   1725
  172.    End
  173.    Begin Label DOS 
  174.       BorderStyle     =   1  'Fixed Single
  175.       Height          =   240
  176.       Left            =   1635
  177.       TabIndex        =   1
  178.       Top             =   435
  179.       Width           =   495
  180.    End
  181.    Begin Label Label1 
  182.       BackColor       =   &H00C0C0C0&
  183.       Caption         =   "DOS Ver:"
  184.       Height          =   210
  185.       Left            =   675
  186.       TabIndex        =   0
  187.       Top             =   465
  188.       Width           =   855
  189.    End
  190. DefInt A-Z
  191. Dim FType$(0 To 5)
  192. Sub Form_Load ()
  193.   FType$(1) = "360Kb"
  194.   FType$(2) = "1.2Mb"
  195.   FType$(3) = "720Kb"
  196.   FType$(4) = "1.44Mb"
  197.   FType$(5) = "2.88Mb"
  198.   FType$(0) = "Unk."
  199.   oem = DOSVer(j, n)
  200.   Dos.Caption = Str$(j) + "." + LTrim$(Str$(n))
  201.   Call EqInfo(par, ser, Flop)
  202.   Port(1).Caption = Str$(ser)
  203.   Port(2).Caption = Str$(par)
  204.   For x = 0 To Flop - 1
  205.       ft = FloppyType(x)
  206.       Flopp(x).Caption = FType$(ft)
  207.       Flopp(x).visible = 1
  208.       flabel(x).visible = 1
  209.   Next x
  210.   Klbl(0).Caption = Format$(DrvSpace&(0) \ 1024, "#,###,###")
  211.   Klbl(1).Caption = Format$(DrvFree&(0) \ 1024, "#,###,###")
  212.   RDCnt.Caption = Format$(SubDirCount("\*.*"))
  213. End Sub
  214. Sub Form_Paint ()
  215.     EmpressFrm EQFrm, 360, 375, 2400, 2280, 1
  216.     EmpressFrm EQFrm, 720, 2845, 2050, 4965, 1
  217.     ConvexFrm EQFrm, 4
  218.     ConcaveCtl Dos, 4
  219.     ConcaveCtl Port(1), 3
  220.     ConcaveCtl Port(2), 3
  221.     ConcaveCtl RDCnt, 3
  222.     For x = 0 To 1
  223.         ConcaveCtl Flopp(x), 3
  224.         ConcaveCtl Klbl(x), 3
  225.     Next x
  226. End Sub
  227.