Per gli scripter piu' bravi

[stefania1972]

Ciao ragazzi ho trovato su un forum due sistemi che loro dicono di vera ciclometria , volevo chiedervi se era possibile fare due script in modo da verificare la validita' della cosa , vi posto due immagini , grazie , e spero che qualcuno abbia un po di tempo , ciao .

 

[stefania1972]

Ciao ragazi , proprio non si puo' ?
Grazie , ciao .

 

[stefania1972]

Grazie a tutti ragazzi.

 

[gennaro]

Ma allora secondo il tuo metodo:

Ambo 07-48 su BA isotopo, e con somme verticali 90 e 91, con 83-43 su CA lo abbiamo proprio nell'estrazione del 17/10/2011 ?

 

[stefania1972]

Ciao gennaro sei l'unico che mi abbia risposto , la condizione e' quella , ma purtroppo non e' applicabile , perche' se ti fai il calcolo delle distanze vedi che non ti trovi con la stessa somma :

83 - 7 = 14 14 + 5 = 19
48 - 43 = 5
48 - 7 = 41 41+ 40 = 81
83 - 43 = 40

Per cui non e consigliabile giocare , mi dispiace , ciao .

 

[gennaro]

Vedi se cosi ti piace....

Vedi se cosi ti piace....

Non sono un bravo scripter, ma credo ke me la sono cavata.... fai le tue verifiche

PS: Attenta alla formattazione che il forum impone

'http://forum.lottoced.com/f12/per-gli-scripter-piu-bravi-89286/
Sub Main()
    Dim ruote(10)
    Dim posteambata(1),posteambo(2)
    Dim n(4)
    'posteambata(1) = 1 'Abilita qui se vuoi anche simulazione per l'estratto
    posteambo(2) = 1
    estr = InputBox("Quante estrazione vuoi controllare ? ","Estrazioni",200)
    k = InputBox("Quanti colpi di gioco ? ","Colpi di gioco",10)
    ColoreTesto 1
    Scrivi "============================= UNA QUARTINA ==============================",1
    Scrivi "=============================== X  AMBO =================================",1
    Scrivi "==================== DA GIOCARE SULLE RUOTE INTERESSATE =================",1
    Scrivi "=========================================================================",1
    Scrivi "=========================   PER MAX " & k & " COLPI   ==========================",1
    Scrivi "®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®",1
    Scrivi
    ColoreTesto 0
    ini = EstrazioneFin - estr
    fin = EstrazioneFin
    casi = 0
    For es = ini To EstrazioneFin
        Messaggio "Elaboro l'estrazione n°" & es
        For p1 = 1 To 5
            For r1 = 1 To 9
                a = Estratto(es,r1,p1)
                For p2 = 1 To 5
                    For r2 = r1 + 1 To 10
                        b = Estratto(es,r2,p2)
                        If a + b = 90 And p1 = p2 Then
                            For pp1 = p1 + 1 To 5
                                aa = Estratto(es,r1,pp1)
                                For pp2 = p2 + 1 To 5
                                    bb = Estratto(es,r2,pp2)
                                    If aa + bb = 91 And pp1 = pp2 Then
                                        casi = casi + 1
                                        Scrivi String(106,"^") & " Caso n°" & casi
                                        Scrivi "Ambo " & Format2(a) & "-" & Format2(aa) & " isotopo, e con somme verticali 90 e 91, con " & Format2(b) & "-" & Format2(bb) & " su " & NomeRuota(r1) & " " & NomeRuota(r2),1
                                        ruote(1) = r1
                                        ruote(2) = r2
                                        '--------------------------------------------------------------------------------------------
                                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] "
                                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ] "
                                        Scrivi("Distanza orizzontale tra " & Format2(a) & "-" & Format2(aa) & " = " & Distanza(a,aa))
                                        Scrivi("Distanza orizzontale tra " & Format2(b) & "-" & Format2(bb) & " = " & Distanza(b,bb))
                                        Scrivi("Distanza  verticale  tra " & Format2(a) & "-" & Format2(b) & " = " & Distanza(a,b))
                                        Scrivi("Distanza  verticale  tra " & Format2(aa) & "-" & Format2(bb) & " = " & Distanza(aa,bb))
                                        appo1 = Fuori90(Distanza(a,aa) + Distanza(b,bb))
                                        appo2 = Fuori90(Distanza(a,b) + Distanza(aa,bb))
                                        Scrivi("Somma delle distanze orizzontali = " & appo1)
                                        Scrivi("Somma delle distanze  verticali  = " & appo2)
                                        Scrivi String(106,"^")
                                        '--------------------------------------------------------------------------------------------
                                        If appo1 = appo2 Then
                                            n(1) = a
                                            n(2) = b
                                            n(3) = aa
                                            n(4) = bb
                                            EliminaRipetuti n 'Lo uso solo per ordinare i numeri
                                            'ImpostaGiocata 1,n,ruote,posteambata,k,1 'Abilita qui se vuoi anche simulazione per l'estratto
                                            ImpostaGiocata 2,n,ruote,posteambo,k,2
                                            Gioca es
                                        Else
                                            Scrivi("CONDIZIONE NON FAVOREVOLE")
                                        End If
                                    End If
                                Next
                            Next
                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub

 

[stefania1972]

Ciao gennaro sei stato molto gentile , grazie , ciao .