[RESOLVED] Question in IF STATEMENT

[phatus]

im adding a 3 o'clock habit in my program every 3 pm in the computer clock an automatic voice will speak here is my code

my code in Hour Label

lblhr.Caption = Format$(Now, "hh:mm:ss AM/PM")

this will be put in my Form_Load

If lblhr.caption=3:00:00 pm then
             
             Dim app_path As String
                  app_path = App.Path
             
             If Right$(app_path, 1) <> "\" Then
                      app_path = app_path & "\"
                           txtmusic.Text = app_path & "3oclockhabit.wav"
                  With mmcplayer
                      .Filename = txtmusic.text
                          .Command = "open"
                             .Command = "play"
                   End With
             End If

         End If

my problem is in the highlighted color what will i put... thanx

[ThEiMp]

Try this:

If lblhr.Caption = "3:00:00 pm" Then

[ThEiMp]

If you want a talking voice, then get a text to speech activex control object, that you can get from a control dealer on the internet. You must pay for this one, because it's quite a big deal control to have...

[phatus]

ok sir thanx ill try....

[Siddharth Rout]

Since you are using "hh:mm:ss AM/PM" then "hh" will give you "03" for "3" and "pm" will be "PM". So to do an exact comparison, you might want to use this?

If lblhr.Caption = "03:00:00 PM" Then

You can also use LCase/Ucase to take care of case sensitivity as well.

[phatus]

something wrong with my code its not auto playing.... heres what i did

in my Form_Load

'playing sound
Dim app_path As String
    app_path = App.Path
        If Right$(app_path, 1) <> "\" Then
            app_path = app_path & "\"
            txtmusic.Text = app_path & "Prayer.wav"
        End If
        
With MMControl1
    .Notify = False
        .Wait = True
            .Shareable = False
                .Command = "close"
End With


If lblhr.Caption = "03:00:00 pm" Then
     With MMControl1
                
                .FileName = txtmusic.Text
                    .Command = "open"
                      .Command = "play"
                                     
  End With
End If

the prayer.wav is in my folder where my exe is located.... whats wrong with this code it must autoplay every 3pm.... but when the clock is already 3 pm it will not auto play..
thanks for the help

[Siddharth Rout]

Try and debug the line

mmcplayer.FileName = txtmusic2.Text

What is the value of txtmusic2.Text when you debug it?

I see you are calling this in the Form Load Event. You have to use a Timer to repeatedly check for the time match.

[jggtz]

It will be very uneasy that the form loads at 3:00:00 exactly
You need to develop another aproach
... or use another event...

[ThEiMp]

Try a Timer Bomb program, that executes on an event and timer. Timer exactly might be when the computer machine is off, and then what will happen then, so to speak???

[phatus]

@koolskid the value of txtmusic2 when i ran it is the location of the prayer.wav

@jggtz actually the form load or open at 8:00 am every day, i tried to put it in click event but it will be a additional work to our assign officer to click the button to play the prayer every 3pm so what i want is just it will auto play every 3 pm, i think and not sure if my argument is correct

kindly check my project i attached it..

http://www.mediafire.com/?iqy84ttz2y0a4qx
its in ZIP
thank you..

i have a timer here is my code in my timer

Private Sub Timer1_Timer()
lblhr.Caption = Format$(Now, "hh:mm:ss AM/PM")
End Sub

and this is for my time to show in my lblhr caption

Timer1.interval=200

[ThEiMp]

It sounds okay, if it's not a virus or malicious source coded program that we're doing, right???

[Siddharth Rout]

@Phatus: As I suggested in post 7, you have to use a timer to check for the time. Search VB Forums. There are plenty of examples which show how a timer works

[phatus]

no its not a virus or a malicious source coded..... my intention is to add this feature in my Service Number System it was sugegsted to me that it is better to have a 3oclock habit prayer that auto play every 3pm in the afternoon....

[phatus]

@koolskid is my timer wrong in my post no. 10 or i need to add another timer? sorry in just a beginner and this is my first project

here is my Service Number System


and when 3 oclock i want to auto play the 3oclock prayer....

[Siddharth Rout]

Lemme get access to a pc which has vb6 and then I will get back to you on this thread in case anyone else doesn't get back to you...

BTW it is not koolskid

[ThEiMp]

Try this to check the Time, using the Timer1 events, which you have to try using in an .Enabled = True Timer Control, try naming like what I have given it, because that way if you have multipuls of Timer Controls then you can then keep track of all of them. And then name everything else, like cmdOK for a CommandButton, etc...

Timer1.Interval = Time

This type of Source Code isn't working right, so then add in a TextBox and then check both the Timer and then convert the .Intervals to seconds, rememeber that 1000ms equals a total of one second, in general time speaking forms...

[phatus]

@ TheEiMp "so then add in a TextBox and then check both the Timer and then convert the .Intervals to seconds, rememeber that 1000ms equals a total of one second, in general time speaking forms..."

can u give me sample of a code so that i can understand.. ty

[ladoo]

  
            txtmusic.Text = App.Path & "\Prayer.wav"

        
With MMControl1
    .Notify = False
        .Wait = True
            .Shareable = False
                .Command = "close"
End With


If lblhr.Caption = "03:00:00 PM" Then
     With MMControl1
                
                .FileName = txtmusic.Text
                    .Command = "open"
                      .Command = "play"
                                     
  End With
End If

or


[CODE]If InStr(Label1.Caption, "03:00:00") Then

txtmusic.Text = App.Path & "\3oclockhabit.wav"

With mmcplayer
.Filename = txtmusic.text
.Command = "open"
.Command = "play"
End With
End If

End If

this will play it as long your time format is same 03:00:00

please attach ur source thanks..


also if u cant attach source tell us the label name for the time


also do this

for accurate results

instead of using timer lable use text1.text

and try this code

text1.text = 03:00:00

If InStr(Text1.Text, "3") Then
MsgBox "alert play azan"
End If

so u gona be doing this

If InStr(Text1.Text, "03:00:00") Then
txtmusic.Text = App.Path & "\3oclockhabit.wav"
                          
                  With mmcplayer
                      .Filename = txtmusic.text
                          .Command = "open"
                             .Command = "play"
                   End With
             End If

         End If

bare in mind your using text1.text as timer not lable

it works

[phatus]

  
            txtmusic.Text = App.Path & "\Prayer.wav"

        
With MMControl1
    .Notify = False
        .Wait = True
            .Shareable = False
                .Command = "close"
End With


If lblhr.Caption = "03:00:00 pm" Then
     With MMControl1
                
                .FileName = txtmusic.Text
                    .Command = "open"
                      .Command = "play"
                                     
  End With
End If

or

If InStr(Label1.Caption, "03:00:00") Then
             
             txtmusic.Text = App.Path & "\3oclockhabit.wav"
                          
                  With mmcplayer
                      .Filename = txtmusic.text
                          .Command = "open"
                             .Command = "play"
                   End With
             End If

         End If

this will play it as long your time format is same 03:00:00

i tried the code you given but its not playing when the time is 3:00 pm.... maybe sir your can test it, i attached my project in my post no. 10

[ladoo]

sorry u didnt try my code , i can be blinded and tell u didnt so admit it us all putting effort to help u coding it and u there not trying the code out



reasons why it didnt work


old code i downloaded from your source

Private Sub Form_Load()
Timer1.Interval = 200

Dim app_path As String
    app_path = App.Path
        If Right$(app_path, 1) <> "\" Then
            app_path = app_path & "\"
                txtmusic.Text = app_path & "prayer.wav"
        End If
        
With MMControl1
    .Notify = False
        .Wait = True
            .Shareable = False
                .Command = "close"
End With

If lblhr.Caption = "03:00:00 pm" Then
     With MMControl1
                 .FileName = txtmusic.Text
                    .Command = "open"
                      .Command = "play"
                                     
  End With
End If
End Sub

Private Sub Timer1_Timer()
lblhr.Caption = Format$(Now, "hh:mm:ss AM/PM")
End Sub

fixed code

Private Sub Form_Load()
Timer1.Interval = 200
Dim app_path As String
    app_path = App.Path
        If Right$(app_path, 1) <> "\" Then
            app_path = app_path & "\"
                txtmusic.Text = app_path & "prayer.wav"
        End If
        
With MMControl1
    .Notify = False
        .Wait = True
            .Shareable = False
                .Command = "close"
End With

End Sub

Private Sub Timer1_Timer()
Text3.Text = Format$(Now, "hh:mm:ss AM/PM")
If InStr(Text3.Text, Text1.Text) Then
     With MMControl1
                 .FileName = txtmusic.Text
                    .Command = "open"
                      .Command = "play"
                                     
  End With
End If
End Sub

or

Private Sub Form_Load()
Timer1.Interval = 200
txtmusic.Text = App.Path & "\3oclockhabit.wav"
        
With MMControl1
    .Notify = False
        .Wait = True
            .Shareable = False
                .Command = "close"
End With

End Sub

Private Sub Timer1_Timer()
Text3.Text = Format$(Now, "hh:mm:ss AM/PM")
If InStr(Text3.Text, Text1.Text) Then
     With MMControl1
                 .FileName = txtmusic.Text
                    .Command = "open"
                      .Command = "play"
                                     
  End With
End If
End Sub

i removed your .wav file just re add it in folder so it dont take me time to upload

download
http://www.sendspace.com/file/u98aft



please next time if poeple paste there code try it dont be lazy

[phatus]

@ladoo whats this for InStr sir? is it a variable or string? im trying it sir sorry for not getting it im just begginer here i studied vb6 every sat bud i didnt finish it, thats why i dont have much knowledge in coding.....

thank you ill tyr to understand how it works....

[ladoo]

instr meaning deep inner search for the value we looking for

instr searches forward >>>> demotext

instrrev searches for value backwards demotext <<<<<

our value we searching for in this demo is o it will find it aether way


instr is good to do indepth search for a value in a string


say

text1.text = "text1"
text2.text = "text2"
If text1.Text = text2.Text Then
' it means here is if text1 matches text 2 then its a match we found our value
End If

this will not not find the string u looking for it will not match

but if we use

if instr(text1.text,"ext1") then
'match found , our value found
end if

sorry poor english

[phatus]

ok sir thank you for the help... im looking at it now....

[ladoo]

read post 22 i edited about instr hope u get it now

[Doogle]

Has anyone read Posts #5 and #8?

If you're dealing with Dates / Times why not use the variable Types and Functions associated with them ? Also, the Timer in VB6 is not particularly accurate and by 3:00PM it might not trigger until 3:01 in which case the sound will not be heard because all the code posted so far is looking for an exact match.
Set the Timer Interval to 1 Second (1000)

Private Sub Timer1_Timer()
'
' Add one second to the current time
' if the result is greater than 3PM then play the sound
'
If DateAdd("s", 1, Now) > CDate(Format(Now, "dd/mm/yyyy") & " 15:00:00") Then
     With MMControl1
        .FileName = txtmusic.Text
        .Command = "open"
        .Command = "play"
    End With
End If
End Sub

[Bonnie West]

If DateAdd("s", 1, Now) > CDate(Format(Now, "dd/mm/yyyy") & " 15:00:00") Then

I think it can be simplified like:

If Time >= #3:00:00 PM# Then

[Doogle]

@Bonnie - even better

[phatus]

@ladoo yes i understand it now thanx for that information...

@Doogle the solution given by sir ladoo is working by capturing the time at 03:00:00 PM it automatically play, and yes i read the post no. 5 and 8...

i was thinking another option before sir ladoo's solution was to make a button to play the wav file and call it when it falls to 03:00:00 PM but it didnt work, by your suggestion and help, im increasing my knowledge in coding...

thank you again fot the help and sorry for my english....

[ThEiMp]

Timer1.Interval = Timer1.Interval / 1000
Text1.Text = Timer1. Interval

[ladoo]

put this in button

With MMControl1
.FileName = txtmusic.Text
.Command = "open"
.Command = "play"

End With

[ThEiMp]

I think that the OP was about an If statement, in which this Thread was titled as???
So then where is the If statement that we should be coding???

[phatus]

@ThEiMp the if statement had been change to another possible solution sir... and it is already resolve..

thanx...

[ThEiMp]

-- So sorry for the mix up then...