home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd2.bin / editors / songs / SoundEngine / vbmp31615.lzh / sample.LZH / frmGE.frm (.txt) < prev    next >
Visual Basic Form  |  1999-11-10  |  17KB  |  560 lines
  1. VERSION 5.00
  2. Begin VB.Form frmGE 
  3.    Caption         =   "
  4.    ClientHeight    =   3210
  5.    ClientLeft      =   9480
  6.    ClientTop       =   6675
  7.    ClientWidth     =   3930
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3210
  10.    ScaleWidth      =   3930
  11.    StartUpPosition =   1  '
  12.    Begin VB.CommandButton cmdReload 
  13.       Caption         =   "
  14.       Height          =   315
  15.       Left            =   180
  16.       TabIndex        =   32
  17.       Top             =   2820
  18.       Width           =   1395
  19.    End
  20.    Begin VB.CheckBox chkUse 
  21.       Caption         =   "
  22.       Height          =   255
  23.       Left            =   240
  24.       TabIndex        =   31
  25.       Top             =   2460
  26.       Width           =   1815
  27.    End
  28.    Begin VB.OptionButton optGE 
  29.       Caption         =   "Total Reduce"
  30.       BeginProperty Font 
  31.          Name            =   "
  32.          Size            =   8.25
  33.          Charset         =   128
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   285
  40.       Index           =   6
  41.       Left            =   2520
  42.       TabIndex        =   29
  43.       Top             =   3000
  44.       Width           =   1300
  45.    End
  46.    Begin VB.OptionButton optGE 
  47.       Caption         =   "Total Boost"
  48.       BeginProperty Font 
  49.          Name            =   "
  50.          Size            =   8.25
  51.          Charset         =   128
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   285
  58.       Index           =   5
  59.       Left            =   2520
  60.       TabIndex        =   28
  61.       Top             =   2760
  62.       Width           =   1300
  63.    End
  64.    Begin VB.OptionButton optGE 
  65.       Caption         =   "Treble Boost"
  66.       BeginProperty Font 
  67.          Name            =   "
  68.          Size            =   8.25
  69.          Charset         =   128
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   285
  76.       Index           =   4
  77.       Left            =   2520
  78.       TabIndex        =   27
  79.       Top             =   2520
  80.       Width           =   1300
  81.    End
  82.    Begin VB.OptionButton optGE 
  83.       Caption         =   "Nomal"
  84.       BeginProperty Font 
  85.          Name            =   "
  86.          Size            =   8.25
  87.          Charset         =   128
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   285
  94.       Index           =   0
  95.       Left            =   2520
  96.       TabIndex        =   26
  97.       Top             =   1560
  98.       Width           =   1300
  99.    End
  100.    Begin VB.OptionButton optGE 
  101.       Caption         =   "Base Boost"
  102.       BeginProperty Font 
  103.          Name            =   "
  104.          Size            =   8.25
  105.          Charset         =   128
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   285
  112.       Index           =   3
  113.       Left            =   2520
  114.       TabIndex        =   25
  115.       Top             =   2280
  116.       Width           =   1300
  117.    End
  118.    Begin VB.OptionButton optGE 
  119.       Caption         =   "Pop"
  120.       BeginProperty Font 
  121.          Name            =   "
  122.          Size            =   8.25
  123.          Charset         =   128
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   285
  130.       Index           =   2
  131.       Left            =   2520
  132.       TabIndex        =   24
  133.       Top             =   2040
  134.       Width           =   1300
  135.    End
  136.    Begin VB.OptionButton optGE 
  137.       Caption         =   "Rock"
  138.       BeginProperty Font 
  139.          Name            =   "
  140.          Size            =   8.25
  141.          Charset         =   128
  142.          Weight          =   400
  143.          Underline       =   0   'False
  144.          Italic          =   0   'False
  145.          Strikethrough   =   0   'False
  146.       EndProperty
  147.       Height          =   285
  148.       Index           =   1
  149.       Left            =   2520
  150.       TabIndex        =   23
  151.       Top             =   1800
  152.       Width           =   1300
  153.    End
  154.    Begin VB.VScrollBar vsGraphic 
  155.       Height          =   1300
  156.       Index           =   9
  157.       Left            =   3720
  158.       Max             =   128
  159.       Min             =   -128
  160.       TabIndex        =   9
  161.       Top             =   120
  162.       Width           =   135
  163.    End
  164.    Begin VB.VScrollBar vsGraphic 
  165.       Height          =   1300
  166.       Index           =   8
  167.       Left            =   3360
  168.       Max             =   128
  169.       Min             =   -128
  170.       TabIndex        =   8
  171.       Top             =   120
  172.       Width           =   135
  173.    End
  174.    Begin VB.VScrollBar vsGraphic 
  175.       Height          =   1300
  176.       Index           =   7
  177.       Left            =   3000
  178.       Max             =   128
  179.       Min             =   -128
  180.       TabIndex        =   7
  181.       Top             =   120
  182.       Width           =   135
  183.    End
  184.    Begin VB.VScrollBar vsGraphic 
  185.       Height          =   1300
  186.       Index           =   6
  187.       Left            =   2640
  188.       Max             =   128
  189.       Min             =   -128
  190.       TabIndex        =   6
  191.       Top             =   120
  192.       Width           =   135
  193.    End
  194.    Begin VB.VScrollBar vsGraphic 
  195.       Height          =   1300
  196.       Index           =   5
  197.       Left            =   2280
  198.       Max             =   128
  199.       Min             =   -128
  200.       TabIndex        =   5
  201.       Top             =   120
  202.       Width           =   135
  203.    End
  204.    Begin VB.VScrollBar vsGraphic 
  205.       Height          =   1300
  206.       Index           =   4
  207.       Left            =   1920
  208.       Max             =   128
  209.       Min             =   -128
  210.       TabIndex        =   4
  211.       Top             =   120
  212.       Width           =   135
  213.    End
  214.    Begin VB.VScrollBar vsGraphic 
  215.       Height          =   1300
  216.       Index           =   3
  217.       Left            =   1560
  218.       Max             =   128
  219.       Min             =   -128
  220.       TabIndex        =   3
  221.       Top             =   120
  222.       Width           =   135
  223.    End
  224.    Begin VB.VScrollBar vsGraphic 
  225.       Height          =   1300
  226.       Index           =   2
  227.       Left            =   1200
  228.       Max             =   128
  229.       Min             =   -128
  230.       TabIndex        =   2
  231.       Top             =   120
  232.       Width           =   135
  233.    End
  234.    Begin VB.VScrollBar vsGraphic 
  235.       Height          =   1300
  236.       Index           =   1
  237.       Left            =   840
  238.       Max             =   128
  239.       Min             =   -128
  240.       TabIndex        =   1
  241.       Top             =   120
  242.       Width           =   135
  243.    End
  244.    Begin VB.VScrollBar vsGraphic 
  245.       Height          =   1300
  246.       Index           =   0
  247.       Left            =   480
  248.       Max             =   128
  249.       Min             =   -128
  250.       TabIndex        =   0
  251.       Top             =   120
  252.       Width           =   135
  253.    End
  254.    Begin VB.Line Line1 
  255.       BorderStyle     =   3  '
  256.       Index           =   9
  257.       X1              =   420
  258.       X2              =   3960
  259.       Y1              =   780
  260.       Y2              =   780
  261.    End
  262.    Begin VB.Label Label11 
  263.       Alignment       =   1  '
  264.       Caption         =   "0dB"
  265.       BeginProperty Font 
  266.          Name            =   "
  267.          Size            =   6.75
  268.          Charset         =   128
  269.          Weight          =   400
  270.          Underline       =   0   'False
  271.          Italic          =   0   'False
  272.          Strikethrough   =   0   'False
  273.       EndProperty
  274.       Height          =   135
  275.       Left            =   0
  276.       TabIndex        =   30
  277.       Top             =   700
  278.       Width           =   375
  279.    End
  280.    Begin VB.Label Label13 
  281.       Caption         =   "-12dB"
  282.       BeginProperty Font 
  283.          Name            =   "
  284.          Size            =   6.75
  285.          Charset         =   128
  286.          Weight          =   400
  287.          Underline       =   0   'False
  288.          Italic          =   0   'False
  289.          Strikethrough   =   0   'False
  290.       EndProperty
  291.       Height          =   135
  292.       Left            =   0
  293.       TabIndex        =   22
  294.       Top             =   1200
  295.       Width           =   375
  296.    End
  297.    Begin VB.Label Label12 
  298.       Caption         =   "+12dB"
  299.       BeginProperty Font 
  300.          Name            =   "
  301.          Size            =   6.75
  302.          Charset         =   128
  303.          Weight          =   400
  304.          Underline       =   0   'False
  305.          Italic          =   0   'False
  306.          Strikethrough   =   0   'False
  307.       EndProperty
  308.       Height          =   135
  309.       Left            =   0
  310.       TabIndex        =   21
  311.       Top             =   240
  312.       Width           =   375
  313.    End
  314.    Begin VB.Label lbText 
  315.       Caption         =   "Label11"
  316.       BeginProperty Font 
  317.          Name            =   "
  318.          Size            =   8.25
  319.          Charset         =   128
  320.          Weight          =   400
  321.          Underline       =   0   'False
  322.          Italic          =   0   'False
  323.          Strikethrough   =   0   'False
  324.       EndProperty
  325.       Height          =   615
  326.       Left            =   120
  327.       TabIndex        =   20
  328.       Top             =   1680
  329.       Width           =   2055
  330.    End
  331.    Begin VB.Label Label10 
  332.       Caption         =   "16K"
  333.       BeginProperty Font 
  334.          Name            =   "
  335.          Size            =   6.75
  336.          Charset         =   128
  337.          Weight          =   400
  338.          Underline       =   0   'False
  339.          Italic          =   0   'False
  340.          Strikethrough   =   0   'False
  341.       EndProperty
  342.       Height          =   135
  343.       Left            =   3660
  344.       TabIndex        =   19
  345.       Top             =   1440
  346.       Width           =   255
  347.    End
  348.    Begin VB.Label Label9 
  349.       Caption         =   "170"
  350.       BeginProperty Font 
  351.          Name            =   "
  352.          Size            =   6.75
  353.          Charset         =   128
  354.          Weight          =   400
  355.          Underline       =   0   'False
  356.          Italic          =   0   'False
  357.          Strikethrough   =   0   'False
  358.       EndProperty
  359.       Height          =   135
  360.       Left            =   780
  361.       TabIndex        =   18
  362.       Top             =   1440
  363.       Width           =   255
  364.    End
  365.    Begin VB.Label Label8 
  366.       Caption         =   "310"
  367.       BeginProperty Font 
  368.          Name            =   "
  369.          Size            =   6.75
  370.          Charset         =   128
  371.          Weight          =   400
  372.          Underline       =   0   'False
  373.          Italic          =   0   'False
  374.          Strikethrough   =   0   'False
  375.       EndProperty
  376.       Height          =   135
  377.       Left            =   1140
  378.       TabIndex        =   17
  379.       Top             =   1440
  380.       Width           =   255
  381.    End
  382.    Begin VB.Label Label7 
  383.       Caption         =   "600"
  384.       BeginProperty Font 
  385.          Name            =   "
  386.          Size            =   6.75
  387.          Charset         =   128
  388.          Weight          =   400
  389.          Underline       =   0   'False
  390.          Italic          =   0   'False
  391.          Strikethrough   =   0   'False
  392.       EndProperty
  393.       Height          =   135
  394.       Left            =   1500
  395.       TabIndex        =   16
  396.       Top             =   1440
  397.       Width           =   255
  398.    End
  399.    Begin VB.Label Label6 
  400.       Caption         =   "1K"
  401.       BeginProperty Font 
  402.          Name            =   "
  403.          Size            =   6.75
  404.          Charset         =   128
  405.          Weight          =   400
  406.          Underline       =   0   'False
  407.          Italic          =   0   'False
  408.          Strikethrough   =   0   'False
  409.       EndProperty
  410.       Height          =   135
  411.       Left            =   1920
  412.       TabIndex        =   15
  413.       Top             =   1440
  414.       Width           =   255
  415.    End
  416.    Begin VB.Label Label5 
  417.       Caption         =   "3K"
  418.       BeginProperty Font 
  419.          Name            =   "
  420.          Size            =   6.75
  421.          Charset         =   128
  422.          Weight          =   400
  423.          Underline       =   0   'False
  424.          Italic          =   0   'False
  425.          Strikethrough   =   0   'False
  426.       EndProperty
  427.       Height          =   135
  428.       Left            =   2280
  429.       TabIndex        =   14
  430.       Top             =   1440
  431.       Width           =   255
  432.    End
  433.    Begin VB.Label Label4 
  434.       Caption         =   "6K"
  435.       BeginProperty Font 
  436.          Name            =   "
  437.          Size            =   6.75
  438.          Charset         =   128
  439.          Weight          =   400
  440.          Underline       =   0   'False
  441.          Italic          =   0   'False
  442.          Strikethrough   =   0   'False
  443.       EndProperty
  444.       Height          =   135
  445.       Left            =   2640
  446.       TabIndex        =   13
  447.       Top             =   1440
  448.       Width           =   255
  449.    End
  450.    Begin VB.Label Label3 
  451.       Caption         =   "12K"
  452.       BeginProperty Font 
  453.          Name            =   "
  454.          Size            =   6.75
  455.          Charset         =   128
  456.          Weight          =   400
  457.          Underline       =   0   'False
  458.          Italic          =   0   'False
  459.          Strikethrough   =   0   'False
  460.       EndProperty
  461.       Height          =   135
  462.       Left            =   2940
  463.       TabIndex        =   12
  464.       Top             =   1440
  465.       Width           =   255
  466.    End
  467.    Begin VB.Label Label2 
  468.       Caption         =   "14K"
  469.       BeginProperty Font 
  470.          Name            =   "
  471.          Size            =   6.75
  472.          Charset         =   128
  473.          Weight          =   400
  474.          Underline       =   0   'False
  475.          Italic          =   0   'False
  476.          Strikethrough   =   0   'False
  477.       EndProperty
  478.       Height          =   135
  479.       Left            =   3300
  480.       TabIndex        =   11
  481.       Top             =   1440
  482.       Width           =   255
  483.    End
  484.    Begin VB.Label Label1 
  485.       Caption         =   "60"
  486.       BeginProperty Font 
  487.          Name            =   "
  488.          Size            =   6.75
  489.          Charset         =   128
  490.          Weight          =   400
  491.          Underline       =   0   'False
  492.          Italic          =   0   'False
  493.          Strikethrough   =   0   'False
  494.       EndProperty
  495.       Height          =   135
  496.       Left            =   480
  497.       TabIndex        =   10
  498.       Top             =   1440
  499.       Width           =   135
  500.    End
  501. Attribute VB_Name = "frmGE"
  502. Attribute VB_GlobalNameSpace = False
  503. Attribute VB_Creatable = False
  504. Attribute VB_PredeclaredId = True
  505. Attribute VB_Exposed = False
  506. Dim selGE As Integer
  507. Dim flgGE As Boolean
  508. Private Sub chkUse_Click()
  509.     If chkUse.Value = 0 Then
  510.         Call vbmp3_setEqualizer(ByVal 0&)
  511.     Else
  512.         Call vbmp3_setEqualizer(geVal(0))
  513.     End If
  514. End Sub
  515. Private Sub cmdReload_Click()
  516.     Call vbmp3_reload
  517. End Sub
  518. Private Sub Form_Load()
  519.     Dim i As Integer
  520.     lbText.Caption = "
  521. " & vbCrLf & _
  522.                      "
  523. " & vbCrLf & _
  524.                      "
  525.     flgGE = False
  526.     For i = 0 To 9
  527.         vsGraphic(i).Value = -geVal(i)
  528.     Next i
  529.     flgGE = True
  530. End Sub
  531. Private Sub optGE_Click(Index As Integer)
  532.     Dim tmp As Variant
  533.     Dim i As Integer
  534.     Select Case Index
  535.     Case 0
  536.         tmp = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  537.     Case 1
  538.         tmp = Array(60, 40, 20, 0, -20, -20, 0, 20, 40, 60)
  539.     Case 2
  540.         tmp = Array(20, 30, 40, 60, 60, 40, 30, 20, 0, 0)
  541.     Case 3
  542.         tmp = Array(60, 80, 40, 20, 0, 0, 0, 0, 0, 0)
  543.     Case 4
  544.         tmp = Array(0, 0, 0, 0, 20, 30, 40, 60, 60, 60)
  545.     Case 5
  546.         tmp = Array(60, 60, 60, 60, 60, 60, 60, 60, 60, 60)
  547.     Case 6
  548.         tmp = Array(-60, -60, -60, -60, -60, -60, -60, -60, -60, -60)
  549.     End Select
  550.     For i = 0 To 9
  551.         vsGraphic(i).Value = -tmp(i)
  552.     Next i
  553. End Sub
  554. Private Sub vsGraphic_Change(Index As Integer)
  555.     geVal(Index) = -vsGraphic(Index).Value
  556.     If flgGE And chkUse.Value = 1 Then
  557.         Call vbmp3_setEqualizer(geVal(0))
  558.     End If
  559. End Sub
  560.