Makro VBA Błąd czasu działania 6: kodowanie przepełnienia w pętli
Wystąpił problem z tym błędem. Tworzę GA i pętla ma przypisać mojej wartości fitness do tablicy.
niektóre zmienne
Dim Chromolength as integer
Chromolength = varchromolength * aVariables
Dim i as integer, j as integer, counter as integer
Dim Poparr() As Integer
Dim FitValarr() As Integer
kod:
ReDim Poparr(1 To PopSize, 1 To Chromolength)
For i = 1 To PopSize
For j = 1 To Chromolength
If Rnd < 0.5 Then
Poparr(i, j) = 0
Else
Poparr(i, j) = 1
End If
Next j
Next i
For i = 1 To PopSize
j = 1
counter = Chromolength
Do While counter > 0
FitValarr(i) = FitValarr(i) + Poparr(i, counter) * 2 ^ (j - 1)
j = j + 1
counter = counter - 1
Loop
Next i
Mam problemy z:
FitValarr(i) = FitValarr(i) + Poparr(i, counter) * 2 ^ (j - 1)
Przepraszam, jestem całkiem nowy w VBA.