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
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35

Ultimi Messaggi

Indietro
Alto