Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script
- Creatore Discussione sorujoe
- Data di inizio
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.
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
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:
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
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:
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.
si può fare
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
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
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
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:
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.
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.
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
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
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.
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è 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
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ì 14 gennaio 2025Bari4125127355Cagliari5420483267Firenze7523681038Genova3327817064Milano6801648687Napoli4775451021Palermo5586335370Roma8878610607Torino7608236182Venezia2515492181Nazionale7010327807Estrazione Simbolotto
Bari
0714284531
