Script lotto

lottofortune · 26 Marzo 2016

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

solare · 26 Marzo 2016

Ciao
Che metodo, io ne ho diversi.

lottofortune · 26 Marzo 2016

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'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

solare · 26 Marzo 2016

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.

claudio8 · 26 Marzo 2016

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.

lottofortune · 26 Marzo 2016

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

lottofortune · 26 Marzo 2016

Grazie solare...grazie claudio8

lottofortune · 27 Marzo 2016

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...

lottofortune · 29 Marzo 2016

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

lottofortune · 29 Marzo 2016

Sono riuscito a postarlo qualcuno saprebbe farlo girare?

Alien. · 29 Marzo 2016

ciao,mi da errore
Dim nu1(2),nu2(2),nu3(2),nu4(2),nu5(2),nu6(2),nu7(6),r u(2)

Master · 29 Marzo 2016

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]

claudio8 · 30 Marzo 2016

Alien.;n1967175 ha scritto:
ciao,mi da errore
Dim nu1(2),nu2(2),nu3(2),nu4(2),nu5(2),nu6(2),nu7(6),r u(2)

dovrebbe esserci una spaziatura da eliminare "ru2"

claudio8 · 30 Marzo 2016

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

lottofortune · 30 Marzo 2016

A claudio8,master,alien grazie di cuore per il vostro aiuto...girano alla grande...

andy881 · 21 Settembre 2023

Esiste il metodo allorquando in PDF qualcuno può postarlo ?

andy881 · 4 Ottobre 2023

solare ha scritto:
Ciao
Che metodo, io ne ho diversi.

Ciao mi giri i metodi che hai

andy881 · 4 Ottobre 2023

solare ha scritto:
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 ?

andy881 · 4 Ottobre 2023

lottofortune ha scritto:
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

andy881 · 18 Dicembre 2023

solare ha scritto:
Ciao
Che metodo, io ne ho diversi.

Ciao potresti girare il metodo allorquando di lottoamico
Grazie

Script lotto

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Premium Member

Premium Member

Advanced Member >PLATINUM<

Banned

Banned

Banned

Banned

Banned