Ciao a tutti....e scusate la mia ignoranza, sono alle prese di un codice che ha funzionato (con vari adattamenti) con GwBasic, Qbasic, VisualBasic per Dos, VisualBasic 5 e 6, Gambas 2 ma non ne vuol sapere di funzionare su Gambas 3 versione 3.9.2, dove stò sbagliando?
Dim v[i] As Integer ' su questa riga mi da errore: Embedded arrays are forbidden here
Dim i As Integer
Dim min As Integer
Dim j As Integer
Dim SWP As Integer
Dim R As Integer
Dim Int As Integer
For i = 0 To 5
'Next
Randomize
ricalcola:
v[i] = Int[Rnd * 90] + 1
If i = 0 Then Goto vai
If i = 1 Then
If v[i] = v[i - 1] Then Goto ricalcola
End If
If i = 2 Then
If v[i] = v[i - 1] Or v[i] = v[i - 2] Then Goto ricalcola
End If
If i = 3 Then
If v[i] = v[i - 1] Or v[i] = v[i - 2] Or v[i] = v[i - 3] Then Goto ricalcola
End If
If i = 4 Then
If v[i] = v[i - 1] Or v[i] = v[i - 2] Or v[i] = v[i - 3] Or v[i] = v[i - 4] Then Goto ricalcola
End If
If i = 5 Then
If v[i] = v[i - 1] Or v[i] = v[i - 2] Or v[i] = v[i - 3] Or v[i] = v[i - 4] Or v[i] = v[i - 5] Then Goto ricalcola
End If
vai:
Next
'Rem 170 REM Ordinamento crescente con Selection Sort
For i = 0 To 5
Min = i
For J = i + 1 To 5
If v[J] < v[Min] Then Min = J
Next
SWP = v[i]
v[i] = v[Min]
v[Min] = SWP
Next