Novità

Aiuto per script spia 11 su milano

santo1610

Junior Member
Messaggi
5
Punti reazione
0
Punti
1
Vorrei provare un metodo su Milano Quando in 4 posizione esce il numero 11
si devono mettere in gioco il 42 e il 64
2 ambate che vengono ricavate dalla somma dei fissi 31 e 53, per abbinamento avrei pensato alle frequenze
 

magia

Super Member >PLATINUM<
Messaggi
493
Punti reazione
16
Punti
18
Buongiorno,
Salutando gli intervenuri ,
Codice:
Option Explicit
'Spia sommativa 11 Milano di santo1610
'https://forum.lottoced.com/forum/lottoced/metodi/2188643-spia-sommativa-11-milano
Sub Main()
   Dim R,Spia,Colpi : R = MI_ : Spia = 11 : Colpi = 09
   Dim Ruota(01) : Ruota(01) = R
   Dim Ini,FIn,Es,Casi : Ini = 8478 : FIn = EstrazioneFin : Casi = 00
   For Es = Ini To FIn : Call Messaggio(Es) : Call AvanzamentoElab(Ini,FIn,Es)
      If Posizione(Es,R,Spia) = 04 Then
         Casi = Casi + 01 : Call Scrivi(String(125,"-") & " Caso n° " & Format2(Casi),True)
         ReDim Numeri1(02) : Numeri1(01) = Fuori90(Spia + 31) : Numeri1(02) = Fuori90(Spia + 53)
         Dim Posta,Poste: Posta = Array(00,01,00,00,00,00) : Poste = Array(00,00,01,00,00,00)
         Dim aRetAbb,k
         Call Abbinamenti(Numeri1(01),aRetAbb,EstrazioneIni,FIn,R,00)
         For k = 01 To 04
            ReDim Preserve abb1(k) : abb1(k) = aRetAbb(k,01)
         Next
         Call Abbinamenti(Numeri1(02),aRetAbb,EstrazioneIni,FIn,R,00)
         For k = 01 To 04
            ReDim Preserve abb2(k) : abb2(k) = aRetAbb(k,01)
         Next
         Dim Numeri2 : Numeri2 = Array(Numeri1(01),abb1(01),abb1(02),abb1(03),abb1(04),Numeri1(02),abb2(01),abb2(02),abb2(03),abb2(04))
         Call ImpostaGiocata(01,Numeri1,Ruota,Posta,Colpi,AMBATA_,,01)
         Call ImpostaGiocata(02,Numeri2,Ruota,Poste,Colpi,AMBO_,,01)
         Call Scrivi(DataEstrazione(Es) & " " & " [" & " " & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " " & "] ",True)
         Call Gioca(Es,True,,01)
      End If
   Next
   Call ScriviResoconto()
End Sub
Controllare Sempre .
Salvo Errori ed Omissis .
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 dicembre 2019
    Bari
    31
    35
    51
    16
    17
    Cagliari
    74
    45
    88
    04
    02
    Firenze
    58
    79
    71
    32
    70
    Genova
    35
    36
    74
    19
    67
    Milano
    37
    22
    09
    03
    50
    Napoli
    67
    32
    06
    82
    37
    Palermo
    59
    41
    52
    31
    06
    Roma
    17
    79
    01
    58
    19
    Torino
    41
    31
    57
    60
    03
    Venezia
    50
    31
    41
    01
    68
    Nazionale
    05
    12
    65
    02
    13

Ultimi Messaggi

Alto