Novità

Script

sorujoe

Advanced Member
Messaggi
518
Punti reazione
5
Punti
18
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
 

Rubino

Advanced Member >PLATINUM<
Messaggi
1.553
Punti reazione
116
Punti
63
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:

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.155
Punti reazione
69
Punti
48
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
Messaggi
518
Punti reazione
5
Punti
18
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<
Messaggi
2.155
Punti reazione
69
Punti
48
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
Messaggi
518
Punti reazione
5
Punti
18
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<
Messaggi
2.155
Punti reazione
69
Punti
48
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
Messaggi
518
Punti reazione
5
Punti
18
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<
Messaggi
2.155
Punti reazione
69
Punti
48
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
Messaggi
518
Punti reazione
5
Punti
18
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
 

sorujoe

Advanced Member
Messaggi
518
Punti reazione
5
Punti
18
se puoi rilasciami una versione in cui le posizioni le immetto io temporaneamente
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.155
Punti reazione
69
Punti
48
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
Messaggi
518
Punti reazione
5
Punti
18
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
 

sorujoe

Advanced Member
Messaggi
518
Punti reazione
5
Punti
18
mi mostrerà previsioni alla cui chiusura mancano 6 colpi ...altre con 5 colpi alla conclusione e cosi via
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.155
Punti reazione
69
Punti
48
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
Messaggi
518
Punti reazione
5
Punti
18
è 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:

sorujoe

Advanced Member
Messaggi
518
Punti reazione
5
Punti
18
se deve "maturare" 11 colpi perche fa vedere questa che ne ha appena 8? Cattura.PNG
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 gennaio 2020
    Bari
    85
    40
    90
    80
    67
    Cagliari
    69
    05
    10
    09
    48
    Firenze
    67
    89
    72
    82
    22
    Genova
    77
    26
    68
    17
    10
    Milano
    62
    15
    19
    87
    44
    Napoli
    74
    04
    76
    53
    12
    Palermo
    50
    31
    67
    68
    28
    Roma
    38
    49
    22
    43
    18
    Torino
    66
    33
    68
    38
    74
    Venezia
    40
    37
    85
    54
    82
    Nazionale
    90
    83
    14
    26
    05

Ultimi Messaggi

Alto