Novità

ricerca script

lottofortune

Advanced Member >PLATINUM<
Buongiorno a tutti.. chiedo se esistono script di matematica sommativa e dove posso trovarli gentilmente...io ho questo di mike58 ma ho notato che prima dell'estrazione mi da dei numeri, dopo che è uscita l'estrazione me ne da altri con tanti risultati.. :)
'Option Explicit Sub Main() Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1 Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1 Dim num(120000,5),aa(3),n1(1),n2(1),n3(1) Dim cin(10),ruote(10) casi = 0 x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO ruote(1) = r fin = EstrazioneFin Ini = fin - 140 fine = EstrazioneFin ReDim atitoli(11) atitoli(1) = " ESTRATTO " atitoli(2) = " SOMMATIVO " atitoli(3) = " PRESENZA SU CASI " atitoli(4) = " NUMERO IN GIOCO " atitoli(5) = " ESITO " atitoli(6) = " RET_ESTRATTI " atitoli(7) = " DATA ESTRAZIONE " atitoli(8) = " COLPO ESITO " atitoli(9) = " NUM. 1 " atitoli(10) = " NUM. 2 " atitoli(11) = " NUM. 3 " Call InitTabella(atitoli,1,,3,5) For es = Ini To Fin If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO idd = GetInfoEstrazione(es) Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi) Call AvanzamentoElab(Ini,fin,es) Inco = fine - es casi = casi + 1 co = 0 es1 = es + 1 es2 = es1 + colpi e = Estratto(es,r,pos) For s1 = 1 To 88 For s2 = s1 + 1 To 89 For s3 = s2 + 1 To 90 co = co + 1 cin(1) = Fuori90(e + s1) cin(2) = Fuori90(e + s2) cin(3) = Fuori90(e + s3) ea = SerieFreqTurbo(es1,es2,cin,ruote,2) num(co,1) = s1 num(co,2) = s2 num(co,3) = s3 num(co,4) = num(co,4) If ea > 0 Then num(co,4) = num(co,4) + 1 End If Next Next Next End If Next Scrivi : ColoreTesto 0: Scrivi,1 Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1 Scrivi "Combinazioni analizzate: " & co,1 Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0 Scrivi " -> Colpo in corso..." & Inco,1 Scrivi ColoreTesto 0 For i = 1 To visual Call OrdinaMatrice(num,- 1,4) If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI ColoreTesto 0 aa(1) = Fuori90(cin(1) + num(i,1) + 2) aa(2) = Fuori90(cin(2) + num(i,2) + 1) aa(3) = Fuori90(cin(3) + num(i,3)) Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id) n1(1) = aa(1) n2(1) = aa(2) n3(1) = aa(3) ReDim avalori(11) avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3))) avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi " avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3)) avalori(5) = retesito avalori(6) = Retestratti If retesito = "Ambo" Or retesito = "Terno" Then avalori(7) = DataEstrazione(id) Else avalori(7) = " In corso " End If If retesito = "Ambo" Or retesito = "Terno" Then avalori(8) = retcolpi & "°" Else avalori(8) = Inco & "° in corso " End If sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1) sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1) sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1) If sf11 > 0 Then avalori(9) = n1(1) Else avalori(9) = "" End If If sf12 > 0 Then avalori(10) = n2(1) Else avalori(10) = "" End If If sf13 > 0 Then avalori(11) = n3(1) Else avalori(11) = "" End If 'End If Call AddRigaTabella(avalori,,,3) End If Call SetColoreCella(2,,1) Call SetColoreCella(4,,2) Call SetColoreCella(6,,7) If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4) If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1) If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2) Next Call SetTableWidth("100%") Call CreaTabella() End Su
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto