Need help programming Winamp LCD app in VB?

LK/ELK/VK/PK/OK/MX/GLK/EGLK/GVK/GLT Series

Moderators: Henry, Mods

Post Reply
Ghoast
LCD Guru
Posts: 65
Joined: Thu Nov 29, 2001 4:00 pm
Location: Sweden
Contact:

Post by Ghoast »

I've been working on implementing Winamp control/stats in LCDstats and developed a "test app" which someone else might find useful to test with.

Image

VB6 Sourcecode

specialk
LCD Guru
Posts: 75
Joined: Mon Jan 14, 2002 4:00 pm

Post by specialk »

191 kbps? Hmm... either you got yourself a funky MP3 or it's VBR... But Enya is nice relaxation music :smile:

Thanks for the source, too. Nice and clean! (Most of my programs are getting overrun with stuff that I could put into a few modules and get it cleaned up :razz:)

-special [k]

Henry
OMNIPRESENT
OMNIPRESENT
Posts: 3002
Joined: Tue Aug 14, 2001 6:00 pm
Contact:

Post by Henry »

WOO7 Enya!!! Enigma is great too :smile:

Off topic, I know...
Henry J.
President
Matrix Orbital

Ghoast
LCD Guru
Posts: 65
Joined: Thu Nov 29, 2001 4:00 pm
Location: Sweden
Contact:

Post by Ghoast »

I updated the zip file because i found a bug in the get song title thingy, it crashed when winamp just has loaded and don't have a valid songname in it's caption.

191KBps=WMA file encoded at 160KBps, dunno why.

specialk
LCD Guru
Posts: 75
Joined: Mon Jan 14, 2002 4:00 pm

Post by specialk »

I saw that bug, my fix was just this:

Code: Select all

Public Function strWinampTitle() As String
    Dim strCaption As String
    
    strCaption = strGettext(hwnd_winamp)
    If Len(strCaption) > 11 Then
        strCaption = Mid(strCaption, InStr(strCaption, ".") + 2, InStr(strCaption, " - Winamp") - 4)
        If Right(strCaption, 1) = " " Then strCaption = Mid(strCaption, 1, Len(strCaption) - 1)
        strWinampTitle = strCaption
    Else
        strWinampTitle = "No Song Playing"
    End If
End Function
-special [k]

Ghoast
LCD Guru
Posts: 65
Joined: Thu Nov 29, 2001 4:00 pm
Location: Sweden
Contact:

Post by Ghoast »

i'm using your fix now :smile:

specialk
LCD Guru
Posts: 75
Joined: Mon Jan 14, 2002 4:00 pm

Post by specialk »

Unfortunatly I just realized that that causes errors with winamp v2.78, because it takes on an extra letter... I like your fix better :razz:

-special [k]

Ghoast
LCD Guru
Posts: 65
Joined: Thu Nov 29, 2001 4:00 pm
Location: Sweden
Contact:

Post by Ghoast »

i noticed that to when i upgraded winamp today.

Ghoast
LCD Guru
Posts: 65
Joined: Thu Nov 29, 2001 4:00 pm
Location: Sweden
Contact:

Post by Ghoast »

I made a small app showing a way to scroll text. Useful to anyone who wants to scroll text on a LCD.

Link: http://w1.262.telia.com/~u26209407/text ... scroll.zip

Post Reply