Spia 22 BARI---->BA+CA= ambata 73---->24-28

[baby83]

Ok ora è tardi per giocare, ci provo martedì, grazie a tutti

 

[Antondavide]

S Lorenzo anche a me viene ambata 20 con 19-18

 

[flama]

Ciao a tutti, ho visto adesso questo metodo di Rob, che seguo e ringrazio per la generosità.
Per evitare di fare sempre i calcoli ho modificato uno script adattandolo al metodo.
Lo posto sperando di fare cosa gradita.
Buona domenica

Sub Main() 'METODO SPIA 22 Ba ( by ROB, script by Flama) per ambata e ambo, giocare anche ambetto
   Dim ruote(2)
   Dim num(2),n(1),nn(5),poste(2),posta(1)
 
 posta(1) = 1
 poste(1) = 1
 poste(2) = 1

 
   ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",350)
   k = InputBox("per quanti colpi?","colpi di gioco",6)
   ini = EstrazioneFin - ce
   fin = EstrazioneFin
   casi = 0
   ok = 0
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 1
        
            For p1 = 1 To 5
            
                  a = Estratto(es,r1,p1)
            
                     '---------------------------------------------
                     If a = 22 Then
                        ok = 1
                        '-----------------------------------------------
                        If ok = 1 Then
                           casi = casi + 1
                           Scrivi String(100,"°") & " Caso n°" & casi,1
                           ColoreTesto 1
                           Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                           " ] * [ " & " SPIA " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                           ruote(1) = 1
                           ruote(2) = 2
                        
                           n(1) = Fuori90(Estratto(es,1,5)+6)
                           num(1) = n(1)
                           num(2) = Fuori90(Fuori90(Estratto(es,1,1)+Estratto(es,1,2))+Fuori90(Estratto(es,2,3)+26))
                           nn(1) = n(1)
                           nn(2) = Fuori90(Fuori90(Estratto(es,7,2)+Estratto(es,7,4)+25)*88)
                                                  
                          
                           ColoreTesto 0
                           ImpostaGiocata 1,n,ruote,posta,k,2
                           ImpostaGiocata 2,num,ruote,poste,k,2
                           ImpostaGiocata 3,nn,ruote,poste,k,2
                          
                                                      
                           Gioca es,1
                        End If
                     End If
               Next
            Next
         Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & casi,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ColoreTesto 0
   ScriviResoconto
End Sub

 

[baby83]

Ciao Rob, se puoi ci dici se andare avanti?Grazie

 

[-lorenzo]

SI GIOCA PER 6 COLPI, PERCIO' ANCORA PER 4 COLPI..... CIAO

 

[PORTAFORTUNA]

Stasera ambo secco 18 20.grande rob

 

[-lorenzo]

MANNAGGIA NON HO POTUTO GIOCARE, PER MOTIVI FAMILIARI. IL DESTINO.... CAPITA, SARA' PER LA PROSSIMA.
SONO RIMASTO MALISSIMO QUANDO HO VISTO L'ESTRAZIONE. COMUNQUE COMPLIMENTI ROB.----

 

[Patriscia]

Bravo complimenti Rob

 

[Antondavide]

Anch'io ho preso l'ambo 18-20, però in terzina