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 Sub
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 |
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 Sub
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
Ciao, Giomi. Complimenti per il listato. Sintetico, come piace a me. Ora sto facendo varie prove con esso. Vi farò sapere.secondo 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 .
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.Ciao, 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 è.
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 |
Ciao, CarmeloF.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