Novità

Script lotto

lottofortune

Advanced Member >PLATINUM<
Salve a tutti sono nuovo,tempo fa in rete trovai uno script di un metodo di mirco che non gira c è qualcuno che potrebbe aiutarmi?grazie mille
 
Ciao solare ti metto lo script
Sub main()
Dimnu1(2),nu2(2),nu3(2),nu4(2),nu5(2),nu6(2),nu7(6),ru(2) Dim ruote(3) Dim poste(5) Dim posta(5) poste(1)=1 posta(2)=1 quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI?","",25)) If quante= False Then Exit Sub For es = (EstrazioneFin - quante) To EstrazioneFin Messaggio CStr(EstrazioneFin - es) For r1=1 To 11 If r1=11 Then r1=12 For p1=1 To 4 For p2=p1+1 To 5 n1=Estratto(es,r1,p1) n2=Estratto(es,r1,p2) dist1=Distanza(n1,n2) For r2=1 To 11 If r2=11 Then r2=12 If r1

rit6=SerieRitardo (es-250,es,nu7,ru,2) casi=casi+1:Scrivi String(75,"="),1 Scrivi DataEstrazione(es,1)&" "& NomeRuota(r1)& " "& StringaEstratti(es,r1)&" " Scrivi DataEstrazione(es,1)&" "& NomeRuota(r2)& " "& StringaEstratti(es,r2)&" " ColoreTesto (1) Scrivi DataEstrazione(es,1)&" "& NomeRuota(r1) & " "& Format2 (n1)&"-"& Format2 (n2)&_ Space(6)&"("& p1 &"-"& p2 &")" Scrivi DataEstrazione(es,1)&" "& NomeRuota(r2) & " "& Format2(n3)& Space(9)&"("& p3 &"- )" ColoreTesto 2 Scrivi " ( "& Format2 (n1) &"-"& Format2 (n2) &" Dist. "& Format2 (dist1)&_ " ) ( "& Format2 (n1) &"-"& Format2 (n3) &" Dist. "& Format2 (dist2)&_ " ) ( "& Format2 (n2) &"-"& Format2 (n3) &" Dist. "& Format2 (dist3)&" )" Scrivi " Numero Mancante "& Format2 (n5) ColoreTesto (0) Scrivi "L&apos;Ambata "& Format2 ( n6 ) &" è sortita "& rit1 &" colpi fà ",1 &apos;Scrivi "L&apos;Ambo > "& Format2 (nu3 (1)) &"-"& Format2 (nu3(2))&" è sortito in una delle due ruote "& rit2 &" colpi fà ",1 &apos;Scrivi "L&apos;Ambo > "& Format2 (nu4 (1)) &"-"& Format2 (nu4(2))&" è sortito in una delle due ruote "& rit3 &" colpi fà ",1 &apos;Scrivi "L&apos;Ambo > "& Format2 (nu5 (1)) &"-"& Format2 (nu5(2))&" è sortito in una delle due ruote "& rit4 &" colpi fà ",1 &apos;Scrivi "L&apos;Ambo > "& Format2 (nu6 (1)) &"-"& Format2 (nu6(2))&" è sortito in una delle due ruote "& rit5 &" colpi fà ",1 Scrivi "L&apos;Ambo della quartina > "& StringaNumeri(nu7)&" è sortito in una delle due ruote "& rit6 &" colpi fà ",1 Scrivi String(65,"-")&" caso n° "&(casi) ruote(1)=r1:ruote(2)=r2: k=18 : co=0 co=co+1 ImpostaGiocata co,nu2,ruote,poste,k,1 &apos;co=co+1 &apos;ImpostaGiocata co,nu3,ruote,posta,k &apos;co=co+1 &apos;ImpostaGiocata co,nu4,ruote,posta,k &apos;co=co+1 &apos;ImpostaGiocata co,nu5,ruote,posta,k &apos;co=co+1 &apos;ImpostaGiocata co,nu6,ruote,posta,k co=co+1 ImpostaGiocata co,nu7,ruote,posta,k,2 Gioca es End If Next End If Next : Next : Next : Next : Next ScriviResoconto End Sub
 
Ciao lottofortune, io ti ho chiesto per sapere quale metodo cerchi di mirco in quanto come ti dicevo prima ne ho alcuni, se ho quello che ti serve te lo passo.
​Non sono un'esperto di listati quindi non sono in grado di capire quello che hai postato.
 
lottofortune;n1966572 ha scritto:
Salve a tutti sono nuovo,tempo fa in rete trovai uno script di un metodo di mirco che non gira c è qualcuno che potrebbe aiutarmi?grazie mille

questo da te postato è poco comprensibile, forse se lo posti in file .doc o txt si riesce a ricostruire comunque manca una buona parte dello script.
l'output che da adesso è cosi:

martedì, gen 26 2016 Bari 44.35.13.78.42
martedì, gen 26 2016 Bari 44.35.13.78.42
martedì, gen 26 2016 Bari 44 35 -1
martedì, gen 26 2016 Bari ( -)
(44 - 35 Dist. 09)(44 - Dist. )(35 - Dist. ) Numero Mancante
L' Ambata è sortita colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo della quartina > è sortito in una delle due ruote 0 colpi fà
caso n° 1
Estrazione generatrice del pronostico 09113 [ 11 - 26/01/2016]

martedì, gen 26 2016 Bari 44.35.13.78.42
martedì, gen 26 2016 Cagliari 02.07.52.55.68
martedì, gen 26 2016 Bari 44 35 -1
martedì, gen 26 2016 Cagliari ( -)
(44 - 35 Dist. 09)(44 - Dist. )(35 - Dist. ) Numero Mancante
L' Ambata è sortita colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo > - è sortito In una delle due ruote colpi fà
L 'Ambo della quartina > è sortito in una delle due ruote 0 colpi fà
caso n° 2
ecc. ecc.
 
Ultima modifica:
Questo è il metodo
FORMULE ABBONAMENTO(lottoamico)Prende le formule dell'ALLORQUANDO e opera in questo modo:si sommano i numeri di ricerca dell' allorquando e si toglie al risultato il complemento a 90 del numero che non ha il diametrale e si ottiene l'estratto per gli abbinamenti utilizza il + / – 1 e + / – 36 dell'ambata.Esempio abbonamento del 16/04/10BA – CA 71 abbinamenti 72 – 70 – 17 – 35Ricerca BA – CA 20 – 38 – 65 Elaborazione•per l'ambata:20 + 38 + 65 – 52 = 71 ( il 52 è il complemento a 90 del 38, numero che non ha il diametrale nei numeri di ricerca)•per gli abbinamenti l'ambata +/ – 1 e +/– 3671 + 1 = 7271 – 1 = 7071 + 36 = 107 – 90 = 1771 – 36 = 35
 
O Gesù, che con la tua risurrezione hai trionfato sul peccato e sulla morte,
e ti sei rivestito di gloria e di luce immortale,
concedi anche a noi di risorgere con te,
per poter incominciare insieme con te una vita nuova, luminosa,santa.
Opera in noi, o Signore, il divino cambiamento
che tu operi nelle anime che ti amano:
fa' che il nostro spirito, trasformato mirabilmente dall'unione con te,
risplenda di luce, canti di gioia, si slanci verso il bene.
tu, che con la tua vittoria hai dischiuso agli uomini orizzonti infiniti
di amore e di grazia, suscita in noi l'ansia di diffondere
con la parola e con l'esempio il tuo messaggio di salvezza;
donaci lo zelo e l'ardore di lavorare per l'avvento del tuo regno.
Fa' che siamo saziati della tua bellezza e della tua luce
e bramiamo di congiungerci a te per sempre.
Amen.


Auguri di buona Pasqua a tutti...
 
Sub Main()
Dim nu1(2),nu2(2),nu3(2),nu4(2),nu5(2),nu6(2),nu7(6),ru(2)
Dim ruote(3)
Dim poste(5)
Dim posta(5)
poste(1) = 1
posta(2) = 1
quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI?","",25))
If quante = False Then Exit Sub
For es =(EstrazioneFin - quante) To EstrazioneFin
Messaggio CStr(EstrazioneFin - es)
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p1 = p1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
dist1 = Distanza(n1,n2)
For r2 = 1 To 11
If r2 = 11 Then r2 = 12
If r1 r2 Then
For p3 = 1 To 5
n3 = Estratto(es,r2,p3)
dist2 = Distanza(n1,n3)
dist3 = Distanza(n3,n2)
If(dist1 = 18 And(dist2 = 27 And dist3 = 45))Then'
Or(dist1 = 18 And(dist2 = 45 And dist3 = 27)) -
Or(dist1 = 27 And(dist2 = 45 And dist3 = 18)) -
Or(dist1 = 27 And(dist2 = 18 And dist3 = 45)) -
Or(dist1 = 45 And(dist2 = 27 And dist3 = 18)) -
Or(dist1 = 45 And(dist2 = 18 And dist3 = 27))Then
n4 = n3
ru(1) = r1
ru(2) = r2
If Distanza(n1,n2) = 45 Then n4 = n3
If Distanza(n1,n3) = 45 Then n4 = n2
If Distanza(n2,n3) = 45 Then n4 = n1
n5 =(90 - n4)
n6 = Fuori90(n1 + n2 + n3 - n5)
If n6 < 0 Then n6 =(90 + n1 + n2 + n3) - n5)
nu2(1) = n6
rit1 = SerieRitardo(es - 100,es,nu2,ru,1)
nu3(1) = n6
nu3(2) = Fuori90(n6 + 91)
nu4(1) = n6
nu4(2) = Fuori90(n6 + 36)
nu5(1) = n6
nu5(2) = Fuori90(n6 + 54)
nu6(1) = n6
nu6(2) = Fuori90(n6 + 54)
nu7(1) = n6
nu7(2) = nu3(2)
nu7(3) = nu4(2)
nu7(4) = nu5(2)
nu7(5) = nu6(2)
rit2 = SerieRitardo(es - 250,es,nu3,ru,2)
rit3 = SerieRitardo(es - 250,es,nu4,ru,2)
rit4 = SerieRitardo(es - 250,es,nu5,ru,2)
rit5 = SerieRitardo(es - 250,es,nu6,ru,2)
rit6 = SerieRitardo(es - 250,es,nu7,ru,2)
casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r1) & " " & StringaEstratti(es,r1) & " "
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r2) & " " & StringaEstratti(es,r2) & " "
ColoreTesto(1)
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r1) & " " & Format2(n1) & " -&" Format2(n2) & _
Space(6) & "(" & p1 & "-&" p2 & ")"
Scrivi DataEstrazione(es,1) & " " & NomeRuota(r2) & " " & Format2(n3) & Space(9) & "(" & p3 & "-)"
ColoreTesto 2
Scrivi " (" & Format2(n1) & "-" & Format2(n2) & " Dist." & Format2(dist1) & _
" ) ( " & Format2(n1) & "-" & Format2(n3) & " Dist. " & Format2(dist2) & _
" ) ( " & Format2(n2) & "-" & Format2(n3) & " Dist. " & Format2(dist3) & " )"
Scrivi " Numero Mancante " & Format2(n5)
ColoreTesto(0)
Scrivi "L'Ambata " & Format2(n6) & " è sortita " & rit1 & " colpi fà ",1
'Scrivi "L'Ambo> "& Format2 (nu3 (1)) &"-"& Format2 (nu3(2))&" è sortito in una delle due ruote "& rit2 &" colpi fà ",1
'Scrivi "L'Ambo> "& Format2 (nu4 (1)) &"-"& Format2 (nu4(2))&" è sortito in una delle due ruote "& rit3 &" colpi fà ",1
'Scrivi "L'Ambo> "& Format2 (nu5 (1)) &"-"& Format2 (nu5(2))&" è sortito in una delle due ruote "& rit4 &" colpi fà ",1
'Scrivi "L'Ambo> "& Format2 (nu6 (1)) &"-"& Format2 (nu6(2))&" è sortito in una delle due ruote "& rit5 &" colpi fà ",1
Scrivi "L'Ambo della quartina> " & StringaNumeri(nu7) & " è sortito in una delle due ruote " & rit6 & " colpi fà ",1
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2: k = 18 : co = 0
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k,1
'co=co+1
'ImpostaGiocata co,nu3,ruote,posta,k
'co=co+1
'ImpostaGiocata co,nu4,ruote,posta,k
'co=co+1
'ImpostaGiocata co,nu5,ruote,posta,k
'co=co+1
'ImpostaGiocata co,nu6,ruote,posta,k
co = co + 1
ImpostaGiocata co,nu7,ruote,posta,k,2
Gioca es
End If
Next
End If
Next: Next: Next: Next: Next:
ScriviResoconto


End Sub
 
Ci provo..

Codice:
[B]Sub[/B] [B]Main[/B]()
 [B]Dim[/B] [B]nu1[/B](2),[B]nu2[/B](2),[B]nu3[/B](2),[B]nu4[/B](2),[B]nu5[/B](2),[B]nu6[/B](2),[B]nu7[/B](6),[B]ru[/B](2)
 [B]Dim[/B] [B]ruote[/B](3)
 [B]Dim[/B] [B]poste[/B](5)
 [B]Dim[/B] [B]posta[/B](5)
 [B]poste[/B](1) [B]=[/B] 1
 [B]posta[/B](2) [B]=[/B] 1
 quante [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("QUANTE ESTRAZIONI VUOI?","",25))
 [B]If[/B] quante [B]=[/B] [B]False[/B] [B]Then[/B] [B]Exit[/B] [B]Sub[/B]
 [B]For[/B] es [B]=[/B]([B]EstrazioneFin[/B] [B]-[/B] quante) [B]To[/B] [B]EstrazioneFin[/B]
 [B]Messaggio[/B] [B]CStr[/B]([B]EstrazioneFin[/B] [B]-[/B] es)
 [B]For[/B] r1 [B]=[/B] 1 [B]To[/B] 10
 [B]If[/B] r1 [B]=[/B] 11 [B]Then[/B] r1 [B]=[/B] 12
 [B]For[/B] p1 [B]=[/B] 1 [B]To[/B] 4
 [B]For[/B] p2 [B]=[/B] p1 [B]+[/B] 1 [B]To[/B] 5
 n1 [B]=[/B] [B]Estratto[/B](es,r1,p1)
 n2 [B]=[/B] [B]Estratto[/B](es,r1,p2)
 dist1 [B]=[/B] [B]Distanza[/B](n1,n2)
 [B]For[/B] r2 [B]=[/B] 1 [B]To[/B] 11
 [B]If[/B] r2 [B]=[/B] 11 [B]Then[/B] r2 [B]=[/B] 12
 [B]If[/B] r1[B]<>[/B]r2 [B]Then[/B]
 [B]For[/B] p3 [B]=[/B] 1 [B]To[/B] 5
 n3 [B]=[/B] [B]Estratto[/B](es,r2,p3)
 dist2 [B]=[/B] [B]Distanza[/B](n1,n3)
 dist3 [B]=[/B] [B]Distanza[/B](n3,n2)
 [B]If[/B](dist1 [B]=[/B] 18 [B]And[/B](dist2 [B]=[/B] 27 [B]And[/B] dist3 [B]=[/B] 45)) _
[B]Or[/B](dist1 [B]=[/B] 18 [B]And[/B](dist2 [B]=[/B] 45 [B]And[/B] dist3 [B]=[/B] 27)) _
[B]Or[/B](dist1 [B]=[/B] 27 [B]And[/B](dist2 [B]=[/B] 45 [B]And[/B] dist3 [B]=[/B] 18)) _
[B]Or[/B](dist1 [B]=[/B] 27 [B]And[/B](dist2 [B]=[/B] 18 [B]And[/B] dist3 [B]=[/B] 45)) _
[B]Or[/B](dist1 [B]=[/B] 45 [B]And[/B](dist2 [B]=[/B] 27 [B]And[/B] dist3 [B]=[/B] 18)) _
[B]Or[/B](dist1 [B]=[/B] 45 [B]And[/B](dist2 [B]=[/B] 18 [B]And[/B] dist3 [B]=[/B] 27))[B]Then[/B]
 n4 [B]=[/B] n3
 [B]ru[/B](1) [B]=[/B] r1
 [B]ru[/B](2) [B]=[/B] r2
 [B]If[/B] [B]Distanza[/B](n1,n2) [B]=[/B] 45 [B]Then[/B] n4 [B]=[/B] n3
 [B]If[/B] [B]Distanza[/B](n1,n3) [B]=[/B] 45 [B]Then[/B] n4 [B]=[/B] n2
 [B]If[/B] [B]Distanza[/B](n2,n3) [B]=[/B] 45 [B]Then[/B] n4 [B]=[/B] n1
 n5 [B]=[/B](90 [B]-[/B] n4)
 n6 [B]=[/B] [B]Fuori90[/B]((n1 [B]+[/B] n2 [B]+[/B] n3) [B]-[/B] n5)
 [B]If[/B] n6 [B]<[/B] 0 [B]Then[/B] n6 [B]=[/B]((90 [B]+[/B] n1 [B]+[/B] n2 [B]+[/B] n3) [B]-[/B] n5)
 [B]nu2[/B](1) [B]=[/B] n6
 rit1 [B]=[/B] [B]SerieRitardo[/B](es [B]-[/B] 100,es,[B]nu2[/B],[B]ru[/B],1)
 [B]nu3[/B](1) [B]=[/B] n6
 [B]nu3[/B](2) [B]=[/B] [B]Fuori90[/B](n6 [B]+[/B] 91)
 [B]nu4[/B](1) [B]=[/B] n6
 [B]nu4[/B](2) [B]=[/B] [B]Fuori90[/B](n6 [B]+[/B] 36)
 [B]nu5[/B](1) [B]=[/B] n6
 [B]nu5[/B](2) [B]=[/B] [B]Fuori90[/B](n6 [B]+[/B] 54)
 [B]nu6[/B](1) [B]=[/B] n6
 [B]nu6[/B](2) [B]=[/B] [B]Fuori90[/B](n6 [B]+[/B] 54)
 [B]nu7[/B](1) [B]=[/B] n6
 [B]nu7[/B](2) [B]=[/B] [B]nu3[/B](2)
 [B]nu7[/B](3) [B]=[/B] [B]nu4[/B](2)
 [B]nu7[/B](4) [B]=[/B] [B]nu5[/B](2)
 [B]nu7[/B](5) [B]=[/B] [B]nu6[/B](2)
 rit2 [B]=[/B] [B]SerieRitardo[/B](es [B]-[/B] 250,es,[B]nu3[/B],[B]ru[/B],2)
 rit3 [B]=[/B] [B]SerieRitardo[/B](es [B]-[/B] 250,es,[B]nu4[/B],[B]ru[/B],2)
 rit4 [B]=[/B] [B]SerieRitardo[/B](es [B]-[/B] 250,es,[B]nu5[/B],[B]ru[/B],2)
 rit5 [B]=[/B] [B]SerieRitardo[/B](es [B]-[/B] 250,es,[B]nu6[/B],[B]ru[/B],2)
 rit6 [B]=[/B] [B]SerieRitardo[/B](es [B]-[/B] 250,es,[B]nu7[/B],[B]ru[/B],2)
 casi [B]=[/B] casi [B]+[/B] 1:[B]Scrivi[/B] [B]String[/B](75,"="),1
 [B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " " [B]&[/B] [B]FormatSpace[/B]([B]NomeRuota[/B](r1),9) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](es,r1) [B]&[/B] " "
 [B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " " [B]&[/B] [B]FormatSpace[/B]([B]NomeRuota[/B](r2),9) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](es,r2) [B]&[/B] " "
 [B]ColoreTesto[/B](1)
 [B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " " [B]&[/B] [B]FormatSpace[/B]([B]NomeRuota[/B](r1),9) [B]&[/B] " " [B]&[/B] [B]Format2[/B](n1) [B]&[/B] " - "[B]&[/B] [B]Format2[/B](n2) [B]&[/B] _
 [B]Space[/B](4) [B]&[/B] "(" [B]&[/B] p1 [B]&[/B] "- "[B]&[/B] p2 [B]&[/B] ")"
 [B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " " [B]&[/B] [B]FormatSpace[/B]([B]NomeRuota[/B](r2),9) [B]&[/B] " " [B]&[/B] [B]Format2[/B](n3) [B]&[/B] [B]Space[/B](9) [B]&[/B] "(" [B]&[/B] p3 [B]&[/B] " )"
[B]ColoreTesto[/B] 2
 [B]Scrivi[/B] "( " [B]&[/B] [B]Format2[/B](n1) [B]&[/B] "-" [B]&[/B] [B]Format2[/B](n2) [B]&[/B] " Dist." [B]&[/B] [B]Format2[/B](dist1) [B]&[/B] _
 " ) ( " [B]&[/B] [B]Format2[/B](n1) [B]&[/B] "-" [B]&[/B] [B]Format2[/B](n3) [B]&[/B] " Dist. " [B]&[/B] [B]Format2[/B](dist2) [B]&[/B] _
 " ) ( " [B]&[/B] [B]Format2[/B](n2) [B]&[/B] "-" [B]&[/B] [B]Format2[/B](n3) [B]&[/B] " Dist. " [B]&[/B] [B]Format2[/B](dist3) [B]&[/B] ")"
 [B]Scrivi[/B] "Numero Mancante " [B]&[/B] [B]Format2[/B](n5)
 [B]ColoreTesto[/B](0)
 [B]Scrivi[/B] "L'Ambata " [B]&[/B] [B]Format2[/B](n6) [B]&[/B] " è sortita " [B]&[/B] rit1 [B]&[/B] " colpi fà ",1
 'Scrivi "L'Ambo> "& Format2 (nu3 (1)) &"-"& Format2 (nu3(2))&" è sortito in una delle due ruote "& rit2 &" colpi fà ",1
 'Scrivi "L'Ambo> "& Format2 (nu4 (1)) &"-"& Format2 (nu4(2))&" è sortito in una delle due ruote "& rit3 &" colpi fà ",1
 'Scrivi "L'Ambo> "& Format2 (nu5 (1)) &"-"& Format2 (nu5(2))&" è sortito in una delle due ruote "& rit4 &" colpi fà ",1
 'Scrivi "L'Ambo> "& Format2 (nu6 (1)) &"-"& Format2 (nu6(2))&" è sortito in una delle due ruote "& rit5 &" colpi fà ",1
 [B]Scrivi[/B] "L'Ambo della quartina> " [B]&[/B] [B]StringaNumeri[/B]([B]nu7[/B]) [B]&[/B] " è sortito in una delle due ruote " [B]&[/B] rit6 [B]&[/B] " colpi fà ",1
 [B]Scrivi[/B] [B]String[/B](65,"-") [B]&[/B] " caso n° " [B]&[/B](casi)
 [B]ruote[/B](1) [B]=[/B] r1:[B]ruote[/B](2) [B]=[/B] r2: k [B]=[/B] 18 : co [B]=[/B] 0
 co [B]=[/B] co [B]+[/B] 1
 [B]ImpostaGiocata[/B] co,[B]nu2[/B],[B]ruote[/B],[B]poste[/B],k,1
 'co=co+1
 'ImpostaGiocata co,nu3,ruote,posta,k
 'co=co+1
 'ImpostaGiocata co,nu4,ruote,posta,k
 'co=co+1
 'ImpostaGiocata co,nu5,ruote,posta,k
 'co=co+1
 'ImpostaGiocata co,nu6,ruote,posta,k
 co [B]=[/B] co [B]+[/B] 1
 [B]ImpostaGiocata[/B] co,[B]nu7[/B],[B]ruote[/B],[B]posta[/B],k,2
 [B]Gioca[/B] es
 [B]End[/B] [B]If[/B]
 [B]Next[/B]
 [B]End[/B] [B]If[/B]
 [B]Next[/B]: [B]Next[/B]: [B]Next[/B]: [B]Next[/B]: [B]Next[/B]:
 [B]ScriviResoconto[/B]
 [B]End[/B] [B]Sub[/B]
 
Ultima modifica:
Lo ho trovato tra le cose di Enplain
questo è il metodo descritto da Marmamau:
FORMULA ricerca 24-39-69 (distanze 15-30-45)
previsione: estratto 9 abbinamenti 75-84
L'ambata = è il mancante della distanza 30, il 9
per il 1 abbin si prende il diametrale del numero 39 cioè 84
per il secondo abbinamento fare 84-9 = 75
Altro esempio:
28/7 GE NA
34-4-49
distanza 30 34-4 manca il 64
Estratto 64 abbin 79-15
79 cioè 34+45
79-64 = 15
1 colpo di gioco 64 Napoli.
Le previsioni che si possono ricavare ad ogni estrazione sono molteplici, l'ambata la da quasi sempre, gli ambi essendo solo due.......
Ecco alcune previsioni ricavate dalla CONVERGENZA DI RUOTE, mettendo = insieme varie ambate:

Palermo Nazionale 46-36-81
Genova Venezia 36-11
Cagliari Firenze 8-42
Bari Genova 51-30
Milano Roma 7-24

Codice:
  Sub Main()
    Dim nu1(2),nu2(2),nu3(2),nu4(2),nu5(2),nu6(2),nu7(6),ru(2)
    Dim ruote(3)
    Dim poste(5)
    Dim posta(5)
    poste(1) = 1
    posta(2) = 1
    quante = CInt(InputBox("QUANTE ESTRAZIONI VUOI?","",50))
    If quante = False Then Exit Sub
    For es =(EstrazioneFin - quante) To EstrazioneFin
        Messaggio CStr(EstrazioneFin - es)
        For r1 = 1 To 11
            If r1 = 11 Then r1 = 12
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r1,p2)
                    dist1 = Distanza(n1,n2)
                    For r2 = 1 To 11
                        If r2 = 11 Then r2 = 12
                        If r1 <> r2 Then
                            For p3 = 1 To 5
                                n3 = Estratto(es,r2,p3)
                                dist2 = Distanza(n1,n3)
                                dist3 = Distanza(n3,n2)
                                If(dist1 = 15 And(dist2 = 30 And dist3 = 45))_
                                    Or(dist1 = 15 And(dist2 = 45 And dist3 = 30))_
                                    Or(dist1 = 30 And(dist2 = 15 And dist3 = 45))_
                                    Or(dist1 = 30 And(dist2 = 45 And dist3 = 15))_
                                    Or(dist1 = 45 And(dist2 = 15 And dist3 = 30))_
                                    Or(dist1 = 45 And(dist2 = 30 And dist3 = 15)) Then
                                    n4 = n3
                                    ru(1) = r1
                                    ru(2) = r2
                                    If Distanza(n1,n2) = 9 Then n4 = n3
                                    If Distanza(n1,n3) = 9 Then n4 = n2
                                    If Distanza(n2,n3) = 9 Then n4 = n1
                                    n5 =(90 - n4)
                                    n6 = Fuori90(n1 + n2 + n3 - n5)
                                    If n6 < 0 Then n6 =((90 + n1 + n2 + n3) - n5)
                                    nu2(1) = n6
                                    rit1 = SerieRitardo(es - 100,es,nu2,ru,1)
                                    nu3(1) = n6
                                    nu3(2) = Fuori90(n6 + 15)
                                    nu4(1) = n6
                                    nu4(2) = Fuori90(n6 + 9)
                                    nu5(1) = n6
                                    nu5(2) = Fuori90(n6 + 36)
                                    nu6(1) = n6
                                    nu6(2) = Fuori90(n6 + 45)
                                    nu7(1) = n6
                                    nu7(2) = nu3(2)
                                    nu7(3) = nu4(2)
                                    nu7(4) = nu5(2)
                                    nu7(5) = nu6(2)
                                    rit2 = SerieRitardo(es - 250,es,nu3,ru,2)
                                    rit3 = SerieRitardo(es - 250,es,nu4,ru,2)
                                    rit4 = SerieRitardo(es - 250,es,nu5,ru,2)
                                    rit5 = SerieRitardo(es - 250,es,nu6,ru,2)
                                    rit6 = SerieRitardo(es - 250,es,nu7,ru,2)
                                    casi = casi + 1:Scrivi String(75,"="),1
                                    Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " "
                                    Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " "
                                    ColoreTesto(1)
                                    Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & Format2(n1) & "-" & Format2(n2) & _
                                    Space(6) & "(" & p1 & "-" & p2 & ")"
                                    Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & Format2(n3) & Space(9) & "(" & p3 & "- )"
                                    ColoreTesto 2
                                    Scrivi " ( " & Format2(n1) & "-" & Format2(n2) & " Dist. " & Format2(dist1) & _
                                    " ) ( " & Format2(n1) & "-" & Format2(n3) & " Dist. " & Format2(dist2) & _
                                    " ) ( " & Format2(n2) & "-" & Format2(n3) & " Dist. " & Format2(dist3) & " )"
                                    Scrivi " Numero Mancante " & Format2(n5)
                                    ColoreTesto(0)
                                    Scrivi "L'Ambata " & Format2(n6) & " è sortita " & rit1 & " colpi fà ",1
                                    Scrivi "L'Ambo > " & Format2(nu3(1)) & "-" & Format2(nu3(2)) & " è sortito in una delle due ruote " & rit2 & " colpi fà ",1
                                    Scrivi "L'Ambo > " & Format2(nu4(1)) & "-" & Format2(nu4(2)) & " è sortito in una delle due ruote " & rit3 & " colpi fà ",1
                                    Scrivi "L'Ambo > " & Format2(nu5(1)) & "-" & Format2(nu5(2)) & " è sortito in una delle due ruote " & rit4 & " colpi fà ",1
                                    Scrivi "L'Ambo > " & Format2(nu6(1)) & "-" & Format2(nu6(2)) & " è sortito in una delle due ruote " & rit5 & " colpi fà ",1
                                    Scrivi "L'Ambo della quartina > " & StringaNumeri(nu7) & " è sortito in una delle due ruote " & rit6 & " colpi fà ",1
                                    Scrivi String(65,"-") & " caso n° " &(casi)
                                    ruote(1) = r1:ruote(2) = r2: k = 12 : co = 0
                                    co = co + 1
                                    ImpostaGiocata co,nu2,ruote,poste,k,1
                                    'co=co+1
                                    'ImpostaGiocata co,nu3,ruote,posta,k
                                    'co=co+1
                                    'ImpostaGiocata co,nu4,ruote,posta,k
                                    'co=co+1
                                    'ImpostaGiocata co,nu5,ruote,posta,k
                                    'co=co+1
                                    'ImpostaGiocata co,nu6,ruote,posta,k
                                    co = co + 1
                                    ImpostaGiocata co,nu7,ruote,posta,k,2
                                    Gioca es
                                End If
                            Next
                        End If
                    Next : Next : Next : Next : Next
                    ScriviResoconto
End Sub
 
Ciao lottofortune, io ti ho chiesto per sapere quale metodo cerchi di mirco in quanto come ti dicevo prima ne ho alcuni, se ho quello che ti serve te lo passo.
Non sono un'esperto di listati quindi non sono in grado di capire quello che hai postato.
Mi manderesti i metodi che possiedi ?
 
Questo è il metodo
FORMULE ABBONAMENTO(lottoamico)Prende le formule dell'ALLORQUANDO e opera in questo modo:si sommano i numeri di ricerca dell' allorquando e si toglie al risultato il complemento a 90 del numero che non ha il diametrale e si ottiene l'estratto per gli abbinamenti utilizza il + / – 1 e + / – 36 dell'ambata.Esempio abbonamento del 16/04/10BA – CA 71 abbinamenti 72 – 70 – 17 – 35Ricerca BA – CA 20 – 38 – 65 Elaborazione•per l'ambata:20 + 38 + 65 – 52 = 71 ( il 52 è il complemento a 90 del 38, numero che non ha il diametrale nei numeri di ricerca)•per gli abbinamenti l'ambata +/ – 1 e +/– 3671 + 1 = 7271 – 1 = 7071 + 36 = 107 – 90 = 1771 – 36 = 35
Riesci a postare il metodo in pdf
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 11 marzo 2025
    Bari
    88
    82
    13
    06
    24
    Cagliari
    61
    79
    29
    01
    05
    Firenze
    68
    22
    69
    13
    40
    Genova
    16
    20
    82
    43
    38
    Milano
    30
    70
    75
    86
    82
    Napoli
    08
    11
    13
    25
    38
    Palermo
    63
    42
    14
    79
    56
    Roma
    39
    26
    14
    82
    47
    Torino
    31
    76
    21
    10
    40
    Venezia
    70
    65
    62
    44
    61
    Nazionale
    16
    57
    90
    52
    19
    Estrazione Simbolotto
    Firenze
    26
    39
    27
    16
    01

Ultimi Messaggi

Indietro
Alto