Novità

Per Lottofortune - modifica script

claudio8

Premium Member
Ho spostato la tua richiesta di modifica script per evitare di appesantire il post e darti la possibilità anche di approfondire ulteriormente l'uso dello script.

Ho inserito la 2a ruota, (r2) diversa da quella della 1a che coincide con quella dell'estratto di base.

Codice:
  'costruttore sommativo di Mike58
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 Estratto Base e  RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
    r2 = CInt(InputBox("2a RUOTA DI RICERCA ?","MIKE58",2)) '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 Sommativi VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO
    ruote(1) = r
    ruote(2) = r2
    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 SULLE RUOTE DI " & NomeRuota(r) & " e  " & NomeRuota(r2) & " 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 Sub

Nb : controllare sempre che gli output siano corretti.

Un saluto.
 
baikal;n2148110 ha scritto:
sig. Claudio8 come va? vedo che stavolta ha fornito la canna non il pescato.

Bene, grazie

Lo so sig Baikal, :mad::mad::mad: ho direttamentente fornito il pescato...... ogni tanto faccio anche io una buona azione..... :cool: :cool: :cool:

Saluti, claudio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto