Aiuto per script spia 11 su milano

[santo1610]

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

 

[Membro cancellato 16574]

Buongiorno,
Salutando gli intervenuri ,

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 .