Novità

Script

sorujoe

Advanced Member
HTML:
Option Explicit
Sub Main
   '''''
   '''''script valido per 3 posizioni immesse altrimenti errore
   '''' esclude numeri piramidati uguali a gemello o cadenza(9)
   '''''
   ColoreTesto(1)
   Scrivi "Byron-20",1
   ColoreTesto(0)
   Dim r,es,n,p,e,j,retrit,retritmax,rite,rita,a,b,c,ct,ctr,nc,ini,ctv
   Dim an(2)
   ''
   r = CInt(InputBox("Inserisci Ruota ",,6))
   p = InputBox("Inserisci posizioni",,"1-3-5")
   es = InputBox("Estrazione n.",,EstrazioneFin)
   nc = CInt(InputBox("n.Colpi ",,13))
   '''
   '''rileva estratti e piramidati si ottiene un numero che con il suo vertibile sono l'ambata e l'ambo
   '''
   Scrivi "Ricerca Estratti nelle posizioni richieste",1
   ReDim av(3)
   Call SplitByChar(p,"-",av)
  ''''''
   ColoreTesto(2)
   Scrivi "Ruota Richiesta.." & NomeRuota(r),1
   Scrivi "dall Estrazione n." & es + 1 & " / " & DataEstrazione(es + 1),1
   Scrivi "Posizioni Richieste.." & p,1
   ColoreTesto(0)
   ''''''
   '''''loop
   ini = es
   Scrivi "---------------------------------------------------------------------------------------------",1
   For es = es + 1 To EstrazioneFin - 1
      ctr = ctr + 1
      Messaggio(es)
      '''prepara arrays estratti
      Scrivi es & " / " & DataEstrazione(es) & "  Rilevati.. " & Format2(Estratto(es,r,av(0))) & "." & Format2(Estratto(es,r,av(1))) & "." & Format2(Estratto(es,r,av(2))) & "   Nelle Posiz." & p,1
      a = Fuori90(Estratto(es,r,av(0)) + Estratto(es,r,av(1)))
      b = Fuori90(Estratto(es,r,av(1)) + Estratto(es,r,av(2)))
      c = Fuori90(a + b)
      Scrivi Format2(a) & " " & Format2(b)
      Scrivi Format2(c) & " Vert." & Vert(Format2(c)),1
      an(1) = Format2(c)
      an(2) = Vert(Format2(c))
      ColoreTesto(2)
      Scrivi "Numero Piramidato e suo vertibile ..." & Format2(an(1)) & "." & Format2(an(2)),1
      ColoreTesto(0)
      '''''
         ReDim ar(2)
         ar(1) = r
         For j = 1 To 11
            If j <> r Then
               If j = 11 Then j = 12
               ar(2) = j
               rite = RitardoCombinazioneTurbo(ar,an,1,EstrazioneFin)
               rita = RitardoCombinazioneTurbo(ar,an,2,EstrazioneFin)
               If rite >= 11 Then
                        ctv = ctv + 1
                        ColoreTesto(1)
                     Scrivi "Estr.n." & EstrazioneFin & "  colpo n. " & EstrazioneFin - es & "   " & SiglaRuota(ar(1)) & " / " & SiglaRuota(ar(2)) & "  Estratti  " & Format2(an(1)) & "." & Format2(an(2)) & "  Ritardi....Estratto." & FormattaStringa(rite,"000") & "  Ambo.." & FormattaStringa(rita,"0000"),1
                        ColoreTesto(0)
               End If
            End If
         Next
         If ctv = 0 Then
            ColoreTesto(0)
            Scrivi "La previsione non rientra nei limiti del ritardo minimo impostato  ",1
            ColoreTesto(0)
         End If
      Scrivi "---------------------------------------------------------------------------------------------",1
   Next
   Scrivi "Totale combinazioni calcolate " & ctr,1
   Scrivi "Totale Combinazioni valide..  " & ctv,1
End Sub
 
R

Rubino

Guest
Byron sai che oggi è domenica?

qua ti metto lo script come lo avevi richiesto l'altra volta.

Bhe ora sei passato anche a voler le permutazioni delle posizioni,

mah, sai cosa vuol dire? già devi controllare un tabulato di 10 ruote con delle combinazioni rintracciate relative ad un terzetto di estratti
in posizione, se per non digitare le posizioni, ma sparare nel mucchio e farlo fare in automatico, vuol anche dire poi,
avere 60 circa elenchi o output da controllare e come fai a controllarli tutti.?

mah, a che ti servono tutti sti dati da controllare?

spero che leggi quello che scrivo, visto che l'altra volta "Avevo messo che i gemelli e cadenza 9", lo avrei fatto successivamente
ma tu continui a dire, che lo script è sbagliato ed è quello che non hai detto all'inizio.
sicuramente non ti piacerà!

questo è lo script, fin qui fatto, come avevi richiesto fino ad ieri.


Codice:
Option Explicit
Sub Main
   '''''
   '''''script valido per 3 posizioni immesse altrimenti errore,rilanciare !!!!
   '''' esclude numeri piramidati uguali a gemello o cadenza(9) o nr.09 90
   '''''
   ColoreTesto(1)
   Scrivi "Byron-20",1
   ColoreTesto(0)
   Dim r,es,n,p,e,j,retrit,retritmax,rite,rita,a,b,c,ct,ctr,nc,ini,ctv,esini,x
   Dim an(2)
   ''
   p = InputBox("Inserisci posizioni",,"1-3-5")
   esini = InputBox("dall Estrazione n.",,EstrazioneFin)
   nc = CInt(InputBox("n.Colpi ",,18))
   ''
   ''''''loop automatico delle ruote
   For r = 1 To 12
      If r <> 11 Then
         Scrivi:Scrivi:Scrivi String(89,"*")
         '''rileva estratti e piramidati si ottiene un numero che con il suo vertibile sono l'ambata e l'ambo
         '''
         ReDim av(3)
         Call SplitByChar(p,"-",av)
         ''''''
         ColoreTesto(2)
         Scrivi "Ruota Richiesta.." & NomeRuota(r),1
         ColoreTesto(0)
         Scrivi "dall Estrazione n." & esini & " / " & DataEstrazione(esini) & " - all estraz.n." & EstrazioneFin & " / " & DataEstrazione(EstrazioneFin),1
         Scrivi "Posizioni Richieste.." & p,1
         ColoreTesto(0)
         ''''''
         '''''loop
         ini = esini
         es = esini
         Scrivi "-------------------------------------------------------------",1
         For es = es + 1 To EstrazioneFin - 1
            ctr = ctr + 1
            Messaggio(es)
            '''prepara arrays estratti
            a = Fuori90(Estratto(es,r,av(0)) + Estratto(es,r,av(1)))
            b = Fuori90(Estratto(es,r,av(1)) + Estratto(es,r,av(2)))
            c = Fuori90(a + b)
            '''''
            an(1) = Int(c)
            an(2) = Vert(Int(c))
            '''
            '''
            If Int(c) <> 90 And Int(c) <> 9 Then '''' esclusione 09 90
               If Gemello(Int(c)) = False And Gemello(Vert(Int(c))) = False Then ''' esclusione gemello
                  If Cadenza(c) < 9 Or Cadenza(Vert(c)) < 9 Then ''' esclusione cadenza (9)
                     '''
                     ColoreTesto(0)
                     '''''
                     ct = 0 : x = 0
                     ReDim ar(2)
                     ar(1) = r
                     For j = 1 To 11
                        If j <> r Then
                           If j = 11 Then j = 12
                           ar(2) = j
                           rite = RitardoCombinazioneTurbo(ar,an,1,EstrazioneFin)
                           rita = RitardoCombinazioneTurbo(ar,an,2,EstrazioneFin)
                           If(EstrazioneFin - es) <= nc Then
                              If rite >= 11 Then
                                 If x = 0 Then
                                    Scrivi es & " / " & DataEstrazione(es) & "  Rilevati.. " & Format2(Estratto(es,r,av(0))) & "." & Format2(Estratto(es,r,av(1))) & "." & Format2(Estratto(es,r,av(2))) & "   Nelle Posiz." & p,1
                                    Scrivi "Numero Piramidato e suo vertibile ..." & Format2(an(1)) & "." & Format2(an(2)),1
                                    x = 1
                                 End If
                                 ''
                                 ct = ct + 1
                                 ColoreTesto(1)
                                 Scrivi "Estr.n." & EstrazioneFin & "  colpo n. " & EstrazioneFin - es & "   " & SiglaRuota(ar(1)) & " / " & SiglaRuota(ar(2)) & "  Estratti  " & Format2(an(1)) & "." & Format2(an(2)) & "  R.C..Estratto." & FormattaStringa(rite,"000") & "     R.C..Ambo.." & FormattaStringa(rita,"0000"),1
                                 ColoreTesto(0)
                                 If rita < nc Then
                                    Scrivi "---->  Scartata perchè Ritardo Estratti troppo basso  <----",1
                                 Else
                                    ctv = ctv + 1
                                 End If
                              End If
                           End If
                        End If
                     Next
                     ''''
                     If ct >= 1 Then Scrivi "------------------------------------------------------------",1
                     '''
                  End If
               End If
            End If
         Next
      End If
      ''''loop ruote
   Next
   Scrivi "Totale combinazioni calcolate " & ctr,1
   Scrivi "Totale Combinazioni valide..  " & ctv,1
   Scrivi:Scrivi "Tempo Elab." & TempoTrascorso,1
End Sub
 
Ultima modifica di un moderatore:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Ciao Sorujoe


La permutazione delle posizioni non l'ho fatto perchè non so come fare, le permutazioni possibili con 3 numeri sono 6, già così impostando solo 150 estrazioni per ogni ruota di media risultano 100 previsioni perchè come da te richiesto scarta i gemelli, i finali 9 e quelli che nelle prime 11 estrazioni (cambiabili da esterno) hanno avuto dei riscontri, quindi giustamente come dice Rubino, mettendo anche le permutazioni vengono fuori moltissime, previsioni, comunque lo script rispetta la sequenza delle 3 posizioni, quindi se per esempio imposti posizioni 1-3-2 la base della piramide sarà con le posizioni 1-3-2


Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,S1,S2,S3
   Dim R1,R2,P1,P2,P3,P4,P5,P6,A,B,C,Attesa
   Dim VertS3,CaS3,CaVertS3,Caso,Casi
   Dim Posta(1),Ruote(2),Nu(2),Poste(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500))
   P1 = CInt(InputBox("INSERISCI IL 1° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,3))
   P2 = CInt(InputBox("INSERISCI IL 2° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,1))
   P3 = CInt(InputBox("INSERISCI IL 3° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,2))
   If P1 <> P2 And P1 <> P3 And P2 <> P3 Then
      Attesa = CInt(InputBox("INSERISCI QUANTI COLPI VUOI ASPETTARE PRIMA DI GIOCARE",,11))
      Clp1 = InputBox("PER QUANTI COLPI VUOI GIOCARE?",,13)
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
      Posta(1) = 1
      Poste(2) = 1
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         Caso = 0
         For Es = Ini To FIn
            Messaggio Es & "   PRIMA RUOTA  " & NomeRuota(R1)
            AvanzamentoElab Ini,FIn,Es
            For R2 = 1 To 12
               If R2 = 11 Then R2 = 12
               If R1 <> R2 Then
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If A > 0 Then
                     S1 = Fuori90(A + B)
                     S2 = Fuori90(B + C)
                     S3 = Fuori90(S1 + S2)
                     VertS3 = Vert(S3)
                     CaS3 = Cadenza(S3)
                     CaVertS3 = Cadenza(VertS3)
                     If Not Gemello(S3)And Not Gemello(VertS3) And CaS3 <> 9 And CaVertS3 <> 9 Then
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Nu(1) = S3 : Nu(2) = VertS3
                        If SerieFreqTurbo(Es,Es + Attesa,Nu,Ruote,1) = 0 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(72,"*") & " Casi con la Prima Ruota " & SiglaRuota(R1) & " = " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P6 = 1 To 5
                              E1 = Estratto(Es,R1,P6)
                              If E1 = A Or E1 = B Or E1 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  Seconda Ruota ",1,0
                           Scrivi NomeRuota(R2),1,,,2
                           Scrivi
                           Scrivi Space(12) & " PIRAMIDE",1,,,2
                           Scrivi Space(12) & Format2(A) & "  " & Format2(B) & "  " & Format2(C),1
                           Scrivi Space(14) & Format2(S1) & "  " & Format2(S2),1
                           Scrivi Space(16) & Format2(S3),1
                           Scrivi
                           Scrivi "     COLPI DI ATTESA IMPOSTATI " & Format2(Attesa)
                           Scrivi
                           ImpostaGiocata 1,Nu,Ruote,Posta,Clp1,1,Attesa
                           ImpostaGiocata 2,Nu,Ruote,Poste,Clp1,2,Attesa
                           Gioca Es
                        End If
                     End If
                  End If
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
   If P1 = P2 Or P1 = P3 Or P2 = P3 Then Scrivi " HAI INSERITO 2 O PIU' POSIZIONI UGUALI NELLA 1ª RUOTA",1,,,2
End Sub
 
Ultima modifica:

sorujoe

Advanced Member
Ti ringrazio tuttavia lo script deve visualizzare SOLO le previsioni in gioco da almeno 11 colpi e non ancora sfaldate (al momento le mostra tutte). Se alzo tale valore a 15 anche con le permutazioni sulle posizioni le previsioni in gioco saranno pochissime quindi non c'è il problema di avere un mare di giocate; per cui è utile farle. Sperando che qualcuno lo faccia ti ringrazio ancora e ti chiedo di eliminare i casi in cui la previsione non abbia raggiunto i colpi indicati ed eliminare i casi in cui la previsione ha dato esito.

p.s.
Se puoi aggiungere questo filtro:
Eliminare le previsioni in cui v'è presente l'ambata sulle ruote di gioco nell'estrazione di rilevamento. Grazie
 

salvo50

Advanced Member >PLATINUM PLUS<
sorujoe;n2180839 ha scritto:
Ti ringrazio tuttavia lo script deve visualizzare SOLO le previsioni in gioco da almeno 11 colpi e non ancora sfaldate (al momento le mostra tutte).

Ma come fai a dire che le mostra tutte, dove guardi?

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/jj0hr2n6\/Byron.png"}[/IMG2]


Ho preso una estrazione a caso, la prima, il circoletto in alto è l'estrazione dove fa i calcoli, nel circoletto in basso c'è l'estrazione dove inizia la ricerca quindi
9517 - 9505 = 12 hai impostato 11 ed è giusto così perchè l'estrazione 9517 non si deve contare, le 11 estrazioni di attesa si calcolano fino alla 9516 e visualizza solo le estrazioni che nei primi 11 non è uscito nessuna previsione, se in quelle 11 estrazioni è uscito anche un solo numero dei 2 previsti, quella estrazione la scarto, io ho capito così, se è è diversamente, spiegati meglio, anche con più di un esempio.


p.s.
Se puoi aggiungere questo filtro:
Eliminare le previsioni in cui v'è presente l'ambata sulle ruote di gioco nell'estrazione di rilevamento. Grazie

si può fare
 

sorujoe

Advanced Member
Scusa Salvo lo script mi deve fare vedere solo i casi in gioco da almeno 11 sorteggi e non ancora sortiti.
Se metto 11 e tempo di gioco 18 il software mi deve mostrare i casi in cui una previsione ha raggiunto almeno 11 sorteggi di gioco e non avente dato esito. Se una previsione arriva alla 18ma senza esito è negativo.
Ma i casi sfaldati oltre la 11ma non deve farli vedere
 

salvo50

Advanced Member >PLATINUM PLUS<
Quindi non deve far vedere nessun caso positivo, l'output deve mostrare solo i casi negativi?

Se non è così, quali sono i casi positivi che deve far vedere?
 

sorujoe

Advanced Member
Mettiamo di essere al concorso 9670 (ultimo concorso in archivio); se metto data di inizio analisi concorso 9650 per 18 colpi e tempo di attesa 12
deve fare vedere le previsioni che hanno raggiunto i 12 colpi di gioco e che non hanno ancora dato esito
é ovvio che se una previsione giunge al 19mo colpo la marca come negativo
Previsioni sfaldate non ne deve proprio far vedere
Per questo è importante la permutazione sulle posizioni poiche casi giocabili ne saranno pochi se alzo l'attesa a 15 colpi per esempio
 

salvo50

Advanced Member >PLATINUM PLUS<
sorujoe;n2180858 ha scritto:
Mettiamo di essere al concorso 9670 (ultimo concorso in archivio); se metto data di inizio analisi concorso 9650 per 18 colpi e tempo di attesa 12

per 18 colpi e tempo di attesa 12, cosa vuol dire che dopo i 12 colpi, per il conteggio dei 18 colpi si inizia da 1, oppure si inizia da 13, cioè nei 18 colpi si conteggiano anche i 12 colpi, per me non è ovvio.

Per questo è importante la permutazione sulle posizioni poiche casi giocabili ne saranno pochi se alzo l'attesa a 15 colpi per esempio

Io l'ho alzata a 24 ed i colpi negativi sono di meno, ma sempre molti, comunque, a tempo perso cercherò di inserire le permutazioni, se ci riesco.
 

sorujoe

Advanced Member
Un pronostico rilevato dall'estrazione 9650 alla 9662 ha 12 colpi dei 18 ...per essere visualizzato non deve aver dato esito ed io avrò dovuto impostare il tempo di attesa massimo a 12 ...se lo avessi impostato a 13 lo avrebbe visualizzato il concorso seguente sempre che ancora in gioco e sarebbe il 13mo colpo dei 18 ...quindi in gioco per altri 5 sorteggi
 

salvo50

Advanced Member >PLATINUM PLUS<
sorujoe;n2180882 ha scritto:
Un pronostico rilevato dall'estrazione 9650 alla 9662 ha 12 colpi dei 18 ...per essere visualizzato non deve aver dato esito ed io avrò dovuto impostare il tempo di attesa massimo a 12 ...se lo avessi impostato a 13 lo avrebbe visualizzato il concorso seguente sempre che ancora in gioco e sarebbe il 13mo colpo dei 18 ...quindi in gioco per altri 5 sorteggi

Non capisco, ma a che serve fare questa distinzione di 12 e 18, impostalo direttamente a 18, dato che deve segnare solo i colpi negativi.
 

sorujoe

Advanced Member
deve mostrarmi i casi in gioco che hanno raggiunto i 12 colpi e non hanno dato esito.
Se analizzo gli ultimi 18 sorteggi ipotizziamo data fine archivio 9668 io analizzo dalla 9650 mi mostrerà le previsioni che hanno raggiunto i 12 colpi e non hanno ancora dato esito
 

salvo50

Advanced Member >PLATINUM PLUS<
Se non mi fai un esempio con numeri anche fittizzi non lo capisco, cioè mi devi fare un disegnino di come dovrebbe essere l'output, sono duro di comprendonio, non ci posso fare niente.

Prova questo e speriamo bene.

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,S1,S2,S3
   Dim R1,R2,P1,P2,P3,P4,P5,P6,A,B,C,Attesa
   Dim VertS3,CaS3,CaVertS3,Caso,Casi,S4,So1
   Dim Posta(1),Ruote(2),Nu(2),Poste(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500))
   P1 = CInt(InputBox("INSERISCI IL 1° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,3))
   P2 = CInt(InputBox("INSERISCI IL 2° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,1))
   P3 = CInt(InputBox("INSERISCI IL 3° NUMERO DI POSIZIONE DELLA 1ª RUOTA",,2))
   If P1 <> P2 And P1 <> P3 And P2 <> P3 Then
      Attesa = CInt(InputBox("INSERISCI QUANTI COLPI VUOI ASPETTARE PRIMA DI GIOCARE",,11))
      Clp1 = CInt (InputBox("PER QUANTI COLPI VUOI GIOCARE?",,18))
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
      Posta(1) = 1
      Poste(2) = 1
      So1 = Clp1 - Attesa
      S4 = Attesa + So1
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         Caso = 0
         For Es = Ini To FIn
            Messaggio Es & "   PRIMA RUOTA  " & NomeRuota(R1)
            AvanzamentoElab Ini,FIn,Es
            For R2 = 1 To 12
               If R2 = 11 Then R2 = 12
               If R1 <> R2 Then
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If A > 0 Then
                     S1 = Fuori90(A + B)
                     S2 = Fuori90(B + C)
                     S3 = Fuori90(S1 + S2)
                     VertS3 = Vert(S3)
                     CaS3 = Cadenza(S3)
                     CaVertS3 = Cadenza(VertS3)
                     If Not Gemello(S3)And Not Gemello(VertS3) And CaS3 <> 9 And CaVertS3 <> 9 Then
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Nu(1) = S3 : Nu(2) = VertS3
                        If SerieFreqTurbo(Es,Es + S4,Nu,Ruote,1) = 0 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(72,"*") & " Casi con la Prima Ruota " & SiglaRuota(R1) & " = " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P6 = 1 To 5
                              E1 = Estratto(Es,R1,P6)
                              If E1 = A Or E1 = B Or E1 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  Seconda Ruota ",1,0
                           Scrivi NomeRuota(R2),1,,,2
                           Scrivi
                           Scrivi Space(12) & " PIRAMIDE",1,,,2
                           Scrivi Space(12) & Format2(A) & "  " & Format2(B) & "  " & Format2(C),1
                           Scrivi Space(14) & Format2(S1) & "  " & Format2(S2),1
                           Scrivi Space(16) & Format2(S3),1
                           Scrivi
                           Scrivi "     COLPI DI ATTESA IMPOSTATI " & Format2(Attesa)
                           Scrivi
                           ImpostaGiocata 1,Nu,Ruote,Posta,S4,1',Attesa
                           ImpostaGiocata 2,Nu,Ruote,Poste,S4,2',Attesa
                           Gioca Es
                        End If
                     End If
                  End If
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
   If P1 = P2 Or P1 = P3 Or P2 = P3 Then Scrivi " HAI INSERITO 2 O PIU' POSIZIONI UGUALI NELLA 1ª RUOTA",1,,,2
End Sub
 

sorujoe

Advanced Member
è giusto
solo che che i casi in cui non ha maturato gli 11 colpi di attesa (se la metto a 11) non li deve mostrare.
Se metto attesa minima 11 la previsione deve avere almeno 11 colpi di gioco e non aver dato esito per cui le ultime 10 estrazioni dalla fine archivio non le deve considerare.
Il resto è tutto ok
MANCANO le permutazioni che spero arrivino presto


************************************************** ********************** Casi con la Prima Ruota NZ = 0040 Estrazione n.9654 del 11.07.2019 NZ 84 02 71 49 22
Seconda Ruota Milano


questa ha una sola estrazione di gioco
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto