home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / A_SINE256_2053303122007.psc / SettingFrm.frm < prev   
Text File  |  2007-03-12  |  9KB  |  281 lines
  1. VERSION 5.00
  2. Begin VB.Form SettingFrm 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Settings - SINE256"
  5.    ClientHeight    =   3660
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3495
  9.    Icon            =   "SettingFrm.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3660
  14.    ScaleWidth      =   3495
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.TextBox BufferTxt 
  17.       BeginProperty Font 
  18.          Name            =   "Verdana"
  19.          Size            =   8.25
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   285
  27.       Left            =   1560
  28.       TabIndex        =   13
  29.       Text            =   "1048576"
  30.       Top             =   2400
  31.       Width           =   975
  32.    End
  33.    Begin VB.CommandButton CloseCmd 
  34.       Caption         =   "Close"
  35.       BeginProperty Font 
  36.          Name            =   "Verdana"
  37.          Size            =   8.25
  38.          Charset         =   0
  39.          Weight          =   400
  40.          Underline       =   0   'False
  41.          Italic          =   0   'False
  42.          Strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   375
  45.       Left            =   2640
  46.       TabIndex        =   11
  47.       Top             =   3240
  48.       Width           =   735
  49.    End
  50.    Begin VB.CommandButton ApplyCmd 
  51.       Caption         =   "Apply"
  52.       BeginProperty Font 
  53.          Name            =   "Verdana"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   375
  62.       Left            =   120
  63.       TabIndex        =   10
  64.       Top             =   3240
  65.       Width           =   735
  66.    End
  67.    Begin VB.TextBox passTxt 
  68.       BeginProperty Font 
  69.          Name            =   "Verdana"
  70.          Size            =   8.25
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   285
  78.       Left            =   1560
  79.       TabIndex        =   4
  80.       Top             =   480
  81.       Width           =   1695
  82.    End
  83.    Begin VB.TextBox DecalTxt 
  84.       BeginProperty Font 
  85.          Name            =   "Verdana"
  86.          Size            =   8.25
  87.          Charset         =   0
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   285
  94.       Left            =   1560
  95.       TabIndex        =   3
  96.       Text            =   "1"
  97.       Top             =   1320
  98.       Width           =   1695
  99.    End
  100.    Begin VB.TextBox StartTxt 
  101.       BeginProperty Font 
  102.          Name            =   "Verdana"
  103.          Size            =   8.25
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       Height          =   285
  111.       Left            =   1560
  112.       TabIndex        =   2
  113.       Text            =   "128"
  114.       Top             =   1680
  115.       Width           =   495
  116.    End
  117.    Begin VB.TextBox rangeTxt 
  118.       BeginProperty Font 
  119.          Name            =   "Verdana"
  120.          Size            =   8.25
  121.          Charset         =   0
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   285
  128.       Left            =   1560
  129.       TabIndex        =   1
  130.       Text            =   "128"
  131.       Top             =   2040
  132.       Width           =   495
  133.    End
  134.    Begin VB.TextBox PatternTxt 
  135.       BeginProperty Font 
  136.          Name            =   "Verdana"
  137.          Size            =   8.25
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   285
  145.       Left            =   1560
  146.       TabIndex        =   0
  147.       Text            =   "50000"
  148.       Top             =   960
  149.       Width           =   1455
  150.    End
  151.    Begin VB.Label Label5 
  152.       Alignment       =   2  'Center
  153.       Caption         =   "Buffer Size :"
  154.       BeginProperty Font 
  155.          Name            =   "Verdana"
  156.          Size            =   8.25
  157.          Charset         =   0
  158.          Weight          =   400
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       Height          =   255
  164.       Left            =   240
  165.       TabIndex        =   12
  166.       Top             =   2400
  167.       Width           =   1215
  168.    End
  169.    Begin VB.Label Label1 
  170.       Caption         =   "Password :"
  171.       BeginProperty Font 
  172.          Name            =   "Verdana"
  173.          Size            =   8.25
  174.          Charset         =   0
  175.          Weight          =   400
  176.          Underline       =   0   'False
  177.          Italic          =   0   'False
  178.          Strikethrough   =   0   'False
  179.       EndProperty
  180.       Height          =   255
  181.       Left            =   480
  182.       TabIndex        =   9
  183.       Top             =   480
  184.       Width           =   975
  185.    End
  186.    Begin VB.Label Label2 
  187.       Alignment       =   2  'Center
  188.       Caption         =   "Decal :"
  189.       BeginProperty Font 
  190.          Name            =   "Verdana"
  191.          Size            =   8.25
  192.          Charset         =   0
  193.          Weight          =   400
  194.          Underline       =   0   'False
  195.          Italic          =   0   'False
  196.          Strikethrough   =   0   'False
  197.       EndProperty
  198.       Height          =   255
  199.       Left            =   720
  200.       TabIndex        =   8
  201.       Top             =   1320
  202.       Width           =   735
  203.    End
  204.    Begin VB.Label Label3 
  205.       Alignment       =   2  'Center
  206.       Caption         =   "Start :"
  207.       BeginProperty Font 
  208.          Name            =   "Verdana"
  209.          Size            =   8.25
  210.          Charset         =   0
  211.          Weight          =   400
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.       Height          =   255
  217.       Left            =   840
  218.       TabIndex        =   7
  219.       Top             =   1680
  220.       Width           =   615
  221.    End
  222.    Begin VB.Label Label4 
  223.       Caption         =   "Range :"
  224.       BeginProperty Font 
  225.          Name            =   "Verdana"
  226.          Size            =   8.25
  227.          Charset         =   0
  228.          Weight          =   400
  229.          Underline       =   0   'False
  230.          Italic          =   0   'False
  231.          Strikethrough   =   0   'False
  232.       EndProperty
  233.       Height          =   255
  234.       Left            =   720
  235.       TabIndex        =   6
  236.       Top             =   2040
  237.       Width           =   735
  238.    End
  239.    Begin VB.Label Label12 
  240.       Caption         =   "Pattern Repeat :"
  241.       BeginProperty Font 
  242.          Name            =   "Verdana"
  243.          Size            =   8.25
  244.          Charset         =   0
  245.          Weight          =   400
  246.          Underline       =   0   'False
  247.          Italic          =   0   'False
  248.          Strikethrough   =   0   'False
  249.       EndProperty
  250.       Height          =   255
  251.       Left            =   0
  252.       TabIndex        =   5
  253.       Top             =   960
  254.       Width           =   1455
  255.    End
  256. End
  257. Attribute VB_Name = "SettingFrm"
  258. Attribute VB_GlobalNameSpace = False
  259. Attribute VB_Creatable = False
  260. Attribute VB_PredeclaredId = True
  261. Attribute VB_Exposed = False
  262. Option Explicit
  263. Private Sub ApplyCmd_Click()
  264.     password = passTxt.Text
  265.     decal = Val(DecalTxt.Text)
  266.     start = Val(StartTxt.Text)
  267.     rangE = Val(rangeTxt.Text)
  268.     PatternLen = Val(PatternTxt.Text)
  269.     Chunk = Val(BufferTxt.Text)
  270.     
  271.     Dim Xb() As   Wn0.ntart = Val(SrOlick()
  272.     password =    =   0
  273.          Weight          =   password =    =   0
  274.          h0
  275.       TabIndex        =   5
  276.       Top            Affffffffffe     TobaH     We   Afop         e   AfiS(r8dFaN TobaH     We   AfopeADGpCe
  277. Attribute VB_Exposed = False    start =araht  = False    FalselO1eSlO1rka
  278.     pass6sFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFR
  279. rIioaaaaaaaaaaaaaaaaaaaaaaaaaaaaaah1      =   1320
  280.       Width  t       =   0
  281.          Weight