Dynamic Countdown Timer - vb.net

I have a program that uses countdown timers, it works but I am trying to do something new with this blender timer. It uses a NumericUpDown and is supposed to add 5 minutes for each value, 1 being 5 minutes and 2 being 10 minutes etc. I did find a way adding 5 minutes to BlenderCountDownFrom but when pressing the BlenderButton to stop it, it kept the new value. I am a complete novice and don't know what I am doing so the code is probably horrible! The actual countdown code I got from an example on the internet.
BlenderButton is both the start and stop for the countdown. It will use a "Set" button to program the amount of minutes from the NumericUpDown.
Dim BlenderCountDownFrom As New TimeSpan(0, 5, 1)
Dim BlenderStopwatch As New Stopwatch
Private Sub BlenderButton_Click(sender As Object, e As EventArgs) Handles BlenderButton.Click
If BlenderButton.Text = "Start" Then
BlenderTimer.Interval = 100
BlenderButton.Text = "Stop"
BlenderTimer.Start()
BlenderStopwatch.Reset()
BlenderStopwatch.Start()
Else
BlenderButton.Text = "Start"
My.Computer.Audio.Stop()
BlenderTimerLabel.BackColor = Color.White
BlenderTimer.Stop()
BlenderStopwatch.Stop()
BlenderTimerLabel.Text = ("00:05:00")
Me.MiscTab.Text = "Misc"
End If
End Sub
Private Sub BlenderTimer_Tick(sender As Object, e As EventArgs) Handles BlenderTimer.Tick
If BlenderStopwatch.Elapsed <= BlenderCountDownFrom Then
Dim toGo As TimeSpan = BlenderCountDownFrom - BlenderStopwatch.Elapsed
BlenderTimerLabel.Text = String.Format("{0:00}:{1:00}:{2:00}", toGo.Hours, toGo.Minutes, toGo.Seconds)
Else
BlenderTimer.Stop()
My.Computer.Audio.Play(My.Resources.Alarm.Blender, AudioPlayMode.BackgroundLoop)
Me.MiscTab.Text = "Alarm"
BlenderStopwatch.Stop()
BlenderTimerLabel.BackColor = Color.Red
End If
End Sub
Private Sub BlenderSetButton_Click(sender As Object, e As EventArgs) Handles BlenderSetButton.Click
If BlenderUpDown.Value = 1 Then
BlenderTimerLabel.Text = ("00:05:00")
End If
If BlenderUpDown.Value = 2 Then
BlenderTimerLabel.Text = ("00:10:00")
'This below doesn't work
Dim BlenderCountDownFrom As New TimeSpan(0, 10, 1)
End If
If BlenderUpDown.Value = 3 Then
BlenderTimerLabel.Text = ("00:15:00")
End If
If BlenderUpDown.Value = 4 Then
BlenderTimerLabel.Text = ("00:20:00")
End If
If BlenderUpDown.Value = 5 Then
BlenderTimerLabel.Text = ("00:25:00")
End If
End Sub

Related

How can I make a timer slower and slower until it stops?

Can someone tell me what's wrong or what I need to add to make it run the way that I want? I need to make it slower, then slower again, then make it stop.
Heres what I have tried:
Dim A As Integer
If Timer.Interval = 1 Then
A = Timer.Interval + 1000
If Timer.Interval = 1000 Then
Timer.Enabled = False
End If
End If
I want to stop the timer after a specific time but I have button 1 and 2 its random and stop, if I push the button random it will select any on given list then if I push stop the selection of random is going stop delay like spinning wheel, the missing on my program is the delay selection after a seconds its like selecting random then it will slowly selecting then it will stop.
Here's the btnRandom.Click event handler:
Private Sub btnRandom_Click(sender As Object, e As EventArgs) Handles btnRandom.Click
If lstList1.Items.Count <= 1 Then
MessageBox.Show("Name must more than 1 to run the randomizer.", "Error Loading", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
txtName.Enabled = False
btnRandom.Enabled = False
btnAdd.Enabled = False
btnRemove.Enabled = False
btnStop.Enabled = True
btnAdd.ForeColor = Color.FromArgb(64, 64, 64)
btnRemove.ForeColor = Color.FromArgb(64, 64, 64)
btnRandom.ForeColor = Color.FromArgb(64, 64, 64)
If btnRandom.Enabled = False Then
Timer2.Start()
lstList1.ClearSelected()
End If
End If
End Sub
And the Timer.Tick handler:
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If btnRandom.Enabled = True Then
Timer2.Enabled = False
End If
If btnRandom.Enabled = False Then
txtNameLabel.Text = lstList1.Items(Rnd() * (lstList1.Items.Count - 1))
lstList1.SelectedItem = txtNameLabel.Text
txtNameLabel.Text = lstList1.SelectedItem
End If
End Sub
If you want something to decelerate then you need to multiply the speed by a constant less than one, which in this case is equivalent to increasing the display time interval by a constant greater than one.
So, you can start something at one speed, and then add a deceleration by changing the amount the interval is changed by.
Something like this:
Public Class Form1
Dim sw As Stopwatch
Dim tim As Timer
Dim intervalMultiplier As Double = 1.0
Dim itemsToDisplay As List(Of String)
Dim itemIndex As Integer = 0
Private Sub tim_Tick(sender As Object, e As EventArgs)
' When intervalMultiplier > 1.0 the time between ticks will increase.
tim.Interval = CInt(tim.Interval * intervalMultiplier)
Label1.Text = itemsToDisplay(itemIndex)
If tim.Interval >= 1000 Then
tim.Stop()
End If
itemIndex = (itemIndex + 1) Mod itemsToDisplay.Count
End Sub
Private Sub StartTimer()
If tim Is Nothing Then
tim = New Timer()
AddHandler tim.Tick, AddressOf tim_Tick
End If
If sw Is Nothing Then
sw = Stopwatch.StartNew()
Else
sw.Restart()
End If
intervalMultiplier = 1.0
tim.Interval = 100
tim.Start()
End Sub
Private Sub bnStop_Click(sender As Object, e As EventArgs) Handles bnStop.Click
intervalMultiplier = 1.25
End Sub
Private Sub btnRandom_Click(sender As Object, e As EventArgs) Handles btnRandom.Click
' Your code to disable buttons etc. goes here.
StartTimer()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Set up some data for this example.
itemsToDisplay = New List(Of String) From {"Capacitor", "Diode", "Inductor", "Resistor", "Transistor"}
End Sub
End Class

Restarting image loop

So I'm doing a project for school and I have an image loop for my program with the code as follows
Dim Images(10) As Bitmap
Dim Pos As Integer = 0
Private Sub MainMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Inserting images from resources
Images(0) = GloriousGetaways.My.Resources.MM10
Images(1) = GloriousGetaways.My.Resources.MM1
Images(2) = GloriousGetaways.My.Resources.MM2
Images(3) = GloriousGetaways.My.Resources.MM3
Images(4) = GloriousGetaways.My.Resources.MM4
Images(5) = GloriousGetaways.My.Resources.MM5
Images(6) = GloriousGetaways.My.Resources.MM6
Images(7) = GloriousGetaways.My.Resources.MM7
Images(8) = GloriousGetaways.My.Resources.MM8
Images(9) = GloriousGetaways.My.Resources.MM9
'Puts the images into order
PictureBox1.Image = Images(Pos)
End Sub
Private Sub MainmenuSlideshowTimer_Tick(sender As Object, e As EventArgs) Handles MainmenuSlideshowTimer.Tick
'Starting the timer for the slideshow on main menu
MainmenuSlideshowTimer.Start()
'Setting the time between slides to 5 seconds
MainmenuSlideshowTimer.Interval = 5000
Pos = Pos + 1
If Pos < Images.Length - 1 Then
PictureBox1.Image = Images(Pos)
Else
Pos = Images.Length - 2
End If
End Sub
It works perfectly but the slideshow stops once it gets to the last image on the form. How would I make it so it continuously loops and restarts the slideshow from the first image once it gets to the last image. I'm not very advanced so I'm unsure.
Have a good day
Arrays in vb.net Are declared Images(UpperBound) As Type. So, Images(9).
GloriousGetaways.My.Resources.MM10 looks a bit strange. Are you sure you are getting the images you expect?
You want to check if Pos is greater than Images.Lenght -1 and reset to zero. Increment the Pos as the last line of the Tick event.
Dim Images(9) As Bitmap
Dim Pos As Integer
Private Sub MainMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Inserting images from resources
Images(0) = GloriousGetaways.My.Resources.MM10
Images(1) = GloriousGetaways.My.Resources.MM1
Images(2) = GloriousGetaways.My.Resources.MM2
Images(3) = GloriousGetaways.My.Resources.MM3
Images(4) = GloriousGetaways.My.Resources.MM4
Images(5) = GloriousGetaways.My.Resources.MM5
Images(6) = GloriousGetaways.My.Resources.MM6
Images(7) = GloriousGetaways.My.Resources.MM7
Images(8) = GloriousGetaways.My.Resources.MM8
Images(9) = GloriousGetaways.My.Resources.MM9
MainmenuSlideshowTimer.Interval = 5000
MainmenuSlideshowTimer.Start()
PictureBox1.Image = Images(Pos)
End Sub
Private Sub MainmenuSlideshowTimer_Tick(sender As Object, e As EventArgs) Handles MainmenuSlideshowTimer.Tick
If Pos > Images.Length - 1 Then
Pos = 0
End If
PictureBox1.Image = Images(Pos)
Pos += 1
End Sub

Visual Basic - start stopwatch for measuring overtime after a given amount of minutes

I'm starting my first steps into Visual Basic and trying to create sort of a stopwatch.
My design is the following:
The idea behind is to create a tool to support a debate. Persons gets a certain time (7 minutes) for presenting their topic and after that time there is room for interactive conversation (Q&A) set to 13 minutes. The idea is that after 7 minutes a buzzer sounds to stop the presenting time and go over to the interactive part. And after 20 minutes a 2nd stopwatch starts with a buzzer and a red flashing background to indicate that session needs to be terminated.
This is what I already got and I'm pretty shure it can be coded otherwise and maybe easier.
I already got it to the first working stopwatch but I don't get the rest working:
Public Class Form1
Private Hundredths As Integer = 0
Private Seconds As Integer = 0
Private Minutes As Integer = 0
Private Hours As Integer = 0
Private OvertimeHundredths As Integer = 0
Private OvertimeSeconds As Integer = 0
Private OvertimeMinutes As Integer = 0
Private OvertimeHours As Integer = 0
Private Sub StartBtn_Click(sender As Object, e As EventArgs) Handles StartBtn.Click
If Timer1.Enabled Then
Timer1.Stop()
StartBtn.Text = "START"
Return
End If
If Not Timer1.Enabled Then
Timer1.Start()
StartBtn.Text = "STOP"
Return
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Hundredths += 1
HundredthsTxB.Text = Hundredths.ToString
SecondsTxB.Text = Seconds.ToString
MinutesTxB.Text = Minutes.ToString
HoursTxB.Text = Hours.ToString
If Hundredths = 10 Then
Seconds += 1
Hundredths = 0
End If
If Seconds = 60 Then
Minutes += 1
Seconds = 0
End If
If Minutes = 60 Then
Hours += 1
Minutes = 0
End If
If Hours = 24 Then
Timer1.Stop()
End If
End Sub
Private Sub ResetBtn_Click(sender As Object, e As EventArgs) Handles ResetBtn.Click
Hundredths = 0
Seconds = 0
Minutes = 0
Hours = 0
HundredthsTxB.Text = Hundredths.ToString
SecondsTxB.Text = Seconds.ToString
MinutesTxB.Text = Minutes.ToString
HoursTxB.Text = Hours.ToString
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
OvertimeHundredths += 1
OvertimeHundredthsTxB.Text = OvertimeHundredths.ToString
OvertimeSecondsTxB.Text = OvertimeSeconds.ToString
OvertimeMinutesTxB.Text = OvertimeMinutes.ToString
OvertimeHoursTxB.Text = OvertimeHours.ToString
If OvertimeHundredths = 10 Then
OvertimeSeconds += 1
OvertimeHundredths = 0
End If
If OvertimeSeconds = 60 Then
OvertimeMinutes += 1
OvertimeSeconds = 0
End If
If OvertimeMinutes = 60 Then
OvertimeHours += 1
OvertimeMinutes = 0
End If
If OvertimeHours = 24 Then
Timer2.Stop()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Timer1.Interval = 2 Then
Timer2.Start()
End If
End Sub
End Class
So any help is welcome. Also I'm keen on learning on how other guru's are thinking and coding.
Instead of using timers, I would use a Stopwatch. This way there is less messing around adding numbers etc. The code below accomplishes what you want apart from sounding a buzzer as I'm presuming you want to implement it your own. It looks worse than it is, but seems to work ok. See code comments for a little explanation
Public Class Form1
Private PresentationTimer As New Stopwatch
Private InteractiveTimer As New Stopwatch
Private PresentationMinutes As Integer
Private InteractiveMinutes As Integer
'When this timer is enabled, it keeps track of the two stopwatches and checks
'that they're within the alloted time.
'
'When the presentation timer has expired, that one is stopped and the interactive
'timer is started
'
'When the interactive timer has expired, the timer for background flashing starts.
'To stop the flashing, click the reset button on the form
Private Sub UiUpdateTimer_Tick(sender As Object, e As EventArgs) Handles uiUpdateTimer.Tick
UpdateUI()
If PresentationTimer.IsRunning And IsTimeExpired(PresentationTimer, PresentationMinutes) Then
PresentationTimer.Stop()
InteractiveTimer.Start()
'add code here for buzzer to show end of presentation time
End If
If InteractiveTimer.IsRunning And IsTimeExpired(InteractiveTimer, InteractiveMinutes) Then
InteractiveTimer.Stop()
BackgroundFlashTimer.Enabled = True
'add code here for buzzer to show end of interactive time
StartBtn.Text = "START"
End If
End Sub
'checks if the timer passed as a parameter is expired by comparing
'the number of elapsed minutes with the number of minutes passed in
'the second parameter
Private Function IsTimeExpired(tmr As Stopwatch, mins As Integer) As Boolean
If tmr.Elapsed.Minutes >= mins Then
Return True
Else
Return False
End If
End Function
'simply updates all the textboxes with the stopwatch values.
Private Sub UpdateUI()
HundredthsTxB.Text = Int(PresentationTimer.Elapsed.Milliseconds / 10).ToString
SecondsTxB.Text = PresentationTimer.Elapsed.Seconds.ToString
MinutesTxB.Text = PresentationTimer.Elapsed.Minutes.ToString
HoursTxB.Text = PresentationTimer.Elapsed.Hours.ToString
OvertimeHundredthsTxB.Text = Int(InteractiveTimer.Elapsed.Milliseconds / 10).ToString
OvertimeSecondsTxB.Text = InteractiveTimer.Elapsed.Seconds.ToString
OvertimeMinutesTxB.Text = InteractiveTimer.Elapsed.Minutes.ToString
overtimeHoursTxB.Text = InteractiveTimer.Elapsed.Hours.ToString
End Sub
Private Sub StartBtn_Click(sender As Object, e As EventArgs) Handles StartBtn.Click
'if either timer is running, stop them both and exit this sub
If PresentationTimer.IsRunning Or InteractiveTimer.IsRunning Then
PresentationTimer.Stop()
InteractiveTimer.Stop()
StartBtn.Text = "START"
uiUpdateTimer.Enabled = False
Exit Sub
End If
'if the presentation timer hasn't run yet, check if the minutes values are
'valid and start it
If PresentationTimer.ElapsedMilliseconds = 0 Then
PresentationMinutes = CInt(Val(PresentationMinutesTxB.Text))
InteractiveMinutes = CInt(Val(InteractiveMinutesTxB.Text))
'if the minutes values are't valid show messagebox and exit this sub
If PresentationMinutes = 0 Or InteractiveMinutes = 0 Then
MessageBox.Show("Please enter valid Presentation and Interactive times.")
Exit Sub
End If
'if minutes values are ok start the presentation timer
uiUpdateTimer.Enabled = True
PresentationTimer.Start()
StartBtn.Text = "STOP"
Exit Sub
End If
'if the presentation timer has been running, but is currently stopped,
'continue the timer and exit this sub
If Not PresentationTimer.IsRunning And PresentationTimer.ElapsedMilliseconds > 0 Then
uiUpdateTimer.Enabled = True
PresentationTimer.Start()
StartBtn.Text = "STOP"
Exit Sub
End If
'if the interactive timer has been running,but is currently stopped,
'continue the timer and exit this sub
If Not InteractiveTimer.IsRunning And InteractiveTimer.ElapsedMilliseconds > 0 Then
uiUpdateTimer.Enabled = True
InteractiveTimer.Start()
StartBtn.Text = "STOP"
Exit Sub
End If
End Sub
Private Sub ResetBtn_Click(sender As Object, e As EventArgs) Handles ResetBtn.Click
PresentationTimer.Reset()
InteractiveTimer.Reset()
uiUpdateTimer.Enabled = False
StartBtn.Enabled = True
StartBtn.Text = "START"
UpdateUI()
BackgroundFlashTimer.Enabled = False
Me.BackColor = defaultBackColor
End Sub
Private Sub BackgroundFlashTimer_Tick(sender As Object, e As EventArgs) Handles BackgroundFlashTimer.Tick
StartBtn.Enabled = False
If Me.BackColor = DefaultBackColor Then
Me.BackColor = Color.Red
Else
Me.BackColor = DefaultBackColor
End If
Me.Update()
End Sub
End Class
This was my final solution based on David Wilson's contribution:
Public Class Form1
Private PresentationTimer As New Stopwatch
Private InteractiveTimer As New Stopwatch
Private ExtraTimeTimer As New Stopwatch
Private PresentationMinutes As Integer
Private InteractiveMinutes As Integer
'When this timer is enabled, it keeps track of the two stopwatches and checks
'that they're within the alloted time.
'
'When the presentation timer has expired, that one is stopped and the interactive
'timer is started
'
'When the interactive timer has expired, the timer for background flashing starts.
'To stop the flashing, click the reset button on the form
Private Sub uiUpdateTimer_Tick(sender As Object, e As EventArgs) Handles uiUpdateTimer.Tick
UpdateUI()
If PresentationTimer.IsRunning And IsTimeExpired(PresentationTimer, PresentationMinutes) Then
PresentationTimer.Stop()
InteractiveTimer.Start()
Me.BackColor = Color.Yellow
'add code here for buzzer to show end of presentation time
End If
If InteractiveTimer.IsRunning And IsTimeExpired(InteractiveTimer, InteractiveMinutes) Then
InteractiveTimer.Stop()
BackgroundFlashTimer.Enabled = True
ExtraTimeTimer.Start()
'add code here for buzzer to show end of interactive time
StartBtn.Text = "START"
End If
End Sub
'checks if the timer passed as a parameter is expired by comparing
'the number of elapsed minutes with the number of minutes passed in
'the second parameter
Private Function IsTimeExpired(tmr As Stopwatch, mins As Integer) As Boolean
If tmr.Elapsed.Minutes >= mins Then
Return True
Else
Return False
End If
End Function
'simply updates all the textboxes with the stopwatch values.
Private Sub UpdateUI()
HundredthsTxB.Text = Int(PresentationTimer.Elapsed.Milliseconds / 10).ToString
SecondsTxB.Text = PresentationTimer.Elapsed.Seconds.ToString
MinutesTxB.Text = PresentationTimer.Elapsed.Minutes.ToString
HoursTxB.Text = PresentationTimer.Elapsed.Hours.ToString
OvertimeHundredthsTxB.Text = Int(InteractiveTimer.Elapsed.Milliseconds / 10).ToString
OvertimeSecondsTxB.Text = InteractiveTimer.Elapsed.Seconds.ToString
OvertimeMinutesTxB.Text = InteractiveTimer.Elapsed.Minutes.ToString
OvertimeHoursTxB.Text = InteractiveTimer.Elapsed.Hours.ToString
ExtraTimeHundredthsTxB.Text = Int(ExtraTimeTimer.Elapsed.Milliseconds / 10).ToString
ExtraTimeSecondsTxB.Text = ExtraTimeTimer.Elapsed.Seconds.ToString
ExtraTimeMinutesTxB.Text = ExtraTimeTimer.Elapsed.Minutes.ToString
ExtraTimeHoursTxB.Text = ExtraTimeTimer.Elapsed.Hours.ToString
End Sub
Private Sub StartBtn_Click(sender As Object, e As EventArgs) Handles StartBtn.Click
'if either timer is running, stop them both and exit this sub
If PresentationTimer.IsRunning Or InteractiveTimer.IsRunning Then
PresentationTimer.Stop()
InteractiveTimer.Stop()
ExtraTimeTimer.Stop()
StartBtn.Text = "START"
uiUpdateTimer.Enabled = False
Exit Sub
End If
'if the presentation timer hasn't run yet, check if the minutes values are
'valid and start it
If PresentationTimer.ElapsedMilliseconds = 0 Then
PresentationMinutes = CInt(Val(PresTimeTxB.Text))
InteractiveMinutes = CInt(Val(InterTimeTxB.Text))
'if the minutes values are't valid show messagebox and exit this sub
If PresentationMinutes = 0 Or InteractiveMinutes = 0 Then
MessageBox.Show("Please enter valid Presentation and Interactive times.")
Exit Sub
End If
'if minutes values are ok start the presentation timer
uiUpdateTimer.Enabled = True
PresentationTimer.Start()
StartBtn.Text = "STOP"
Exit Sub
End If
'if the presentation timer has been running, but is currently stopped,
'continue the timer and exit this sub
If Not PresentationTimer.IsRunning And PresentationTimer.ElapsedMilliseconds > 0 Then
uiUpdateTimer.Enabled = True
PresentationTimer.Start()
StartBtn.Text = "STOP"
Exit Sub
End If
'if the interactive timer has been running,but is currently stopped,
'continue the timer and exit this sub
If Not InteractiveTimer.IsRunning And InteractiveTimer.ElapsedMilliseconds > 0 Then
uiUpdateTimer.Enabled = True
InteractiveTimer.Start()
StartBtn.Text = "STOP"
Exit Sub
End If
End Sub
Private Sub ResetBtn_Click(sender As Object, e As EventArgs) Handles ResetBtn.Click
PresentationTimer.Reset()
InteractiveTimer.Reset()
ExtraTimeTimer.Reset()
uiUpdateTimer.Enabled = False
StartBtn.Enabled = True
StartBtn.Text = "START"
UpdateUI()
BackgroundFlashTimer.Enabled = False
Me.BackColor = DefaultBackColor
End Sub
Private Sub BackgroundFlashTimer_Tick(sender As Object, e As EventArgs) Handles BackgroundFlashTimer.Tick
StartBtn.Enabled = False
If Me.BackColor = DefaultBackColor Then
Me.BackColor = Color.Red
Else
Me.BackColor = DefaultBackColor
End If
Me.Update()
End Sub

My counter adds 1 but doesn't update properly

This is a slot machine program. I am trying to detect how many times the user clicks a button (spins). But I can't figure out why my counter only adding 1 to my clickLabel? I'm sure it's a simple fix but I'm drawing a blank.
Public Class MainForm
Private Sub clickHereButton_Click(sender As Object, e As EventArgs) Handles clickHereButton.Click
' simulates a slot machine
Dim randGen As New Random
Dim leftIndex As Integer
Dim centerIndex As Integer
Dim rightIndex As Integer
Dim counter As Integer = 1
clickHereButton.Enabled = False
For spins As Integer = 1 To 10
leftIndex = randGen.Next(0, 6)
leftPictureBox.Image = ImageList1.Images.Item(leftIndex)
Me.Refresh()
System.Threading.Thread.Sleep(50)
centerIndex = randGen.Next(0, 6)
centerPictureBox.Image = ImageList1.Images.Item(centerIndex)
Me.Refresh()
System.Threading.Thread.Sleep(50)
rightIndex = randGen.Next(0, 6)
rightPictureBox.Image = ImageList1.Images.Item(rightIndex)
Me.Refresh()
System.Threading.Thread.Sleep(50)
Next spins
If leftIndex = centerIndex AndAlso
leftIndex = rightIndex Then
MessageBox.Show("Congratulations!", "Winner", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
counter += 1
clickLabel.Text = counter.ToString()
clickHereButton.Enabled = True
clickHereButton.Focus()
End Sub
Private Sub exitButton_Click(sender As Object, e As EventArgs) Handles exitButton.Click
Me.Close()
End Sub
End Class
What's happening is you're always setting the counter to 1 everytime you click the button because it is inside the clickHereButton_Click. So even though you are incrementing it, at the beginning of your sub you are still setting it to 1.
Dim counter As Integer = 1
Private Sub clickHereButton_Click(sender As Object, e As EventArgs) Handles clickHereButton.Click
...
End Sub

Issue with Progressbar in VB2012

I am trying to add a ProgressBar to my program. The program basically compares two values of time and when the values are equal a MessageBox appears to indicate that time is up. I need the ProgressBar to load based on the time difference of the two values. One of the values in a clock and the other is input by the user (similar to an alarm).
My code:
Imports System.Net.Mime.MediaTypeNames
Public Class Form1
Private hour As Integer = 0
Private minute As Integer = 0
Private second As Integer = 0
Public Sub show_time()
second += 1
If second = 59 Then
second = 0
minute += 1
If minute = 59 Then
minute += 1
hour += 1
End If
End If
Label3PrgressStdPC.Text = hour.ToString.PadLeft(2, "0") & ":"
Label3PrgressStdPC.Text &= minute.ToString.PadLeft(2, "0") & ":"
Label3PrgressStdPC.Text &= second.ToString.PadLeft(2, "0")
Label3PrgressStdPC.Refresh()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
show_time()
If TextBox1.SelectedText = TextBox1.Text Then Exit Sub
If TextBox1.Text = Label3PrgressStdPC.Text Then
Timer1.Stop()
MsgBox("time is up")
End If
End Sub
Private Sub Bn_start_St01_Click(sender As Object, e As EventArgs) Handles Bn_start_St01.Click
Timer1.Start()
Timer1.Enabled = True
Timer2.Start()
Timer2.Enabled = True
End Sub
**Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click
ProgressBar1.Maximum = , the max progrssbr will be determine by user input
ProgressBar1.Minimum = 0**
End Sub
**Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
progresbar1.value = ,Not so sure how to write the logic here**
End Sub
End Class
Can anyone help me out i am really getting frustrated.....thanks
How about something like this...
Private Ticker As Timer = New Timer 'Create a timer
Private Start As DateTime 'Store when we start
Private Expire As DateTime 'and when we end
'Call this to get things going
Sub Begin(EndHour As Integer, EndMinute As Integer, EndSecond As Integer)
Start = DateTime.Now
'If input is a time today ...
Expire = DateTime.Now.Date.Add(New TimeSpan(EndHour, EndMinute, EndSecond))
'or just a number of hours/mins/secs from now...
Expire = DateTime.Now.Add(New TimeSpan(EndHour, EndMinute, EndSecond))
'When the timer fires, call Tick()
AddHandler Ticker.Elapsed, Sub() Tick()
Ticker.Enabled = True
Ticker.Interval = 1000
Ticker.Start
End Sub
Private Sub Tick()
If DateTime.Now < Expire Then
'Not Finished
Dim Elapsed = DateTime.Now.Subtract(Start)
Dim TotalMillis = Expire.Subtract(Start).TotalMilliseconds
Dim ProgressDouble = Elapsed.TotalMilliseconds / TotalMillis
'Me.Invoke is used here as the timer Tick() occurs on a different thread to the
'one used to create the UI. This passes a message to the UI telling it to
'update the progress bar.
Me.Invoke(Sub()
ProgressBar1.Value = CInt(ProgressDouble * ProgressBar1.Maximum)
Label3PrgressStdPC.Text = Elapsed.ToString
End Sub)
Else
'Done
MessageBox.Show("Done")
Ticker.Stop
End If
End Sub
See VB.NET Delegates and Invoke - can somebody explain these to me? for more information on Invoking.