home *** CD-ROM | disk | FTP | other *** search
/ TopWare 18: Liquid / Image.iso / liquid / top2124 / gepackt.exe / ALARM.ZIP / ALARM.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-02-02  |  6.9 KB  |  231 lines
  1. VERSION 2.00
  2. Begin Form alarm 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00008000&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   6915
  7.    ClientLeft      =   4635
  8.    ClientTop       =   1350
  9.    ClientWidth     =   8400
  10.    ControlBox      =   0   'False
  11.    FillColor       =   &H00008000&
  12.    Height          =   7320
  13.    Icon            =   ALARM.FRX:0000
  14.    KeyPreview      =   -1  'True
  15.    Left            =   4575
  16.    LinkMode        =   1  'Source
  17.    LinkTopic       =   "Form1"
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   461
  21.    ScaleMode       =   3  'Pixel
  22.    ScaleWidth      =   560
  23.    Top             =   1005
  24.    Width           =   8520
  25.    Begin CommandButton showinfo 
  26.       Caption         =   "Info"
  27.       Height          =   495
  28.       Left            =   8880
  29.       TabIndex        =   15
  30.       Top             =   6600
  31.       Width           =   615
  32.    End
  33.    Begin OptionButton saveornot 
  34.       BackColor       =   &H00008000&
  35.       Caption         =   "Ignore It"
  36.       ForeColor       =   &H000000FF&
  37.       Height          =   255
  38.       Index           =   1
  39.       Left            =   7320
  40.       TabIndex        =   14
  41.       Top             =   360
  42.       Value           =   -1  'True
  43.       Width           =   1455
  44.    End
  45.    Begin OptionButton saveornot 
  46.       BackColor       =   &H00008000&
  47.       Caption         =   "Save To Disk"
  48.       ForeColor       =   &H000000FF&
  49.       Height          =   255
  50.       Index           =   0
  51.       Left            =   7320
  52.       TabIndex        =   13
  53.       Top             =   120
  54.       Width           =   1455
  55.    End
  56.    Begin TextBox alarmalert 
  57.       BackColor       =   &H00008000&
  58.       ForeColor       =   &H000000FF&
  59.       Height          =   285
  60.       Left            =   6000
  61.       TabIndex        =   6
  62.       Text            =   "All Ok"
  63.       Top             =   360
  64.       Width           =   1215
  65.    End
  66.    Begin TextBox whatisbad 
  67.       BackColor       =   &H00008000&
  68.       ForeColor       =   &H000000FF&
  69.       Height          =   285
  70.       Left            =   3720
  71.       TabIndex        =   5
  72.       Text            =   "10"
  73.       Top             =   360
  74.       Width           =   1215
  75.    End
  76.    Begin TextBox status 
  77.       BackColor       =   &H00008000&
  78.       ForeColor       =   &H000000FF&
  79.       Height          =   285
  80.       Left            =   120
  81.       TabIndex        =   4
  82.       Text            =   "Initialize"
  83.       Top             =   360
  84.       Width           =   1215
  85.    End
  86.    Begin TextBox scandelay 
  87.       BackColor       =   &H00008000&
  88.       ForeColor       =   &H000000FF&
  89.       Height          =   285
  90.       Left            =   1320
  91.       TabIndex        =   3
  92.       Text            =   "1"
  93.       Top             =   360
  94.       Width           =   1215
  95.    End
  96.    Begin TextBox pixelstep 
  97.       BackColor       =   &H00008000&
  98.       ForeColor       =   &H000000FF&
  99.       Height          =   285
  100.       Left            =   2520
  101.       TabIndex        =   2
  102.       Text            =   "10"
  103.       Top             =   360
  104.       Width           =   1215
  105.    End
  106.    Begin CommandButton alarmexit 
  107.       Caption         =   "Exit"
  108.       Height          =   495
  109.       Left            =   8880
  110.       TabIndex        =   0
  111.       Top             =   120
  112.       Width           =   615
  113.    End
  114.    Begin Timer alarmtimer 
  115.       Enabled         =   0   'False
  116.       Interval        =   1000
  117.       Left            =   8880
  118.       Top             =   840
  119.    End
  120.    Begin TextBox scanresult 
  121.       BackColor       =   &H00008000&
  122.       ForeColor       =   &H000000FF&
  123.       Height          =   285
  124.       Left            =   4920
  125.       TabIndex        =   1
  126.       Top             =   360
  127.       Width           =   1095
  128.    End
  129.    Begin Label Label7 
  130.       Alignment       =   2  'Center
  131.       BorderStyle     =   1  'Fixed Single
  132.       Height          =   2535
  133.       Left            =   1080
  134.       TabIndex        =   16
  135.       Top             =   4680
  136.       Visible         =   0   'False
  137.       Width           =   7335
  138.    End
  139.    Begin Label Label6 
  140.       Alignment       =   2  'Center
  141.       BackStyle       =   0  'Transparent
  142.       BorderStyle     =   1  'Fixed Single
  143.       Caption         =   "Alarm Alert"
  144.       ForeColor       =   &H000000FF&
  145.       Height          =   255
  146.       Left            =   6000
  147.       TabIndex        =   12
  148.       Top             =   120
  149.       Width           =   1215
  150.    End
  151.    Begin Label Label5 
  152.       Alignment       =   2  'Center
  153.       BackStyle       =   0  'Transparent
  154.       BorderStyle     =   1  'Fixed Single
  155.       Caption         =   "What is Bad"
  156.       ForeColor       =   &H000000FF&
  157.       Height          =   255
  158.       Left            =   3720
  159.       TabIndex        =   11
  160.       Top             =   120
  161.       Width           =   1215
  162.    End
  163.    Begin Label Label4 
  164.       Alignment       =   2  'Center
  165.       BackStyle       =   0  'Transparent
  166.       BorderStyle     =   1  'Fixed Single
  167.       Caption         =   "Status"
  168.       ForeColor       =   &H000000FF&
  169.       Height          =   255
  170.       Left            =   120
  171.       TabIndex        =   10
  172.       Top             =   120
  173.       Width           =   1215
  174.    End
  175.    Begin Label Label3 
  176.       Alignment       =   2  'Center
  177.       BackStyle       =   0  'Transparent
  178.       BorderStyle     =   1  'Fixed Single
  179.       Caption         =   "Scan Delay"
  180.       ForeColor       =   &H000000FF&
  181.       Height          =   255
  182.       Left            =   1320
  183.       TabIndex        =   9
  184.       Top             =   120
  185.       Width           =   1215
  186.    End
  187.    Begin Label Label2 
  188.       Alignment       =   2  'Center
  189.       BackStyle       =   0  'Transparent
  190.       BorderStyle     =   1  'Fixed Single
  191.       Caption         =   "Pixel Step"
  192.       ForeColor       =   &H000000FF&
  193.       Height          =   255
  194.       Left            =   2520
  195.       TabIndex        =   8
  196.       Top             =   120
  197.       Width           =   1215
  198.    End
  199.    Begin Label Label1 
  200.       Alignment       =   2  'Center
  201.       BackStyle       =   0  'Transparent
  202.       BorderStyle     =   1  'Fixed Single
  203.       Caption         =   "Scan Result"
  204.       ForeColor       =   &H000000FF&
  205.       Height          =   255
  206.       Left            =   4920
  207.       TabIndex        =   7
  208.       Top             =   120
  209.       Width           =   1095
  210.    End
  211. Sub alarmexit_Click ()
  212.   'exit selected - so call the exit routine
  213.   alarmend
  214. End Sub
  215. Sub alarmtimer_Timer ()
  216.   'timer event - so check the frames for bad guys
  217.   scancaptures
  218. End Sub
  219. Sub Form_Load ()
  220.   'form load event - so initialize things
  221.   initializealarm
  222. End Sub
  223. Sub scandelay_Change ()
  224.   'scan_delay_was_changed event - so adjust the timer
  225.   Call setinterval
  226. End Sub
  227. Sub showinfo_Click ()
  228.   'info button clicked - so tell them what it's all about
  229.   info
  230. End Sub
  231.