'
' Tre terzine x ambata ambo e terno su TO - le ruotre sono espresse o a n° o a sigla per farti comprendere come farVi eventuali modifiche
Sub Main()
Dim ruote(2)
Dim numeri1(3) '1a trezina di numeri in gioco
Dim numeri2(3) '2a "
Dim numeri3(3) '3a "
Dim poste(5)
Dim posta(5)
posta(1) = 1
ruote(1) = 9 ' torino
caso = 0
ini = 9436 ' 17/02/2018
For n = ini To EstrazioneFin
If IndiceMensile(n) = 8 Then
caso = caso + 1
Scrivi "------------------------------------------------------------- caso n° " & Format2(caso)
numeri1(1) = Fuori90(DiametraleD(Estratto(n,7,3)) + Estratto(n,10,3) + 28) ' ambata 1° gruppo
numeri1(2) = Fuori90(3*(Estratto(n,2,2)) + Estratto(n,1,1) + 32)
numeri1(3) = Fuori90(ComplAdX(Estratto(n,3,5)) + Estratto(n,7,5) + 9)
ImpostaGiocata 1,numeri1,ruote,posta,9,0
numeri2(1) = Fuori90(DiametraleD(Estratto(n,9,1)) + Estratto(n,NZ_,5) + 1) ' ambata 2° gruppo
numeri2(2) = Fuori90(ComplAdX(Estratto(n,12,4)) + Estratto(n,NA_,2) + 8)
numeri2(3) = Fuori90(ComplAdX(Estratto(n,4,3)) + Estratto(n,NZ_,3) + 23)
ImpostaGiocata 2,numeri2,ruote,posta,9,0
numeri3(1) = Fuori90(ComplAdX(Estratto(n,BA_,1)) + Estratto(n,TO_,3) + 1) ' ambata 3° gruppo
numeri3(2) = Fuori90(ComplAdX(Estratto(n,1,3)) + Estratto(n,TO_,2) + 1)
numeri3(3) = Fuori90(ComplAdX(Estratto(n,1,1)) + Estratto(n,GE_,4) + 1)
ColoreTesto 1
Scrivi DataEstrazione(n) & " numeri 1a giocata " & numeri1(1) & "." & numeri1(2) & "." & numeri1(3)
Scrivi DataEstrazione(n) & " numeri 2a giocata " & numeri2(1) & "." & numeri2(2) & "." & numeri2(3)
Scrivi DataEstrazione(n) & " numeri 3a giocata " & numeri3(1) & "." & numeri3(2) & "." & numeri3(3)
ColoreTesto 0
ImpostaGiocata 3,numeri3,ruote,posta,9,0
Gioca n,True,,1'con ",True" vengono elencate per tutti i casi solo le estrazioni che sono positive
End If
Next
ScriviResoconto
End Sub