1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Dim para As String
Dim tempo As Single
If x = Echelle Then
myPane.XAxis.Scale.Min = x
myPane.XAxis.Scale.Max = x + 10
Echelle = Echelle + 10
End If
Select Case Num
Case 1
NumMenu1 = 99
tempo = 0
Read()
Case 2
tempo = tempo + 1
If tempo = 10 Or Reception = True Then
TextBox17.Text = tempo.ToString + " " + Reception.ToString
Num = 1
End If
Reception = False
End Select
Timer1.Start()
End Sub |
Partager