mastrogino
Advanced Premium Member
IL METODO E SEMPLICE , IN TEORIA E UGUALE AL PRECEDENTE SOLO CHE IL CALCOLO E DIVERSO
E SI PROCEDE IN QUESTO MODO :
SI DEVE TROVARE UN NUMERO ISOTOPO E ADDIZIONARL AA SE STESSO POI SI FA LA DIVISIONE 2 +4
SE LA SOMMA E SU TRE CIFRE SI PRENDE LA DECINA PRIMA DELLA VIRGOLA
DI SEGUITO TROVATE IL LISTATO
PS.
SE UNITE I DUE LISTATI A VOLTE SI HANNO AMBI COME QUI SOTTO SEGNATA
METODO CON IL /
Estrazione generatrice del pronostico 10441 [ 80 - 18/05/2024]
G 0001 Numeri in gioco : 33.39 su GE RO per Estratto
V N. [33.39 ] [RO] [.. .. .. .. 33] C. 2 Estratto 10443 [ 82 - 23/05/2024]
V N. [33.39 ] [RO] [33 .. .. .. ..] C. 5 Estratto 10446 [ 85 - 28/05/2024]
V N. [33.39 ] [RO] [.. .. .. 39 ..] C. 6 Estratto 10447 [ 86 - 30/05/2024]
METODO CON IL +
Estrazione generatrice del pronostico 10441 [ 80 - 18/05/2024]
G 0001 Numeri in gioco : 50.05 su GE RO per Estratto
V N. [50.05 ] [GE] [05 .. .. .. ..] C. 1 Estratto 10442 [ 81 - 21/05/2024]
V N. [50.05 ] [GE] [50 .. .. .. ..] C. 2 Estratto 10443 [ 82 - 23/05/2024]
V N. [50.05 ] [RO] [05 .. .. .. ..] C. 3 Estratto 10444 [ 83 - 24/05/2024]
V N. [50.05 ] [RO] [.. .. .. 50 ..] C. 5 Estratto 10446 [ 85 - 28/05/2024]
COME AVETE NOTATO CI SONO USCITE MULTIPLE E A VOLTE SI UNISCONO IN AMBO
SPERO CHE VI FACCIA PIACERE E CHE VI DIVERTIATE , MA RICORDATEVI E SOLO UN GIOCO E TAL EDEVE RIMANERE
PS...PS 2
SE SI UNISSERO IN UN SOLO LISTATO SAREBBE OTTIMO
IL LISTATO FATE COPIA INCOLLA SU SPAZIO E LANCIATE
Sub Main
Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
colpi = 22
posta(1) = 1
Ini = EstrazioneFin - 90
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = b Then ' numeri uguali
k = k + 1
Nu(1) = a : Nu(2) = b
Ru(1) = r1 : Ru(2) = r2
aNum(1) = Fuori90(Nu(1) + Nu(2) / 4 + 4)
aNum(2) = Vert(aNum(1))
ImpostaGiocata 1,aNum,Ru,posta,colpi
Gioca es,1
End If
Next
Next
Next
Call AvanzamentoElab(1,EstrazioneFin,es)
Next
ScriviResoconto
Scrivi
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
E SI PROCEDE IN QUESTO MODO :
SI DEVE TROVARE UN NUMERO ISOTOPO E ADDIZIONARL AA SE STESSO POI SI FA LA DIVISIONE 2 +4
SE LA SOMMA E SU TRE CIFRE SI PRENDE LA DECINA PRIMA DELLA VIRGOLA
DI SEGUITO TROVATE IL LISTATO
PS.
SE UNITE I DUE LISTATI A VOLTE SI HANNO AMBI COME QUI SOTTO SEGNATA
METODO CON IL /
Estrazione generatrice del pronostico 10441 [ 80 - 18/05/2024]
G 0001 Numeri in gioco : 33.39 su GE RO per Estratto
V N. [33.39 ] [RO] [.. .. .. .. 33] C. 2 Estratto 10443 [ 82 - 23/05/2024]
V N. [33.39 ] [RO] [33 .. .. .. ..] C. 5 Estratto 10446 [ 85 - 28/05/2024]
V N. [33.39 ] [RO] [.. .. .. 39 ..] C. 6 Estratto 10447 [ 86 - 30/05/2024]
METODO CON IL +
Estrazione generatrice del pronostico 10441 [ 80 - 18/05/2024]
G 0001 Numeri in gioco : 50.05 su GE RO per Estratto
V N. [50.05 ] [GE] [05 .. .. .. ..] C. 1 Estratto 10442 [ 81 - 21/05/2024]
V N. [50.05 ] [GE] [50 .. .. .. ..] C. 2 Estratto 10443 [ 82 - 23/05/2024]
V N. [50.05 ] [RO] [05 .. .. .. ..] C. 3 Estratto 10444 [ 83 - 24/05/2024]
V N. [50.05 ] [RO] [.. .. .. 50 ..] C. 5 Estratto 10446 [ 85 - 28/05/2024]
COME AVETE NOTATO CI SONO USCITE MULTIPLE E A VOLTE SI UNISCONO IN AMBO
SPERO CHE VI FACCIA PIACERE E CHE VI DIVERTIATE , MA RICORDATEVI E SOLO UN GIOCO E TAL EDEVE RIMANERE
PS...PS 2
SE SI UNISSERO IN UN SOLO LISTATO SAREBBE OTTIMO
IL LISTATO FATE COPIA INCOLLA SU SPAZIO E LANCIATE
Sub Main
Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
colpi = 22
posta(1) = 1
Ini = EstrazioneFin - 90
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p1)
If a = b Then ' numeri uguali
k = k + 1
Nu(1) = a : Nu(2) = b
Ru(1) = r1 : Ru(2) = r2
aNum(1) = Fuori90(Nu(1) + Nu(2) / 4 + 4)
aNum(2) = Vert(aNum(1))
ImpostaGiocata 1,aNum,Ru,posta,colpi
Gioca es,1
End If
Next
Next
Next
Call AvanzamentoElab(1,EstrazioneFin,es)
Next
ScriviResoconto
Scrivi
Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub