나는 카운터가 10을 치면 카운터를 다시 설정하려고 시도합니다.

Question

카운터가 10이되면 "귀하의 티켓은 무료입니다."라고 표시됩니다. 카운터를 재설정하여 10 개의 다른 클릭이 "티켓이 무료입니다"라고 표시 할 수없는 경우

Public Class Form1 
Dim intCounter As Integer 

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click 
    Dim intTicketPrice As Integer = Val(Me.txtTicketNum.Text) * 8 
    intCounter = intCounter + 1 

    If intCounter = 10 Then 
     Me.lblFeed.Text = "Your tickets are free!!!" 

    ElseIf intTicketPrice Then 
     Me.lblFeed.Text = "Your tickets cost: " & intTicketPrice & " Dollars" 
    End If 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    intCounter = 0 
End Sub 

End Class 

Answer 1

당신 안에 당신의 if 문의 단지 intCounter = 0를 추가 할 수 있어야합니다, 당신 출력 텍스트 후. 그래서 :

If intCounter = 10 Then 
    Me.lblFeed.Text = "Your tickets are free!!!" 
    intCounter = 0 
ElseIf intTicketPrice Then 
    Me.lblFeed.Text = "Your tickets cost: " & intTicketPrice & " Dollars" 
End If 

다른 방법을 혹시 카운터를 재설정하지 않고하여 얻을 수있는 대신 카운터에 계수 작업을 수행 -

If (intCounter % 10) = 0 Then 
    Me.lblFeed.Text = "Your tickets are free!!!" 
ElseIf intTicketPrice Then 
    Me.lblFeed.Text = "Your tickets cost: " & intTicketPrice & " Dollars" 
End If 

Answer 2

이것은 VBA 양식 앱처럼 보입니다. 난 그냥 같이 당신의 상태 내부에 intCounter를 재설정 할 필요가 있다고 생각 :

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click 
    Dim intTicketPrice As Integer = Val(Me.txtTicketNum.Text) * 8 
    intCounter = intCounter + 1 

    If intCounter = 10 Then 
     Me.lblFeed.Text = "Your tickets are free!!!" 
     intCounter = 0 
    ElseIf intTicketPrice Then 
     Me.lblFeed.Text = "Your tickets cost: " & intTicketPrice & " Dollars" 
    End If 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    intCounter = 0 
End Sub 

Answer 3

는 오늘 닷넷에서 너무 많이 기대하고있을 수 있습니다 :) 귀하의 코드에서 카운터를 0으로 설정하지 않았습니다.

Public Class Form1 
     Dim intCounter As Integer 

     Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click 
      Dim intTicketPrice As Integer = Val(Me.txtTicketNum.Text) * 8 
      intCounter = intCounter + 1 

      If intCounter = 10 Then 
       Me.lblFeed.Text = "Your tickets are free!!!" 
       intCounter = 0 
      ElseIf intTicketPrice Then 
       Me.lblFeed.Text = "Your tickets cost: " & intTicketPrice & " Dollars" 
      End If 
     End Sub 

     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
      intCounter = 0 
     End Sub 

    End Class