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]

trikkeballakke

 

[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

 

[Delphi]

Scusate lo ha scritto Claudio più chiaro di così

Con Erase prnu questa matrice viene cancellata alla fine del primo ciclo" for spia"

 

[joe]

Partito in vacanza?

Bei tempi, quelli passati, prima che ci fosse

il neoeletto "migliore" suggeritore di esercizi di ordinaria scopiazzatura.

Quelli, dai quali cui si evince, senza estrapolazioni, chi, ReDim lo sapeva usare da molto prima del 2013 !

Per Joe91 cortesemente...

Buongiorno, vista la scarsita' di "scriptologi" mi sto avvicinando (dopo le lezioni da Te impartite all' utente Marcolino) a questo mondo. Sollecitato da un amico ho buttato giu' lo script sottoriportato: Sub Main() Dim ruota(2) Dim nu1(1) Dim posta(1) Dim a1,a2,c1,c2,es,a Dim...

forum.lottoced.com

Ebbbravo, il solito, Claudio !

P.S. Quasi-quasi ... ci metterei un LIKE.

--------------------------------

Father:

ReDim non può essere scritto dopo Dim

E neanche utilizzarlo... prima ... averlo dichiarato.

In sintesi:

Si deve cancellare Dim prnu (90, 2) presente alle prime righe dello script.

e poi inserire ReDim prnu (90,2)

all'inizio del ciclo ... prima ... che a prnu vengano assegnati i 2 valori per ognuno dei 90 numeri.

In ultimo si deve anche togliere Erase prnu che diversamente CANCELLA il DIMENSIONAMENTO che si era fatto.

 

[Father]

ok

 

[Delphi]

Solo in questo forum ho visto scrivere script da ZERO bastava chiedere e la pappa arriva subito bella cotta , come al ristorante con una piccola differenza che al ristorante all'uscita pagavi il conto a volte anche salato

 

[Father]

non sono uno scripter ma neanche de striscio ,ci ho giochicchiato un po con L'IA ..