totally screwed up project-please help!

does any1 know how i can get this back on track?? PLEASE!!

Page 1 of 1

4 Replies - 1711 Views - Last Post: 23 April 2008 - 08:35 AM Rate Topic: -----

#1 carlysarah   User is offline

  • New D.I.C Head

Reputation: 1
  • View blog
  • Posts: 49
  • Joined: 03-April 08

totally screwed up project-please help!

Post icon  Posted 23 April 2008 - 06:35 AM

I have created practically an entire project...and now realise that i have done it all wrong. that it should be in 2 parts, and quite honestly, i havent a clue how to do it.



I have to have:



VB.NET Windows Component Specification


The radio component software should function as follows.



On start-up the radio will be “off”.
The user can switch the radio “on”, in which case it will begin to play the currently selected station (the last station selected before the radio was switched off).
The radio can be tuned one of two modes, either AM or FM. The user can switch between these modes at any time
The user can “scan” for alternative stations.
The user can “cancel scanning” at any time, in which case the radio will resume playing the last station it was tuned to before scanning started.
In scan mode the radio will scan through frequencies pausing for 3 seconds when a station is found.
When a station is found the user can “select” that station. If this happens the selected station becomes the current station and it is played.
The list of radio station frequencies and their “smart names” and mode, e.g., 1548 MW Forth 2, will be stored internally in the software and not in an external file. The radio should be able to tune to at least twenty stations.
The details of the last station played before the radio is switched off should be stored in an external text file.
The radio will be able to accept a smart name from the user and tune to that station.
The radio will be able to pass to the user the frequency, mode, and smart name of the station currently being played
and



VB.NET Application Specification


The radio application software should function as follows.



The user application will be able to retrieve from the component the frequency, mode, and smart name of the station currently being played.
The user application can choose to store any station the radio can be tuned to in a “favourites” list.
The favourites list will be stored in a MS Access database
This info will be stored in the form of frequency, mode (AM or FM), and smart name.
The user application will be able to send to the component the frequency, mode, and smart name of any station the radio can be tuned to.
The user application can browse the favourites list at any time and select from it a station to be played.
Any other feature you, as application designer, consider to be useful
I have absolutely no idea what im doing.

the radio component must be in the form of a .dll file



PLEASE can someone help me, i have little over a week to complete this project and i have no idea what to do anymore.



Here is the code i have for the project i have created so far:



Form1:


Private Sub btnPower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPower.Click
		If Mode = ModeEnum.OffMode Then
			Mode = ModeEnum.OnMode
			AxMediaPlayer1.FileName = "c:\cwmusic\ChrisBrown.mp3"

		Else
			Mode = ModeEnum.OffMode
			AxMediaPlayer1.Stop()
			Dim sw As New IO.StreamWriter("c:\lastStation.txt")

			sw.Write(radioStations(0).ToString)

			sw.Close()
		End If
		SetMode(Me, Mode)
	End Sub

	Dim radioStations(19) As Station


	Private Mode As ModeEnum = ModeEnum.OffMode
	Enum ModeEnum
		OnMode
		OffMode
	End Enum
	Sub SetMode(ByVal ctl As Control, ByVal mode As ModeEnum)
		Dim blnEnabled As Boolean = (mode = ModeEnum.OnMode)
		For Each subCtl As Control In ctl.Controls
			If Not subCtl.Name = "btnPower" Then
				subCtl.Enabled = blnEnabled
			End If
			If subCtl.HasChildren Then SetMode(subCtl, mode)
		Next
	End Sub



	Private Sub TckbarVolume_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TckbarVolume.Scroll
		AxMediaPlayer1.Volume = TckbarVolume.Value * 10
	End Sub



	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		SetMode(Me, ModeEnum.OffMode)

		Dim fileName As String = "C:\lastStation.txt"
		Dim textLine As String = String.Empty
		Try
			If System.IO.File.Exists("C:\lastStation.txt") Then
				Dim reader As New System.IO.StreamReader(fileName)
				Do While reader.Peek() <> -1
					textLine += reader.ReadLine()
					textLine += Environment.NewLine()
				Loop
			Else
				textLine = "File not found!"
			End If
		Catch Ex As Exception
			textLine = Ex.Message
		End Try
		lblStationInfo.Text = textLine





		radioStations(0) = New Station("Classic Rock", "http://www.cfm.com", RadioBand.FM)
		radioStations(0).SongName = "c:\cwmusic\Kylie.mp3"

		radioStations(1) = New Station("Carly's Test", "http://www.cfm.com", RadioBand.AM)
		radioStations(1).SongName = "c:\cwmusic\Snowpatrol.mp3"

		radioStations(2) = New Station("Carly's Test Station2", "http://www.cfm.com", RadioBand.FM)
		radioStations(2).SongName = "c:\cwmusic\Kylie.mp3"






	End Sub





	Private Sub btnScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScan.Click
		AxMediaPlayer1.Mute = True
		Dim oForm As New Form2
		oForm.ShowDialog()
		AxMediaPlayer1.Mute = False
	End Sub


	Private Sub btnMute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMute.Click
		If AxMediaPlayer1.Mute Then
			AxMediaPlayer1.Mute = False
		Else
			AxMediaPlayer1.Mute = True
		End If
	End Sub

	Private Sub radiobtnAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiobtnAM.CheckedChanged
		If radiobtnAM.Checked Then
			Module1.AM = True
		Else
			Module1.AM = False
		End If
	End Sub



	Private Sub radiobtnFM_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radiobtnFM.CheckedChanged
		If radiobtnFM.Checked Then
			Module1.AM = False
		Else
			Module1.AM = True
		End If
	End Sub


	Private Sub Station1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Station1.Click
		AxMediaPlayer1.FileName = "c:\cwmusic\Ronan.mp3"
		lblStationInfo.Text = radioStations(0).ToString()
	End Sub

	Private Sub Station2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Station2.Click
		AxMediaPlayer1.FileName = "c:\cwmusic\Snowpatrol.mp3"
		lblStationInfo.Text = radioStations(1).ToString()

	End Sub

	Private Sub station3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles station3.Click
		AxMediaPlayer1.FileName = "c:\cwmusic\Kylie.mp3"
		lblStationInfo.Text = radioStations(2).ToString()
	End Sub

	Public Class Station
		Private InfoText As String
		Private URL As String
		Private Band As RadioBand


		Private song As String

		Public Sub New()
		End Sub

		Public Sub New(ByVal InfoText As String, _
		 ByVal URL As String, _
		ByVal Band As RadioBand)
			Me.InfoText = InfoText
			Me.URL = URL
			Me.Band = Band
		End Sub

		Public Property SongName()
			Get
				Return song
			End Get
			Set(ByVal value)
				song = value
			End Set
		End Property

		Public Overrides Function ToString() As String
			Return Me.InfoText
		End Function
	End Class


	Public Enum RadioBand
		FM = 0
		AM = 1
	End Enum

End Class






And Form2:




Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
		Timer1.Enabled = False
		AxMediaPlayer1.FileName = ""
		Me.Close()
	End Sub

	Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


		Dim fileName As String = "C:\yourLocation.txt"
		Dim textLine As String = String.Empty
		Try
			If System.IO.File.Exists("C:\yourLocation.txt") Then
				Dim reader As New System.IO.StreamReader(fileName)
				Do While reader.Peek() <> -1
					textLine += reader.ReadLine()
					textLine += Environment.NewLine()
				Loop
			Else
				textLine = "File not found!"
			End If
		Catch Ex As Exception
			textLine = Ex.Message
		End Try
		lblStationInfo.Text = textLine

	End Sub


	Private Sub scrollbarStations_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles scrollbarStations.ValueChanged
		Select Case scrollbarStations.Value

			Case 1
				If Module1.AM Then
					lblStationInfo.Text = "First Radio  2345 MW"
					AxMediaPlayer1.FileName = "c:\cwmusic\Kylie.mp3"
				Else
					lblStationInfo.Text = "Testing Radio  2335 FM"
					AxMediaPlayer1.FileName = "c:\cwmusic\Robyn.mp3"
				End If
			Case 2

				lblStationInfo.Text = "Second Radio   6654 MW"
				AxMediaPlayer1.FileName = "c:\cwmusic\Cascada.mp3"

			Case 3

				lblStationInfo.Text = "Third Radio	7563 MW"
				AxMediaPlayer1.FileName = "c:\cwmusic\Nickleback.mp3"


		End Select

	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		If scrollbarStations.Value < scrollbarStations.Maximum Then
			scrollbarStations.Value = scrollbarStations.Value + 1
		End If
	End Sub

	Private Sub radiobtnAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiobtnAM.CheckedChanged



		If radiobtnAM.Checked Then

			Module1.AM = True

		Else

			Module1.AM = False

		End If



	End Sub



	Private Sub radiobtnFM_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles radiobtnFM.CheckedChanged



		If radiobtnFM.Checked Then

			Module1.AM = False

		Else

			Module1.AM = True

		End If



	End Sub



	Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
		Timer1.Enabled = False
		Select Case scrollbarStations.Value

			Case 1
				lblStationInfo.Text = "Test for Form1&2   6654 MW"
				AxMediaPlayer1.FileName = "c:\cwmusic\Cascada.mp3"
				Me.Close()
		End Select
	End Sub
End Class












Please Someone out there, please help me, im extremely stuck and desperate...i dont even know whats being asked for now...please help!!!

Is This A Good Question/Topic? 0
  • +

Replies To: totally screwed up project-please help!

#2 Sonic88   User is offline

  • D.I.C Head

Reputation: 3
  • View blog
  • Posts: 166
  • Joined: 19-February 08

Re: totally screwed up project-please help!

Posted 23 April 2008 - 07:14 AM

I will take a crack at this at lunch.
Was This Post Helpful? 0
  • +
  • -

#3 carlysarah   User is offline

  • New D.I.C Head

Reputation: 1
  • View blog
  • Posts: 49
  • Joined: 03-April 08

Re: totally screwed up project-please help!

Posted 23 April 2008 - 07:33 AM

Really? OMG, i would appreciate it more than anything in the world if you gave me any help, i really would, i cant tell you how much i need this working by next week!

Thank you in advance!!!!
Was This Post Helpful? 0
  • +
  • -

#4 Jayman   User is offline

  • Student of Life
  • member icon

Reputation: 423
  • View blog
  • Posts: 9,532
  • Joined: 26-December 05

Re: totally screwed up project-please help!

Posted 23 April 2008 - 08:28 AM

Describe where specifically you are stuck in your assignment.
Was This Post Helpful? 0
  • +
  • -

#5 carlysarah   User is offline

  • New D.I.C Head

Reputation: 1
  • View blog
  • Posts: 49
  • Joined: 03-April 08

Re: totally screwed up project-please help!

Posted 23 April 2008 - 08:35 AM

View Postjayman9, on 23 Apr, 2008 - 08:28 AM, said:

Describe where specifically you are stuck in your assignment.


well the entire thing now really.

I am supposed to have 2 parts..."(1) the windows component library and (2) the windows application. The component is essentially a simulation of the radio tuner and the application is the user interface. The idea is you create the component & compile it into a .dll file and import it into the vb toolbar. You then create the application and drag the component on to it and program the interface."

i dont have 2 parts to my project and i have absolutely no idea what it is that im supposed to have...the user interface is what the user sees, right? where they actually use the system
and i assumed the component was just the code that actually makes the system work-all the methods and classes etc that actually make the program do stuff

and i thought this was all that was wanted, though i was wrong. its as above, and i dont understand exactly what is needed and what i am supposed to be doing. Very confused!
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1