E' qui che posso fare richiesta script per superenalotto?

[margot]

E' qui che posso fare richiesta script per superenalotto?

 

[claudio8]

Si..
ma non fare affidamento su di me

 

[margot]

questo è il metodo, da cui fare lo script:
Estrazione di Ricerca: 7^ del mese
Operazioni per il calcolo delle Combinazioni:
Combinazione 1:
Quarto Estratto + 11
Quinto Estratto + 50
Sesto Estratto + 78
Primo Estratto + 29
Terzo Estratto X 57
Quinto Estratto - Sesto Estratto
Combinazione 2:
Terzo Estratto - 45
Primo Estratto X 17
Quarto Estratto X 79
Quarto Estratto X 82
Terzo Estratto - 86
Primo Estratto X 67
Combinazione 3:
Quinto Estratto - Sesto Estratto
Primo Estratto + 15
Sesto Estratto X 2
Terzo Estratto + 76
Sesto Estratto X 58
Sesto Estratto + 18
Combinazione 4:
Quarto Estratto X 9
Quarto Estratto X 3
Primo Estratto - 37
Terzo Estratto X 90
Terzo Estratto X 48
Quinto Estratto - 65
Combinazione 5:
Quarto Estratto X 8
Terzo Estratto - 30
Terzo Estratto - Quinto Estratto
Sesto Estratto - 87
Sesto Estratto + 67
Sesto Estratto - 59

spero che qualcuno possa realizzarlo, grazie in anticipo

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[margot]

ciao provalo
NB : l' archivio SE di spaziometria e' in ordine numerico progressivo , non in ordine di estrazione .

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

grazie tanto per l'aiuto, ma lo script non individua i 2 numeri usciti? si può aggiungere il grafico dell'andamento con le relative spese?

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.