Internet Cafe Management System is used to manage the time usage of the System.when the person sit on the machine. started to browsing the internet Internet Cafe Management System is On it is calculating the time and the amount.
Form Load
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Timer1.Interval = 1000 Timer1.Enabled = True StartTime = Now sw.Start() End Sub
Drag the timer control from the toolbox and double click and write the following code
Timer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick TextBox2.Text = sw.Elapsed.ToString("hh\:mm\:ss") If DateDiff(DateInterval.Minute, StartTime, Now) >= 1 Then CumlativeValue += 50 Label3.Text = CumlativeValue.ToString StartTime = Now End If TextBox1.Text = Now.ToString("h:mm:ss tt") End Sub
End Button
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click sw.Stop() Timer1.Enabled = False End Sub
i have attached the video link below. which will do this tutorials step by step.