This counter keeps starting over for some reason.(miCounter)
i have changed the name of the counter in case it was referenced elsewhere in my code
sometimes it gets to 10 and starts over other times 11
The code;
Debug results:
mcurCurWinPlusBonus 110
miCounter 1 lblCredit.Caption $0.51
miCounter 2 lblCredit.Caption $0.52
miCounter 3 lblCredit.Caption $0.53
miCounter 4 lblCredit.Caption $0.54
miCounter 5 lblCredit.Caption $0.55
miCounter 6 lblCredit.Caption $0.56
miCounter 7 lblCredit.Caption $0.57
miCounter 8 lblCredit.Caption $0.58
miCounter 9 lblCredit.Caption $0.59
miCounter 10 lblCredit.Caption $0.60
miCounter 1 lblCredit.Caption $0.61
miCounter 2 lblCredit.Caption $0.62
miCounter 3 lblCredit.Caption $0.63
miCounter 4 lblCredit.Caption $0.64
miCounter 5 lblCredit.Caption $0.65
miCounter 6 lblCredit.Caption $0.66
miCounter 7 lblCredit.Caption $0.67
miCounter 8 lblCredit.Caption $0.68
miCounter 9 lblCredit.Caption $0.69
miCounter 10 lblCredit.Caption $0.70
miCounter 11 lblCredit.Caption $0.71
miCounter 1 lblCredit.Caption $0.72
miCounter 2 lblCredit.Caption $0.73
miCounter 3 lblCredit.Caption $0.74
miCounter 4 lblCredit.Caption $0.75
miCounter 5 lblCredit.Caption $0.76
miCounter 6 lblCredit.Caption $0.77
miCounter 7 lblCredit.Caption $0.78
miCounter 8 lblCredit.Caption $0.79
miCounter 9 lblCredit.Caption $0.80
miCounter 10 lblCredit.Caption $0.81
miCounter 11 lblCredit.Caption $0.82
miCounter 1 lblCredit.Caption $0.83
miCounter 2 lblCredit.Caption $0.84
miCounter 3 lblCredit.Caption $0.85
miCounter 4 lblCredit.Caption $0.86
miCounter 5 lblCredit.Caption $0.87
miCounter 6 lblCredit.Caption $0.88
miCounter 7 lblCredit.Caption $0.89
miCounter 8 lblCredit.Caption $0.90
miCounter 9 lblCredit.Caption $0.91
miCounter 10 lblCredit.Caption $0.92
miCounter 11 lblCredit.Caption $0.93
miCounter 12 lblCredit.Caption $0.94
miCounter 13 lblCredit.Caption $0.95
miCounter 14 lblCredit.Caption $0.96
miCounter 15 lblCredit.Caption $0.97
miCounter 16 lblCredit.Caption $0.98
miCounter 17 lblCredit.Caption $0.99
miCounter 18 lblCredit.Caption $1.00
miCounter 19 lblCredit.Caption $1.01
miCounter 20 lblCredit.Caption $1.02
miCounter 21 lblCredit.Caption $1.03
miCounter 22 lblCredit.Caption $1.04
miCounter 23 lblCredit.Caption $1.05
miCounter 24 lblCredit.Caption $1.06
miCounter 25 lblCredit.Caption $1.07
miCounter 26 lblCredit.Caption $1.08
miCounter 27 lblCredit.Caption $1.09
miCounter 28 lblCredit.Caption $1.10
miCounter 29 lblCredit.Caption $1.11
miCounter 30 lblCredit.Caption $1.12
miCounter 31 lblCredit.Caption $1.13
miCounter 32 lblCredit.Caption $1.14
miCounter 33 lblCredit.Caption $1.15
miCounter 34 lblCredit.Caption $1.16
miCounter 35 lblCredit.Caption $1.17
miCounter 36 lblCredit.Caption $1.18
miCounter 37 lblCredit.Caption $1.19
miCounter 38 lblCredit.Caption $1.20
miCounter 39 lblCredit.Caption $1.21
miCounter 40 lblCredit.Caption $1.22
miCounter 41 lblCredit.Caption $1.23
miCounter 42 lblCredit.Caption $1.24
miCounter 43 lblCredit.Caption $1.25
miCounter 44 lblCredit.Caption $1.26
miCounter 45 lblCredit.Caption $1.27
miCounter 46 lblCredit.Caption $1.28
miCounter 47 lblCredit.Caption $1.29
miCounter 48 lblCredit.Caption $1.30
miCounter 49 lblCredit.Caption $1.31
miCounter 50 lblCredit.Caption $1.32
miCounter 51 lblCredit.Caption $1.33
miCounter 52 lblCredit.Caption $1.34
miCounter 53 lblCredit.Caption $1.35
miCounter 54 lblCredit.Caption $1.36
miCounter 55 lblCredit.Caption $1.37
miCounter 56 lblCredit.Caption $1.38
miCounter 57 lblCredit.Caption $1.39
miCounter 58 lblCredit.Caption $1.40
miCounter 59 lblCredit.Caption $1.41
miCounter 60 lblCredit.Caption $1.42
miCounter 61 lblCredit.Caption $1.43
miCounter 62 lblCredit.Caption $1.44
miCounter 63 lblCredit.Caption $1.45
miCounter 64 lblCredit.Caption $1.46
miCounter 65 lblCredit.Caption $1.47
miCounter 66 lblCredit.Caption $1.48
miCounter 67 lblCredit.Caption $1.49
miCounter 68 lblCredit.Caption $1.50
miCounter 69 lblCredit.Caption $1.51
miCounter 70 lblCredit.Caption $1.52
miCounter 71 lblCredit.Caption $1.53
miCounter 72 lblCredit.Caption $1.54
miCounter 73 lblCredit.Caption $1.55
miCounter 74 lblCredit.Caption $1.56
miCounter 75 lblCredit.Caption $1.57
miCounter 76 lblCredit.Caption $1.58
miCounter 77 lblCredit.Caption $1.59
miCounter 78 lblCredit.Caption $1.60
miCounter 79 lblCredit.Caption $1.61
miCounter 80 lblCredit.Caption $1.62
miCounter 81 lblCredit.Caption $1.63
miCounter 82 lblCredit.Caption $1.64
miCounter 83 lblCredit.Caption $1.65
miCounter 84 lblCredit.Caption $1.66
miCounter 85 lblCredit.Caption $1.67
miCounter 86 lblCredit.Caption $1.68
miCounter 87 lblCredit.Caption $1.69
miCounter 88 lblCredit.Caption $1.70
miCounter 89 lblCredit.Caption $1.71
miCounter 90 lblCredit.Caption $1.72
miCounter 91 lblCredit.Caption $1.73
miCounter 92 lblCredit.Caption $1.74
miCounter 93 lblCredit.Caption $1.75
miCounter 94 lblCredit.Caption $1.76
miCounter 95 lblCredit.Caption $1.77
miCounter 96 lblCredit.Caption $1.78
miCounter 97 lblCredit.Caption $1.79
miCounter 98 lblCredit.Caption $1.80
miCounter 99 lblCredit.Caption $1.81
miCounter 100 lblCredit.Caption $1.82
miCounter 101 lblCredit.Caption $1.83
miCounter 102 lblCredit.Caption $1.84
miCounter 103 lblCredit.Caption $1.85
miCounter 104 lblCredit.Caption $1.86
miCounter 105 lblCredit.Caption $1.87
miCounter 106 lblCredit.Caption $1.88
miCounter 107 lblCredit.Caption $1.89
miCounter 108 lblCredit.Caption $1.90
miCounter 109 lblCredit.Caption $1.91
miCounter 110 lblCredit.Caption $1.92
End Run
Why is this happening ?
i have changed the name of the counter in case it was referenced elsewhere in my code
sometimes it gets to 10 and starts over other times 11
The code;
Code:
Form level variable: Dim miCounter As Integer
Private Sub Timer1_Timer()
Dim bFinished As Boolean
Debug.Print "mcurCurWinPlusBonus " & mcurCurWinPlusBonus
If mintCreditMode = 1 Then 'currency
lblCredit.Caption = CCur(lblCredit.Caption) + mdblDecimalPart 'WinAmount
lblCredit.Caption = Format(lblCredit.Caption, "currency")
lblWinThisRun.Caption = lblWinThisRun.Caption + 1
miCounter = miCounter + 1
Debug.Print "miCounter " & miCounter & " lblCredit.Caption " & lblCredit.Caption
Else
lblWinThisRun.Caption = lblWinThisRun.Caption + 1 '3rd
lblCredit.Caption = Val(lblCredit.Caption) + 1
' miCounter = miCounter + 1
End If
If miCounter >= mcurCurWinPlusBonus Then 'mlngCreditsWon Then '4
Debug.Print "end Run"
End If
Loop
Timer1.Enabled = False
UpdatePerformanceGridsWin
End SubmcurCurWinPlusBonus 110
miCounter 1 lblCredit.Caption $0.51
miCounter 2 lblCredit.Caption $0.52
miCounter 3 lblCredit.Caption $0.53
miCounter 4 lblCredit.Caption $0.54
miCounter 5 lblCredit.Caption $0.55
miCounter 6 lblCredit.Caption $0.56
miCounter 7 lblCredit.Caption $0.57
miCounter 8 lblCredit.Caption $0.58
miCounter 9 lblCredit.Caption $0.59
miCounter 10 lblCredit.Caption $0.60
miCounter 1 lblCredit.Caption $0.61
miCounter 2 lblCredit.Caption $0.62
miCounter 3 lblCredit.Caption $0.63
miCounter 4 lblCredit.Caption $0.64
miCounter 5 lblCredit.Caption $0.65
miCounter 6 lblCredit.Caption $0.66
miCounter 7 lblCredit.Caption $0.67
miCounter 8 lblCredit.Caption $0.68
miCounter 9 lblCredit.Caption $0.69
miCounter 10 lblCredit.Caption $0.70
miCounter 11 lblCredit.Caption $0.71
miCounter 1 lblCredit.Caption $0.72
miCounter 2 lblCredit.Caption $0.73
miCounter 3 lblCredit.Caption $0.74
miCounter 4 lblCredit.Caption $0.75
miCounter 5 lblCredit.Caption $0.76
miCounter 6 lblCredit.Caption $0.77
miCounter 7 lblCredit.Caption $0.78
miCounter 8 lblCredit.Caption $0.79
miCounter 9 lblCredit.Caption $0.80
miCounter 10 lblCredit.Caption $0.81
miCounter 11 lblCredit.Caption $0.82
miCounter 1 lblCredit.Caption $0.83
miCounter 2 lblCredit.Caption $0.84
miCounter 3 lblCredit.Caption $0.85
miCounter 4 lblCredit.Caption $0.86
miCounter 5 lblCredit.Caption $0.87
miCounter 6 lblCredit.Caption $0.88
miCounter 7 lblCredit.Caption $0.89
miCounter 8 lblCredit.Caption $0.90
miCounter 9 lblCredit.Caption $0.91
miCounter 10 lblCredit.Caption $0.92
miCounter 11 lblCredit.Caption $0.93
miCounter 12 lblCredit.Caption $0.94
miCounter 13 lblCredit.Caption $0.95
miCounter 14 lblCredit.Caption $0.96
miCounter 15 lblCredit.Caption $0.97
miCounter 16 lblCredit.Caption $0.98
miCounter 17 lblCredit.Caption $0.99
miCounter 18 lblCredit.Caption $1.00
miCounter 19 lblCredit.Caption $1.01
miCounter 20 lblCredit.Caption $1.02
miCounter 21 lblCredit.Caption $1.03
miCounter 22 lblCredit.Caption $1.04
miCounter 23 lblCredit.Caption $1.05
miCounter 24 lblCredit.Caption $1.06
miCounter 25 lblCredit.Caption $1.07
miCounter 26 lblCredit.Caption $1.08
miCounter 27 lblCredit.Caption $1.09
miCounter 28 lblCredit.Caption $1.10
miCounter 29 lblCredit.Caption $1.11
miCounter 30 lblCredit.Caption $1.12
miCounter 31 lblCredit.Caption $1.13
miCounter 32 lblCredit.Caption $1.14
miCounter 33 lblCredit.Caption $1.15
miCounter 34 lblCredit.Caption $1.16
miCounter 35 lblCredit.Caption $1.17
miCounter 36 lblCredit.Caption $1.18
miCounter 37 lblCredit.Caption $1.19
miCounter 38 lblCredit.Caption $1.20
miCounter 39 lblCredit.Caption $1.21
miCounter 40 lblCredit.Caption $1.22
miCounter 41 lblCredit.Caption $1.23
miCounter 42 lblCredit.Caption $1.24
miCounter 43 lblCredit.Caption $1.25
miCounter 44 lblCredit.Caption $1.26
miCounter 45 lblCredit.Caption $1.27
miCounter 46 lblCredit.Caption $1.28
miCounter 47 lblCredit.Caption $1.29
miCounter 48 lblCredit.Caption $1.30
miCounter 49 lblCredit.Caption $1.31
miCounter 50 lblCredit.Caption $1.32
miCounter 51 lblCredit.Caption $1.33
miCounter 52 lblCredit.Caption $1.34
miCounter 53 lblCredit.Caption $1.35
miCounter 54 lblCredit.Caption $1.36
miCounter 55 lblCredit.Caption $1.37
miCounter 56 lblCredit.Caption $1.38
miCounter 57 lblCredit.Caption $1.39
miCounter 58 lblCredit.Caption $1.40
miCounter 59 lblCredit.Caption $1.41
miCounter 60 lblCredit.Caption $1.42
miCounter 61 lblCredit.Caption $1.43
miCounter 62 lblCredit.Caption $1.44
miCounter 63 lblCredit.Caption $1.45
miCounter 64 lblCredit.Caption $1.46
miCounter 65 lblCredit.Caption $1.47
miCounter 66 lblCredit.Caption $1.48
miCounter 67 lblCredit.Caption $1.49
miCounter 68 lblCredit.Caption $1.50
miCounter 69 lblCredit.Caption $1.51
miCounter 70 lblCredit.Caption $1.52
miCounter 71 lblCredit.Caption $1.53
miCounter 72 lblCredit.Caption $1.54
miCounter 73 lblCredit.Caption $1.55
miCounter 74 lblCredit.Caption $1.56
miCounter 75 lblCredit.Caption $1.57
miCounter 76 lblCredit.Caption $1.58
miCounter 77 lblCredit.Caption $1.59
miCounter 78 lblCredit.Caption $1.60
miCounter 79 lblCredit.Caption $1.61
miCounter 80 lblCredit.Caption $1.62
miCounter 81 lblCredit.Caption $1.63
miCounter 82 lblCredit.Caption $1.64
miCounter 83 lblCredit.Caption $1.65
miCounter 84 lblCredit.Caption $1.66
miCounter 85 lblCredit.Caption $1.67
miCounter 86 lblCredit.Caption $1.68
miCounter 87 lblCredit.Caption $1.69
miCounter 88 lblCredit.Caption $1.70
miCounter 89 lblCredit.Caption $1.71
miCounter 90 lblCredit.Caption $1.72
miCounter 91 lblCredit.Caption $1.73
miCounter 92 lblCredit.Caption $1.74
miCounter 93 lblCredit.Caption $1.75
miCounter 94 lblCredit.Caption $1.76
miCounter 95 lblCredit.Caption $1.77
miCounter 96 lblCredit.Caption $1.78
miCounter 97 lblCredit.Caption $1.79
miCounter 98 lblCredit.Caption $1.80
miCounter 99 lblCredit.Caption $1.81
miCounter 100 lblCredit.Caption $1.82
miCounter 101 lblCredit.Caption $1.83
miCounter 102 lblCredit.Caption $1.84
miCounter 103 lblCredit.Caption $1.85
miCounter 104 lblCredit.Caption $1.86
miCounter 105 lblCredit.Caption $1.87
miCounter 106 lblCredit.Caption $1.88
miCounter 107 lblCredit.Caption $1.89
miCounter 108 lblCredit.Caption $1.90
miCounter 109 lblCredit.Caption $1.91
miCounter 110 lblCredit.Caption $1.92
End Run
Why is this happening ?