>

couatall.text를 실행하여 증가시키고 싶지만 1000 마이크로 초/1 초마다 타이머 틱에 중첩 된 경우 작동하지 않습니다. 도와주세요 여기 내 코드가 있습니다 ...

센서가 한 번에 900보다 작은 값보다 2, 3 배 이상 읽었 기 때문에이 작업을 수행합니다. 즉, '1-If 조건'만 사용하면 2, 3 배 이상으로 계산됩니다. 따라서 내 논리 (noob)는 센서가 900보다 작은 값을 읽는 경우 센서가 899보다 큰 값을 읽는 경우 'coutall.Text = coutall.Text + 1'코드를 실행하여 1 등을 계산합니다.

Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
    Try
        Dim i As Single = SerialPort1.ReadExisting 'get data of my sensor
        label1.Text = i.ToString                   'display on label1.text
        If label1.Text < 900 Then
            'messageBox.show("working here")
            'I really make it comment lines don't mind it.
            If label1.Text > 899 Then   'not working when my i is <  to 900
                coutall.Text = coutall.Text + 1
            End If
        Else
            'nothing
        End If
    Catch ex As Exception
    End Try
End Sub

내 설명이 명확하지 않으면 알려주세요. 영어를 잘 못해요. 죄송합니다. :)


  • 답변 # 1

    향후의 선호에 대한 답은 다음과 같습니다 (있는 경우)

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Try
            Dim i As Single = SerialPort1.ReadExisting
            label1.Text = i.ToString
            If label1.Text < 900 Then
                Timer1.Enabled = True 'instead using nested here create timer again
            End If
        Catch ex As Exception
        End Try
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 'new timer
        If label1.Text > 899 Then 'looks like nested
            coutall.Text = coutall.Text + 1 'execute count + 1
            Timer1.Enabled = False 'then shutdown timer 1
        End If
    End Sub
    
    

  • 이전 javascript - DOM jQuery에서 입력을 추가 한 후 부트 스트랩 4 모달 스크롤이 작동하지 않음
  • 다음 Dynamics CRM에서 관련 웹 리소스를 가져올 수 있습니까?