Source Code : Advance Stopwatch

-
Stopwatch in vb.net

 (Screen Shot)
******************************************
Public Class Form1
    Dim Time As New DateTime

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button4.Visible = False
        Button5.Visible = False
        Button6.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Timer1.Enabled = True Then
            Timer1.Stop()
        Else
            Time = DateTime.Now
            Timer1.Start()
            Button4.Visible = True
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Difference As TimeSpan = DateTime.Now.Subtract(Time)
        Label1.Text = Difference.Hours.ToString & ":" & Difference.Minutes.ToString & ":" & Difference.Seconds.ToString & ":" & Difference.Milliseconds.ToString
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = "00:00:000"
        Label2.Text = "00:00:000"
        Label3.Text = "00:00:000"
        Label4.Text = "00:00:000"
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Button4.Enabled = True
        Button4.Visible = False

        Button5.Enabled = True
        Button5.Visible = False
        Button6.Enabled = True
        Button6.Visible = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label2.Visible = True
        Label2.Text = Label1.Text.Trim
        Button4.Enabled = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label3.Visible = True
        Label3.Text = Label1.Text.Trim
        Button5.Enabled = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Label4.Visible = True
        Label4.Text = Label1.Text.Trim
        Button6.Enabled = False
    End Sub
End Class
************** End Project **************************

Comments

Post a Comment

Popular posts from this blog

Complete Python Database Project with sqlite3

-
Image
Here You can learn how to load sqlite3 data into datagrid using Python . * How to Insert *How to Delete *How to Save *How to Load *Exit button code and *How to search (Screen Shot) **************************************** import os import wx import wx.xrc import wx.grid import sqlite3 import re import string import gettext cwd = os.path.abspath(os.curdir) def connect():         con_str = cwd + '/folder/Test.db'         cnn = sqlite3.connect(con_str)         return cnn         cnn.close() def data_rows():         con = connect()         cur = con.cursor()         cur.execute("SELECT * FROM DATA")         rows = cur.fetchall()         i = 0 ...
Read more

Complete StopWatch in Java with source code

-
Image
Complete StopWatch in Java with source code :     (Screen Shot) **************************************** Code Start from Here: package stopwatch; /**  *  * @author Md. Khafi Hossain  */ public class Main extends javax.swing.JFrame {    static int milliseconds = 0; static int seconds = 0; static int minutes = 0; static int hours = 0; static boolean state = true;     /**      * Creates new form Main      */     public Main() {         initComponents();     }     /**      * This method is called from within the constructor to initialize the form.      * WARNING: Do NOT modify this code. The content of this method is always      * regenerated by the Form Editor.      */    ...
Read more

System sound recorder using NAudio dll with complete code

-
Image
System sound recorder including microphone with vb.net complete code   Please Like & Share code from here  ************************ Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Imports NAudio.Wave Imports NAudio.CoreAudioApi Imports System.IO Imports System.Diagnostics Imports System.ComponentModel.Composition Public Class Form1     Dim Time As New DateTime     Private waveIn As IWaveIn     Private writer As WaveFileWriter     Private outputFilename As String     Private outputFolder As String     Public Sub New()         InitializeComponent()         If Environment.OSVersion.Version.Major >= 6 Then          ...
Read more