stop Watch in Visual Basic Express

Question

2.00/5 (1 vote)

See more:

This is my stop watch I made in Visual Basic Express.
When the stop watch stops it displays the figure in the Message Box.

What I want it to do is Multiply the figure which can be entered into the text box by the time figure recorded which is already displayed in the message box.

Say you enter 2.45 in Text box and time recorded is 5.34 then in the message box it would display the answer which is 2.45 (text Box) * 5.34 (time recorded on stop watch) = 13.083 in the message box.

This is the code I have got so far :
Please help me finish this off, Thanks From Paul

VB

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Label1.Text + 0.01
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        MsgBox(Label1.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Enabled = False
        Label1.Text = 0.0
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs)

    End Sub
End Class

Posted 29-Oct-13 6:09am

Member 10344423

Updated 29-Oct-13 6:12am

Richard MacCutchan

v2

Add a Solution

Comments

ZurdoDev 29-Oct-13 12:09pm

What's the question?

Richard MacCutchan 29-Oct-13 12:14pm

You need to add some code to
- read the value from the textbox.
- parse it to a double value.
- multiply that value by the stopwatch time.
- store it back to the label or textbox for display.
Four simple steps.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Valery Possoz · Answer 1 · 2013-10-29T11:01:00

Hello

If you assume that TextBox1.Text and Label1.Text always contains a number then just multiply the two values and display the result:

VB

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Enabled = False

    Dim result As String
    result = TextBox1.Text * Label1.Text

    MsgBox(result)
End Sub

If the text values can be something else you may want to convert them to a number first:

VB

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Enabled = False

    Dim value As Double
    Dim result As String

    If Double.TryParse(TextBox1.Text, value) Then
        'TextBox1.Text is a number
        result = value * Label1.Text
    End If

    MsgBox(result)
End Sub

Valery.

Member 10344423 · Answer 2 · 2013-10-30T10:10:00

Solution 2

Thanks Valery just the right help I needed. Paul

Posted 30-Oct-13 10:10am