Metodo 'a' x ambo, terno su ruota

[Master]

Buonasera
Ho modificato lo script di Vengio con l'aggiunta dell'ottina (controllare sempre errori)
Spero vi possa essere utile

[B]Sub[/B] [B]Main[/B]()
[B]Dim[/B] [B]Ambate[/B](5),[B]Ruotadigioco[/B](3),[B]Poste[/B](4),[B]x[/B](1),[B]y[/B](1),[B]Amba[/B](8),[B]a1[/B](1),[B]b1[/B](1)
[B]Ruotadigioco[/B](1) [B]=[/B] 1
[B]Ruotadigioco[/B](2) [B]=[/B] 2
'Poste(1) = 4
[B]Poste[/B](2) [B]=[/B] 6
[B]Poste[/B](3) [B]=[/B] 4
[B]Poste[/B](4) [B]=[/B] 1
gio [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Vuoi giocare anche a tutte ?" [B]&[/B] [B]Chr[/B](13) [B]&[/B] "1 = SI " [B]&[/B] [B]Chr[/B](13) [B]&[/B] "2= NO",,2))
r [B]=[/B] 1
[B]For[/B] Es [B]=[/B] [B]EstrazioneFin[/B] [B]-[/B] 500 [B]To[/B] [B]EstrazioneFin[/B]
[B]If[/B] [B]IndiceMensile[/B](es) [B]=[/B] 1 [B]Then[/B] 'Prima del Mese
xx [B]=[/B] [B]PrimaMesePrec[/B](es)
[B]x[/B](1) [B]=[/B] [B]Estratto[/B](Es[B]-[/B]1,r,3): [B]a1[/B](1) [B]=[/B] [B]Estratto[/B](xx [B]-[/B] 1,1,3)
[B]y[/B](1) [B]=[/B] [B]Estratto[/B](Es,r,3) : [B]b1[/B](1) [B]=[/B] [B]Estratto[/B](xx,1,3)
K [B]=[/B] K [B]+[/B] 1
a [B]=[/B] [B]Decina[/B]([B]x[/B](1)):aa[B]=[/B][B]Decina[/B]([B]a1[/B](1))
b [B]=[/B] [B]Cadenza[/B]([B]x[/B](1)):bb [B]=[/B] [B]Cadenza[/B]([B]a1[/B](1))
c [B]=[/B] [B]Decina[/B]([B]y[/B](1)):cc [B]=[/B] [B]Decina[/B]([B]b1[/B](1))
d [B]=[/B] [B]Cadenza[/B]([B]y[/B](1)):dd [B]=[/B] [B]Cadenza[/B]([B]b1[/B](1))
[B]Scrivi[/B] [B]String[/B](105,"=") [B]&[/B] " " [B]&[/B] K,1
[B]Scrivi[/B] [B]DataEstrazione[/B](es[B]-[/B]1) [B]&[/B] "  " [B]&[/B] [B]Format2[/B]( [B]x[/B](1))[B]&[/B][B]Space[/B](10)[B]&[/B][B]DataEstrazione[/B](xx[B]-[/B]1) [B]&[/B] "  " [B]&[/B] [B]Format2[/B]( [B]a1[/B](1))
[B]Scrivi[/B] [B]DataEstrazione[/B](es) [B]&[/B] "  " [B]&[/B]  [B]Format2[/B]([B]y[/B](1))[B]&[/B][B]Space[/B](10)[B]&[/B][B]DataEstrazione[/B](xx) [B]&[/B] "  " [B]&[/B]  [B]Format2[/B]([B]b1[/B](1))
[B]Scrivi[/B] [B]String[/B](40,"-")
[B]Ambate[/B](1) [B]=[/B] a [B]&[/B] d : [B]Amba[/B](1) [B]=[/B] aa [B]&[/B] dd
[B]Ambate[/B](2) [B]=[/B] c [B]&[/B] b : [B]Amba[/B](2) [B]=[/B] cc [B]&[/B] bb
[B]Ambate[/B](3) [B]=[/B] [B]Vert[/B]([B]Ambate[/B](1)):[B]Amba[/B](3) [B]=[/B] [B]Vert[/B]([B]Amba[/B](1))
[B]Ambate[/B](4) [B]=[/B] [B]Vert[/B]([B]Ambate[/B](2)):[B]Amba[/B](4) [B]=[/B] [B]Vert[/B]([B]Amba[/B](2))
[B]If[/B] [B]Ambate[/B](1) [B]>[/B] 90 [B]Then[/B] [B]Ambate[/B](1) [B]=[/B] [B]Ambate[/B](1) [B]-[/B] 10
[B]If[/B] [B]Ambate[/B](2) [B]>[/B] 90 [B]Then[/B] [B]Ambate[/B](2) [B]=[/B] [B]Ambate[/B](2) [B]-[/B] 10
[B]If[/B] [B]Amba[/B](1) [B]>[/B] 90 [B]Then[/B] [B]Amba[/B](1) [B]=[/B] [B]Amba[/B](1) [B]-[/B] 10
[B]If[/B] [B]Amba[/B](2) [B]>[/B] 90 [B]Then[/B] [B]Amba[/B](2) [B]=[/B] [B]Amba[/B](2) [B]-[/B] 10
[B]Scrivi[/B] "1^  ambata  " [B]&[/B] [B]Format2[/B]( [B]Ambate[/B](1))[B]&[/B][B]Space[/B](10)[B]&[/B]"1^  ambata  " [B]&[/B][B]Format2[/B]( [B]Amba[/B](1))
[B]Scrivi[/B] "1^  vertib  " [B]&[/B] [B]Format2[/B]([B]Ambate[/B](3))[B]&[/B][B]Space[/B](10)[B]&[/B]"1^  vertib  " [B]&[/B][B]Format2[/B]( [B]Amba[/B](3))
[B]Scrivi[/B] "2^  ambata  " [B]&[/B] [B]Format2[/B]([B]Ambate[/B](2))[B]&[/B][B]Space[/B](10)[B]&[/B]"1^  ambata  " [B]&[/B][B]Format2[/B]( [B]Amba[/B](2))
[B]Scrivi[/B] "2^  vertib  " [B]&[/B] [B]Format2[/B]([B]Ambate[/B](4))[B]&[/B][B]Space[/B](10)[B]&[/B]"1^  vertib  " [B]&[/B][B]Format2[/B]( [B]Amba[/B](4))
[B]Scrivi[/B] [B]String[/B](40,"-")
[B]If[/B] gio [B]=[/B] 1 [B]Then[/B] [B]Ruotadigioco[/B](3)[B]=[/B]11
[B]ImpostaGiocata[/B] 1,[B]Ambate[/B],[B]Ruotadigioco[/B],[B]Poste[/B],13
[B]Amba[/B](5)[B]=[/B][B]Ambate[/B](1):[B]Amba[/B](6)[B]=[/B][B]Ambate[/B](2):[B]Amba[/B](7)[B]=[/B][B]Ambate[/B](3):[B]Amba[/B](8)[B]=[/B][B]Ambate[/B](4)
[B]EliminaRipetuti[/B] [B]Amba[/B]
[B]ImpostaGiocata[/B] 2,[B]Amba[/B],[B]Ruotadigioco[/B],[B]Poste[/B],13
[B]Gioca[/B] Es,1
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]ScriviResoconto[/B]
[B]End[/B] [B]Sub[/B]
[B]Function[/B] [B]PrimaMesePrec[/B]([B]es[/B])
[B]For[/B] xx [B]=[/B] [B]es[/B] [B]To[/B] [B]es[/B] [B]-[/B] 25 [B]Step[/B] [B]-[/B] 1
[B]If[/B] [B]Cadenza[/B]([B]Distanza[/B]([B]Mese[/B]([B]es[/B]),[B]Mese[/B](xx))) [B]=[/B] 1 [B]And[/B] [B]IndiceMensile[/B](xx) [B]=[/B] 1 [B]Then[/B]
[B]PrimaMesePrec[/B] [B]=[/B] xx
[B]Exit[/B] [B]For[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]End[/B] [B]Function[/B]

 

[everest62]

grazie vengio....spero che vi sono stato di aiuto a darvi il metodo....un saluto a tutti......pero ne ho ancora altri buoni di metodi...

 

[vengio]

Se ne hai altri puoi postarli, come vedi più di una persona ti dara una mano. Ciao.

 

[everest62]

grazie a tutti....

 

[everest62]

ciao vengio che ne dici se al metodo inseriamo qualche numero in piu' ad esenpio somme di figure cadenze....anche se vengono piu numeri si tratta di piu probabilita' al metodo ,,,dopo si fa un bel sistema al metodo.....dobbiamo sbancare il lotto vengio capisci....proviamo....un saluto a tutti

 

[everest62]

un buongiorno a tutti del forum....vengio spero che hai letto

 

[everest62]

ciao un saluto al tutti del forum
usciti 2 anbi su tutte dal metodo
[03.13.16.30.31.36.61.63 ] [TT] [FI][.. 03 .. .. 30] C. 3 Ambo 09/02/2016]
[03.13.16.30.31.36.61.63 ] [TT] [TO][16 .. .. 30 ..] C. 3 Ambo 09/02/2016]

 

[everest62]

buongiorno

 

[everest62]

uscito un altro anbo
03.13.16.30.31.36.61.63 ] [CA] [.. 31 63 .. ..] C. 5 Ambo 13/02/2016]

 

[vengio]

Non perderci tempo, per arrivare ad una vincita seria avrai delapidato molto di più.

 

[DEAEBE]

Potreste fare un esempio per chi non e' capace di usare il computer come voi con carta e penna ma un esempio di questi ultimi mesi e poi mi spiegate perche' si parla di BA_CA cosa c'entra CA? Grazie a chi mi rispondera' chiaramente