Per favore dov'e' l'inghippo

[xabio]

Salve scriptomani potete dare un ceck a questo piccolo script .
Quando lo lancio mi da 10 volte (9-indice non compreso nell'intervallo)
io do ok sempre e poi in finestra output lo sviluppo sembra corretto.

Option Explicit
Sub Main
    Dim fre,r1,est,da,x,c1
    Dim posta(2)
    Dim ruota(1)
    Dim num(13)
    
    For est = EstrazioneFin-30 To EstrazioneFin-10
        da = est - 17
        For r1 = 1 To 10
            For x = 1 To 90
                fre = EstrattoFrequenza(r1,x,da,est)
                If fre = 2 Then
                    c1 = c1 + 1
                    If c1 > 13 Then Exit For
                    num(c1) = x
                End If
            Next
            
            ruota(1) = r1
            posta(2) = 1
            
            If c1 = 13 Then
                ImpostaGiocata 1,num,ruota,posta,7,2
                Gioca est
            End If
            c1 = 0
            
        Next
                
    Next
End Sub

Saluti Xabio

 

[Joe91]

Ciao Xabio ...

ti propongo queste semplici modifiche:

Option Explicit
Sub Main
    Dim fre,r1,est,da,x,c1
    Dim posta(2)
    Dim ruota(1)
   ' Dim num(90)
    
    For est = EstrazioneFin-30 To EstrazioneFin-10
        da = est - 17
        For r1 = 1 To 10
          ReDim num(90)
            For x = 1 To 90
                fre = EstrattoFrequenza(r1,x,da,est)
                If fre = 2 Then
                    c1 = c1 + 1
                    'If c1 > 13 Then Exit For
                    num(c1) = x
                End If
            Next
            
            ruota(1) = r1
            posta(2) = 1
            
            If c1 = 13 Then
                Scrivi est & "  " & SiglaRuota (r1) & "  " &  StringaNumeri (num,,1)
                'ImpostaGiocata 1,num,ruota,posta,7,2
                'Gioca est
            End If
            c1 = 0
            
        Next
                
    Next
End Sub

Buona Domenica.

 

[xabio]

Ciao Xabio ...

ti propongo queste semplici modifiche:

Option Explicit
Sub Main
    Dim fre,r1,est,da,x,c1
    Dim posta(2)
    Dim ruota(1)
   ' Dim num(90)
    
    For est = EstrazioneFin-30 To EstrazioneFin-10
        da = est - 17
        For r1 = 1 To 10
          ReDim num(90)
            For x = 1 To 90
                fre = EstrattoFrequenza(r1,x,da,est)
                If fre = 2 Then
                    c1 = c1 + 1
                    'If c1 > 13 Then Exit For
                    num(c1) = x
                End If
            Next
            
            ruota(1) = r1
            posta(2) = 1
            
            If c1 = 13 Then
                Scrivi est & "  " & SiglaRuota (r1) & "  " &  StringaNumeri (num,,1)
                'ImpostaGiocata 1,num,ruota,posta,7,2
                'Gioca est
            End If
            c1 = 0
            
        Next
                
    Next
End Sub

Buona Domenica.

Ciao Giorgio grazie :
Ho capito che ReDim() mi azzera tutta la matrice ogni giro e quindi va bene non serve piu'
la condizione con Exit For .
Ma la giocata perche' da ancora errore
Avevo anch'io provato in precedenza le tue modifiche poi ho cambiato perche' mi dava errore non con le stringhe ma nella giocata.
Ti saluto buona domenica.

 

[Joe91]

Ciao,

normalmente, non uso l'istruzione "Gioca" e pertanto ho poca esperienza con essa.

Suppongo l'errore derivi dal numero dei numeri: 13.

Sono più che le tribù di Israele ... un numero enorme, che comunque non può essere contenuto

in una "bolletta" e pertanto deve essere "ridotto" in un qualche modo.

Per il resto non ho capito bene cosa dovesse fare lo script ...

Ma se esce (usciva con Exit For) al "13", prima di aver controllato anche gli altri numeri...

dal numero incognito che lo ha determinato ... fino al 90, non era controllato!

 

[Mike58]

Ciao, xabio e joe, l'inghippo è rappresentato dalla funzione gioca che deve contenere al massimo 10 numeri.
L'argomento era stato già trattato in passato è luigi aveva creato la funzione in base alle giocate reali lotto.
Pertanto sul 1° script non c'è nessun errore infatti sè circoscrivi la ricerca = 10 e il filtro > 10 non da nessun errore.

Tuttavia se si volesse procedere sulla strada di numeri > 10 non rimane come ha fatto joe far scrivere i numeri e verificarli con il verificaEsito.

Ciao
Mike

 

[Joe91]

Ringrazio Mike per il suggerimento

VerificaEsito è una istruzione che sicuramente non ho mai ustato ma che, se accetta tutti e 13 i numeri, sarà utile a Xabio.

Grazie.

 

[Mike58]

ciao joe, xabio eccone un esempio con il verificaEsito.
Solo a me piace usarlo in tabella.

Ciao

'Option Explicit
Sub Main
    Dim fre,r1,est,da,x,c1
    Dim posta(2)
    Dim ruota(1)
   ' Dim num(90)
    ReDim at(8)
at(1) = " data estraz. INIZIO  "
at(2) = " Ruota "
at(3) = " Numeri in Gioco "
at(4) = " Conta Num "
at(5) = " Esito "
at(6) = " Colpo "
at(7) = " Estratti "
at(8) = " Data estraz. Fine "
Call InitTabella(at,1,,3,5)
    For est = EstrazioneFin-30 To EstrazioneFin-10
        da = est - 17
        For r1 = 1 To 10
          ReDim num(90)
            For x = 1 To 90
                fre = EstrattoFrequenza(r1,x,da,est)
                If fre = 2 Then
                    c1 = c1 + 1
                    If c1 > 13 Then Exit For
                    num(c1) = x
                End If
            Next
            
            ruota(1) = r1
            posta(2) = 1
            
            If c1 = 13 Then
Call VerificaEsito(num,ruota,est+1,2,17,Nothing,retesito,retcolpi,retestratti,retid)

ReDim av(8)
av(1) = DataEstrazione(est)
av(2) = NomeRuota(r1)
av(3) = StringaNumeri(num)
av(4) = c1
av(5) = retesito
av(6) = retcolpi
av(7) = retestratti
If retesito = "" Then av(8) = " esito non verificato "
If retesito <> "" Then av(8) = DataEstrazione(retid)
Call AddRigaTabella(av,,,3)
               'Call  Scrivi (DataEstrazione (est) & "  " & SiglaRuota (r1) & "  " &  StringaNumeri (num,,1),True,False,6,1,2)
'        Call Scrivi (" - Esito..." & retesito & " - " & Retcolpi & " - " & retestratti & " - " & DataEstrazione(retid),True,True,4,1,2)
                'ImpostaGiocata 1,num,ruota,posta,7,2
                'Gioca est
            End If
            c1 = 0
            
        Next
                
    Next
Call CreaTabella()
End Sub

 

[Joe91]

ciao joe, xabio eccone un esempio con il verificaEsito.
Solo a me piace usarlo in tabella.

Ciao Mike

Si, hai ragione, con Spaziometria, è decisamente ben predisposta, la creazione di tabelle-professionali.

BRAVO. OTTIMO LAVORO.

 

[xabio]

Bravissimo Mike il verifica esito e' senzaltro un'ottima funzione che posso usare devo assimilarla e gentilissimo nel creare lo script a tema .
Mi hai subito chiarito dicendo che la funzione Impostagiocata/Gioca lavora con max 10 numeri in vettore
anche Joe lo aveva accennato anzi chiaramente non e' possibile la giocata in bolletta ma se i riscontri fossero stati interessanti mi sarei orientato
con un sistema tipo 13 quartine ortogonale garanzia ambo.
Forse e possibile inserirlo direttamente nello script !

Ma se esce (usciva con Exit For) al "13", prima di aver controllato anche gli altri numeri...

dal numero incognito che lo ha determinato ... fino al 90, non era controllato!

Joe si trattava di rilevare in 18 estrazioni 13 numeri con 2 presenze e di usare questa lunghetta per la sorte di ambo
nelle x est, successive .
Metodo letto qua sul forum qualche giorno fa .
Ovviamente tutto da pefezionare solo che non sapendo sfruttare tutte le funzioni mi sono affidato a quella che mi sembrava piu' semplice
e mi sono incagliato quasi subito in questo errore.

Grazie a entrambi .

 

[Joe91]

Ciao Xabio,

effettivamente, avevo intravvisto alcuni giorni fa la proposta/metodo-statistico di Rosa,

ed è per questa ragione che ho modificato lo script di cui mi era parso fosse indirizzato a quella ricerca.