Very, very, very new user needs help.

[Jack Sadie]

I am using Windows XP and I have found out how to substitute my own wav
sound for the Microsoft default sound when my computer starts, but now I
want to go a step further. I have created 7 different wave files

(C:\Start sound\day1.wav to C:\Start sound\day7.wav respectively)

and want to have a different one open according to the day of the week - the
"day1.wav" opening on Mondays and the "day2.wav" on Tuesdays and so on.

I have downloaded Visual Basic Express edition but I need to have a routine
created which I don't have the expertise to do.
I was very kindly given the following routine in a VB6 ng but because it
won't work in the Express Edition, they advised me to try a dotnet group for
the correct code. I have included it below because it just might be easily
amended by someone who is familiar but it may need to be completely
re-composed.

Can any kind person assist or point me in the right direction if this is the
wrong ng.
Thanks so much.
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Long) As Long
Dim myDate As String

Private Sub Form_Load()

myDate = Format(Now, "dddd")
Debug.Print myDate
Select Case myDate
Case "Monday"
Call sndPlaySound("C :\start sound\day1.wav" , 1)
Case "Tuesday"
Call sndPlaySound("C :\start sound\day2.wav" , 1)
Case "Wednesday"
Call sndPlaySound("C :\start sound\day3.wav" , 1)
Case "Thursday"
Call sndPlaySound("C :\start sound\day4.wav" , 1)
Case "Friday"
Call sndPlaySound("C :\start sound\day5.wav" , 1)
Case "Saturday"
Call sndPlaySound("C :\start sound\day6.wav" , 1)
Case "Sunday"
Call sndPlaySound("C :\start sound\day7.wav" , 1)
End Select
End Sub
--
Regards, Jack Sadie
ja************@ yahooREMOVE.co. uk

[Cor Ligthert [MVP]]

Jack,

In VB 2005 there are more methods to play a wav file.

You can use DirectX
You can use My.Computer.Aud io.Play(fileNam e)
http://msdn2.microsoft.com/en-us/library/cf1shcah.aspx

You can do it in the way as you see in that VB6 sample, because that in VB6
a long is 32bits you have to change that "long in "Int32".

And there is even another method, I have to search for it, it comes not
direct in my mind, however because that I assume that you will use that
Audio.Play (because you should try to avoid using Win32 API's and DirectX is
the hard way to go), I don't do that.

I hope this helps,

Cor

[Armin Zingler]

"Jack Sadie" <ja*******@btin ternet.com> schrieb

I am using Windows XP and I have found out how to substitute my own
wav sound for the Microsoft default sound when my computer starts,
but now I want to go a step further. I have created 7 different wave
files

(C:\Start sound\day1.wav to C:\Start sound\day7.wav respectively)

and want to have a different one open according to the day of the
week - the "day1.wav" opening on Mondays and the "day2.wav" on
Tuesdays and so on.

I have downloaded Visual Basic Express edition but I need to have a
routine created which I don't have the expertise to do.
I was very kindly given the following routine in a VB6 ng but
because it won't work in the Express Edition, they advised me to try
a dotnet group for the correct code. I have included it below
because it just might be easily amended by someone who is familiar
but it may need to be completely re-composed.

Can any kind person assist or point me in the right direction if
this is the wrong ng.
Thanks so much.
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Long) As Long

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Integer) As Boolean

Dim myDate As String

Private Sub Form_Load()

myDate = Format(Now, "dddd")
Debug.Print myDate
Select Case myDate
Case "Monday"
Call sndPlaySound("C :\start sound\day1.wav" , 1)
Case "Tuesday"
Call sndPlaySound("C :\start sound\day2.wav" , 1)
Case "Wednesday"
Call sndPlaySound("C :\start sound\day3.wav" , 1)
Case "Thursday"
Call sndPlaySound("C :\start sound\day4.wav" , 1)
Case "Friday"
Call sndPlaySound("C :\start sound\day5.wav" , 1)
Case "Saturday"
Call sndPlaySound("C :\start sound\day6.wav" , 1)
Case "Sunday"
Call sndPlaySound("C :\start sound\day7.wav" , 1)
End Select
End Sub

Private Sub Form_Load()
dim day as integer
dim filename as string

day = Weekday(Now, FirstDayOfWeek. System)
filename = "C:\start sound\day" & day & ".wav"
sndPlaySound(fi lename, 1)

End Sub
Armin

[Herfried K. Wagner [MVP]]

"Jack Sadie" <ja*******@btin ternet.com> schrieb:

I am using Windows XP and I have found out how to substitute my own wav
sound for the Microsoft default sound when my computer starts, but now I
want to go a step further. I have created 7 different wave files

(C:\Start sound\day1.wav to C:\Start sound\day7.wav respectively)

Untested (requires .NET 2.0 (VS 2005)):

\\\
Imports System.Media
....
Dim FileName As String
Select Case Now.DayOfWeek
Case DayOfWeek.Monda y
FileName = "Monday.wav "
Case DayOfWeek.Tuesd ay
FileName = "Tuesday.wa v"
Case DayOfWeek.Wedne sday
...
Case DayOfWeek.Thurs day
...
Case DayOfWeek.Satur day
...
Case DayOfWeek.Sunda y
...
End Select
Dim Player As New SoundPlayer( _
Path.Combine(My .Application.In fo.DirectoryPat h, FileName) _
)
Player.Play()
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Armin Zingler]

"Armin Zingler" <az*******@free net.de> schrieb

day = Weekday(Now, FirstDayOfWeek. System)

Addition: Don't believe the online help to 'Weekday'. It says the return
value of Weekday is equal to the value of the FirstDayOfWeek enumeration.
That's wrong. If it was true, the return type of Weekday could be
FirstDayOfWeek, not Integer. Actually, Weekday returns the number of the day
in the week, i.e. 1 for the 1st day, 2 for the 2nd, 3 for the 3rd etc. If
Monday is the first day, it returns 1 for Monday. If Sunday is the first day
of the week, it returns 1 for Sunday.
Armin

[Jack Sadie]

THANKS TO ARMIN, COR AND HERFRIED.
I appreciate the trouble each of you has taken. I'm not certain I quite
understand how to employ (or deploy) any of your answers at this stage.
However I shall be experimenting and will report back in due course.
For starters in the meantime :-

Armin,
Sorry but I really am so newbie I don't even know where to start !

Do I just open a new project, click on View/code and enter the following
between "Public Class Form1" and " End Class":-

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Integer) As Boolean

Private Sub Form_Load()
dim day as integer
dim filename as string

day = Weekday(Now, FirstDayOfWeek. System)
filename = "C:\start sound\day" & day & ".wav"
sndPlaySound(fi lename, 1)

End Sub

After that what do I do?
(Are you sorry you started to help me!! =:>( "
--
Regards, Jack Sadie
ja************@ yahooREMOVE.co. uk
"Jack Sadie" <ja*******@btin ternet.com> wrote in message
news:wZ******** *************** *******@pipex.n et...

I am using Windows XP and I have found out how to substitute my own wav
sound for the Microsoft default sound when my computer starts, but now I
want to go a step further. I have created 7 different wave files

(C:\Start sound\day1.wav to C:\Start sound\day7.wav respectively)

and want to have a different one open according to the day of the week -
the "day1.wav" opening on Mondays and the "day2.wav" on Tuesdays and so
on.

I have downloaded Visual Basic Express edition but I need to have a
routine created which I don't have the expertise to do.
I was very kindly given the following routine in a VB6 ng but because it
won't work in the Express Edition, they advised me to try a dotnet group
for the correct code. I have included it below because it just might be
easily amended by someone who is familiar but it may need to be completely
re-composed.

Can any kind person assist or point me in the right direction if this is
the wrong ng.
Thanks so much.
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Long) As Long
Dim myDate As String

Private Sub Form_Load()

myDate = Format(Now, "dddd")
Debug.Print myDate
Select Case myDate
Case "Monday"
Call sndPlaySound("C :\start sound\day1.wav" , 1)
Case "Tuesday"
Call sndPlaySound("C :\start sound\day2.wav" , 1)
Case "Wednesday"
Call sndPlaySound("C :\start sound\day3.wav" , 1)
Case "Thursday"
Call sndPlaySound("C :\start sound\day4.wav" , 1)
Case "Friday"
Call sndPlaySound("C :\start sound\day5.wav" , 1)
Case "Saturday"
Call sndPlaySound("C :\start sound\day6.wav" , 1)
Case "Sunday"
Call sndPlaySound("C :\start sound\day7.wav" , 1)
End Select
End Sub
--
Regards, Jack Sadie
ja************@ yahooREMOVE.co. uk

[Armin Zingler]

"Jack Sadie" <ja*******@btin ternet.com> schrieb

THANKS TO ARMIN, COR AND HERFRIED.
I appreciate the trouble each of you has taken. I'm not certain I
quite understand how to employ (or deploy) any of your answers at
this stage. However I shall be experimenting and will report back in
due course. For starters in the meantime :-

Armin,
Sorry but I really am so newbie I don't even know where to start !
You're welcome!
Do I just open a new project, click on View/code and enter the
following between "Public Class Form1" and " End Class":-

Yes - but leave the "Windows forms designer generated code" in place. ;)

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Integer) As Boolean

Private Sub Form_Load()
dim day as integer
dim filename as string

day = Weekday(Now, FirstDayOfWeek. System)
filename = "C:\start sound\day" & day & ".wav"
sndPlaySound(fi lename, 1)

End Sub

After that what do I do?
Start to see if it works. Did you try? Did it work? If not, was there an
error? If yes, when compiling or at run-time (errors @ run-time are called
'Exceptions' now). If you get an exception, what's the message?
(Are you sorry you started to help me!! =:>( "

No, I don't feel sorry. :-)
Armin

[Jack Sadie]

ok Armin
Entered the code. Couldn't see how to save it so I decided to close and it
then asked if I wanted to save, so I did so in the folder offered :-
F:\Visual Studio 2005\Projects\S tartSound Project\Start Sound Project.sln

I then shut down and re-started my computer but there was no sound played,
so I obviously haven't set up correctly yet.
I then re-opened the project and pressed F5, which I believe starts the
program running so that any errors are displayed. None showed, so I have
nothing to more to report.
Thanks for keeping with me.
--
Regards, Jack Sadie
ja************@ yahooREMOVE.co. uk
"Armin Zingler" <az*******@free net.de> wrote in message
news:uD******** ******@TK2MSFTN GP11.phx.gbl...

"Jack Sadie" <ja*******@btin ternet.com> schrieb

THANKS TO ARMIN, COR AND HERFRIED.
I appreciate the trouble each of you has taken. I'm not certain I
quite understand how to employ (or deploy) any of your answers at
this stage. However I shall be experimenting and will report back in
due course. For starters in the meantime :-

Armin,
Sorry but I really am so newbie I don't even know where to start !

You're welcome!

Do I just open a new project, click on View/code and enter the
following between "Public Class Form1" and " End Class":-

Yes - but leave the "Windows forms designer generated code" in place. ;)

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySou ndA" (ByVal FileName As String, _
ByVal Flags As Integer) As Boolean

Private Sub Form_Load()
dim day as integer
dim filename as string

day = Weekday(Now, FirstDayOfWeek. System)
filename = "C:\start sound\day" & day & ".wav"
sndPlaySound(fi lename, 1)

End Sub

After that what do I do?

Start to see if it works. Did you try? Did it work? If not, was there an
error? If yes, when compiling or at run-time (errors @ run-time are called
'Exceptions' now). If you get an exception, what's the message?

(Are you sorry you started to help me!! =:>( "

No, I don't feel sorry. :-)
Armin

[Armin Zingler]

"Jack Sadie" <ja*******@btin ternet.com> schrieb

I then shut down and re-started my computer but there was no sound
played, so I obviously haven't set up correctly yet.
Did you add your application to the autostart menu?
I then re-opened the project and pressed F5, which I believe starts
the program running so that any errors are displayed. None showed,
so I have nothing to more to report.
Thanks for keeping with me.

Change the line from
sndPlaySound(fi lename, 1)
to
Msgbox(sndPlayS ound(filename, 1))

Start the application again. Do you get a message saying "True" or "False"?

Armin

[Jack Sadie]

Tried to add application to start menu, but trouble is I don't really know
which file to add. Could it be one called WindowsApplicat ion1.vbproj ?
That's the one I used.

Changed line as requested - no message true or false.

Rebooted but still no sound. I think I may delete all and start again taking
more trouble to record file names and their location.
In any case I'm leaving London tomorrow for a couple of days to Stratford on
Avon to see some plays at the Shakespeare Theatre.
I'll post back on my return and, if you have no objection Armin (email me
if you would prefer no direct contact), will send an email to advise you at
that time.
Meanwhile Happy New Year to all.
--
Regards, Jack Sadie
ja************@ yahooREMOVE.co. uk
"Armin Zingler" <az*******@free net.de> wrote in message
news:uX******** ******@tk2msftn gp13.phx.gbl...

"Jack Sadie" <ja*******@btin ternet.com> schrieb

I then shut down and re-started my computer but there was no sound
played, so I obviously haven't set up correctly yet.

Did you add your application to the autostart menu?

I then re-opened the project and pressed F5, which I believe starts
the program running so that any errors are displayed. None showed,
so I have nothing to more to report.
Thanks for keeping with me.

Change the line from
sndPlaySound(fi lename, 1)
to
Msgbox(sndPlayS ound(filename, 1))

Start the application again. Do you get a message saying "True" or
"False"?

Armin