Novità

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

flama

Junior Member
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

Codice:
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
 

-lorenzo

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

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto