home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Real-time_2028201112006.psc / Histogram.frm < prev   
Text File  |  2006-07-30  |  7KB  |  224 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHistogram 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   4  'Fixed ToolWindow
  6.    Caption         =   " Histogram"
  7.    ClientHeight    =   6810
  8.    ClientLeft      =   45
  9.    ClientTop       =   285
  10.    ClientWidth     =   4125
  11.    BeginProperty Font 
  12.       Name            =   "Arial"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   454
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   275
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   2  'CenterScreen
  28.    Begin VB.Frame Frame1 
  29.       BackColor       =   &H00C0C0C0&
  30.       Caption         =   "Statistics"
  31.       Height          =   1455
  32.       Left            =   120
  33.       TabIndex        =   6
  34.       Top             =   5280
  35.       Width           =   3855
  36.       Begin VB.Label lblMaxCount 
  37.          Appearance      =   0  'Flat
  38.          BackColor       =   &H80000005&
  39.          BackStyle       =   0  'Transparent
  40.          Caption         =   "lblMAXCOUNT"
  41.          ForeColor       =   &H80000008&
  42.          Height          =   255
  43.          Left            =   1320
  44.          TabIndex        =   13
  45.          Top             =   1080
  46.          Width           =   2415
  47.       End
  48.       Begin VB.Label Label5 
  49.          Appearance      =   0  'Flat
  50.          AutoSize        =   -1  'True
  51.          BackColor       =   &H80000005&
  52.          BackStyle       =   0  'Transparent
  53.          Caption         =   "Maximum count:"
  54.          ForeColor       =   &H80000008&
  55.          Height          =   210
  56.          Left            =   120
  57.          TabIndex        =   12
  58.          Top             =   1080
  59.          Width           =   1155
  60.       End
  61.       Begin VB.Label lblCount 
  62.          Appearance      =   0  'Flat
  63.          BackColor       =   &H80000005&
  64.          BackStyle       =   0  'Transparent
  65.          ForeColor       =   &H80000008&
  66.          Height          =   255
  67.          Left            =   600
  68.          TabIndex        =   11
  69.          Top             =   840
  70.          Width           =   3135
  71.       End
  72.       Begin VB.Label Label4 
  73.          Appearance      =   0  'Flat
  74.          BackColor       =   &H80000005&
  75.          BackStyle       =   0  'Transparent
  76.          Caption         =   "Count:"
  77.          ForeColor       =   &H80000008&
  78.          Height          =   255
  79.          Left            =   120
  80.          TabIndex        =   10
  81.          Top             =   840
  82.          Width           =   495
  83.       End
  84.       Begin VB.Label lblLevel 
  85.          Appearance      =   0  'Flat
  86.          BackColor       =   &H80000005&
  87.          BackStyle       =   0  'Transparent
  88.          ForeColor       =   &H80000008&
  89.          Height          =   255
  90.          Left            =   600
  91.          TabIndex        =   9
  92.          Top             =   600
  93.          Width           =   3135
  94.       End
  95.       Begin VB.Line Line1 
  96.          X1              =   120
  97.          X2              =   3720
  98.          Y1              =   530
  99.          Y2              =   530
  100.       End
  101.       Begin VB.Label Label3 
  102.          Appearance      =   0  'Flat
  103.          BackColor       =   &H80000005&
  104.          BackStyle       =   0  'Transparent
  105.          Caption         =   "Level:"
  106.          ForeColor       =   &H80000008&
  107.          Height          =   255
  108.          Left            =   120
  109.          TabIndex        =   8
  110.          Top             =   600
  111.          Width           =   495
  112.       End
  113.       Begin VB.Label lblTotalPixels 
  114.          Appearance      =   0  'Flat
  115.          AutoSize        =   -1  'True
  116.          BackColor       =   &H80000005&
  117.          BackStyle       =   0  'Transparent
  118.          Caption         =   "Total pixels:"
  119.          ForeColor       =   &H80000008&
  120.          Height          =   210
  121.          Left            =   120
  122.          TabIndex        =   7
  123.          Top             =   240
  124.          Width           =   855
  125.       End
  126.    End
  127.    Begin VB.PictureBox picGradient 
  128.       Appearance      =   0  'Flat
  129.       AutoRedraw      =   -1  'True
  130.       BackColor       =   &H80000005&
  131.       ForeColor       =   &H80000008&
  132.       Height          =   255
  133.       Left            =   120
  134.       ScaleHeight     =   15
  135.       ScaleMode       =   3  'Pixel
  136.       ScaleWidth      =   256
  137.       TabIndex        =   5
  138.       Top             =   4950
  139.       Width           =   3870
  140.    End
  141.    Begin VB.ComboBox cmbHistSource 
  142.       Appearance      =   0  'Flat
  143.       Height          =   330
  144.       Left            =   1560
  145.       TabIndex        =   2
  146.       Top             =   120
  147.       Width           =   2415
  148.    End
  149.    Begin VB.ComboBox cmbHistMethod 
  150.       Appearance      =   0  'Flat
  151.       Height          =   330
  152.       Left            =   1560
  153.       TabIndex        =   1
  154.       Top             =   480
  155.       Width           =   2415
  156.    End
  157.    Begin VB.PictureBox picH 
  158.       Appearance      =   0  'Flat
  159.       AutoRedraw      =   -1  'True
  160.       BackColor       =   &H80000005&
  161.       ForeColor       =   &H80000008&
  162.       Height          =   3975
  163.       Left            =   120
  164.       MousePointer    =   2  'Cross
  165.       ScaleHeight     =   263
  166.       ScaleMode       =   3  'Pixel
  167.       ScaleWidth      =   256
  168.       TabIndex        =   0
  169.       Top             =   960
  170.       Width           =   3870
  171.    End
  172.    Begin VB.Label Label2 
  173.       Appearance      =   0  'Flat
  174.       AutoSize        =   -1  'True
  175.       BackColor       =   &H80000005&
  176.       BackStyle       =   0  'Transparent
  177.       Caption         =   "Drawing Method:"
  178.       ForeColor       =   &H80000008&
  179.       Height          =   210
  180.       Left            =   120
  181.       TabIndex        =   4
  182.       Top             =   540
  183.       Width           =   1230
  184.    End
  185.    Begin VB.Label Label1 
  186.       Appearance      =   0  'Flat
  187.       AutoSize        =   -1  'True
  188.       BackColor       =   &H80000005&
  189.       BackStyle       =   0  'Transparent
  190.       Caption         =   "Histogram Source:"
  191.       ForeColor       =   &H80000008&
  192.       Height          =   210
  193.       Left            =   120
  194.       TabIndex        =   3
  195.       Top             =   180
  196.       Width           =   1335
  197.    End
  198. End
  199. Attribute VB_Name = "frmHistogram"
  200. Attribute VB_GlobalNameSpace = False
  201. Attribute VB_Creatable = False
  202. Attribute VB_PredeclaredId = True
  203. Attribute VB_Exposed = False
  204. Option Explicit
  205.  
  206. '***************************************************************************
  207. 'Histogram Handler
  208. '⌐2006 Tanner "DemonSpectre" Helland
  209. 'Created: 6/12/01
  210. 'Last updated: 16/July/2006
  211. '
  212. 'This form runs the basic code for calculating and displaying an image's histogram.
  213. '
  214. '***************************************************************************
  215.  
  216. 'Throughout this form1       =*********************
  217.  
  218. 'T     Widx     L   256
  219. k &H8000000VB.Form frmd)-a63
  220. Gklmy.ba*************************************
  221.  
  222. 'Throughout this form1       =*********************
  223.  
  224. 'T     Wio Fals(