Option Explicit
'E' qui che posso fare richiesta script per superenalotto? di margot
'https://forum.lottoced.com/threads/e-qui-che-posso-fare-richiesta-script-per-superenalotto.2205961/#post-2446358
Sub Main()
Dim Casi,klp
Dim Ini,fin,es
Dim ES01,ES02,ES03,ES04,ES05,ES06
Dim nr01(6),nr02(6),nr03(6),nr04(6),nr05(6)
klp = 13
Casi = 0
Ini = 3371
fin = EstrazioniArchivioSE
For es = Ini To fin
If IndiceMensileSE(es) = 7 Then'Estrazione di Ricerca: 7^ del mese
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
Casi = Casi + 01
Call Scrivi(String(125,"-") & "Caso n° " & Format2(Casi),01)
ES01 = EstrattoSE(es,01)
ES02 = EstrattoSE(es,02)
ES03 = EstrattoSE(es,03)
ES04 = EstrattoSE(es,04)
ES05 = EstrattoSE(es,05)
ES06 = EstrattoSE(es,06)
'Combinazione 1:
'Quarto Estratto + 11
'Quinto Estratto + 50
'Sesto Estratto + 78
'Primo Estratto + 29
'Terzo Estratto X 57
'Quinto Estratto - Sesto Estratto
nr01(01) = Fuori90(ES04 + 11)
nr01(02) = Fuori90(ES05 + 50)
nr01(03) = Fuori90(ES06 + 78)
nr01(04) = Fuori90(ES01 + 29)
nr01(05) = Fuori90(ES03 * 57)
nr01(06) = Fuori90((90 + ES05) - ES06)
Call ImpostaGiocataSE(1,nr01,1,klp)
'Combinazione 2:
'Terzo Estratto - 45
'Primo Estratto X 17
'Quarto Estratto X 79
'Quarto Estratto X 82
'Terzo Estratto - 86
'Primo Estratto X 67
nr02(01) = Fuori90((90 + ES03) - 45)
nr02(02) = Fuori90(ES01 * 17)
nr02(03) = Fuori90(ES04 * 79)
nr02(04) = Fuori90(ES04 * 82)
nr02(05) = Fuori90((90 + ES03) - 86)
nr02(06) = Fuori90(ES01 * 67)
Call ImpostaGiocataSE(2,nr02,1,klp)
'Combinazione 3:
'Quinto Estratto - Sesto Estratto
'Primo Estratto + 15
'Sesto Estratto X 2
'Terzo Estratto + 76
'Sesto Estratto X 58
'Sesto Estratto + 18
nr03(01) = Fuori90((90 + ES05) - ES06)
nr03(02) = Fuori90(ES01 + 15)
nr03(03) = Fuori90(ES06 * 2)
nr03(04) = Fuori90(ES03 + 76)
nr03(05) = Fuori90(ES06 * 58)
nr03(06) = Fuori90(ES06 + 18)
Call ImpostaGiocataSE(3,nr03,1,klp)
'Combinazione 4:
'Quarto Estratto X 9
'Quarto Estratto X 3
'Primo Estratto - 37
'Terzo Estratto X 90
'Terzo Estratto X 48
'Quinto Estratto - 65
nr04(01) = Fuori90(ES04 * 9)
nr04(02) = Fuori90(ES04 * 3)
nr04(03) = Fuori90((90 + ES01) - 37)
nr04(04) = Fuori90(ES03 * 90)
nr04(05) = Fuori90(ES03 * 48)
nr04(06) = Fuori90((90 + ES05) - 65)
Call ImpostaGiocataSE(4,nr04,1,klp)
'Combinazione 5:
'Quarto Estratto X 8
'Terzo Estratto - 30
'Terzo Estratto - Quinto Estratto
'Sesto Estratto - 87
'Sesto Estratto + 67
'Sesto Estratto - 59
nr05(01) = Fuori90(ES04 * 8)
nr05(02) = Fuori90((90 + ES03) - 30)
nr05(03) = Fuori90((90 + ES03) - ES05)
nr05(04) = Fuori90((90 + ES06) - 87)
nr05(05) = Fuori90(ES06 + 67)
nr05(06) = Fuori90((90 + ES06) - 59)
Call ImpostaGiocataSE(5,nr05,1,klp)
Call GiocaSE(es,True,,01)
End If
Next
Call ScriviResocontoSE
End Sub