Metodo Gemello ...l'ambata - Richiesta script

[skygirl]

Nuovo Metodo di Bibbolotto di cui sarebbe interessante avere lo script
grazie
http://forum.lottoced.com/forum/lottoced/metodi/1953166-gemello-e-cadenza-nove-ed-ecco-l-ambata

 

[Master]

Ciao
controlla questa se va bene

[B]Sub[/B] [B]Main[/B]()
[B]Scrivi[/B] "http://forum.lottoced.com/forum/lottoced/metodi/1953166-gemello-e-cadenza-nove-ed-ecco-l-ambata"
[B]Dim[/B] [B]ruote[/B](11)
[B]Dim[/B] [B]amb[/B](1)
[B]Dim[/B] [B]posta[/B](1)
[B]posta[/B](1) [B]=[/B] 1
ce [B]=[/B] [B]InputBox[/B](" Quante estrazioni vuoi controllare? ","estrazioni",200)
k [B]=[/B] [B]InputBox[/B]("per quanti colpi?","colpi di gioco",10)
ini [B]=[/B] [B]EstrazioneFin[/B] [B]-[/B] ce
fin [B]=[/B] [B]EstrazioneFin[/B]
casi [B]=[/B] 0
[B]For[/B] es [B]=[/B] ini [B]To[/B] fin
[B]Messaggio[/B] "elab. estr. [" [B]&[/B](es) [B]&[/B] "] di " [B]&[/B] [B]DataEstrazione[/B](es,1)
[B]Call[/B] [B]AvanzamentoElab[/B](Ini,fin,es)
[B]For[/B] r1 [B]=[/B] 1 [B]To[/B] 10
[B]For[/B] r2 [B]=[/B] r1 [B]+[/B] 1 [B]To[/B] 11
[B]If[/B] r2 [B]=[/B] 11 [B]Then[/B] r2 [B]=[/B] 12
[B]For[/B] p1 [B]=[/B] 1 [B]To[/B] 5
a [B]=[/B] [B]Estratto[/B](es,r1,p1) : b [B]=[/B] [B]Estratto[/B](es,r2,p1)
[B]If[/B] [B]Gemello[/B](a) [B]And[/B] [B]Cadenza[/B](b) [B]=[/B] 9 [B]Then[/B]
[B]If[/B] r2 [B]=[/B] r1 [B]+[/B] 1 [B]Then[/B]
casi [B]=[/B] casi [B]+[/B] 1
[B]Scrivi[/B] [B]String[/B](100,"°") [B]&[/B] " Caso n°" [B]&[/B] casi,1
[B]ColoreTesto[/B] 1
[B]Scrivi[/B] [B]DataEstrazione[/B](es) [B]&[/B] " [ " [B]&[/B] [B]SiglaRuota[/B](r1) [B]&[/B] " - " [B]&[/B] [B]StringaEstratti[/B](es,r1) [B]&[/B] " ] * [ " [B]&[/B] [B]Format2[/B](a) [B]&[/B] " ]",1
[B]Scrivi[/B] [B]DataEstrazione[/B](es) [B]&[/B] " [ " [B]&[/B] [B]SiglaRuota[/B](r2) [B]&[/B] " - " [B]&[/B] [B]StringaEstratti[/B](es,r2) [B]&[/B] " ] * [ " [B]&[/B] [B]Format2[/B](b) [B]&[/B] " ]",1
[B]ColoreTesto[/B] 0
[B]ruote[/B](1) [B]=[/B] r1 : [B]ruote[/B](2) [B]=[/B] r2
[B]amb[/B](1) [B]=[/B] b
[B]ImpostaGiocata[/B] 1,[B]amb[/B],[B]ruote[/B],[B]posta[/B],k,1
[B]Gioca[/B] es
[B]End[/B] [B]If[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Scrivi[/B]
[B]Scrivi[/B] [B]String[/B](100,"*")
[B]ColoreTesto[/B] 2
[B]Scrivi[/B]" casi trovati : " [B]&[/B] casi,1
[B]Scrivi[/B] [B]String[/B](100," * ")
[B]ColoreTesto[/B] 0
[B]ScriviResoconto[/B]
[B]End[/B] [B]Sub[/B]

 

[claudio8]

Gioca es,False,,1 x visionare l'estrazione di esito ed ipotizzare abb. ad ambo.
Saluti

 

[skygirl]

Grazie Master ho verificato lo script funziona benissimo