Novità

un ottimo metodo x Tutti

vincenzo4221

Advanced Member >PLATINUM<
tempo medio d'uscita 2 colpi , un ottimo metodo della mia collezione, è possibile farne uno script?
Io non faccio perdere del tempo, e ad essere sinceri , ci ho pensato un pò per pubblicarlo, anche se non è mio.
 

Allegati

  • diam in dec di santilio.jpg
    diam in dec di santilio.jpg
    98,5 KB · Visite: 3
Ti ho già fatto uno script per un metodo....
Ma non ti sei fatto piu sentire.....
 
INANZITUTTO GRAZIE per lo script , a te è piaciuto?
Che dire, a me sembra ottimo ,sia lo script per quello che ne possa capire , sopratutto per i risultati ottenuti , penso che l'impegno profuso sia stato adequatemente ricompensato , l'obiettivo comune è divertirsi cercando di ricavarci qualcosa.
Tu hai qualke idea per restringere le giocate?
Con delle progressioni piccole come si sarebbe comportato il metodo?
vado piano o mi faccio sentire?
Le poche vincite fin'ora realizzate , per me, sono state sempre frutto di convergenze.
E tutti quelli che leggono (e seguono) fanno parte di un progetto in comune , FREGARE LA LOTTOMATICA.
enzoCiao Vinc
 
INANZITUTTO GRAZIE per lo script , a te è piaciuto?
Che dire, a me sembra ottimo ,sia lo script per quello che ne possa capire , sopratutto per i risultati ottenuti , penso che l'impegno profuso sia stato adequatemente ricompensato , l'obiettivo comune è divertirsi cercando di ricavarci qualcosa.
Tu hai qualke idea per restringere le giocate?
Con delle progressioni piccole come si sarebbe comportato il metodo?
vado piano o mi faccio sentire?
Le poche vincite fin'ora realizzate , per me, sono state sempre frutto di convergenze.
E tutti quelli che leggono (e seguono) fanno parte di un progetto in comune , FREGARE LA LOTTOMATICA.
enzoCiao Vinc


Beh, io faccio gli script a chi ne fa richiesta e se lo so fare.
Mi si deve segnalare se c'è qualche eventuale errore di interpretazione,
o qualche modifica da fare.
Per il resto dovete vedervela voi......

Ecco un altro script :

PS : attenzione a quello che le inputbox chiedono......



Codice:
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim r
    Dim r1
    Dim p1
    Dim p2
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim w
    Dim n(2)
    Dim lu(12)
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    w = CInt(InputBox(" Quanti colpi indietro per ricerca Isotopo ?                0 = Estr.Base / 1 = Estr.Prec. e cosi via...",,"0"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        For r = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    a1 = Estratto(idEstr,r,p1)
                    a2 = Estratto(idEstr,r,p2)
                    If Distanza(a1,a2) = 45 Then
                        f1 = Figura(a1)
                        f2 = Figura(a2)
                        If f1 = f2 Then
                            f = f1
                        End If
                        If r = 1 Then
                            r1 = 6
                        End If
                        If r = 2 Then
                            r1 = 7
                        End If
                        If r = 3 Then
                            r1 = 8
                        End If
                        If r = 4 Then
                            r1 = 9
                        End If
                        If r = 5 Then
                            r1 = 10
                        End If
                        If r = 6 Then
                            r1 = 1
                        End If
                        If r = 7 Then
                            r1 = 2
                        End If
                        If r = 8 Then
                            r1 = 3
                        End If
                        If r = 9 Then
                            r1 = 4
                        End If
                        If r = 10 Then
                            r1 = 5
                        End If
                        For x = 0 To w
                            a3 = Estratto(idEstr - x,r1,p1)
                            a4 = Estratto(idEstr - x,r1,p2)
                            f3 = Figura(a3)
                            f4 = Figura(a4)
                            ok = 0
                            If f3 = f1 Then
                                n(1) = Fuori90(a3 + a1)
                                n(2) = Diametrale(n(1))
                                ok = 1
                            End If
                            If f4 = f2 Then
                                n(1) = Fuori90(a4 + a2)
                                n(2) = Diametrale(n(1))
                                ok = 1
                            End If
                            fa1 = Figura(n(1))
                            fa2 = fa1 + 9
                            fa3 = fa2 + 9
                            fa4 = fa3 + 9
                            fa5 = fa4 + 9
                            fa6 = fa5 + 9
                            fa7 = fa6 + 9
                            fa8 = fa7 + 9
                            fa9 = fa8 + 9
                            fa10 = fa9 + 9
                            lu(1) = n(1)
                            lu(2) = n(2)
                            lu(3) = fa1
                            lu(4) = fa2
                            lu(5) = fa3
                            lu(6) = fa4
                            lu(7) = fa5
                            lu(8) = fa6
                            lu(9) = fa7
                            lu(10) = fa8
                            lu(11) = fa9
                            lu(12) = fa10
                            EliminaRipetuti lu
                            If ok = 1 Then
                                ruote(1) = r
                                ruote(2) = r1
                                co = co + 1
                                Scrivi String(100,"°") & " Caso n°" & co,1
                                Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
                                ColoreTesto 1
                                Scrivi "Ambo Diametrale  :  " & Format2(a1) & " - " & Format2(a2) & "  rintracciato a " & NomeRuota(r) & " in " & p1 & "° pos." & " e in " & p2 & "° pos.",1
                                ColoreTesto 7
                                Scrivi DataEstrazione(idEstr - x) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr - x,r1) & " rilevato elemento isotopo stessa figura " & f,1
                                ColoreTesto 1
                                ColoreTesto 1
                                Scrivi String(80,"="),1
                                ColoreTesto 0
                                ImpostaGiocata 1,n,ruote,posta,nColpiDiGioco,1
                                ImpostaGiocata 2,lu,ruote,poste,nColpiDiGioco,2
                                Gioca idEstr,1,,1
                            End If
                        Next
                    End If
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 giugno 2025
    Bari
    76
    01
    50
    74
    87
    Cagliari
    13
    76
    67
    43
    59
    Firenze
    37
    17
    71
    48
    23
    Genova
    54
    58
    44
    48
    46
    Milano
    48
    09
    86
    77
    44
    Napoli
    38
    25
    17
    19
    82
    Palermo
    81
    66
    78
    72
    05
    Roma
    70
    27
    83
    44
    71
    Torino
    79
    86
    53
    03
    89
    Venezia
    78
    18
    33
    79
    38
    Nazionale
    49
    63
    48
    86
    68
    Estrazione Simbolotto
    Napoli
    43
    08
    01
    35
    15
Indietro
Alto