I'm trying to make what I thought was a simple metronome.

I have a userform with a scroll bar and a toggle button

The toggle buttonn is for the start stop. the scroll bar is for the time
value in between taps.

right now it is working when I start it but then I cannot click on the
toggle button again to get it to stop, or click on the scroll bar to change
the tempo value.

How can I run a loop and stiil be able to click on a button on the user form?


Here is my code...

Private Sub ToggleButton1_Click()
Do While ToggleButton1.Value = True
Sleep ScrollBar1.Value
Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
Loop
End Sub

Thanks
Kevin

Try using modeless:
UserForm1.Show vbModeless
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"Kevin" wrote:

> I'm trying to make what I thought was a simple metronome.
>
> I have a userform with a scroll bar and a toggle button
>
> The toggle buttonn is for the start stop. the scroll bar is for the time
> value in between taps.
>
> right now it is working when I start it but then I cannot click on the
> toggle button again to get it to stop, or click on the scroll bar to change
> the tempo value.
>
> How can I run a loop and stiil be able to click on a button on the user form?
>
>
> Here is my code...
>
> Private Sub ToggleButton1_Click()
> Do While ToggleButton1.Value = True
> Sleep ScrollBar1.Value
> Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> Loop
> End Sub
>
> Thanks
> Kevin
>
>
>

I always use Ctl + Break, but then I am old fashioned. Obviouly I don't know
of a way to break a loop with a button or any other type control without
entering break mode, or doing a hard stop with Ctl + Alt + Delete. But I
never claimed to be a genius at this stuff either.

"Kevin" wrote:

> I'm trying to make what I thought was a simple metronome.
>
> I have a userform with a scroll bar and a toggle button
>
> The toggle buttonn is for the start stop. the scroll bar is for the time
> value in between taps.
>
> right now it is working when I start it but then I cannot click on the
> toggle button again to get it to stop, or click on the scroll bar to change
> the tempo value.
>
> How can I run a loop and stiil be able to click on a button on the user form?
>
>
> Here is my code...
>
> Private Sub ToggleButton1_Click()
> Do While ToggleButton1.Value = True
> Sleep ScrollBar1.Value
> Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> Loop
> End Sub
>
> Thanks
> Kevin
>
>
>

What you can do is either set a limit with a counter or use the OnTime method
to turn it off.

"Kevin" wrote:

> I'm trying to make what I thought was a simple metronome.
>
> I have a userform with a scroll bar and a toggle button
>
> The toggle buttonn is for the start stop. the scroll bar is for the time
> value in between taps.
>
> right now it is working when I start it but then I cannot click on the
> toggle button again to get it to stop, or click on the scroll bar to change
> the tempo value.
>
> How can I run a loop and stiil be able to click on a button on the user form?
>
>
> Here is my code...
>
> Private Sub ToggleButton1_Click()
> Do While ToggleButton1.Value = True
> Sleep ScrollBar1.Value
> Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> Loop
> End Sub
>
> Thanks
> Kevin
>
>
>

I did try modeless with no luck. mayber there is a different way to go about
this...
What I want to happen is to get a tap sound every millisecond that is
defined by the scroll bar value.
I would like to be able to change the scroll bar value as its tapping and
have it increase or decrease accordingly. And of course start and stop when
the button is clicked. Is there some way better than a simple loop to do
this?

Thanks again,
Kevin


"JLGWhiz" wrote:

> What you can do is either set a limit with a counter or use the OnTime method
> to turn it off.
>
> "Kevin" wrote:
>
> > I'm trying to make what I thought was a simple metronome.
> >
> > I have a userform with a scroll bar and a toggle button
> >
> > The toggle buttonn is for the start stop. the scroll bar is for the time
> > value in between taps.
> >
> > right now it is working when I start it but then I cannot click on the
> > toggle button again to get it to stop, or click on the scroll bar to change
> > the tempo value.
> >
> > How can I run a loop and stiil be able to click on a button on the user form?
> >
> >
> > Here is my code...
> >
> > Private Sub ToggleButton1_Click()
> > Do While ToggleButton1.Value = True
> > Sleep ScrollBar1.Value
> > Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> > Loop
> > End Sub
> >
> > Thanks
> > Kevin
> >
> >
> >

I have never reallly thought about that aspect before, but I do have some
loops that change font size and color on a random basis. However, these are
ran to a fixed limit of loops with a counter or length of text, etc. Here is
a clunge job that allows you to change the frequency of the beep by changing
the delay time. I started with a value of 2 in cell B2 and changed it to 10,
5 , 1 and 0 to see if I could detect the tempo change and it seemed to work.
Maybe you can adapt it to your situation.



"Kevin" wrote:

> I did try modeless with no luck. mayber there is a different way to go about
> this...
> What I want to happen is to get a tap sound every millisecond that is
> defined by the scroll bar value.
> I would like to be able to change the scroll bar value as its tapping and
> have it increase or decrease accordingly. And of course start and stop when
> the button is clicked. Is there some way better than a simple loop to do
> this?
>
> Thanks again,
> Kevin
>
>
> "JLGWhiz" wrote:
>
> > What you can do is either set a limit with a counter or use the OnTime method
> > to turn it off.
> >
> > "Kevin" wrote:
> >
> > > I'm trying to make what I thought was a simple metronome.
> > >
> > > I have a userform with a scroll bar and a toggle button
> > >
> > > The toggle buttonn is for the start stop. the scroll bar is for the time
> > > value in between taps.
> > >
> > > right now it is working when I start it but then I cannot click on the
> > > toggle button again to get it to stop, or click on the scroll bar to change
> > > the tempo value.
> > >
> > > How can I run a loop and stiil be able to click on a button on the user form?
> > >
> > >
> > > Here is my code...
> > >
> > > Private Sub ToggleButton1_Click()
> > > Do While ToggleButton1.Value = True
> > > Sleep ScrollBar1.Value
> > > Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> > > Loop
> > > End Sub
> > >
> > > Thanks
> > > Kevin
> > >
> > >
> > >

P.S. The delay is in seconds.

"Kevin" wrote:

> I did try modeless with no luck. mayber there is a different way to go about
> this...
> What I want to happen is to get a tap sound every millisecond that is
> defined by the scroll bar value.
> I would like to be able to change the scroll bar value as its tapping and
> have it increase or decrease accordingly. And of course start and stop when
> the button is clicked. Is there some way better than a simple loop to do
> this?
>
> Thanks again,
> Kevin
>
>
> "JLGWhiz" wrote:
>
> > What you can do is either set a limit with a counter or use the OnTime method
> > to turn it off.
> >
> > "Kevin" wrote:
> >
> > > I'm trying to make what I thought was a simple metronome.
> > >
> > > I have a userform with a scroll bar and a toggle button
> > >
> > > The toggle buttonn is for the start stop. the scroll bar is for the time
> > > value in between taps.
> > >
> > > right now it is working when I start it but then I cannot click on the
> > > toggle button again to get it to stop, or click on the scroll bar to change
> > > the tempo value.
> > >
> > > How can I run a loop and stiil be able to click on a button on the user form?
> > >
> > >
> > > Here is my code...
> > >
> > > Private Sub ToggleButton1_Click()
> > > Do While ToggleButton1.Value = True
> > > Sleep ScrollBar1.Value
> > > Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> > > Loop
> > > End Sub
> > >
> > > Thanks
> > > Kevin
> > >
> > >
> > >

Probably would help if I posted the code also. It will not work at less than
one second, apparently because there is not enough time in the DoEvents to
proocess the allow the change to process.

Sub freq()
Dim i As Long, s As Double
i = Range("B2").Value
Do Until counter = 30
If i <> Range("B2").Value Then
i = Range("B2").Value
End If
Beep
s = Timer + i
Do While Timer < s
DoEvents
Loop
Beep
Loop
End Sub


"Kevin" wrote:

> I did try modeless with no luck. mayber there is a different way to go about
> this...
> What I want to happen is to get a tap sound every millisecond that is
> defined by the scroll bar value.
> I would like to be able to change the scroll bar value as its tapping and
> have it increase or decrease accordingly. And of course start and stop when
> the button is clicked. Is there some way better than a simple loop to do
> this?
>
> Thanks again,
> Kevin
>
>
> "JLGWhiz" wrote:
>
> > What you can do is either set a limit with a counter or use the OnTime method
> > to turn it off.
> >
> > "Kevin" wrote:
> >
> > > I'm trying to make what I thought was a simple metronome.
> > >
> > > I have a userform with a scroll bar and a toggle button
> > >
> > > The toggle buttonn is for the start stop. the scroll bar is for the time
> > > value in between taps.
> > >
> > > right now it is working when I start it but then I cannot click on the
> > > toggle button again to get it to stop, or click on the scroll bar to change
> > > the tempo value.
> > >
> > > How can I run a loop and stiil be able to click on a button on the user form?
> > >
> > >
> > > Here is my code...
> > >
> > > Private Sub ToggleButton1_Click()
> > > Do While ToggleButton1.Value = True
> > > Sleep ScrollBar1.Value
> > > Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> > > Loop
> > > End Sub
> > >
> > > Thanks
> > > Kevin
> > >
> > >
> > >

Duh, ok one little piece was missing out of my code and I didn't catch it in
any of your examples either... Finally caught my eye in the help menu under
timer.. :-)

"DoEvents"

When I put that intot he code I had it then yoelds to other process like
clicking the start/stop button or changing the scroll bar value...


Private Sub ToggleButton1_Click()
Do While ToggleButton1.Value = True
DoEvents
Sleep ScrollBar1.Value
Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
Loop
End Sub


"JLGWhiz" wrote:

> Probably would help if I posted the code also. It will not work at less than
> one second, apparently because there is not enough time in the DoEvents to
> proocess the allow the change to process.
>
> Sub freq()
> Dim i As Long, s As Double
> i = Range("B2").Value
> Do Until counter = 30
> If i <> Range("B2").Value Then
> i = Range("B2").Value
> End If
> Beep
> s = Timer + i
> Do While Timer < s
> DoEvents
> Loop
> Beep
> Loop
> End Sub
>
>
> "Kevin" wrote:
>
> > I did try modeless with no luck. mayber there is a different way to go about
> > this...
> > What I want to happen is to get a tap sound every millisecond that is
> > defined by the scroll bar value.
> > I would like to be able to change the scroll bar value as its tapping and
> > have it increase or decrease accordingly. And of course start and stop when
> > the button is clicked. Is there some way better than a simple loop to do
> > this?
> >
> > Thanks again,
> > Kevin
> >
> >
> > "JLGWhiz" wrote:
> >
> > > What you can do is either set a limit with a counter or use the OnTime method
> > > to turn it off.
> > >
> > > "Kevin" wrote:
> > >
> > > > I'm trying to make what I thought was a simple metronome.
> > > >
> > > > I have a userform with a scroll bar and a toggle button
> > > >
> > > > The toggle buttonn is for the start stop. the scroll bar is for the time
> > > > value in between taps.
> > > >
> > > > right now it is working when I start it but then I cannot click on the
> > > > toggle button again to get it to stop, or click on the scroll bar to change
> > > > the tempo value.
> > > >
> > > > How can I run a loop and stiil be able to click on a button on the user form?
> > > >
> > > >
> > > > Here is my code...
> > > >
> > > > Private Sub ToggleButton1_Click()
> > > > Do While ToggleButton1.Value = True
> > > > Sleep ScrollBar1.Value
> > > > Application.Run "tap" ' Plays C:\WINDOWS\Media\start.Wav
> > > > Loop
> > > > End Sub
> > > >
> > > > Thanks
> > > > Kevin
> > > >
> > > >
> > > >