홈>

VB.Net - vbnet - 1000 마이크로 초마다 타이머에서 중첩 된 if를 사용하는 방법은 무엇입니까?

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

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

vb.nettimernested-if
  • 답변 # 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에서 관련 웹 리소스를 가져올 수 있습니까?
    • 관련 질문