perche non funziona ?

[genios]

Sub Main()
Scrivi " NUMERI CHE SI PRESENTANO ENTRO 9 ESTRAZIONI DALL' USCITA DELLA SPIA"
Dim nu(1)
Dim ru(1)
Dim prnu(90,2)
Dim rig1(90)
Dim rig2(90)
fin = EstrazioneFin
r = InputBox("SU' CHE RUOTA FACCIO LA RICERCA",,10)
ColoreTesto 2
Scrivi "Ricerca sulla ruota di " & NomeRuota(r) & " relativa alle " & _
"ultime 18 sortite della spia e alle 15 "
Scrivi "maggiori presenze in un periodo di 9 estr. successive" & _
" alla spiata" & String(18," ") & "Robyca"
ColoreTesto 0
Scrivi String(89,"*")
Scrivi
ru(1) = r
For spia = 1 To 90
Messaggio "NUMERO SPIA " & spia
For x = 0 To 2000
es =(fin - x) - 9
If Posizione(es,r,spia) > 0 Then
cs = cs + 1
For y = 1 To 90
nu(1) = y
If SerieFreq(es + 1,es + 9,nu,ru,1) > 0 Then
prnu(y,1) = y
prnu(y,2) = prnu(y,2) + 1
End If
Next
If cs = 18 Then
cs1 = x
Exit For
End If
End If
Next
OrdinaMatrice prnu,1,2
For j = 1 To 90
rig1(spia) = rig1(spia) + FormatSpace(prnu(j,1),3,True)
rig2(spia) = rig2(spia) + FormatSpace(prnu(j,2),3,True)
Next
ColoreTesto 2
Scrivi NomeRuota(r) & " N. spia: " & spia & " sortito " & _
cs & " volte in " & cs1 & " estr."
ColoreTesto 0
Scrivi rig1(spia)
ColoreTesto 1
Scrivi rig2(spia)
Scrivi
cs = 0
Erase prnu
Next
End Sub

 

[genios]

Tutti in vacanza ?

 

[claudio8]

Con Erase prnu questa matrice viene cancellata alla fine del primo ciclo" for spia" per cui quando ritorna ad esserne richiesto l'utilizzo in prnu(y,1) = y ti da errore ... è normale.
Adesso lascio a te trovare la soluzione dell' errore.

deve darti questo output

 

[Pandit]

Sempre attento e preciso..Grazie Claudio.

 

[claudio8]

Tutti in vacanza ?

Adesso tocca a te postare la versione corretta

 

[Pandit]

ReDim.....

 

[Baciccia4251]

ReDim.....

Ho voluto provare anch'io ma c_Redim_i non ci sono riuscito...

 

[claudio8]

Adesso tocca a te postare la versione corretta

Partito in vacanza?

 

[Baciccia4251]

Partito in vacanza?

Si. E' in vacanza con me. Un viaggio LOW COST. Ma, come si dice un immagine è più esplicativa:

 

[Father]

Sub Main()
    ' NUMERI CHE SI PRESENTANO ENTRO 9 ESTRAZIONI DALL' USCITA DELLA SPIA
    Dim nu(1)
    Dim ru(1)
    Dim prnu(90, 2)
    Dim rig1(90)
    Dim rig2(90)
    Dim fin
    Dim r
    Dim cs
    Dim cs1
    Dim es
    Dim x
    Dim y
    Dim spia

    fin = EstrazioneFin
    r = InputBox("SU' CHE RUOTA FACCIO LA RICERCA", "", 10)
    ColoreTesto 2
    Scrivi "Ricerca sulla ruota di " & NomeRuota(r) & " relativa alle " & _
           "ultime 18 sortite della spia e alle 15 " & _
           "maggiori presenze in un periodo di 9 estr. successive" & _
           " alla spiata" & String(18, " ") & "Robyca"
    ColoreTesto 0
    Scrivi String(89, "*")
    Scrivi

    ru(1) = r
    For spia = 1 To 90
        Messaggio "NUMERO SPIA " & spia
        cs = 0
        For x = 0 To 2000
            es = (fin - x) - 9
            If Posizione(es, r, spia) > 0 Then
                cs = cs + 1
                For y = 1 To 90
                    nu(1) = y
                    If SerieFreq(es + 1, es + 9, nu, ru, 1) > 0 Then
                        prnu(y, 1) = y
                        prnu(y, 2) = prnu(y, 2) + 1
                    End If
                Next
                If cs = 18 Then
                    cs1 = x
                    Exit For
                End If
            End If
        Next
        OrdinaMatrice prnu, 1, 2
        For j = 1 To 90
            rig1(spia) = rig1(spia) + FormatSpace(prnu(j, 1), 3, True)
            rig2(spia) = rig2(spia) + FormatSpace(prnu(j, 2), 3, True)
        Next
        ColoreTesto 2
        Scrivi NomeRuota(r) & " N. spia: " & spia & " sortito " & _
               cs & " volte in " & cs1 & " estr."
        ColoreTesto 0
        Scrivi rig1(spia)
        ColoreTesto 1
        Scrivi rig2(spia)
        Scrivi
        cs = 0
        ' Correzione: utilizza ReDim per resettare la matrice
        ReDim prnu(90, 2)
    Next

 

[Baciccia4251]

Sub Main()
    ' NUMERI CHE SI PRESENTANO ENTRO 9 ESTRAZIONI DALL' USCITA DELLA SPIA
    Dim nu(1)
    Dim ru(1)
    Dim prnu(90, 2)
    Dim rig1(90)
    Dim rig2(90)
    Dim fin
    Dim r
    Dim cs
    Dim cs1
    Dim es
    Dim x
    Dim y
    Dim spia

    fin = EstrazioneFin
    r = InputBox("SU' CHE RUOTA FACCIO LA RICERCA", "", 10)
    ColoreTesto 2
    Scrivi "Ricerca sulla ruota di " & NomeRuota(r) & " relativa alle " & _
           "ultime 18 sortite della spia e alle 15 " & _
           "maggiori presenze in un periodo di 9 estr. successive" & _
           " alla spiata" & String(18, " ") & "Robyca"
    ColoreTesto 0
    Scrivi String(89, "*")
    Scrivi

    ru(1) = r
    For spia = 1 To 90
        Messaggio "NUMERO SPIA " & spia
        cs = 0
        For x = 0 To 2000
            es = (fin - x) - 9
            If Posizione(es, r, spia) > 0 Then
                cs = cs + 1
                For y = 1 To 90
                    nu(1) = y
                    If SerieFreq(es + 1, es + 9, nu, ru, 1) > 0 Then
                        prnu(y, 1) = y
                        prnu(y, 2) = prnu(y, 2) + 1
                    End If
                Next
                If cs = 18 Then
                    cs1 = x
                    Exit For
                End If
            End If
        Next
        OrdinaMatrice prnu, 1, 2
        For j = 1 To 90
            rig1(spia) = rig1(spia) + FormatSpace(prnu(j, 1), 3, True)
            rig2(spia) = rig2(spia) + FormatSpace(prnu(j, 2), 3, True)
        Next
        ColoreTesto 2
        Scrivi NomeRuota(r) & " N. spia: " & spia & " sortito " & _
               cs & " volte in " & cs1 & " estr."
        ColoreTesto 0
        Scrivi rig1(spia)
        ColoreTesto 1
        Scrivi rig2(spia)
        Scrivi
        cs = 0
        ' Correzione: utilizza ReDim per resettare la matrice
        ReDim prnu(90, 2)
    Next

Manca End Sub alla fine