VERSION 5.00
Object = "{0791F269-FBBF-46AD-B5A6-78DB890BFA5F}#2.0#0"; "VolumeCtrl.ocx"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "richtx32.Ocx"
Object = "{E3583FCE-0595-4681-9ACD-48F7805DEFE1}#1.0#0"; "glxpbuttonz.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0"; "mscomctl.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmDMDrums
AutoRedraw = -1 'True
BackColor = &H80000001&
BorderStyle = 1 'Fixed Single
Caption = "DMDrums"
ClientHeight = 6285
ClientLeft = -885
ClientTop = 5190
ClientWidth = 5790
FillStyle = 0 'Solid
BeginProperty Font
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmDMDrums.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6285
ScaleWidth = 5790
Begin RichTextLib.RichTextBox rWinampPlaylist
Height = 750
Left = 6045
TabIndex = 95
Top = 2385
Visible = 0 'False
Width = 1500
_ExtentX = 2646
_ExtentY = 1323
_Version = 393217
RightMargin = 1.50000e5
TextRTF = $"frmDMDrums.frx":014A
End
Begin VB.PictureBox frmPicture1
BackColor = &H80000001&
BorderStyle = 0 'None
Height = 3000
Index = 1
Left = 45
ScaleHeight = 3000
ScaleWidth = 5745
TabIndex = 30
Top = 3225
Width = 5745
Begin VB.CommandButton cmdExternalHelper
BackColor = &H80000001&
Caption = "Caruso"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 1005
Style = 1 'Graphical
TabIndex = 43
ToolTipText = """Caruso interprets sLastLockFilename on Gemini - Edge"" Opp.click for Green toggle, Mid.Click or (CtrlShift+Opp.Click) for swotGPT"
Top = 1200
Visible = 0 'False
Width = 765
End
Begin MSComctlLib.Slider VolSlider1
Height = 1545
Left = 1755
TabIndex = 77
ToolTipText = "Mid.Click to Blank Screen. Opp.Click to reset InitialVolume or LowerVolume or UpperVolume"
Top = 435
Width = 225
_ExtentX = 397
_ExtentY = 2725
_Version = 393216
Orientation = 1
Min = -100
Max = 0
SelStart = -100
TickFrequency = 15
Value = -100
TextPosition = 1
End
Begin VB.CommandButton cmdPlayPause
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 15
Picture = "frmDMDrums.frx":01D3
Style = 1 'Graphical
TabIndex = 91
ToolTipText = "Left.Click toggles/holds Winamp on/off. Mid.Click starts Winamp and Direct Music Drums."
Top = 885
UseMaskColor = -1 'True
Width = 390
End
Begin MSComCtl2.MonthView MonthView1
Height = 2070
Left = 2910
TabIndex = 78
Top = 360
Visible = 0 'False
Width = 2625
_ExtentX = 4630
_ExtentY = 3651
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483647
BorderStyle = 1
Appearance = 1
OLEDropMode = 1
MultiSelect = -1 'True
ScrollRate = 1
ShowWeekNumbers = -1 'True
StartOfWeek = 311361537
CurrentDate = 38028
End
Begin VB.CommandButton cmdBeatmix
BackColor = &H80000001&
Caption = "&MixInGrid"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1005
Style = 1 'Graphical
TabIndex = 36
ToolTipText = "Click to swap DRUMPADSIZE. Opp.Click to try to IngridMixSync or (Mid.Click) to start Beatmixing 'temposync' instance"
Top = 885
Visible = 0 'False
Width = 765
End
Begin VB.CommandButton CommandGridArt
BackColor = &H80000001&
Caption = "^Grid&Art"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1005
Style = 1 'Graphical
TabIndex = 45
ToolTipText = $"frmDMDrums.frx":0536
Top = 420
UseMaskColor = -1 'True
Width = 765
End
Begin VB.CommandButton cmdPlayPause
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 15
Picture = "frmDMDrums.frx":0609
Style = 1 'Graphical
TabIndex = 50
ToolTipText = "Left.Click starts Winamp and Direct Music Drums. Mid.Click toggles/holds Winamp on/off."
Top = 885
UseMaskColor = -1 'True
Width = 390
End
Begin VB.CommandButton cmdHaltPlay
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 420
Picture = "frmDMDrums.frx":064B
Style = 1 'Graphical
TabIndex = 51
ToolTipText = "Mid.Click to start recording Mouse Macro. Click to stop."
Top = 885
UseMaskColor = -1 'True
Width = 390
End
Begin VB.CommandButton cmdPlayMotif
BackColor = &H80000001&
Caption = "Plugin"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 6005
Style = 1 'Graphical
TabIndex = 79
Top = 450
Visible = 0 'False
Width = 765
End
Begin VB.ListBox Genre
BackColor = &H80000001&
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 285
ItemData = "frmDMDrums.frx":0B01
Left = 0
List = "frmDMDrums.frx":0D88
Style = 1 'Checkbox
TabIndex = 34
ToolTipText = "deSelect to skip. Opp.Click for menu. Mid.Click to Explorer & File Info."
Top = 135
Width = 1350
End
Begin VB.Frame ManualGearing
BackColor = &H80000001&
Caption = "¼ ½ 1 2x "
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 420
Left = 15
TabIndex = 37
ToolTipText = "Click toggles Automatic Tempo gearing. "
Top = 435
Width = 1005
Begin VB.OptionButton TempoMultiplier
BackColor = &H80000001&
Caption = "2x"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 3
Left = 705
Style = 1 'Graphical
TabIndex = 41
Top = 180
Width = 285
End
Begin VB.OptionButton TempoMultiplier
BackColor = &H80000001&
Caption = "1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 2
Left = 465
Style = 1 'Graphical
TabIndex = 40
Top = 180
Value = -1 'True
Width = 285
End
Begin VB.OptionButton TempoMultiplier
BackColor = &H80000001&
Caption = "½"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 240
Style = 1 'Graphical
TabIndex = 39
Top = 180
Width = 285
End
Begin VB.OptionButton TempoMultiplier
BackColor = &H80000001&
Caption = "¼"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 0
Left = 0
Style = 1 'Graphical
TabIndex = 38
Top = 180
Width = 285
End
End
Begin VB.CheckBox chkLoop
BackColor = &H80000001&
Caption = "&Loop Segment"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 30
TabIndex = 80
ToolTipText = "When Grayed will not randomly play and Play plays system MIDI"
Top = 2340
Value = 2 'Grayed
Width = 1350
End
Begin VB.CommandButton cmdStop
BackColor = &H80000001&
Caption = "RadioOff"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1005
Style = 1 'Graphical
TabIndex = 47
ToolTipText = "Mid.Click to close all and Shutdown Windows"
Top = 435
UseMaskColor = -1 'True
Width = 765
End
Begin VB.CommandButton cmdSegment
BackColor = &H80000001&
Caption = "Segment &File"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 0
Style = 1 'Graphical
TabIndex = 87
Top = 2610
UseMaskColor = -1 'True
Width = 1140
End
Begin VB.CommandButton cmdSave
BackColor = &H80000001&
Caption = "&sort^>>|"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 0
Style = 1 'Graphical
TabIndex = 49
ToolTipText = $"frmDMDrums.frx":1547
Top = 1215
UseMaskColor = -1 'True
Visible = 0 'False
Width = 795
End
Begin VB.OptionButton optMeasure
BackColor = &H80000001&
Caption = "Measure"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4620
Style = 1 'Graphical
TabIndex = 85
Top = 2325
Width = 990
End
Begin VB.OptionButton optBeat
BackColor = &H80000001&
Caption = "Beat"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3945
Style = 1 'Graphical
TabIndex = 84
Top = 2325
Width = 675
End
Begin VB.OptionButton optGrid
BackColor = &H80000001&
Caption = "Grid"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
Style = 1 'Graphical
TabIndex = 83
Top = 2325
Width = 690
End
Begin VB.OptionButton optImmediate
BackColor = &H80000001&
Caption = "Learning"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2220
Style = 1 'Graphical
TabIndex = 82
Top = 2325
Width = 1035
End
Begin VB.TextBox txtSegment
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1170
Locked = -1 'True
TabIndex = 86
Top = 2595
Width = 4455
End
Begin VB.OptionButton optDefault
BackColor = &H80000001&
Caption = "Default"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1395
Style = 1 'Graphical
TabIndex = 81
Top = 2325
Value = -1 'True
Width = 855
End
Begin MSComctlLib.ProgressBar CPUUsage
Height = 645
Left = 810
TabIndex = 44
Tag = "progressbar.htm"
ToolTipText = "Click to toggles Fps"
Top = 885
WhatsThisHelpID = 20510
Width = 150
_ExtentX = 265
_ExtentY = 1138
_Version = 393216
Appearance = 1
Orientation = 1
End
Begin MSComCtl2.UpDown UpDown_Volume
Height = 510
Left = 15
TabIndex = 54
Top = 1545
Width = 240
_ExtentX = 423
_ExtentY = 900
_Version = 393216
Value = 100
Max = 100
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown_Fine_Tempo
Height = 435
Left = 0
TabIndex = 55
TabStop = 0 'False
ToolTipText = "Change Fine_Tempo - Opp.click for Tempo"
Top = 1545
Visible = 0 'False
Width = 300
_ExtentX = 529
_ExtentY = 767
_Version = 393216
Value = 2
Max = 500
Min = -500
Enabled = -1 'True
End
Begin VB.Frame Frame2
BackColor = &H80000001&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2160
Left = 1815
TabIndex = 59
Top = 135
Visible = 0 'False
Width = 3780
Begin VB.PictureBox BongoMan
AutoRedraw = -1 'True
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1800
Left = 720
Picture = "frmDMDrums.frx":15CF
ScaleHeight = 116
ScaleMode = 3 'Pixel
ScaleWidth = 53
TabIndex = 73
TabStop = 0 'False
ToolTipText = $"frmDMDrums.frx":2301
Top = 315
Width = 855
End
Begin VB.CheckBox chkMute
BackColor = &H80000001&
Caption = "&Mute"
ForeColor = &H000080FF&
Height = 240
Left = 0
TabIndex = 76
ToolTipText = $"frmDMDrums.frx":23A5
Top = 1890
Width = 690
End
Begin VB.Frame Frame1
BackColor = &H80000001&
BorderStyle = 0 'None
Height = 1620
Left = 100
TabIndex = 63
Top = 270
Width = 585
Begin VB.OptionButton Option1
BackColor = &H80000001&
Caption = "Line"
ForeColor = &H000080FF&
Height = 255
Index = 1
Left = 120
Style = 1 'Graphical
TabIndex = 65
Top = 240
Width = 450
End
Begin VB.OptionButton Option1
BackColor = &H80000001&
Caption = "Aux"
ForeColor = &H000080FF&
Height = 225
Index = 6
Left = 120
Style = 1 'Graphical
TabIndex = 70
Top = 1350
Width = 450
End
Begin VB.OptionButton Option1
BackColor = &H80000001&
Caption = "Wav"
ForeColor = &H000080FF&
Height = 255
Index = 5
Left = 120
Style = 1 'Graphical
TabIndex = 69
Top = 1125
Width = 450
End
Begin VB.OptionButton Option1
BackColor = &H80000001&
Caption = "CD"
ForeColor = &H000080FF&
Height = 255
Index = 4
Left = 120
Style = 1 'Graphical
TabIndex = 68
Top = 915
Width = 450
End
Begin VB.OptionButton Option1
BackColor = &H80000001&
Caption = "Syn"
ForeColor = &H000080FF&
Height = 255
Index = 3
Left = 120
Style = 1 'Graphical
TabIndex = 67
Top = 690
Width = 450
End
Begin VB.OptionButton Option1
BackColor = &H80000001&
Caption = "Mic"
ForeColor = &H000080FF&
Height = 255
Index = 2
Left = 120
Style = 1 'Graphical
TabIndex = 66
Top = 465
Width = 450
End
Begin VB.OptionButton Option1
BackColor = &H80000001&
Caption = "Main"
ForeColor = &H000080FF&
Height = 255
Index = 0
Left = 120
Style = 1 'Graphical
TabIndex = 64
Top = 30
Width = 450
End
End
Begin VB.ListBox AutoTempo
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1815
ItemData = "frmDMDrums.frx":2442
Left = 705
List = "frmDMDrums.frx":2444
Sorted = -1 'True
TabIndex = 71
ToolTipText = $"frmDMDrums.frx":2446
Top = 300
Width = 885
End
Begin VB.TextBox txtMotifStatus
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1590
Locked = -1 'True
MultiLine = -1 'True
OLEDragMode = 1 'Automatic
OLEDropMode = 2 'Automatic
TabIndex = 72
ToolTipText = "Mid.Click to call up a menu for text handling of the current song"
Top = 300
Width = 2175
End
Begin VB.ListBox lstMotif
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1620
Left = 1590
TabIndex = 75
Top = 510
Width = 2175
End
Begin MSComctlLib.Slider Slider2
Height = 1755
Left = 930
TabIndex = 74
Top = 360
Visible = 0 'False
Width = 435
_ExtentX = 767
_ExtentY = 3096
_Version = 393216
Enabled = 0 'False
Orientation = 1
Min = -1
Max = 0
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Left = 690
TabIndex = 92
ToolTipText = $"frmDMDrums.frx":24CD
Top = 15
Width = 2235
_ExtentX = 3942
_ExtentY = 450
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "ddd dd MMM yyyy HH:mm:ss"
Format = 311361539
UpDown = -1 'True
CurrentDate = 38200
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0C0C0&
Height = 480
Index = 5
Left = -345
TabIndex = 61
Top = -105
Width = 120
End
Begin VB.Label lblDTStatus
Alignment = 1 'Right Justify
BackColor = &H80000001&
Caption = "No Active Schedule"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 225
Left = 1005
TabIndex = 93
Top = 45
Width = 1695
End
Begin VB.Label lblClose
BackColor = &H008080FF&
Caption = " +"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 200
Index = 1
Left = 3600
TabIndex = 60
ToolTipText = "Click again to abort Closing..."
Top = -120
Visible = 0 'False
Width = 280
End
Begin VB.Label lblStatus
BackColor = &H80000001&
Caption = "Switch"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 3060
TabIndex = 62
ToolTipText = "Click or Opp.click to add or subtrack 30 ExtraSeconds before next play. Mid.Click to SetGenreEnabled"
Top = 60
Width = 705
End
End
Begin VB.CommandButton cmdExternalHelper
BackColor = &H80000001&
Caption = "swotGPT"
CausesValidation= 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 1005
Style = 1 'Graphical
TabIndex = 104
ToolTipText = $"frmDMDrums.frx":255C
Top = 1200
Width = 765
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 555
Index = 4
Left = 1050
TabIndex = 48
Top = 395
Width = 105
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 555
Index = 3
Left = 1005
TabIndex = 46
Top = 350
Width = 105
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "HI DJ"
BeginProperty Font
Name = "Arial"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Index = 2
Left = 1020
TabIndex = 42
Top = 885
Width = 705
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 480
Index = 1
Left = 1470
TabIndex = 32
Top = 0
Width = 120
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00000000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Arial"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 480
Index = 0
Left = 1485
TabIndex = 35
Top = 15
Width = 120
End
Begin VB.Label LabelGrooves
BackStyle = 0 'Transparent
Caption = "+ grooves"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Index = 1
Left = 0
TabIndex = 102
Top = 135
Width = 1350
End
Begin VB.Label LabelVol
Alignment = 2 'Center
BackColor = &H80000001&
BorderStyle = 1 'Fixed Single
Caption = "VOL"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Left = 15
TabIndex = 57
ToolTipText = "Winamp Click VolUp Opp.Click VolDn Mid.Click (cross)fades Winamp for beatmiixing, etc."
Top = 2085
Width = 510
End
Begin VB.Label LabelKey
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "G#m"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 225
Left = 255
TabIndex = 94
Top = 1830
Width = 600
End
Begin VB.Label EDIT_Tempo
Alignment = 2 'Center
BackColor = &H80000001&
BorderStyle = 1 'Fixed Single
Caption = "255"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 900
TabIndex = 53
ToolTipText = "Punch the Mouse Wheel to retrieve the Tempo from either the MP3 Comment or do a Screen Scrape of the AtomixMP3 BPM calculator"
Top = 1515
Width = 855
End
Begin VB.Label EDIT_Volume
Alignment = 2 'Center
BackColor = &H80000001&
BorderStyle = 1 'Fixed Single
Caption = "50"
BeginProperty Font
Name = "Microsoft Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 255
TabIndex = 52
ToolTipText = $"frmDMDrums.frx":2619
Top = 1515
Width = 615
WordWrap = -1 'True
End
Begin VB.Label LabelBPM
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "BPM"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 225
Left = 840
TabIndex = 56
ToolTipText = $"frmDMDrums.frx":26F7
Top = 1830
Width = 900
End
Begin VB.Label lblClose
BackColor = &H008080FF&
Caption = " +"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 0
Left = 5415
TabIndex = 33
ToolTipText = "Click again to abort Closing..."
Top = 15
Visible = 0 'False
Width = 285
End
Begin VB.Label lblDrumSize
BackStyle = 0 'Transparent
Caption = "- drums ^"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Left = 15
TabIndex = 31
Top = -30
Width = 930
End
Begin VB.Label LabelAlign
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "List Advance"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Left = 525
TabIndex = 58
ToolTipText = $"frmDMDrums.frx":27B4
Top = 2085
Width = 1230
End
Begin VB.Image imgLogo
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 2175
Left = 1815
OLEDropMode = 1 'Manual
Picture = "frmDMDrums.frx":284C
Stretch = -1 'True
Top = 105
Width = 3780
End
End
Begin VB.PictureBox frmPicture1
AutoRedraw = -1 'True
BackColor = &H80000001&
BorderStyle = 0 'None
Height = 3270
Index = 0
Left = 60
ScaleHeight = 3270
ScaleWidth = 5700
TabIndex = 0
Top = 0
Width = 5700
Begin VB.OptionButton optStation
Caption = "R"
Height = 210
Index = 6
Left = 2985
Style = 1 'Graphical
TabIndex = 100
ToolTipText = $"frmDMDrums.frx":8DA6
Top = 3015
Width = 225
End
Begin VB.OptionButton optStation
Caption = "A"
Height = 210
Index = 1
Left = 2970
Style = 1 'Graphical
TabIndex = 101
ToolTipText = "Acoustic, Classical, Easy_Listening, Jazz, Musicals, New_Age, Opera, Swing, Vocal"
Top = 15
Width = 225
End
Begin VB.OptionButton optStation
Alignment = 1 'Right Justify
Caption = "E"
Height = 210
Index = 5
Left = 2985
Style = 1 'Graphical
TabIndex = 99
ToolTipText = "Folk, Oldies, Pop, Rock _Roll, Soft_Rock"
Top = 2430
Width = 225
End
Begin VB.OptionButton optStation
Alignment = 1 'Right Justify
Caption = "D"
Height = 210
Index = 4
Left = 2985
Style = 1 'Graphical
TabIndex = 98
ToolTipText = "BlueGrass, Blues, Celtic, Country, Ethnic, Funk, Latin, R _B, Reggae, Soul, Soundtrack"
Top = 1815
Width = 225
End
Begin VB.OptionButton optStation
Alignment = 1 'Right Justify
Caption = "C"
Height = 210
Index = 3
Left = 2985
Style = 1 'Graphical
TabIndex = 97
ToolTipText = "Alternative, Hard_Rock, Metal, New_Wave, Psychedelic_Rock, Punk"
Top = 1200
Width = 225
End
Begin VB.OptionButton optStation
Alignment = 1 'Right Justify
Caption = "B"
Height = 210
Index = 2
Left = 2985
Style = 1 'Graphical
TabIndex = 96
ToolTipText = "Dance, Disco, Drum _Bass, Electronica, Hip_Hop, House, Rap, Techno, Trance"
Top = 615
Width = 225
End
Begin VB.CheckBox chkReverb
BackColor = &H80000001&
Caption = "&Environmental reverb"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 3435
TabIndex = 90
ToolTipText = "When Grayed will not randomly stop and Play must be manual"
Top = 3015
Value = 2 'Grayed
Width = 2220
End
Begin VB.ListBox LIST_Bands
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1185
ItemData = "frmDMDrums.frx":8E48
Left = -15
List = "frmDMDrums.frx":8E4A
Style = 1 'Checkbox
TabIndex = 24
Top = 2045
Width = 1350
End
Begin glxpbuttonz.UserButtonz UserButtonz
Height = 435
Left = 1485
TabIndex = 103
Top = 495
Visible = 0 'False
Width = 690
_ExtentX = 1217
_ExtentY = 767
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Kick"
IconHighLite = -1 'True
IconHighLiteColor= 0
CaptionHighLite = -1 'True
CaptionHighLiteColor= 0
Style = 1
Checked = 0 'False
ColorButtonHover= 160
ColorButtonUp = 128
ColorButtonDown = 240
BorderBrightness= 2
ColorBright = 255
DisplayHand = -1 'True
ColorScheme = 3
End
Begin VB.CommandButton Drum
BackColor = &H00EBEB75&
Caption = "Sticks"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 22
Left = 3165
Style = 1 'Graphical
TabIndex = 27
ToolTipText = "Physical Proximity Alert"
Top = 2595
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00F7D46D&
Caption = "Hand Clap"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 21
Left = 2340
Style = 1 'Graphical
TabIndex = 26
ToolTipText = "Public Interface Mask"
Top = 2595
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00FFE1AA&
Caption = "Tamb- orine"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 20
Left = 1485
Style = 1 'Graphical
TabIndex = 25
ToolTipText = "Resource Cache Defense"
Top = 2595
Width = 690
End
Begin VB.CommandButton Drum
Appearance = 0 'Flat
BackColor = &H00FFADA5&
Caption = "Jingle Bells"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 19
Left = 4845
Style = 1 'Graphical
TabIndex = 23
ToolTipText = "Outer Ledger Sentry"
Top = 1995
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00FFCCC9&
Caption = "Cast- anets"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 18
Left = 4005
Style = 1 'Graphical
TabIndex = 22
ToolTipText = "LOGISTICS"
Top = 1995
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00FF83CD&
Caption = "Shaker"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 17
Left = 3165
Style = 1 'Graphical
TabIndex = 21
ToolTipText = "OPERATIONS"
Top = 1995
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00FEACE1&
Caption = "Triangle"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 16
Left = 2325
Style = 1 'Graphical
TabIndex = 20
ToolTipText = "INTELLIGENCE"
Top = 1995
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00D778E7&
Caption = "Cuica"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 15
Left = 1485
Style = 1 'Graphical
TabIndex = 19
ToolTipText = "Drive Offline Isolation Node"
Top = 1995
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00EDA8EB&
Caption = "High Block"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 14
Left = 4845
Style = 1 'Graphical
TabIndex = 17
ToolTipText = "Outbound Exfiltration Sentry"
Top = 1395
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00B27DF6&
Caption = "Low Block"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 13
Left = 4005
Style = 1 'Graphical
TabIndex = 16
ToolTipText = "PLANS"
Top = 1395
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00CEAAF7&
Caption = "Guiro"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 12
Left = 3150
Style = 1 'Graphical
TabIndex = 15
ToolTipText = "GUERRILLA Command"
Top = 1395
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H009186F4&
Caption = "Agogo"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 11
Left = 2325
Style = 1 'Graphical
TabIndex = 14
ToolTipText = "PERSONNEL"
Top = 1395
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00BDABF8&
Caption = "Timbale"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 10
Left = 1485
Style = 1 'Graphical
TabIndex = 13
ToolTipText = "Infiltration Detection Buffer"
Top = 1395
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H007C9DF3&
Caption = "High Conga"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 9
Left = 4830
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "Safehouse Perimeter Node"
Top = 795
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00AAC5F7&
Caption = "Low Conga"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 8
Left = 4005
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "COMMS"
Top = 795
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H006ECAD5&
Caption = "Crash"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 7
Left = 3165
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "MED"
Top = 795
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00A2E2DD&
Caption = "Splash"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 6
Left = 2325
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "UNDERGROUND"
Top = 795
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H0049F585&
Caption = "Ride"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 5
Left = 1485
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "External Boundary Monitor"
Top = 795
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H0082F6B0&
Caption = "High Tom"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 4
Left = 4845
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "Propaganda/Information "
Top = 195
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H007EF14D&
Caption = " Mid Tom"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 3
Left = 4005
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "Sabotage Prevention Check"
Top = 195
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H009BF296&
Caption = "Low Tom"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 2
Left = 3165
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "Inbound Data Sieve"
Top = 195
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00C6EC4D&
Caption = "Snare"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 2325
Style = 1 'Graphical
TabIndex = 4
ToolTipText = $"frmDMDrums.frx":8E4C
Top = 195
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00CCED84&
Caption = "Kick"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 1485
Style = 1 'Graphical
TabIndex = 3
ToolTipText = $"frmDMDrums.frx":8EE2
Top = 195
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H00E7E753&
Caption = "Scratch"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 23
Left = 4005
Style = 1 'Graphical
TabIndex = 28
ToolTipText = "Ordnance/Supply Logistics Edge"
Top = 2595
Width = 690
End
Begin VB.CommandButton Drum
BackColor = &H80000001&
Caption = " High Q"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 24
Left = 4845
Style = 1 'Graphical
TabIndex = 29
ToolTipText = "Final Exit Gateway / Air-Gap Severance"
Top = 2595
Width = 690
End
Begin MSComctlLib.Slider Slider1
Height = 1770
Left = 405
TabIndex = 2
Top = 60
Visible = 0 'False
Width = 480
_ExtentX = 847
_ExtentY = 3122
_Version = 393216
Orientation = 1
Min = -1
End
Begin VB.ListBox LIST_Grooves
BackColor = &H80000001&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1860
ItemData = "frmDMDrums.frx":8F7D
Left = -15
List = "frmDMDrums.frx":8F7F
Style = 1 'Checkbox
TabIndex = 1
Top = 15
Width = 1350
End
Begin VolumeCtrl.VolumeControl VolumeControl1
Left = 0
Top = 0
_ExtentX = 1296
_ExtentY = 873
End
Begin VB.Label LabelGrooves
BackStyle = 0 'Transparent
Caption = "+ grooves"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 255
Index = 0
Left = -15
TabIndex = 18
ToolTipText = "Click togles GenreEnabled. Opp.Click Toggles TOH Recording."
Top = 1845
Width = 3015
End
End
Begin VB.CommandButton StopCmd
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 3300
Picture = "frmDMDrums.frx":8F81
Style = 1 'Graphical
TabIndex = 88
Top = 6525
Width = 390
End
Begin VB.CommandButton Play
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 2805
Picture = "frmDMDrums.frx":9437
Style = 1 'Graphical
TabIndex = 89
Top = 6540
Visible = 0 'False
Width = 390
End
End
Attribute VB_Name = "frmDMDrums"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'\\ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'\\
'\\ Copyright (C) 1999-2001 Microsoft Corporation. All Rights Reserved.
'\\
'\\ File: frmPlayMotif.frm
'\\
'\\ ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Implements DirectXEvent8
Public cdlOpen As New frmCommonDialog
Public AutoTempo_Visible As Boolean
Public OnTop As Boolean
Public Allmusic As String
Public GenreEnabled As Long
Public MovingPicturesXMLEnabled As Long
Private p_DJReady As Boolean
Private p_LabelBPM_ForeColor As Long
Private Const DRUMPADSIZE As Long = 3240
Private m_bLabelBPM_Enabled As Boolean
Public Property Get LabelBPM_ForeColor() As Long
LabelBPM_ForeColor = p_LabelBPM_ForeColor
End Property
Public Property Let LabelBPM_ForeColor(ByVal LabelBPM_ForeColorObj As Long)
If p_LabelBPM_ForeColor = LabelBPM_ForeColorObj Then Exit Property 'Or (p_LabelBPM_ForeColor = vbCyan And LabelBPM_ForeColorObj <> vbBlack)
p_LabelBPM_ForeColor = LabelBPM_ForeColorObj
Me.LabelBPM.ForeColor = LabelBPM_ForeColorObj
' Me.LabelBPM.BackColor = vbWhite - LabelBPM_ForeColorObj
' Me.LabelKey.BackColor = vbWhite - LabelBPM_ForeColorObj
If Me.LabelBPM_ForeColor >= vbBlue Then '\\ see PreparingNextTrack
If WA_GetShuffle = Zero Then
WA_SetShuffle One
End If
ElseIf ListAdvanceColor <> vbYellow Then
'fixes m_bBeatmixer bug
If WA_GetShuffle = One Then
WA_SetShuffle Zero
End If
End If
End Property
Public Property Get DJReady() As Boolean
DJReady = p_DJReady
End Property
Public Property Let DJReady(ByVal DJReadyObj As Boolean)
p_DJReady = DJReadyObj
Me.cmdSave.Visible = p_DJReady
If p_DJReady = False And Not PF_Quiting Then
SpeakThis "No DJ Helper Ready?"
End If
End Property
Function BPMcolor(ByVal Difference As Single) As Long
Select Case Abs(Difference)
Case Is < Deci '\\ near Zero
BPMcolor = vbBlack
Case Is < One
BPMcolor = vbRed
Case Is < Two
BPMcolor = vbOrange
Case Is < Three
BPMcolor = vbYellow
Case Is < Four
BPMcolor = vbGreen
Case Is < Five
BPMcolor = vbBlue
Case Is < Six
BPMcolor = vbMagenta
Case Is < Seven
BPMcolor = vbCyan
Case Else
BPMcolor = vbWhite
End Select
End Function
Public Sub MouseupFormDrumColor(ByRef Button As Integer, ByRef Shift As Integer, ByRef x As Single, ByRef y As Single)
If Button = vbRightButton Then
Dim Color As Long
Color = Int(((GetPixel(Me.hdc, x / xPixel, y / yPixel) - vbBlue) Mod vbGreen) / Eight)
If Color <= 31 And Color >= Zero Then
If Color < Two Then
Color = ScheduleCol + Format(date + Color, "d") - Format(date, "d")
Else
Color = ScheduleCol + Format(date + Color, "d") - Format(date, "d")
If Color <= ScheduleCol + One Then
Color = Color - One
End If
End If
fDoc(ScheduleMth).ZOrder
fDoc(ScheduleMth).Visible = True
ScheduleSync Color, (x - (Me.Drum((Color - Three) Mod Seven).Left - Sixty)) / Me.Drum(Zero).Width * TwentyFour
End If
End If
End Sub
Sub SetAutoTempoListIndex(ByVal Index As Long)
Dim lWork As Long, Before As Single, After As Single
AutoTempo.ListIndex = Index
Before = EDIT_Tempo.Caption
After = AutoTempo.list(AutoTempo.ListIndex)
lWork = BPMcolor(Before - After)
If lWork = vbRed And Int(Before) = Int(After) And Abs(Before - After) < Half Then
lWork = Abs(Before - After)
End If
EDIT_Tempo.ForeColor = lWork
EDIT_Tempo.BackColor = vbWhite - lWork
End Sub
Sub SetStation()
Dim i As Long, J As Long, k As Long, l As Long
J = Zero
k = Six
If optStation(k).value <> True Then 'UCase(Mid(m_CurrentGenreSorting, k, One)) <> "R" And
For i = One To Five
workbuffer = Mid(m_CurrentGenreSorting, i, One)
If Asc(workbuffer) > 128 Then
optStation(i).ForeColor = vbRed
workbuffer = Chr$(Asc(workbuffer) Mod 128)
Else
optStation(i).ForeColor = vbBlack
End If
optStation(i).Caption = workbuffer
l = Asc(UCase(optStation(i).Caption))
If l > J Then
J = l
k = i
End If
Next
End If
optStation(k).value = True
optStation(k).BackColor = vbWhite
Call SettingsSave(iniName, "Preferences", "GenreYearSortMask", m_CurrentGenreSorting)
If m_TempoSelector <> -One Then Call SettingsSave(iniName, "Preferences", "GenreSortMask" & m_TempoSelector, m_CurrentGenreSorting)
End Sub
Public Sub TestForZeroVol()
' If VolSlider1.value = Zero Then
' QuitReader True ' here because no sound, even though this is done in HIDJOut
' Label3(One).ForeColor = vbBlue
' OneBell
' Else
Label3(One).ForeColor = dmDrums.LabelVol.ForeColor '\\ vbBlue
' End If
End Sub
Private Sub chkMute_GotFocus()
SetStatus chkMute
End Sub
Private Sub chkMute_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
Select Case chkMute.ForeColor
Case vbRed
'\\ LowerVolume
VolSlider1.value = -InitialVolume
chkMute.ForeColor = vbOrange
Case vbCyan
'\\ UpperVolume
VolSlider1.value = -LowerVolume
chkMute.ForeColor = vbRed
Case Else '\\ vbOrange, vbGreen
'\\ InitialVolume
VolSlider1.value = -UpperVolume
chkMute.ForeColor = vbCyan
End Select
ElseIf Button = vbLeftButton Then
chkMute.value = Abs(One - chkMute.value)
If chkMute.value = vbChecked Then
VolumeControl1.Mute = True
Else
VolumeControl1.Mute = False
End If
End If
End Sub
Private Sub cmdBeatmix_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'Click to swap DRUMPADSIZE. Opp.Click to try to IngridMixSync or (Mid.Click) to start Beatmixing 'temposync' instance
If Button = vbRightButton Then
If m_bBeatmixer Then
fHIDJ.IngridMixSync True
Else
SpeechThing = "Agent"
frmTempoSync.Show vbModal
End If
ElseIf (Not m_bBeatmixer Or ListAdvanceColor = vbGreen) And (Button = vbMiddleButton Or (Shift = vbShiftMask And Button = vbLeftButton)) Then
SpeechThing = "Agent"
frmTempoSync.Show
frmTempoSync.cmdOK = True
Trickle.TrafficTimer.Interval = 30000
ElseIf Button = vbLeftButton Then
With Me
cmdPlayMotif = True
If .frmPicture1(One).Top = Zero Then
.lblDrumSize.Caption = "- drums ^"
.frmPicture1(One).Top = DRUMPADSIZE
If Abs(.Height - (.LabelVol.Top + .LabelVol.Height + 430)) < Sixty Then
.Height = 6615
Else
.Height = .Height + DRUMPADSIZE '+ 430
End If
.Top = .Top - DRUMPADSIZE
' Fix the "Mist" from the CPU Freeze
Drum(0).ToolTipText = "Intelligence"
Drum(1).ToolTipText = "Counter-Intel"
Drum(2).ToolTipText = "Logistics"
Drum(3).ToolTipText = "Sabotage"
Drum(4).ToolTipText = "Propaganda"
Drum(5).ToolTipText = "Recruitment"
Drum(6).ToolTipText = "Training"
' Drum(7) and (8) are already handled
Drum(9).ToolTipText = "Safehouse"
Drum(10).ToolTipText = "Infiltration"
Drum(11).ToolTipText = "Exfiltration"
' ... and indices 21-24 for the remaining ROC layers
' SE Quadrant Triage Logic ' 20260209
' Assuming Index 17 or 18 is your "Logistics" Triage Node
Drum(18).ToolTipText = "Inner Triage: Logistics (ROC SE)"
' The two "expertise" drums it supports on the outer ring:
Drum(4).ToolTipText = "Expertise: Finance / Resource Cache"
Drum(23).ToolTipText = "Expertise: Ordnance / Supply"
Else
.lblDrumSize.Caption = "+ drums ^"
.frmPicture1(One).Top = Zero
If .Height = 6615 Then
.Height = .LabelVol.Top + .LabelVol.Height + 430
Else
.Height = .frmPicture1(One).Top + .cmdBeatmix.Top + .cmdBeatmix.Height + 430 '\\ .Height - DRUMPADSIZE
End If
.Top = .Top + DRUMPADSIZE
End If
End With
End If
End Sub
Private Sub cmdExternalHelper_Click(Index As Integer)
If Index = Zero Then
'This function plays on a called shutdown and also on the hour of schedule entry. Opp.Click to play the whole Midi. or Reset Ingrid to stop, Mid.Click or (CtrlShift+Opp.Click) for Caruso
If MsgBoxEx("This will rebuild the grid called MovingPicturesXML.ing", vbOKCancel) = vbCancel Then Exit Sub
If chkLoop.value <> vbUnchecked Then
dmSegMotif.SetRepeats INFINITE
Else '\\ If chkLoop.value = vbUnchecked Then
dmSegMotif.SetRepeats Zero
End If
perf.PlaySegmentEx dmSegMotif, Zero, Zero
EnablePlayUI False
DocSetupMovingPicturesXML
MovingPicturesXMLPlay
Else
'"Caruso interprets sLastLockFilename on Gemini - Edge" Opp.click for Green toggle, Mid.Click or (CtrlShift+Opp.Click) for swotGPT
Static CarusoTargetTitle As String
Dim sCleanName As String
Dim sYearMode As String
' 1. The Track: Identify the "Last Lock"
sCleanName = sLastLockFilename
' Clean the path using the logic found in frmHIDJmain
If InStrRev(sCleanName, "\") > 0 Then sCleanName = Mid$(sCleanName, InStrRev(sCleanName, "\") + 1)
If InStrRev(sCleanName, ".") > 0 Then sCleanName = Left$(sCleanName, InStrRev(sCleanName, ".") - 1)
GetCarusoSongData (sLastLockFilename)
' 2. The Marshalling: Check the "Car Radio" optStation(6)
' This reflects the [0-9]YYYY[0-9] vs [0-9][0-9]YYYY cold war
If optStation(6).value = True Then
sYearMode = "Strict-Y"
Else
sYearMode = "Relaxed-Y"
End If
' 3. The sCamelot Key: Get the harmonic coordinate
' 4. Update the Sliver Monitor (frmPicture1)
' Hover over the sliver on your bike to see this:
frmPicture1(One).ZOrder 0 ' Ensure it's in front of occluding controls
frmPicture1(One).ToolTipText = "CUE: " & sCleanName & " | " & sYearMode & " | Key: " & sCamelot
If SecondHand < -Twenty Then
If iniName = vbNullString Then
workbuffer = App.Title
Else
workbuffer = iniName
End If
workbuffer = "Readying " & workbuffer & " at " & Format(DateAdd("s", -SecondHand + Two, Now), "HH:MM:SS")
Mid(workbuffer, Len(workbuffer)) = "0"
Else
workbuffer = SpokenTime
End If
workbuffer = workbuffer & Label3(One).Caption & " - Caruso interprets: '" & sCleanName & "' (" & sYearMode & ") Genre/Key: " & sGenre & "/" & sCamelot & ASpace & LabelBPM.Caption & ASpace & EDIT_Tempo.Caption & " ExternalHelper " & sCurrentDuration & "[Dur]"
Debug.Print workbuffer
If m_lAtenGreen Then
workbuffer = workbuffer & vbCrLf & "CARUSO PROTOCOL ACTIVATED" & vbCrLf & _
"Node: 5700G" & vbCrLf & _
"Status: " & IIf(m_lAtenGreen, "LOCKED", "OPEN") & vbCrLf & _
"Gear: " & frmTrickle.TrafficTimer.Interval & vbCrLf & _
"Veneer: Edge/Matrix Bridge"
Call SendMatrixPulse(workbuffer)
Exit Sub
Else
Clipboard.Clear
Clipboard.SetText workbuffer
' The train has its fangs; proceed with PushKeys to hCarusoHelper
' Call ExecuteAutomatedPushKeys(hCarusoHelper)
SixorSeven9Smith = True ' Manual CNT, or Auto Notepad, or Edge
If Caruso2NotePad2Edge(CarusoTargetTitle) Then
' // Only now do the PushKeys fire
PushKeys "^{end}+{enter}", hCarusoHelper
PushKeys "^v<[systime=", hCarusoHelper
Delay Half
PushKeys "%+{F12}" ', hCarusoHelper ' changing the order from +% to %+ fixed an earlier character drop
Delay Half ' delay includes a doevents
PushKeys "]+{enter}", hCarusoHelper
Sleep Two
PushKeys "{enter}", hCarusoHelper
End If
Exit Sub
End If
On Error Resume Next
AppActivate "Edge" 'Google Gemini - Microsoft
If Err.number = 0 Then
' 5. The Handoff to Edge (Silent DJ Mode)
'I set the color to green only mouse down and the final {Enter}
'WinampPlay will only send If .LowerVolPreset
'will only when GetToolbox says all on many-chat turned to green
'should the final {Enter} be sent. So, several layers of protection and
'you don't need to worry about getting flooded.
Else
' Log if the browser is closed or renamed
OneBell "Edge Island Disconnected: " & time
cmdExternalHelper(Zero).BackColor = vbRed
End If
End If
End Sub
Private Sub cmdPlayPause_Click(ByRef Index As Integer)
Dim lWork As Long
' Left.Click toggles/holds Winamp on/off. Mid.Click starts Winamp and Direct Music Drums.
If Index = One Then
' If Button = vbRightButton Then
' UpDown_Volume.Tag = Timer
' GlobalPlayPause
If DMStatus = One Then
WA_Pause
If Me.UpDown_Volume.value > One Then SetReaderVolume = Me.UpDown_Volume.value
Me.UpDown_Volume.value = One
Else '\\ If Me.UpDown_Volume.value <= One Then
HIDJPlay
If SecondsLeft > Ten Then 'Thirty 20120803 prevent global pause anomaly
Me.UpDown_Volume.value = SetReaderVolume
End If
End If
' PlayStateChange = Billion 'this flag is to enable a global play/pause facility - 20120803
' FreshPlot "Perturbate", , True
ElseIf IngridLoaded Then '20120813 bug
If inGrid.mnuViewDMDrums.Checked = False Or DJReady = False Or cmdSave.Enabled = False Then
DJReady = True
cmdPlayMotif.Visible = False
Ingrid_mnuViewDMDrums_Checked True
cmdSave.Enabled = True
lWork = StartingHeyIngridDJ
cmdPlayMotif.Visible = True '\\ just in case turned off while doevents
Ingrid_mnuViewDMDrums_Checked True 'why twice?
DJReady = True
hWndWinamp = Zero '\\ incase -1 closed
If fHIDJ.CheckWinamp(True) Then
DJHelper 1, True
End If
End If
If DMStatus <> One Or LowerVolPreset Or TrackSelected = True Then
HIDJPlay
If Me.UpDown_Volume.value <= One And SetReaderVolume <> Zero Then
Me.UpDown_Volume.value = SetReaderVolume
End If
Else
ScreenOff
If GridOut.Timer1.Interval > Zero Then
GridOut.Timer1.Enabled = False
GridOut.Timer1.Interval = One
GridOut.Timer1.Enabled = True
SendSound "hyoshigi1.wav", , True
If Abs(CycleZ) < Half Then spin
End If
Me.Play = True
End If
TrackSelected = False
End If
' GlobalPlayPause
Exit Sub
errorline: ' stop
DJHandle = -One
End Sub
Private Sub CommandGridArt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
'Right.Click Perturbates the whole system and sets Winamp Shuffle ON+Auto Advance. Left.Click (or Left+mask) toggles the KarmaGun (+shift=FullScreen or x&y<100). (Mid.Click a title in HeyIngridDJ = JumpToFile)
If Button = vbMiddleButton And Shift = Zero Then '20241121 because of dead MiddleButton
Button = vbLeftButton
ElseIf Button = vbLeftButton And Shift = Zero Then
Button = vbMiddleButton
End If
Call MouseUp_CommandGridArt(Button, Shift, x, y)
End Sub
Private Sub EDIT_Tempo_Change()
EDIT_Tempo.ForeColor = vbRed
EDIT_Tempo.BackColor = RGB(31, Zero, 15)
Call ChangeTempo(EDIT_Tempo.Caption) '\\ SongTempo
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If PF_Ending Then Exit Sub
Cancel = True
Close_MouseUp One
End Sub
Private Sub Form_Resize()
' If Me.WindowState = vbMinimized And inGrid.mnuViewDMDrums.Checked = True Then
' Me.WindowState = vbNormal
' End If
End Sub
Private Sub imgLogo_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
Dim Color As Long
Dim lWork As Long, nVal As Long
With frmDrumDown
.SetDrumDownPictures
.Show
End With
' Me.AutoRedraw = False
'' Me.Frame2.Visible = False
' Me.Refresh
' Color = GetPixel(Me.hdc, (x + imgLogo.Left) / xPixel, (y + imgLogo.Top) / yPixel)
'' Me.Frame2.Visible = True
' Me.AutoRedraw = True
'
' Do While True
' For lWork = One To Two
' For nVal = One To Twelve
' If Color = g_arCamelotRGB(nVal, lWork) Then Exit Do
' Next
' Next
'
' Exit Sub
' Loop
' Me.LabelKey.ForeColor = Color
' Me.LabelKey.Caption = format(nVal, "00") & Chr$(64 + lWork)
ElseIf Button = vbLeftButton Then
Me.Frame2.Visible = True
Me.imgLogo.Visible = False
End If
End Sub
Private Sub Label3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
ForceForegroundWindow Me.hwnd
End Sub
Private Sub LabelAlign_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
EnqueuedAt = Val(InputBox("EnqueuedAt", "Set value higher than zero to play to end of playlist", EnqueuedAt))
Call SettingsSave(iniName, "Music", "EnqueuedAt", EnqueuedAt)
Exit Sub
ElseIf Button = vbMiddleButton Then
Select Case ListAdvanceColor
Case vbGreen
ListAdvanceColor = vbRed
Case vbOrange
ListAdvanceColor = vbYellow
End Select
PlaylistAdvance True
ElseIf Button = vbRightButton Then
If HIDJLoaded Then
fHIDJ.PopupMenu fHIDJ.mnuPopupListAdvance
End If
End If
'to manually sever beatmixing
If ListAdvanceColor = vbGreen Then
dmDrums.LabelAlign.ForeColor = &H80FF80
Call SettingsSave(iniName, "Music", "ListAdvanceColor", vbBlack) 'black is the new green startup condition
End If
End Sub
Private Sub lblDrumSize_Click()
OnTop = Not OnTop
If OnTop Then
FrontFalseMe = True
lblDrumSize = "on top"
If TrickleLoaded Then
Trickle.Visible = True
End If
Else
FrontTrueMe = True
lblDrumSize = "+ drums ^"
If TrickleLoaded Then
Trickle.Visible = False
End If
End If
End Sub
Private Sub lblDrumSize_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Me.Height <> Me.frmPicture1(One).Top + Me.cmdBeatmix.Top + Me.cmdBeatmix.Height Then
Me.lblDrumSize.Caption = "+ drums ^"
Me.Height = Me.frmPicture1(One).Top + Me.cmdBeatmix.Top + Me.cmdBeatmix.Height + 430 '\\ 2790
End If
End Sub
Private Sub lblDTStatus_Click()
SetTrickle
Trickle.RunAsScr = vbChecked
dmDrums.DTPicker1.Visible = True
End Sub
Private Sub Option1_Click(Index As Integer)
VolumeControl1.DeviceToControl = Index
If VolumeControl1.Mute = True Then
chkMute.value = vbChecked
Else
chkMute.value = vbUnchecked
End If
End Sub
Private Sub optStation_GotFocus(Index As Integer)
SetStatus optStation(Index)
End Sub
Private Sub optStation_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
optStation(Index).SetFocus
End Sub
Private Sub optStation_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
' Opp.Click toggles upper/Lowercase for strict Year sort or not
Call MouseUp_optStation(Index, Button)
End Sub
Private Sub UserButtonz_Click()
UserButtonz.ForeColor = vbYellow
End Sub
Private Sub UserButtonz_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Call GetCursorPos(MousePos)
ButtonzLastTop = MousePos.y * Screen.TwipsPerPixelY
ButtonzLastLeft = MousePos.x * Screen.TwipsPerPixelX
End Sub
Private Sub UserButtonz_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Call GetCursorPos(MousePos)
If ButtonzLastTop > Zero Then UserButtonz.Top = UserButtonz.Top - ButtonzLastTop + MousePos.y * Screen.TwipsPerPixelY
If Me.Height - UserButtonz.Height > UserButtonz.Top Then ButtonzLastTop = UserButtonz.Top
If ButtonzLastLeft > Zero Then UserButtonz.Left = UserButtonz.Left - ButtonzLastLeft + MousePos.x * Screen.TwipsPerPixelX
If Me.Left - UserButtonz.Width > UserButtonz.Left Then ButtonzLastLeft = UserButtonz.Left
End Sub
Private Sub VolSlider1_Change()
VolumeControl1.Volume = -VolSlider1.value
TestForZeroVol
End Sub
Private Sub VolSlider1_GotFocus()
SetStatus VolSlider1
End Sub
Private Sub VolSlider1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If VolSlider1.Top = Zero Then Exit Sub '\\ i.e., parent not set to vbMaximized frmDocument
ForceForegroundWindow Me.hwnd
If Me.Height <> Me.frmPicture1(One).Top + Me.cmdBeatmix.Top + Me.cmdBeatmix.Height + 430 Then
ElseIf Me.frmPicture1(One).Top = Zero Then
Me.lblDrumSize.Caption = "- drums ^"
Me.Height = 2790
Else
Me.lblDrumSize.Caption = "- drums ^"
Me.Height = 6615
End If
Me.VolSlider1.SetFocus
End Sub
Private Sub VolSlider1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbMiddleButton Then
SetMonitorPower mpOff, True
ElseIf Button = vbRightButton Then
Select Case chkMute.ForeColor
Case vbRed
'\\ LowerVolume
LowerVolume = VolumeControl1.Volume
Case vbOrange, vbGreen
'\\ InitialVolume
InitialVolume = VolumeControl1.Volume
Case vbCyan
'\\ UpperVolume
UpperVolume = VolumeControl1.Volume
End Select
End If
End Sub
Private Sub VolSlider1_Scroll()
VolumeControl1.Volume = -VolSlider1.value
TestForZeroVol
End Sub
Private Sub VolumeControl1_MuteChanged(NewMute As Boolean)
If VolumeControl1.Mute = True Then
chkMute.value = vbChecked
Else
chkMute.value = vbUnchecked
End If
End Sub
Private Sub VolumeControl1_VolumeChanged(NewVolume As Long)
On Error GoTo errorline
If VolSlider1.value <> -NewVolume Then
VolSlider1.SetFocus
If VolSlider1.value > -NewVolume Then
If ReadDoc > Zero Then
If Val(fDoc(ReadDoc).cmdSpeak.Caption) > Zero Then
Call Front(False, fDoc(ReadDoc)) '\\ so keyboard will work
fDoc(ReadDoc).DocText.SetFocus
End If
End If
End If
If NewVolume = InitialVolume And MP3Off = Zero Then
'\\ set shutdown times wait
If Play.Visible = False Then '\\ flag for start or end of raising volume instance
UpDown_Fine_Tempo.value = SettingsGet(iniName, "Music", "Fine_Tempo", Zero)
Play.Visible = True
End If
If TrickleLoaded Then
MP3Off = Trickle.Laps.value * Trickle.Wait.value
Trickle.lblMinPerInt.ForeColor = vbGreen
Trickle.lblIntervals.ForeColor = vbGreen
End If
ElseIf MP3Off <> Zero And TrickleLoaded Then
If Trickle.lblIntervals.ForeColor = vbGreen And VolSlider1.value < -NewVolume Then
Trickle.lblIntervals.ForeColor = vbRed
ElseIf Trickle.lblIntervals.ForeColor = vbRed And VolSlider1.value > -NewVolume Then
Trickle.lblIntervals.ForeColor = vbGreen
End If
End If
End If
VolSlider1.value = -NewVolume '\\ here because lower down causes delayed resetting?
Static LastTime As Single
sAns = Timer
If sAns - LastTime > Ten And UpperVolPreset Then
'\\ otherwise agentsvr seems to crash
If fAgent Is Nothing Then
Load fAgent
End If
If LastTime = Zero Then fAgent.SetUpAgent "Volume Set at " & NewVolume, False
fAgent.TheAgent.Listen True
LastTime = sAns
End If
TestForZeroVol
Exit Sub
errorline: ' stop
Dim lWork As Long
lWork = Err
If lWork = -2147418094 Then
Unload fAgent
If inDesign Then Stop
Load fAgent
fAgent.SetUpAgent "Hello again", False
Resume Next
End If
End Sub
Public Sub HitDrum(ByRef Index As Integer)
On Error GoTo errorline
'\\ If inGrid_ForDoEvents_BackColor <> vbBlack Then
Call perf.PlaySegmentEx(segMotif(Index), DMUS_SEGF_SECONDARY Or DMUS_SEGF_BEAT, Zero)
If Me.Drum(Index).BackColor <> BackFace Then
Me.Drum(Index).BackColor = BackFace
Exit Sub
End If
Exit Sub
Resume
errorline: ' stop
End Sub
Sub RandomPlay()
Dim lWork As Long
Me.Play = True
PerturbateOff = KarmaGunAfterStartup ' False
lWork = Perturbate(, True)
End Sub
Sub ResetDrum(ByRef Index As Integer)
Static item As Long
If item = Index Then Exit Sub
item = Index
HitDrum Index
If Me.Drum(Index).BackColor <> BackFace Then
If inGrid_ForDoEvents_BackColor = OffGray Then
Me.CPUUsage.Height = Me.CPUUsage.Height * Half
End If
End If
SetStatus Drum(Index)
End Sub
Function PreparingNextTrack() As Boolean
Dim lWork As Long
On Error GoTo errorline
Static DidItLastTime As Single
QuitAnyLiveRecording
If PF_Quiting Then GoTo ExitFunction
If dmDrumsLoaded Then
With dmDrums
DMStatus = HIDJstatus '\\ DMStatus =
' Static SecondsLeftPrev As Long
' If SecondsLeftPrev = SecondsLeft And SecondsLeft > Zero Then
' Stop
' End If
' SecondsLeftPrev = SecondsLeft
'\\ If Abs(CycleZ) > Half Then
sTime = Timer
' SecondsLeft = Int(LastPerturbate + DEG - sTime)
If DMStatus = Zero Then '\\ sTime - LastPerturbate >= DEG (SecondsLeft < Zero Or )
'touchbug hunt
If inDesign And Not True Then
workbuffer = Mid(sLastLockFilename, InStrRev(sLastLockFilename, "\") + One)
workbuffer = Left(workbuffer, Len(workbuffer) - Four)
If workbuffer <> TaskNameEx(hPlayingFileName) Then
If GridOut.Caption <> workbuffer Then
GridOut.Caption = workbuffer
OneBell "TaskNameEx(hPlayingFileName)"
Else
Call sndPlaySound(SoundDir & "ticking.wav", SND_ASYNC + SND_NOSTOP)
End If
End If
End If
workbuffer = vbNullString
If Dir(Left(sLastLockFilename, InStr(sLastLockFilename, "\")), vbDirectory) = "" Then
If MP3Off >= Zero Then If Not KarmaGunLoaded Then HIDJOut , True
GoTo ExitFunction
End If
If m_bBeatmixer And Not SlaveBot And .LabelKey.ForeColor = vbOrange And Not PF_Ending Then '
' this allows for immediate play of only second song
HIDJNext
HIDJPlay
.LabelKey.ForeColor = vbGreen 'just because m_bBeatmixer not always safe
Call SongTime(1020, True)
If Not XDoEventsX Then FreshPlot "Perturbate", , True
Exit Function
End If
If Mp3PlayDoc > Zero Then
Do
Do
On Error Resume Next
If SecondsLeft < Ten Then '\\ DMStatus = Zero Or
If SecondHand < Zero Then
If Abs(SecondHand - LastSecondHand) > Twenty Then 'Ten
'\\ looking for missing minute bug
If LastSecondHand < -Ten Then
.RandomPlay
'
End If
End If
LastSecondHand = SecondHand
End If
Static NextHalfMinute As Single
If sTime + One >= NextHalfMinute Then '\\ OnePoint may be causing double entry by if XDoEventsX then exit sub
'\\ 20111129 & 2007/01/09 & 2007/03/13 hopefully fixes nasty nasty lost minute looping bug
If ExtraSeconds <> Zero And NextHalfMinute + Thirty > sTime Then ' i.e., within the current track
ExtraSeconds = ExtraSeconds - Thirty
End If
SecondHand = SecondHand + One 'wtf?
.Label3(Five).ToolTipText = ExtraSeconds
NextHalfMinute = (Int((sTime + Ten) / Thirty) + One) * Thirty
Else
SecondHand = sTime Mod Thirty - ExtraSeconds
End If
If NextHalfMinute - sTime > Thousand Then 'after midnight?
NextHalfMinute = (Int((sTime + Ten) / Thirty) + One) * Thirty
End If
.Label3(One).Caption = RealTime(SecondHand)
.Label3(Zero).Caption = .Label3(One).Caption
.Label3(Five).Caption = .Label3(One).Caption
If LastSecondHand = DaySeconds Then
If .UpperVolPreset And m_ManualTrackAdvance Then
'\\ first time?
'\\ this favors m_bBeatmixer so both instances don't get locked at high volume
'\\ unless so desired
If CBool(SettingsGet(iniName, RegSettings, "FadeVolume", True)) Then
lWork = WinAmpControls("LessVolume", , False)
End If
TrackSelected = True
End If
End If
If Mp3FilenameNowPlaying <> NotString Then
If MP3Off = One Then '\\ +ve to close rather than shutdwn
If Not KarmaGunLoaded Then '20220127 20260109 True Then
HIDJOut ' , True'20220206
GoTo ExitFunction
Else
MP3Off = Zero
End If
ElseIf MP3Off = -One Then
'manual power off condition
MP3Off = Zero
End If
SpecialSeconds = SpecialSeconds - One
If SpecialSeconds > Zero Then
GoTo ExitFunction
End If
If Not m_ManualTrackAdvance Then
If EndOfTracks < Two Then GoTo ExitFunction
If Not HIDJNext Then GoTo ExitFunction
If WA_IsPlaying = Zero Then
HIDJPlay
'\\ what's this? End of Playlist. I thought Freshplot twice to say, "Hey, Ingrid DJ", toggle off other equalizer.
FreshPlot
End If
Else
If TrackSelected = False Or .LabelBPM_Enabled = False Then '\\ acting flag was set false in GetToolbox when > 6%
lWork = InStr(One, Mp3FilenameLastSpoken, "\genre", vbTextCompare)
Genreholder = ""
If lWork > Zero Then
Mp3FilenameLastSpoken = MidSong(Mp3FilenameLastSpoken, lWork + One)
If dmDrumsLoaded Then
If dmDrums.LabelBPM_Enabled Then
'\\ just ended song and will only do this once cause genre stripped
If EndOfTracks < Two Then GoTo ExitFunction
'\\ OneBell
MP3ID3v2Tag.MP3File = Mp3FilenameNowPlaying
SpeakThisWhenever = g_arID3v1Genres(MP3ID3v1Tag.Genre) & ". " & MP3ID3v2Tag.OtherGenreName & ". In " & m_sCamelotKey & ". " & Mp3FilenameLastSpoken
' SpeakThis Mp3FilenameLastSpoken
workbuffer = vbNullString
If TrickleLoaded Then
workbuffer = Trickle.lblDunAllow.ToolTipText
If workbuffer <> NotString Then workbuffer = workbuffer & ". "
End If
fAgent.SetUpAgent workbuffer & SpeakThisWhenever, False 'Mp3FilenameLastSpoken
If Not .Genre.Selected(.Genre.ListIndex) And .GenreEnabled = Two Then
'\\ play all but shuffle after deselected items - see GenreSelected
'\\ ElseIf Not GenreSelected And .cmdBeatmix.Caption = "Biasmix" Then
If .LabelBPM_ForeColor >= vbBlue Then '\\ see PreparingNextTrack
If WA_GetShuffle = Zero Then
WA_SetShuffle One
fAgent.TheAgent.Show
SpeakThis "Shuffling on " & .Genre.list(.Genre.ListIndex)
End If
End If
'\\ GenreSelected = True
' Exit Do
End If
' .lblDrumSize.ToolTipText = Mp3FilenameLastSpoken
'\\ also save here any BPMLEARNING codes and
'\\ check that global status was confirmed to be needing a switch
End If
End If
End If
If (Abs(SecondHand) Mod Ten) < OnePointTwo And Abs(SecondHand) > Two Then 'OnePointTwo
If DidItLastTime < Zero Then
If Not m_bBeatmixer Or DelayTrackSelection >= Two Then
If PF_Ending Then GoTo ExitFunction
ComingUp
TrackSelected = True '\\ maybe turned off by jtfe media item
.LabelBPM_Enabled = True
Else
If Not DelayVolSliderFlag Then
'stops two songs playing through bug
If .UpperVolPreset And Beatmixing Then
'20220903 todo add "And MP3Off <> -One" first play test added to stop Slavebot playing during interrupted play
If SecondHand > Zero And .LabelKey.ForeColor <> vbOrange Then
'if this happens more than Four times then assume a mixup and just play.
Static lMixup As Long
lMixup = lMixup + One
If lMixup > Four + Abs(SlaveBot) Then 'so both sides don't start together
lMixup = Zero
HIDJRealNext '
ReduceMP3Off
HIDJPlay
Call SongTime(1020, True)
If Not XDoEventsX Then FreshPlot "Perturbate", , True
Exit Function
End If
' If inDesign Then Stop
Else
Call WinAmpControls("LessVolume", , False)
End If
End If
End If
DelayTrackSelection = DelayTrackSelection + One
End If
DidItLastTime = sTime
PreparingNextTrack = True
Exit Function
End If
End If
ElseIf Abs(SecondHand) < OnePointTwo Then
If Not ((LastSecondHand > -Five And .LabelKey.ForeColor <> vbRed) Or Not m_bBeatmixer) Then
'LastSecondHand = SecondHand means not just back from IngridMixSync and above twenty second mark.
WA_SetShuffle Zero
TrackSelected = False
' ElseIf SlaveBot And .LabelKey.ForeColor = vbOrange Then
' dmDrums.LabelBPM_Enabled = False
' FreshPlot "Perturbate", , True
' fHIDJ.IngridMixSync
' HIDJNext 'first song bug?
' TrackSelected = False
ElseIf Val(.Label3(Five).ToolTipText) = Zero Or ListAdvanceToGreenOnPlay Then '\\ Sixty - SecondHand < OnePointTwo Or - PointTwo'And SecondHand >= Zero'And ExtraSeconds = Zero
ReduceMP3Off
HIDJPlay
End If
ElseIf TrackSelected = True And (Abs(SecondHand) Mod Ten) < OnePointTwo Then
If DidItLastTime < Zero Then
DidItLastTime = sTime
LastSecondHand = SecondHand
If bEnqueuedTrackWaiting Then
.LabelKey.ForeColor = vbGreen 'Cyan
Else
If .cmdPlayPause(One).BackColor = vbGreen And .LabelKey.ForeColor = vbRed Then
If m_bBeatmixer And m_AutoDJActive Then
fHIDJ.IngridMixSync
' If .LabelKey.ForeColor = vbRed Then 'not set to Coalface by above
If .cmdBeatmix.Tag = vbGreen Then 'not set to Coalface by above
If SecondHand > -Thirty Then 'last chance to set correct crossfade
' Call sndPlaySound(SoundDir & "ticking.wav", SND_ASYNC + SND_NOSTOP)
' ExtraSeconds = Zero
FreshPlot "Perturbate", , True
' ManyChat.TimerSendData 'don't rely on doevents
' .cmdBeatmix.Tag = CoalFace ' not before because Freshplot resets it
'checks that other things require setting or does nothing
'\\ NOT - see doittoit DelayVolSliderFlag
'\\ this is where to put the thirty second tempo slider
End If
End If
End If
End If
End If
Exit Function
End If
End If
' If PreparingNextTrack Then Exit Do
GoTo ExitFunction
End If
Else
If Not HIDJNext Then GoTo ExitFunction
' If SecondsLeft < Zero And .UpperVolPreset And m_ManualTrackAdvance Then
' '\\ first time?
' '\\ this favors m_bBeatmixer so both instances don't get locked at high volume
' lWork = WinAmpControls("LessVolume", , False)
' End If
End If
End If
gAns = SongTime(22, False)
If gAns > Zero And gAns < Sixteen Then
Delay One
If gAns >= Ten Then
Sleep 500
If DMStatus = One Then
'\\ if not perturbate then GoTo exitfunction Else
PreparingNextTrack = True
End If
End If
End If
Exit Do
Loop
gAns = SongTime(23, False)
' If GridOut.Timer1.Enabled = False Then
' GoTo exitfunction Else
' End If
If .Genre.Selected(.Genre.ListIndex) Or .GenreEnabled = Zero Then
Exit Do
ElseIf Not .Genre.Selected(.Genre.ListIndex) And .GenreEnabled = One Then
'\\ play but do not beatmix
Exit Do
ElseIf Not .Genre.Selected(.Genre.ListIndex) And .GenreEnabled = Two Then
' '\\ play all but shuffle after deselected items - see GenreSelected
'' ElseIf Not GenreSelected And .cmdBeatmix.Caption = "Biasmix" Then
' If .LabelBPM_ForeColor = vbGreen Then '\\ see PreparingNextTrack
' If WA_GetShuffle = Zero Then
' WA_SetShuffle One
' SpeakThis "Shuffling on " & .Genre.list(.Genre.ListIndex)
' End If
' End If
'' GenreSelected = True
Exit Do
ElseIf gAns = -One Then
If WA_GetListLength <= WA_GetListPos Then
WA_StartPlay
Else
If Not HIDJNext Then GoTo ExitFunction
End If
Else
If Not HIDJNext Then GoTo ExitFunction
End If
If GridOut.Timer1.Enabled = False Then
GoTo ExitFunction
End If
Loop
Else
If Mp3PlayDoc = Zero Then
.GenreEnabled = CBool(SettingsGet(iniName, "Music", "Genre.Enabled", True))
If .GenreEnabled Then
.SetGenreEnabled
'\\ .SetGenreSelected
Else
Mp3PlayDoc = -Thousand
End If
End If
gAns = SongTime(24, False)
If gAns > Zero And gAns < Ten Then
HIDJStop
End If
If (gAns < -One Or gAns > Zero) And WA_IsPlaying = Zero Then '\\ smoothes joint control
If Not HIDJNext Then GoTo ExitFunction
End If
SongTime 25, False
End If
If Abs(sTime - LastPerturbate) < Thousand And LastPerturbate > Hundred Then '\\ how's this work? s/b