Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
during a loop
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
returning back to loop check condition without completing the loop | Excel Programming | |||
Loop to Filter, Name Sheets. If Blank, Exit Loop | Excel Programming | |||
Naming Worksheets - Loop within a loop issue | Excel Programming | |||
(Complex) Loop within loop to create worksheets | Excel Programming | |||
Advancing outer Loop Based on criteria of inner loop | Excel Programming |