Formazioni 10 e lotto
- Creatore Discussione Cinzia27
- Data di inizio
Grazie, Marorun.
Adesso lo script funziona ?
Inserisco lo script postato prima. Ci vogliono alcune ore ma si arriva alla conclusione.
Adesso lo script funziona ?
Inserisco lo script postato prima. Ci vogliono alcune ore ma si arriva alla conclusione.
Codice:
Sub Main()
'10 e lotto storici quartine per terno(Cinzia)
Dim n(4)
w = 3
For a = 1 To 87
For b = a + 1 To 88
For c = b + 1 To 89
If ScriptInterrotto Then Exit For
For d = c + 1 To 90
n(1) = a
n(2) = b
n(3) = c
n(4) = d
rt = SerieStoricoDL(1,EstrazioneFinDL,n,w)
If rt < 110 Then 'con questo paramentro 1683 serie - si consiglia <105 per non avere troppi casi
cc = cc + 1
Messaggio FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
Scrivi FormatSpace(cc,4,1) & ") " & StringaNumeri(n) & " rt " & FormatSpace(rt,4,1)
End If
Next
Next
Next
Next
End SubCiao, 80Sete. Grazie dell' ottimo tabellone.Tu che sicuramente te ne intendi di 10 e lotto mi potrai dare qualche suggerimento.
Io grazie all' input dato da questa discussione mi sono documentata ma non ho mai mai giocato a quello serale legato alle estrazioni.
Di solito cosa è meglio giocare tanti numeri fino a 10 o pochi numeri magari con oro e doppio oro ? Ovviamente se qualcuno vuole aggiungersi, più cose si sanno meglio è.
Io grazie all' input dato da questa discussione mi sono documentata ma non ho mai mai giocato a quello serale legato alle estrazioni.
Di solito cosa è meglio giocare tanti numeri fino a 10 o pochi numeri magari con oro e doppio oro ? Ovviamente se qualcuno vuole aggiungersi, più cose si sanno meglio è.
Ciao, Marcorun. Ci va circa una giornata. Inserisco anche qua le quartine più interessanti. Così eviti di farlo girare.
| 33) 1.15.88.89 rt 96 |
| 693) 12.40.72.81 rt 98 |
| 795) 14.51.60.76 rt 98 |
| 1287) 30.73.81.84 rt 99 |
| 1679) 76.79.81.86 rt 97 |
| 1478) 43.49.69.70 rt 100 |
| 1567) 51.55.64.82 rt 100 |
| 17) 1.12.32.44 rt 101 |
| 242) 4.76.80.81 rt 101 |
| 1251) 29.44.68.74 rt 101 |
| 1405) 37.52.70.81 rt 101 |
| 1562) 50.62.79.86 rt 101 |
| 1563) 50.63.70.85 rt 101 |
buonasera,
posto il listato modificato , per l'uso 10elotto serale , classico .
posto il listato modificato , per l'uso 10elotto serale , classico .
Codice:
Option Explicit
Sub Main()
'10 e lotto storici quartine per terno(Cinzia)
Call ImpostaArchivio10ELotto(01)
Dim w,a,b,c,d
Dim rt,cc
Dim n(4)
w = TERNO_' 3
For a = 01 To 87
For b = a + 01 To 88
For c = b + 01 To 89
If ScriptInterrotto Then Exit For
For d = c + 01 To 90
n(01) = a
n(02) = b
n(03) = c
n(04) = d
rt = SerieStoricoDL(1,EstrazioneFinDL,n,w)
If rt < 110 Then 'con questo paramentro 1683 serie - si consiglia <105 per non avere troppi casi
cc = cc + 01
Call Messaggio(FormatSpace(cc,04,01) & ") " & StringaNumeri(n,,True) & " rt " & FormatSpace(rt,04,01))
Call Scrivi(FormatSpace(cc,04,01) & ") " & StringaNumeri(n,,True) & " rt " & FormatSpace(rt,04,01))
End If
Next
Next
Next
Next
End Subsecondo me ,per velocizzare un po lo sviluppo si puo usare InitSviluppoIntegrale,
ma per certi livelli e' indispensabile un tempo enorme ,
questo e' un esempio , da provare .
ma per certi livelli e' indispensabile un tempo enorme ,
questo e' un esempio , da provare .
Codice:
Option Explicit
Sub Main
Call ImpostaArchivio10ELotto(01)
Dim k,s,rt,cc
Dim nClasse,nSorte,nColonneTot
ReDim aNumeri(90)
Dim aCol
nClasse = 4
nSorte = 3
For k = 01 To 90
aNumeri(k) = k
Next
nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
k = 0
Do While GetCombSviluppo(aCol)
k = k + 01
rt = SerieStoricoDL(EstrazioneIniDL,EstrazioneFinDL,aCol,nSorte)
If rt < 110 Then 'con questo paramentro 1683 serie - si consiglia <105 per non avere troppi casi
cc = cc + 1
s = FormatSpace(cc,04,01) & ") " & StringaNumeri(aCol,,True) & " rt " & FormatSpace(rt,04,01)
Call Scrivi(s)
End If
Call Messaggio("Colonna " & k & " trovate " & cc)
If ScriptInterrotto Then Exit Do
Loop
End Sub
Alien.
Advanced Premium Member
Si ciao Cinzia ok per i 10 numeri io sarei per i più frequenti, inoltre servirebbe sapere quale sono le 2 decine che danno nel tempo, tot mesi in genere con 2 decine si arriva a 7/10 punti-sono 20 numeri che poi vanno "scremati" con dei filtri , pari ,dispari,finali ecc. comunque un passo alla volta ,grazie per il tuo impegno.
Ciao, Giomi. Complimenti per il listato. Sintetico, come piace a me. Ora sto facendo varie prove con esso. Vi farò sapere.
Ciao, Alien, a me lo script di Giomi funziona benissimo, qual' è il tipo di errore?
Per i filtri si può vedere in seguito. Sto prendendo confidenza con questo tipo di gioco.
A presto
80Sete
Advanced Member >PLATINUM PLUS<
Ciao Cinzia, ho iniziato da non molto a seguire il 10 e Lotto Serale, ho la mia teoria da seguire, cerco di prendere il nr Oro e il Doppio Oro, che sono i primi 2 estratti di BA, sono quelli che ti fanno vincere di più, li cerco tra le Ambate su BA, come faccio nel cercarle nel gioco del Lotto, si vince anche senza nr Oro, basta che siano presenti più numeri nella tua colonna di 6 o 7 nr....... seguo anche i più frequenti del 10 e Lotto Serale, infine seguo il tabellone analitico......ma purtroppo la spesa non è di poca cosa, io gioco una volta ogni settimana o ogni 15gg. giocando le colonne in cruciverba di 6x6 = 36 nr su 90......oppure 7x7 = 49 nr su 90, naturalmente si devono incolonnare, e qui subentra SOLO un colpo di fortuna. Ti allego lo specchietto del cruciverba, qui ho inserito i nr dall'1 al 49 solo da visualizzare, non è un pronostico. Ci sono in tot 16 colonne : 7 orizzontali - 7 verticali - e le 2 oblique in colore. Ti dico che non è andata male in alcune occasioni, ma purtroppo.....le ultime 2 volte.....neppure un numero nel 6 x 6.
Preferirei non mettere previsioni, sono troppe colonne in gioco e la spesa è notevole.
Ciao e buon lavoro di ricerca....dimenticavo....dei 20 nr estratti, valgono i primi 2 estratti delle 10 Ruote, se ripetuti si avvale dei 3* estratti partendo da BA, ma ho visto che più sù, ti han chiarito bene il tutto.
Grazie, 80Sete. Spiegazione chiara ed esaustiva. E visto che ti piacciono i cruciverba, sottopongo a te e agli amici un quesito.
Con 9 numeri possiamo formare 12 terzine in cui i numeri si accoppiano tutti una sola volta.
Gruppo base la 1° col. resta invar, la 2° inizia col 2° n della 2° e la 3° col 3° idem rispetto alla prec. l' ultima è il 1° gruppo
in orizzontale
Potete farlo anche con le cinquine, ma con sorti superiori ? Non è necessario che siano dei quadrati possono essere anche dei rettangoli ma prima o poi le coppie si ripeteranno.
Con 9 numeri possiamo formare 12 terzine in cui i numeri si accoppiano tutti una sola volta.
Gruppo base la 1° col. resta invar, la 2° inizia col 2° n della 2° e la 3° col 3° idem rispetto alla prec. l' ultima è il 1° gruppo
in orizzontale
1 | 4 | 7 | 1 | 5 | 9 | 1 | 6 | 8 | 1 | 2 | 3 | |||
2 | 5 | 8 | 2 | 6 | 7 | 2 | 4 | 9 | 4 | 5 | 6 | |||
3 | 6 | 9 | 3 | 4 | 8 | 3 | 5 | 7 | 7 | 8 | 9 |
Potete farlo anche con le cinquine, ma con sorti superiori ? Non è necessario che siano dei quadrati possono essere anche dei rettangoli ma prima o poi le coppie si ripeteranno.
buonasera cinzia27 , puoi aiutarmi ad aggiornare 10 e lotto serale di spaziometria 1 6 34 , potrei essere utile con le mie analisi. metto in evidenza questa ventina estrapolata dall archivio 6 8 9 11 14 15 17 18 19 23 30 37 45 46 55 73 75 77 80 82 ritardo 9 di 871 estrazioni, in dieci anni quelli che ho inseguito si sono sfaldati prima delle 800 estr . per me è puro divertimento. Grazie
Ciao, CarmeloF.
Io aggiorno gli archivi da Spaziometria-->base dati ( in alto alla tua sinistra).
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 23 aprile 2024Bari4722342050Cagliari3314860262Firenze6122441926Genova2112578255Milano6605117030Napoli0523255273Palermo2344497165Roma8237593471Torino2642661558Venezia5706685484Nazionale2179490301Estrazione Simbolotto
Genova
2402190327
