Thread: Tiny Music Embedded

Progress update:
Fixed Winamp track changing logic. Can now toggle shuffle and still having it change tracks properly. (Before when shuffle was enabled, it would advance to the next track, not the next random track.)
Completely removed old useless code.

Originally Posted by frodobaggins

I am so glad there are so many projects going on. More developers to talk to

Not sure exactly what you mean... but okay!

*grumbles about pain in the butt weird bugs*

People want to talk to developers?

100% keyboard support plus configuration options.
75% IR remote. No configuration options yet.
0% Multiple playlist selection.

sounds perfect. it could replace the winamp http://www.markuszehnder.ch/projects...ugin/index.php plugin if you support the major LCDs like crystalfontz and/or matrix orbital. i am definatly interested

Originally Posted by raypsaliga

sounds perfect. it could replace the winamp http://www.markuszehnder.ch/projects...ugin/index.php plugin if you support the major LCDs like crystalfontz and/or matrix orbital. i am definatly interested

HD44780 is the first type of display I plan on supporting. Matrix Orbital will probably come next if I can port the code or find examples.

Right now I'm tackling a PAIN in the BUTT bug. Running in the enviroment works fine, running the compiled program causes Run-time error 91. Object variable or With Block variable not set.

Code:

Private Sub Form_Load()
Dim SNumb As Integer
Dim i As Integer
Dim PStatus As String
Dim RetVal
Dim PWinamp As String
Dim PTitle As String
PStatus = GetPlayStatus

'Load Keyboard and IR Remote settings.
InputSetup

'Default Playlist Loading
PDirect = ReadINI("settings", "pdirectory", App.Path & "\" & "mp3shell.ini")
PlayList = ReadINI("settings", "playlist", App.Path & "\" & "mp3shell.ini")
If FileExist(PDirect & PlayList) = False Then
    cdgFile.CancelError = True
    On Error GoTo ErrHandler
    MsgBox "Default Playlist was not found.", vbOKOnly, "Playlist Open"
    cdgFile.Filter = "Playlists (*.pls)|*.pls"
    cdgFile.DialogTitle = "Please Select Default Playlist..."
    cdgFile.ShowOpen
    WriteINI "settings", "pdirectory", Replace(cdgFile.filename, cdgFile.FileTitle, ""), App.Path & "\" & "mp3shell.ini"
    WriteINI "settings", "playlist", cdgFile.FileTitle, App.Path & "\" & "mp3shell.ini"
    PDirect = ReadINI("settings", "pdirectory", App.Path & "\" & "mp3shell.ini")
    PlayList = ReadINI("settings", "playlist", App.Path & "\" & "mp3shell.ini")
End If
SNumb = ReadINI("playlist", "NumberOfEntries", PDirect & PlayList)
PWinamp = ReadINI("settings", "winamp", App.Path & "\" & "mp3shell.ini")
If FileExist(PWinamp) = False Then
'    cdgFile.CancelError = True
'    On Error GoTo ErrHandlerAmp
'    MsgBox "Winamp EXE Not Found, please select.", vbOKOnly, "Open Winamp"
Rinse:
'    cdgFile.Filter = "Winamp.exe File (*.exe)|*.exe"
'    cdgFile.DialogTitle = "Please Select Winamp.exe file..."
'    cdgFile.ShowOpen
'PTitle = Format(cdgFile.FileTitle, "<")
    If PTitle = "winamp.exe" Then
        WriteINI "settings", "winamp", cdgFile.filename, App.Path & "\" & "mp3shell.ini"
    Else
        MsgBox "Selected file is not Winamp.", , "Error"
        GoTo Rinse
    End If
End If
PWinamp = ReadINI("settings", "winamp", App.Path & "\" & "mp3shell.ini")
RetVal = Shell(PWinamp & " " & PDirect & PlayList, 4)
For i = 1 To SNumb
    lstPlay.AddItem ReadINI("playlist", "Title" & i, PDirect & PlayList)
Next i
lstPlay.Selected(0) = True

'Direct Input Code
    Set DI = dx.DirectInputCreate() 'create the object, must be done before anything else
    If Err.Number <> 0 Then 'if err=0 then there are no errors.
        MsgBox "Error starting Direct Input, please make sure you have DirectX installed", vbApplicationModal
        End
    End If
    Set diDEV = DI.CreateDevice("GUID_SysKeyboard") 'Create a keyboard object off the Input object
    diDEV.SetCommonDataFormat DIFORMAT_KEYBOARD 'specify it as a normal keyboard, not mouse or joystick
    diDEV.SetCooperativeLevel Me.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
    Me.Show
    diDEV.Acquire
    If PStatus = 0 Then
        Playing = False
        dPaused = False
    End If
    If PStatus = 1 Then
        Playing = True
        dPaused = False
        lstPlay.Selected(GetTrack) = True
    End If
    If PStatus = 3 Then
        Playing = False
        dPaused = True
    End If
    CurTra = 0
InitRemote
Form1.Show
Exit Sub
ErrHandler:
        MsgBox "No Playlist Selected, Exiting.", vbOKOnly, "Playlist Open"
        End
ErrHandlerAmp:
        MsgBox "Improper Winamp File, Exiting.", vbOKOnly, "Find Winamp"
        End
ExitSub:
End Sub

Originally Posted by frodobaggins

Well, other developers do

Hehehe, well, teaser picture of the remote configuration program. Includes a virtual remote since its annoying to have to remove the remote and reciever from the car to configure it "remotely."