goldpower
چهارشنبه 27 شهریور 1392, 18:24 عصر
در کد زیر دو تا تایمر داریم که اینتروال اولی 5 میلی ثانیه و اینتروال دومی 1000 میلی ثانیه است .
حالا عدد کانتر باید تا 200 رو بشماره ولی تا 65 بیشتر نمی ره !!!!!!!!!!!
Public Class Form1
Dim counter As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
counter = counter + 1
Label1.Text = counter
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label2.Text = Val(Label1.Text)
counter = Val(Label1.Text) - counter
End Sub
End Class
حالا عدد کانتر باید تا 200 رو بشماره ولی تا 65 بیشتر نمی ره !!!!!!!!!!!
Public Class Form1
Dim counter As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
counter = counter + 1
Label1.Text = counter
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label2.Text = Val(Label1.Text)
counter = Val(Label1.Text) - counter
End Sub
End Class