Visual Basic (номера бесконечности)

Question

Так что в основном то, что я пытаюсь сделать, это то, что я пытаюсь сделать клонер клика cookie. И я хочу добавить казино, и я это сделал. Но есть проблема. Посмотрите, когда я пытаюсь добавить выигрыш (например, 500 долларов США) к моим наличным деньгам, он добавляет номера бесконечности, и я попробовал массу способов понять это. Все, что я пробовал, не сработало. Он просто добавляет номера бесконечности, а не число, которое я хочу добавить к своим деньгам. В основном здесь система Ценя:

If MCCasino.num = 7 Then 
     Randomize() 
     MCCasino.prize = Int(Rnd() * 5) + 1 

     MCCasino.achievment = MCCasino.prize 
    Else 
     Label3.Text = "No prize." 
     If MCCasino.achievment = 1 Then 

      MCCasino.Label3.Text = "You have earned $100!" 
      cash = cash + 100 
     ElseIf MCCasino.achievment = 2 Then 

      MCCasino.Label3.Text = "+50 CPS" 
      cps = cps + 50 
     ElseIf MCCasino.achievment = 3 Then 

      MCCasino.Label3.Text = "You have earned $500!" 
      cash = cash + 500 
     ElseIf MCCasino.achievment = 4 Then 

      MCCasino.Label3.Text = "You have earned $15000!" 
      cash = cash + 15000 
     ElseIf MCCasino.achievment = 5 Then 

      MCCasino.Label3.Text = "+25 cps" 
      cps = cps + 25 

     End If 
    End If 

Answer 1

Я не уверен в том, как вы реализуете это, но как правило, это безопаснее всего использовать приращение при выполнении операций с переменными:

Value += 1 ' Good 
Value = Value + 1 ' Bad 

В долгосрочной вы найдете второй способ делать операции полезными, но пока вы должны играть в это безопасно. Попробуйте:

cash += 100 

И дайте мне знать, если проблема не исчезнет. Ура!