Novità

E' qui che posso fare richiesta script per superenalotto?

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
 
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:
ciao provalo
NB : l' archivio SE di spaziometria e' in ordine numerico progressivo , non in ordine di estrazione .
Codice:
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?
 
حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 aprile 2025
    Bari
    60
    48
    59
    35
    50
    Cagliari
    42
    63
    88
    44
    90
    Firenze
    33
    65
    76
    01
    25
    Genova
    29
    82
    70
    19
    43
    Milano
    04
    73
    67
    22
    85
    Napoli
    65
    27
    10
    06
    66
    Palermo
    37
    13
    35
    79
    85
    Roma
    51
    14
    63
    71
    89
    Torino
    44
    04
    70
    82
    51
    Venezia
    61
    88
    27
    82
    66
    Nazionale
    15
    82
    14
    18
    32
    Estrazione Simbolotto
    Genova
    45
    13
    32
    14
    37
Indietro
Alto