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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto