This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
InitAudioEngine()
Timer1.Start()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim AudioFiles As String() = Directory.GetFiles("C:\Audio Files", "*.mp3")
CreatePlaylist(AudioFiles.ToList)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
PlaylistStart()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
PlaylistStop()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = $"{GetCurrentTrackPositionString()} / {GetTotalTrackDurationString()}"
End Sub
End ClassImports AudioDjStudioApi
Imports System.IO
Module mAudioEngine
Public AudioApiEngine As New AudioDjStudioApiObj()
Public Const Deck_A As Short = 0
Public Const Deck_B As Short = 1
Private Delegate Sub CallbackForPlayersEventsDelegate(ByVal nEvent As enumPlayerEvents,
ByVal nPlayer As Int16,
ByVal nData1 As Int32,
ByVal nData2 As Int32,
ByVal fData3 As Single,
ByVal pBufferUnicode As IntPtr,
ByVal nBufferLength As Int32)
Private addrCallbackForPlayersEvents As CallbackForPlayersEvents
Public Sub InitAudioEngine()
Debug.WriteLine("=================")
Debug.WriteLine($"Control Version = {AudioApiEngine.GetControlVersion()}")
Debug.WriteLine($"Engine Version = {AudioApiEngine.GetEngineVersion()}")
Debug.WriteLine("=================")
AudioApiEngine.InitSoundSystem(2, 0, 0, 0, 0)
' set the player's callback
addrCallbackForPlayersEvents = New CallbackForPlayersEvents(AddressOf PlayerCallback)
AudioApiEngine.CallbackForPlayersEventsSet(addrCallbackForPlayersEvents)
AudioApiEngine.Fader.Init(enumFadeTypes.FADE_SINGLE_PLAYLIST, Deck_A, Deck_B)
AudioApiEngine.Fader.PlayListUseSingle(Deck_A)
AudioApiEngine.Fader.FadeInEnabled = True
AudioApiEngine.Fader.FadeInLength = 350
AudioApiEngine.Fader.FadeOutEnabled = True
AudioApiEngine.Fader.FadeOutLength = 3500
End Sub
Public Sub DisposeAudioEngine()
AudioApiEngine.StopSound(Deck_A)
AudioApiEngine.StopSound(Deck_B)
AudioApiEngine.Dispose()
End Sub
Private Sub PlayerCallback(ByVal nEvent As enumPlayerEvents,
ByVal nPlayer As Int16,
ByVal nData1 As Int32,
ByVal nData2 As Int32,
ByVal fData3 As Single,
ByVal pBufferUnicode As IntPtr,
ByVal nBufferLength As Int32)
Select Case nEvent
Case enumPlayerEvents.EV_WAVEFORM_CHANGE
Case enumPlayerEvents.EV_FADING_VOLUME_CHANGED
Case enumPlayerEvents.EV_VUMETER
Case Else
Debug.WriteLine($"{Date.Now:HH:mm:ss.fff} - {nPlayer} - {nEvent}")
End Select
End Sub
Public Sub CreatePlaylist(AudioFiles As List(Of String))
AudioApiEngine.PlayListSetLoop(Deck_A, bLoop:=False)
AudioApiEngine.PlayListSetShuffle(Deck_A, bShuffle:=False)
AudioApiEngine.PlayListCreateEx(Deck_A, enumPlayListModes.PLAYLIST_AUTOMATION_MODE)
Dim Index As Integer = 0
For Each f As String In AudioFiles
If Not File.Exists(f) Then Continue For
AudioApiEngine.PlayListAddItem(nPlayerIndex:=Deck_A,
strPathname:=f,
nIndex:=Index)
Index += 1
Next
End Sub
Public Sub PlaylistStart()
Debug.WriteLine(AudioApiEngine.PlayListExecute(Deck_A, bFromBegin:=True).ToString())
End Sub
Public Sub PlaylistStop(Optional ByVal Deck As Short = -1)
If Deck = -1 Then
AudioApiEngine.StopSound(Deck)
Return
End If
AudioApiEngine.StopSound(GetPlayingDeck())
End Sub
Public Function GetTotalTrackDurationString() As String
Return AudioApiEngine.GetFormattedSoundDuration(GetPlayingDeck)
End Function
Public Function GetTotalTrackDurationInt() As Integer
Return AudioApiEngine.GetSoundDuration(GetPlayingDeck)
End Function
Public Function GetCurrentTrackPositionString() As String
Return AudioApiEngine.GetCurrentPosString(GetPlayingDeck, False, False)
End Function
Public Function GetCurrentTrackPositionInt() As Integer
Return AudioApiEngine.GetCurrentPos(GetPlayingDeck)
End Function
Public Function GetPlayingDeck() As Short
If AudioApiEngine.GetPlayerStatus(Deck_B) = enumPlayerStatus.SOUND_PLAYING Then
Return Deck_B
End If
Return Deck_A
End Function
End Module