I’m running Candlekeep mysteries: Kandlekeep Dekonstruktion and I’d like to use a stopwatch to track the time spent without revealing how much time the players have (like with a timer). However, combat takes a lot longer in real time than game time. I would like a stopwatch I can pause, then add time to to simulate the combat round time. Does anyone know where I can find this? Preferably digital.
Was bored so I wrote you one if ya want it. Just a simple 30sec timer with start/stop and ability to add or remove any amount of seconds. Need any help just msg me.
2 textboxes, 3 buttons and a timer. Code is simple as heck.
Public Class Form1 Public clocktime As Int16 = 30
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick clocktime = clocktime - 1 TextBox1.Text = clocktime TextBox1.Refresh()
If clocktime <= 0 Then Timer1.Stop() clocktime = 30 TextBox1.Text = clocktime End If End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Start() End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Timer1.Stop() End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load TextBox1.Text = clocktime End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click clocktime = clocktime + TextBox2.Text TextBox1.Text = clocktime TextBox1.Refresh() End Sub
Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown If e.KeyCode = Keys.Return Then clocktime = clocktime + TextBox2.Text TextBox1.Text = clocktime TextBox1.Refresh() End If End Sub
End Class
Rollback Post to RevisionRollBack
To post a comment, please login or register a new account.
I’m running Candlekeep mysteries: Kandlekeep Dekonstruktion and I’d like to use a stopwatch to track the time spent without revealing how much time the players have (like with a timer). However, combat takes a lot longer in real time than game time. I would like a stopwatch I can pause, then add time to to simulate the combat round time. Does anyone know where I can find this? Preferably digital.
Only spilt the party if you see something shiny.
Ariendela Sneakerson, Half-elf Rogue (8); Harmony Wolfsbane, Tiefling Bard (10); Agnomally, Gnomish Sorcerer (3); Breeze, Tabaxi Monk (8); Grace, Dragonborn Barbarian (7); DM, Homebrew- The Sequestered Lands/Underwater Explorers; Candlekeep
Try this:
https://www****ine-stopwatch.com/
I’m not seeing how to add time when the stopwatch has been paused- how did it work for you?
Only spilt the party if you see something shiny.
Ariendela Sneakerson, Half-elf Rogue (8); Harmony Wolfsbane, Tiefling Bard (10); Agnomally, Gnomish Sorcerer (3); Breeze, Tabaxi Monk (8); Grace, Dragonborn Barbarian (7); DM, Homebrew- The Sequestered Lands/Underwater Explorers; Candlekeep
Can you just start the timer again at the start of each round and let in run for 6 seconds, pause and repeat.
Was bored so I wrote you one if ya want it. Just a simple 30sec timer with start/stop and ability to add or remove any amount of seconds. Need any help just msg me.
https://ufile.io/ibh2pher
Or make it yourself in Visual Studio (basic)
2 textboxes, 3 buttons and a timer.
Code is simple as heck.
Public Class Form1
Public clocktime As Int16 = 30
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
clocktime = clocktime - 1
TextBox1.Text = clocktime
TextBox1.Refresh()
If clocktime <= 0 Then
Timer1.Stop()
clocktime = 30
TextBox1.Text = clocktime
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = clocktime
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
clocktime = clocktime + TextBox2.Text
TextBox1.Text = clocktime
TextBox1.Refresh()
End Sub
Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown
If e.KeyCode = Keys.Return Then
clocktime = clocktime + TextBox2.Text
TextBox1.Text = clocktime
TextBox1.Refresh()
End If
End Sub
End Class