home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / design / led11 / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-02-27  |  1.7 KB  |  63 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "LED1 Test"
  4.    ClientHeight    =   2880
  5.    ClientLeft      =   5910
  6.    ClientTop       =   4890
  7.    ClientWidth     =   2445
  8.    Height          =   3405
  9.    Icon            =   FORM1.FRX:0000
  10.    Left            =   5850
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2880
  13.    ScaleWidth      =   2445
  14.    Top             =   4425
  15.    Width           =   2565
  16.    Begin VScrollBar VScroll1 
  17.       Height          =   1815
  18.       LargeChange     =   25
  19.       Left            =   360
  20.       Max             =   9999
  21.       TabIndex        =   4
  22.       Top             =   480
  23.       Width           =   255
  24.    End
  25.    Begin CLED1 LED14 
  26.       Height          =   375
  27.       Left            =   720
  28.       TabIndex        =   3
  29.       Top             =   1200
  30.       Value           =   0
  31.       Width           =   375
  32.    End
  33.    Begin CLED1 LED13 
  34.       Height          =   375
  35.       Left            =   1080
  36.       TabIndex        =   2
  37.       Top             =   1200
  38.       Value           =   0
  39.       Width           =   375
  40.    End
  41.    Begin CLED1 LED12 
  42.       Height          =   375
  43.       Left            =   1440
  44.       TabIndex        =   1
  45.       Top             =   1200
  46.       Value           =   0
  47.       Width           =   375
  48.    End
  49.    Begin CLED1 LED11 
  50.       Height          =   375
  51.       Left            =   1800
  52.       TabIndex        =   0
  53.       Top             =   1200
  54.       Value           =   0
  55.       Width           =   375
  56.    End
  57. Sub VScroll1_Change ()
  58.     LED11.Value = VScroll1.Value Mod 10
  59.     LED12.Value = (VScroll1.Value \ 10) Mod 10
  60.     LED13.Value = (VScroll1.Value \ 100) Mod 10
  61.     LED14.Value = (VScroll1.Value \ 1000) Mod 10
  62. End Sub
  63.