Little Somthing I Have Been Devoleping

[razor5070]

Hey all, in my spare time from work i devolep apps as a hobby.

I'm devoleping a simple music player.. in C# & VB.net 08

Right now it's only Vista user oriented..

Here's a screen shot of what i have so far, (About 2 & 1/2 hours worth of work)

(Click for a bigger View)

[VtecDomani]

looks good, whats left to finish on it?

[Slinky]

thats cool man. keep up the good work

[razor5070]

looks good, whats left to finish on it?

Well here's the list of things i set for it, Anything with an X has been finished

'Sharp Media Version 7 :: Vista only

(x) Extend Glass

(x) Vista Themed Glow Text

(x) VU Meters

(x) Music Engine

(x) 3D Album Art

() Dynamic Playlist

() Album Art in playlist

() Playlist Layout Defined by artist

() Play, Stop, Pause, Next, Back buttons

() Volume Slider

() Load a Folder of Files

() Drag and drop Support

() Trackbar

() TaskBar intagration

() Plugin Engine

() Updater

() Code Signing

() Installer

Also maybe a sidebar Gadget.

And the side project to go with it, a Complete Tag editer, Not started.

Thanks all

[Torres]

i like that. i'm going for computer programming and i'm lookin so forward to making things like this for my personal use

[Gq85]

That's neat what do you plan to do with it after you finish creating it. Just for personal use?...

[razor5070]

It's just a hobby, i don't see why i can't share with others.

Free to download when it's finished!

-----------------------------------------------------------------------

Here's a little programming that's going into it.

Figure it out. shouldent be to hard. it's pretty straight forward

private void SMD()

{

Process LaunchSMD = new Process();

LaunchSMD.StartInfo.FileName = "http://www.stevemeadedesigns.com/";

LaunchSMD.Start();

}

private void Button_Click(object sender, EventArgs e)

{

SMD();

}

[Shyne151]

It's just a hobby, i don't see why i can't share with others.

Free to download when it's finished!

-----------------------------------------------------------------------

Here's a little programming that's going into it.

Figure it out. shouldent be to hard. it's pretty straight forward

private void SMD()

{

Process LaunchSMD = new Process();

LaunchSMD.StartInfo.FileName = "http://www.stevemeadedesigns.com/";

LaunchSMD.Start();

}

private void Button_Click(object sender, EventArgs e)

{

SMD();

}

Ughh a function call to start stevemeadedeisgns.com? not hard.

[razor5070]

Bingo.

No it's not hard

Here's Alittle VB .. maybe harder.. maybe not.

-------------------------------------------------------------

Private Sub Rotate_Img()

Dim bm_in As New Bitmap(picSource.Image)

Dim wid As Single = bm_in.Width

Dim hgt As Single = bm_in.Height

Dim corners As Point() = { _

New Point(0, 0), _

New Point(wid, 0), _

New Point(0, hgt), _

New Point(wid, hgt)}

Dim cx As Single = wid / 2

Dim cy As Single = hgt / 2

Dim i As Long

For i = 0 To 3

corners(i).X -= cx

corners(i).Y -= cy

Next i

Dim theta As Single = Single.Parse(-5) * PI / 180.0

Dim sin_theta As Single = Sin(theta)

Dim cos_theta As Single = Cos(theta)

Dim X As Single

Dim Y As Single

For i = 0 To 3

X = corners(i).X

Y = corners(i).Y

corners(i).X = X * cos_theta + Y * sin_theta

corners(i).Y = -X * sin_theta + Y * cos_theta

Next i

Dim xmin As Single = corners(0).X

Dim ymin As Single = corners(0).Y

For i = 1 To 3

If xmin > corners(i).X Then xmin = corners(i).X

If ymin > corners(i).Y Then ymin = corners(i).Y

Next i

For i = 0 To 3

corners(i).X -= xmin

corners(i).Y -= ymin

Next i

Dim bm_out As New Bitmap(CInt(-2 * xmin), CInt(-2 * ymin))

Dim gr_out As Graphics = Graphics.FromImage(bm_out)

ReDim Preserve corners(2)

gr_out.DrawImage(bm_in, corners)

picSource.Image = bm_out

FixImage(picSource, picDest, True)

End Sub

Private Sub FixImage(ByVal from_pic As PictureBox, ByVal to_pic As PictureBox, Optional ByVal anti_alias As Boolean = False)

Dim from_bm As New Bitmap(from_pic.Image)

Dim wid As Integer = from_pic.Width

Dim hgt As Integer = from_pic.Height

Dim to_bm As New Bitmap(wid, hgt)

Dim gr As Graphics = Graphics.FromImage(to_bm)

If anti_alias Then gr.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear

gr.DrawImage(from_bm, 0, 0, wid - 1, hgt - 1)

to_pic.Image = to_bm

End Sub

Private Sub LoadPicture()

m_PictureFrames = m_UltraID3.ID3v23Tag.Frames.GetFrames(MultipleInstanceFrameTypes.Picture)

m_PictureTypes = HundredMilesSoftware.UltraID3Lib.ID3PictureFrame.PictureTypeList

lst_PictureType.DataSource = m_PictureTypes

m_PictureIndex = -1

'tpg_Pictures.Text = String.Format(c_TabFormatText_Pictures, m_PictureFrames.Count)

If m_PictureFrames.Count > 0 Then

m_PictureIndex = 0

End If

EnablePictureButtons()

End Sub

Private Sub EnablePictureButtons()

Dim PictureFrameCount As Integer = m_PictureFrames.Count

If PictureFrameCount > 0 Then

m_CurrentPictureFrame = CType(m_PictureFrames.Item(m_PictureIndex), ID3PictureFrame)

With m_CurrentPictureFrame

If m_CurrentPictureFrame.Picture IsNot Nothing Then

Me.picSource.Image = m_CurrentPictureFrame.Picture

End If

lst_PictureType.DataBindings.Clear()

lst_PictureType.DataBindings.Add("SelectedValue", m_CurrentPictureFrame, "Type")

'txt_PictureDescription.DataBindings.Clear()

'txt_PictureDescription.DataBindings.Add("Text", m_CurrentPictureFrame, "Description")

End With

'btn_DeletePicture.Enabled = True

If PictureFrameCount > 1 Then

Else

End If

Else

Me.picSource.Image = My.Resources.no_art

End If

Rotate_Img()

End Sub

[Gq85]

That one is quite hard don't understand much of it. What does it do? I was learning a bit of VB I need to get my reading and practice with it. How did you learn what you know?