Skip to content

Commit

Permalink
Commit for new version 2.4.0
Browse files Browse the repository at this point in the history
  • Loading branch information
alexxvandenberg committed Feb 25, 2024
1 parent cfe1ef3 commit 2e838ba
Show file tree
Hide file tree
Showing 60 changed files with 7,356 additions and 2,756 deletions.
4 changes: 3 additions & 1 deletion .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -104,4 +104,6 @@ AUTHORS text
*.eot binary
*.woff binary
*.pyc binary
*.pdf binary
*.pdf binary
*.exe
*.sf2
29 changes: 29 additions & 0 deletions Audiostation/Audiostation.csi
Original file line number Diff line number Diff line change
@@ -0,0 +1,29 @@
[History]
1=#P0#=mb #P1#=OpenFile #P2#=Audiostation/modMain/OpenFile #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231105215259 #P7#=0 #P8#=4 .
2=#P0#=mb #P1#=AdioMidiPlaylist_TrackChanged #P2#=Audiostation/Form_Main/AdioMidiPlaylist_TrackChanged #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231105215207 #P7#=0 #P8#=3 .
3=#P0#=mb #P1#=Form_Load #P2#=Audiostation/Form_Track_Properties/Form_Load #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231105214529 #P7#=0 #P8#=2 .
4=#P0#=mb #P1#=SavePlaylistAsHTML #P2#=Audiostation/Form_Playlist/SavePlaylistAsHTML #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231105214517 #P7#=0 #P8#=4 .
5=#P0#=mb #P1#=ComboxboxToCommondialogFilter #P2#=Audiostation/Form_Playlist/ComboxboxToCommondialogFilter #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231105214507 #P7#=0 #P8#=5 .
6=#P0#=mb #P1#=ListOfVolChannels #P2#=Audiostation/modVolume/ListOfVolChannels #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231105214414 #P7#=0 #P8#=13 .
7=#P0#=mb #P1#=TranslateFormAndControls #P2#=Audiostation/modLanguage/TranslateFormAndControls #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231105214356 #P7#=0 #P8#=2 .
8=#P0#=mb #P1#=argGetArgs #P2#=Audiostation/modArgs/argGetArgs #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231105213900 #P7#=0 #P8#=0 .
9=#P0#=mb #P1#=argProcessCMDLine #P2#=Audiostation/modArgs/argProcessCMDLine #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231105213856 #P7#=0 #P8#=0 .
10=#P0#=mb #P1#=AdioMidiPlayer_StartPlay #P2#=Audiostation/Form_Main/AdioMidiPlayer_StartPlay #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231104180040 #P7#=0 #P8#=2 .
11=#P0#=mb #P1#=AdioMediaPlayer_StartPlay #P2#=Audiostation/Form_Main/AdioMediaPlayer_StartPlay #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231104180022 #P7#=0 #P8#=1 .
12=#P0#=mb #P1#=AdioCDPlayer_StartPlay #P2#=Audiostation/Form_Main/AdioCDPlayer_StartPlay #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231104180003 #P7#=0 #P8#=1 .
13=#P0#=mb #P1#=Switch_Midi_OnChange #P2#=Audiostation/Form_Main/Switch_Midi_OnChange #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231104175649 #P7#=0 #P8#=1 .
14=#P0#=mb #P1#=Slider_Midi_Volume_OnPositionChangeFinished #P2#=Audiostation/Form_Main/Slider_Midi_Volume_OnPositionChangeFinished #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231104175509 #P7#=0 #P8#=1 .
15=#P0#=mb #P1#=SetVolumeById #P2#=Audiostation/modVolume/SetVolumeById #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231104175443 #P7#=0 #P8#=1 .
16=#P0#=mb #P1#=Form_Load #P2#=Audiostation/Form_Main/Form_Load #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231104175126 #P7#=0 #P8#=1 .
17=#P0#=mb #P1#=ChannelExists #P2#=Audiostation/modVolume/ChannelExists #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231104174705 #P7#=0 #P8#=10 .
18=#P0#=mb #P1#=SetUnmuteById #P2#=Audiostation/modVolume/SetUnmuteById #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231104165355 #P7#=0 #P8#=1 .
19=#P0#=mb #P1#=SetMuteById #P2#=Audiostation/modVolume/SetMuteById #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231104165351 #P7#=0 #P8#=1 .
20=#P0#=mb #P1#=ApplicationConstructor #P2#=Audiostation/modMain/ApplicationConstructor #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231104164424 #P7#=0 #P8#=14 .
21=#P0#=mb #P1#=Exists #P2#=Audiostation/clsSibraSoft/Exists #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231104162220 #P7#=0 #P8#=-1 .
22=#P0#=mb #P1#=TerminateProcessByPid #P2#=Audiostation/clsSibraSoft/TerminateProcessByPid #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231104161719 #P7#=0 #P8#=1 .
23=#P0#=mb #P1#=AdioMediaPlayer_MediaEnded #P2#=Audiostation/Form_Main/AdioMediaPlayer_MediaEnded #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231104135551 #P7#=0 #P8#=1 .
24=#P0#=mb #P1#=GetFileNameFromFilePath #P2#=Audiostation/clsSibraSoft/GetFileNameFromFilePath #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231103203521 #P7#=0 #P8#=21 .
25=#P0#=mb #P1#=SetBytes #P2#=Audiostation/clsSibraSoft/SetBytes #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231103203443 #P7#=0 #P8#=11 .
26=#P0#=mb #P1#=Form_QueryUnload #P2#=Audiostation/Form_Main/Form_QueryUnload #P3#= #P4#= #P5#=MembEventProcPrivate #P6#=20231103203220 #P7#=0 #P8#=11 .
27=#P0#=mb #P1#=NextSidSong #P2#=Audiostation/modSidPlayer/NextSidSong #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231031161219 #P7#=0 #P8#=2 .
28=#P0#=mb #P1#=NewPlayer #P2#=Audiostation/modSidPlayer/NewPlayer #P3#= #P4#= #P5#=MembMethodPrivate #P6#=20231031160822 #P7#=0 #P8#=1 .
Binary file added Audiostation/Audiostation.lvw
Binary file not shown.
72 changes: 30 additions & 42 deletions Audiostation/Audiostation.vbp
Original file line number Diff line number Diff line change
@@ -1,58 +1,46 @@
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime
Reference=*\G{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}#1.0#0#C:\Windows\SysWOW64\wshom.ocx#Windows Script Host Object Model
Reference=*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#6.0#0#C:\Windows\SysWOW64\msxml6.dll#Microsoft XML, v6.0
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\Windows\SysWOW64\stdole2.tlb#OLE Automation
Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#..\..\..\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime
Reference=*\G{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B}#1.0#0#..\..\..\Windows\SysWOW64\wshom.ocx#Windows Script Host Object Model
Reference=*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#6.0#0#..\..\..\Windows\System32\msxml6.dll#Microsoft XML, v6.0
Object={0A362340-2E5E-11D3-85BF-00105AC8B715}#1.0#0; isDigitalLibrary.ocx
Object={C5412DA5-2E2F-11D3-85BF-00105AC8B715}#1.0#0; isAnalogLibrary.ocx
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0; MSCOMCTL.OCX
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; ComDlg32.OCX
Object={BF3128D8-55B8-11D4-8ED4-00E07D815373}#1.0#0; MBPrgBar.ocx
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Object={4424C993-EABF-4A03-9BA9-369E0F07466E}#1.2#0; midifl2k.ocx
Object={5F5C69A3-5434-4A28-B392-38259F02830A}#1.0#0; DataInter.ocx
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; Comctl32.ocx
Object={0518EEBD-7F0E-4513-8491-A0221C9008A2}#2.1#0; midiio2k.ocx
Object={9BAC3ED0-40B2-44B9-ADE5-52766970ED57}#1.0#0; LaVolpeAlphaImg2.ocx
Object={A8B345A0-74B5-11D3-85C2-00105AC8B715}#1.0#0; iProfessionalLibrary.ocx
Class=AudioVolume; src\Classes\clsAudioEndpointVolume.cls
Class=AudiostationSteamer; src\Classes\clsAudiostationSteamer.cls
Class=BaseTime; src\Classes\clsBassTime.cls
Class=FileIO; src\Classes\clsFileIo.cls
Class=AudioMeter; src\Classes\clsIAudioMeterInformation.cls
Class=LocalStorage; src\Classes\clsLocalStorage.cls
Class=Mp3Info; src\Classes\clsMp3Info.cls
Class=Nest; src\Classes\clsNest.cls
Class=RegistrySettings; src\Classes\clsRegistrySettings.cls
Class=SibraSoft; src\Classes\clsSibraSoft.cls
Class=StringBuilder; src\Classes\clsStringBuilder.cls
Class=WebClient; src\Classes\clsWebClient.cls
Object={40F6D89D-D6BF-4EAD-B885-E1869BDF4E31}#41.0#0; AdioLibrary.ocx
Object={966CF34C-191F-4FB6-BF33-C8DB07C6A40D}#1.0#0; DigitBox.ocx
Class=clsStringBuilder; src\Classes\clsStringBuilder.cls
UserControl=src\Controls\ButtonBig.ctl
UserControl=src\Controls\Hyperlink.ctl
UserControl=src\Controls\MixSlider.ctl
Form=src\Forms\Form_About.frm
Form=src\Forms\Form_Busy.frm
Form=src\Forms\Form_Main.frm
Form=src\Forms\Form_Midi.frm
Form=src\Forms\Form_OpenDialog.frm
Form=src\Forms\Form_Playlist.frm
Form=src\Forms\Form_Plugins.frm
Form=src\Forms\Form_Settings_Record.frm
Form=src\Forms\Form_Track_Properties.frm
Module=AudiostationCDPlayer; src\Modules\modAudiostationCDPlayer.bas
Module=AudiostationMIDIPlayer; src\Modules\modAudiostationMIDIPlayer.bas
Module=AudiostationMP3Player; src\Modules\modAudiostationMP3Player.bas
Module=ModBass; src\Modules\modBass.bas
Module=ModBassCD; src\Modules\modBassCD.bas
Module=ModConvert; src\Modules\modConvert.bas
Module=ModEnums; src\Modules\modEnums.bas
Module=ModLanguage; src\Modules\modLanguage.bas
Module=ModMain; src\Modules\modMain.bas
Module=ModConstMidi; src\Modules\modMidiConst.bas
Module=ModMidiUtils; src\Modules\modMidiUtils.bas
Module=ModBassNetRadio; src\Modules\modNetRadio.bas
Module=ModPlaylist; src\Modules\modPlaylist.bas
Module=ModBassSpectrum; src\Modules\modSpectrum.bas
Class=AudiostationRecorder; src\Classes\clsAudiostationRecorder.cls
Module=modEnums; src\Modules\modEnums.bas
Module=modMain; src\Modules\modMain.bas
Class=clsSibraSoft; ..\..\_Extensions\SibraSoft.cls
Class=clsStringExtensions; ..\..\_Extensions\StringExtensions.cls
Module=modLanguage; ..\..\_Extensions\ModLanguage.bas
Class=clsSmartBuffer; src\Classes\clsSmartBuffer.cls
UserControl=src\Controls\ShellPipe.ctl
Module=modArgs; src\Modules\modArgs.bas
Form=src\Forms\Form_System.frm
Form=src\Forms\Form_Streams.frm
Form=src\Forms\Form_Normalize.frm
Class=clsDialogExtensions; ..\..\_Extensions\DialogExtensions.cls
Module=modOS; src\Modules\modOS.bas
Form=src\Forms\Form_Settings_Recorder.frm
Class=clsLogger; src\Classes\clsLogger.cls
Module=modMusPlayer; src\Modules\modMusPlayer.bas
Module=modSidPlayer; src\Modules\modSidPlayer.bas
Module=modVolume; src\Modules\modVolume.bas
Class=mdlVolumeChannel; src\Classes\mdlVolumeChannel.cls
IconForm="Form_Main"
Startup="Sub Main"
HelpFile=""
Expand All @@ -65,7 +53,7 @@ Description="The old school media player"
CompatibleMode="0"
MajorVer=2
MinorVer=4
RevisionVer=2022
RevisionVer=2023
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Sibra-Soft"
Expand Down
29 changes: 29 additions & 0 deletions Audiostation/Audiostation.vbw
Original file line number Diff line number Diff line change
@@ -0,0 +1,29 @@
clsStringBuilder = 100, 100, 929, 610, C
ButtonBig = 0, 0, 0, 0, C, 150, 150, 958, 661, C
Hyperlink = 0, 0, 0, 0, C, 175, 175, 983, 686, C
MixSlider = 0, 0, 0, 0, C, 200, 200, 1008, 711, C
Form_About = 0, 0, 0, 0, C, 225, 225, 1033, 736, C
Form_Busy = 0, 0, 0, 0, C, 250, 250, 1058, 761, C
Form_Main = -83, 49, 980, 403, C, 25, 25, 833, 536, C
Form_Playlist = 175, 175, 983, 686, C, 25, 25, 833, 536, C
Form_Settings = 0, 0, 0, 0, C, 50, 50, 858, 561, C
Form_Track_Properties = 200, 200, 1029, 710, C, 75, 75, 883, 586, C
modEnums = 100, 100, 908, 611, C
modMain = 75, 75, 1054, 271, C
clsSibraSoft = 200, 200, 1008, 711, C
clsStringExtensions = 25, 25, 1159, 221, C
modLanguage = 25, 25, 833, 536, C
clsSmartBuffer = 75, 75, 904, 585, C
ShellPipe = 225, 225, 1033, 736, C, 100, 100, 908, 611, C
modArgs = 75, 75, 883, 586, C
Form_System = 0, 0, 0, 0, C, 125, 125, 933, 636, C
Form_Streams = 0, 0, 0, 0, C, 150, 150, 958, 661, C
Form_Settings_AutoVolume = 0, 0, 0, 0, C, 175, 175, 983, 686, C
clsDialogExtensions = 25, 25, 854, 535, C
modOS = 50, 50, 858, 561, C
Form_Settings_Recorder = 0, 0, 0, 0, C, 200, 200, 1008, 711, C
clsLogger = 25, 25, 833, 536, C
modMusPlayer = 125, 125, 933, 636, C
modSidPlayer = 25, 25, 833, 536, C
modVolume = 125, 125, 933, 636, C
mdlVolumeChannel = 0, 0, 829, 510, C
Binary file modified Audiostation/basscd.dll
Binary file not shown.
Binary file added Audiostation/bassflac.dll
Binary file not shown.
6 changes: 4 additions & 2 deletions Audiostation/languages/dutch.lng
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@
1041=Opname instellingen wijzigen
1042=Auto volume instellingen wijzigen
1043=Animaties & uiterlijk
1044=Mediaspeler-functionaliteit
1044=Mediaspeler
1045=OK
1046=Stream openen
1047=Track eigenschappen
Expand All @@ -63,4 +63,6 @@
1062=Toon verstreken tijd
1063=Laat de resterende tijd zien
1064=Gebruik auto stop
1065=U moet de toepassing opnieuw opstarten wanneer u wijzigingen in de taal aanbrengt
1065=U moet de toepassing opnieuw opstarten wanneer u wijzigingen in de taal aanbrengt
1066=Alle bestanden
1067=Midi Speler
6 changes: 4 additions & 2 deletions Audiostation/languages/english.lng
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@
1041=Change recorder settings
1042=Change auto volume settings
1043=Animations & appearance
1044=Media player functionality
1044=Media Player
1045=OK
1046=Open stream
1047=Track properties
Expand All @@ -63,4 +63,6 @@
1062=Show elapsed time
1063=Show remaining time
1064=Use auto stop
1065=You must restart the application when you make changes to the language
1065=You must restart the application when you make changes to the language
1066=All files
1067=Midi Player
6 changes: 4 additions & 2 deletions Audiostation/languages/german.lng
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@
1041=Aufnahmeeinstellungen ändern
1042=Ändern Sie die Einstellungen für die automatische Lautstärke
1043=Animationen & Aussehen
1044=Media-Player-Funktionalität
1044=Media-Player
1045=OK
1046=Streaming öffnen
1047=Track-Eigenschaften
Expand All @@ -63,4 +63,6 @@
1062=Verstrichene Zeit anzeigen
1063=Zeigen Sie die verbleibende Zeit an
1064=Autostopp verwenden
1065=Sie müssen die Anwendung neu starten, wenn Sie Änderungen an der Sprache vornehmen
1065=Sie müssen die Anwendung neu starten, wenn Sie Änderungen an der Sprache vornehmen
1066=Alle Dateien
1067=Midi Player
Binary file added Audiostation/recorder.exp
Binary file not shown.
20 changes: 20 additions & 0 deletions Audiostation/settings.ini
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
[main]
UseSpectrumAnalyzer=0
CDDeviceId=0
MidiPlaybackDeviceId=0
Langauge=Dutch
LastLocation=T:\BROADCAST (MP3)\
RecordingDeviceId=0
RecordingRate=44100
element-1=ON
element-2=ON
element-3=OFF
element-4=ON
element-5=ON
element-6=ON
Animation-CD=1
Animation-DAT=1
PlaybackDeviceId=0
AutoStop=0
ShowRemaingTime=True
ShowRemainingTime=True
45 changes: 45 additions & 0 deletions Audiostation/src/Classes/clsLogger.cls
Original file line number Diff line number Diff line change
@@ -0,0 +1,45 @@
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsLogger"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'///////////////////////////////////////////////////////////////
'// FileName : Logger.cls
'// FileType : Microsoft Visual Basic 6 - Class Module
'// Author : Alex van den Berg
'// Created : 26-06-2023
'// Last Modified : 05-11-2023
'// Copyright : Sibra-Soft
'// Description : Sibra-Soft application logger class
'////////////////////////////////////////////////////////////////

Option Explicit

Dim FileNum
Public Sub Init(Folder As String)
FileNum = FreeFile

Open Folder & "\audiostation.log" For Append As FileNum
Print #FileNum, Date$ & " " & Time$
End Sub
Public Sub LogError(Message As String)
Print #FileNum, Date$ & vbTab & Time$ & vbTab & "[ERROR]" & vbTab & Message
End Sub
Public Sub LogWarning(Message As String)
Print #FileNum, Date$ & vbTab & Time$ & vbTab & "[WARN]" & vbTab & Message
End Sub
Public Sub LogInfo(Message As String)
Print #FileNum, Date$ & vbTab & Time$ & vbTab & "[INFO]" & vbTab & Message
End Sub
Public Sub CloseLog()
Close FileNum
End Sub

Loading

0 comments on commit 2e838ba

Please sign in to comment.