VERSION 5.00 Begin VB.Form frmGE Caption = " ClientHeight = 3210 ClientLeft = 9480 ClientTop = 6675 ClientWidth = 3930 LinkTopic = "Form1" ScaleHeight = 3210 ScaleWidth = 3930 StartUpPosition = 1 ' Begin VB.CommandButton cmdReload Caption = " Height = 315 Left = 180 TabIndex = 32 Top = 2820 Width = 1395 End Begin VB.CheckBox chkUse Caption = " Height = 255 Left = 240 TabIndex = 31 Top = 2460 Width = 1815 End Begin VB.OptionButton optGE Caption = "Total Reduce" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 2520 TabIndex = 29 Top = 3000 Width = 1300 End Begin VB.OptionButton optGE Caption = "Total Boost" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 2520 TabIndex = 28 Top = 2760 Width = 1300 End Begin VB.OptionButton optGE Caption = "Treble Boost" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 2520 TabIndex = 27 Top = 2520 Width = 1300 End Begin VB.OptionButton optGE Caption = "Nomal" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 0 Left = 2520 TabIndex = 26 Top = 1560 Width = 1300 End Begin VB.OptionButton optGE Caption = "Base Boost" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 2520 TabIndex = 25 Top = 2280 Width = 1300 End Begin VB.OptionButton optGE Caption = "Pop" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 2520 TabIndex = 24 Top = 2040 Width = 1300 End Begin VB.OptionButton optGE Caption = "Rock" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 1 Left = 2520 TabIndex = 23 Top = 1800 Width = 1300 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 9 Left = 3720 Max = 128 Min = -128 TabIndex = 9 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 8 Left = 3360 Max = 128 Min = -128 TabIndex = 8 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 7 Left = 3000 Max = 128 Min = -128 TabIndex = 7 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 6 Left = 2640 Max = 128 Min = -128 TabIndex = 6 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 5 Left = 2280 Max = 128 Min = -128 TabIndex = 5 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 4 Left = 1920 Max = 128 Min = -128 TabIndex = 4 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 3 Left = 1560 Max = 128 Min = -128 TabIndex = 3 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 2 Left = 1200 Max = 128 Min = -128 TabIndex = 2 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 1 Left = 840 Max = 128 Min = -128 TabIndex = 1 Top = 120 Width = 135 End Begin VB.VScrollBar vsGraphic Height = 1300 Index = 0 Left = 480 Max = 128 Min = -128 TabIndex = 0 Top = 120 Width = 135 End Begin VB.Line Line1 BorderStyle = 3 ' Index = 9 X1 = 420 X2 = 3960 Y1 = 780 Y2 = 780 End Begin VB.Label Label11 Alignment = 1 ' Caption = "0dB" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 0 TabIndex = 30 Top = 700 Width = 375 End Begin VB.Label Label13 Caption = "-12dB" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 0 TabIndex = 22 Top = 1200 Width = 375 End Begin VB.Label Label12 Caption = "+12dB" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 0 TabIndex = 21 Top = 240 Width = 375 End Begin VB.Label lbText Caption = "Label11" BeginProperty Font Name = " Size = 8.25 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 120 TabIndex = 20 Top = 1680 Width = 2055 End Begin VB.Label Label10 Caption = "16K" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 3660 TabIndex = 19 Top = 1440 Width = 255 End Begin VB.Label Label9 Caption = "170" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 780 TabIndex = 18 Top = 1440 Width = 255 End Begin VB.Label Label8 Caption = "310" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 1140 TabIndex = 17 Top = 1440 Width = 255 End Begin VB.Label Label7 Caption = "600" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 1500 TabIndex = 16 Top = 1440 Width = 255 End Begin VB.Label Label6 Caption = "1K" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 1920 TabIndex = 15 Top = 1440 Width = 255 End Begin VB.Label Label5 Caption = "3K" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 2280 TabIndex = 14 Top = 1440 Width = 255 End Begin VB.Label Label4 Caption = "6K" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 2640 TabIndex = 13 Top = 1440 Width = 255 End Begin VB.Label Label3 Caption = "12K" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 2940 TabIndex = 12 Top = 1440 Width = 255 End Begin VB.Label Label2 Caption = "14K" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 3300 TabIndex = 11 Top = 1440 Width = 255 End Begin VB.Label Label1 Caption = "60" BeginProperty Font Name = " Size = 6.75 Charset = 128 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 480 TabIndex = 10 Top = 1440 Width = 135 End Attribute VB_Name = "frmGE" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim selGE As Integer Dim flgGE As Boolean Private Sub chkUse_Click() If chkUse.Value = 0 Then Call vbmp3_setEqualizer(ByVal 0&) Else Call vbmp3_setEqualizer(geVal(0)) End If End Sub Private Sub cmdReload_Click() Call vbmp3_reload End Sub Private Sub Form_Load() Dim i As Integer lbText.Caption = " " & vbCrLf & _ " " & vbCrLf & _ " flgGE = False For i = 0 To 9 vsGraphic(i).Value = -geVal(i) Next i flgGE = True End Sub Private Sub optGE_Click(Index As Integer) Dim tmp As Variant Dim i As Integer Select Case Index Case 0 tmp = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0) Case 1 tmp = Array(60, 40, 20, 0, -20, -20, 0, 20, 40, 60) Case 2 tmp = Array(20, 30, 40, 60, 60, 40, 30, 20, 0, 0) Case 3 tmp = Array(60, 80, 40, 20, 0, 0, 0, 0, 0, 0) Case 4 tmp = Array(0, 0, 0, 0, 20, 30, 40, 60, 60, 60) Case 5 tmp = Array(60, 60, 60, 60, 60, 60, 60, 60, 60, 60) Case 6 tmp = Array(-60, -60, -60, -60, -60, -60, -60, -60, -60, -60) End Select For i = 0 To 9 vsGraphic(i).Value = -tmp(i) Next i End Sub Private Sub vsGraphic_Change(Index As Integer) geVal(Index) = -vsGraphic(Index).Value If flgGE And chkUse.Value = 1 Then Call vbmp3_setEqualizer(geVal(0)) End If End Sub