un ottimo metodo x Tutti

[vincenzo4221]

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.

 

[Baffoblu]

Ti ho già fatto uno script per un metodo....
Ma non ti sei fatto piu sentire.....

 

[vincenzo4221]

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

 

[Baffoblu]

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......

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