Novità

chi se la sente di provare!

  • Creatore Discussione Creatore Discussione arcor
  • Data di inizio Data di inizio
text2shield.php
 
Su ... su .... me sembra che vi perdiate in un bicchiere d'acqua!!!!
Elementare .... elementare !!!!
Ihihihih

:cool::confused:


NOOOO, ci sono affogato dentro......:rolleyes:


A proposito, dov'eri quando ho chiesto
aiuto ?.......

:)
 
Ultima modifica di un moderatore:
grazie baffo stai facendo un vero capolavoro sono contento di aver proposto questo metodo così ti è servito moltissimo per migliorarti come scripter il nostro buon Luigi sarà molto contento di quello che stai realizzando
complimenti veramente
ciao
 
grazie baffo stai facendo un vero capolavoro sono contento di aver proposto questo metodo così ti è servito moltissimo per migliorarti come scripter il nostro buon Luigi sarà molto contento di quello che stai realizzando
complimenti veramente
ciao

Grazie

Si è vero, mi è servito....

Se lo faceva Luigi, sono sicurissimo
che sarebbe venuto uno script totalmente diverso,
migliore anni luce da quello mio.....

Comunque devo ancora definire
meglio alcune cosette.......

Tempo al tempo.....

:)


 
Script finale !








Codice:
Sub Main()
    ColoreTesto 1
    Scrivi " =============== IDEA BY ARCOR  <>  SCRIPT BY BAFFOBLU =====================",1
    Scrivi
    Scrivi
    Scrivi " ======================= UN AMBATA CAPOGIOCO =====================",1
    Scrivi
    Scrivi " ========= UNA TERZINA PRINCIPALE X AMBO E UNA TERZINA A RECUPERO =========",1
    Scrivi
        Scrivi " ********************************************************************************************** ",1
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim posta(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim nu1(1)
    Dim n1(3)
    Dim n2(3)
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"77"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
    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)
        For r1 = 1 To 10
            For r2 = 1 To 10
                For p1 = 1 To 4
                    For p2 = p1 + 1 To 5
                        For p3 = 1 To 5
                            a = Estratto(idEstr,r1,p1)
                            b = Estratto(idEstr,r1,p2)
                            If Cadenza(a) = Cadenza(b) And Distanza(a,b) = 30 Then
                                '-----------------------------------------------------
                                If a > b Then
                                    c = Estratto(idEstr,r2,p1)
                                    If c =(a - 10) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '----------------------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '----------------------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & Format2(c) & " - " & "** " & " [" & " In " & p1 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                        End If
                                    End If
                                End If
                                '-----------------------------------------------------------------
                                If a < b Then
                                    c = Estratto(idEstr,r2,p1)
                                    If c =(Fuori90(a + 10)) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '-----------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '-----------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & Format2(c) & " - " & "** " & " [" & " In " & p1 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                        End If
                                    End If
                                End If
                                '-----------------------------------------------------------------
                                If b > a Then
                                    c = Estratto(idEstr,r2,p1)
                                    If c =(b - 10) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '----------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '----------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & Format2(c) & " - " & "** " & " [" & " In " & p1 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                        End If
                                    End If
                                End If
                                '-----------------------------------------------------------------
                                If b < a Then
                                    c = Estratto(idEstr,r2,p1)
                                    If c =(Fuori90(b + 10)) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '-------------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '------------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & Format2(c) & " - " & "** " & " [" & " In " & p1 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                        End If
                                    End If
                                End If
                                '-----------------------------------------------------------------
                                If a > b Then
                                    c = Estratto(idEstr,r2,p2)
                                    If c =(a - 10) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '----------------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '------------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & "** " & "- " & Format2(c) & "  [" & " in " & p2 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                            '-----------------------------------------------------------------
                                        End If
                                    End If
                                End If
                                '-----------------------------------------------------------------
                                If a < b Then
                                    c = Estratto(idEstr,r2,p2)
                                    If c =(Fuori90(a + 10)) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '----------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '----------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & "** " & "- " & Format2(c) & "  [" & " in " & p2 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                            '-----------------------------------------------------------------
                                        End If
                                    End If
                                End If
                                '-------------------------------------------------------------------------
                                If b > a Then
                                    c = Estratto(idEstr,r2,p2)
                                    If c =(b - 10) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '---------------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '------------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & "** " & "- " & Format2(c) & "  [" & " in " & p2 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                            '-----------------------------------------------------------------
                                        End If
                                    End If
                                End If
                                '-----------------------------------------------------------------
                                If b < a Then
                                    c = Estratto(idEstr,r2,p2)
                                    If c =(Fuori90(b + 10)) Then
                                        '-------------------------------------------
                                        w = Estratto(idEstr,r1,p3)
                                        a1 = Diametrale(a)
                                        b1 = Diametrale(b)
                                        c1 = Diametrale(c)
                                        '-----------------
                                        a2 = DiametraleD(a)
                                        b2 = DiametraleD(b)
                                        c2 = DiametraleD(c)
                                        '----------------------------------------------------------------------
                                        If w = a1 Or w = b1 Or w = c1 Or w = a2 Or w = b2 Or w = c2 Then
                                            '----------------------------------------------------------------------
                                            d = Minimo(a,b)
                                            e = Minimo(a,c)
                                            f = Minimo(b,c)
                                            If d = e Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If d = f Then
                                                g =(d + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(d + 20)
                                                End If
                                            End If
                                            If e = f Then
                                                g =(e + 10)
                                                If g = a Or g = b Or g = c Then
                                                    g =(e + 20)
                                                End If
                                            End If
                                            '----------------------------------------------------
                                            If a1 = w Then
                                                n1(2) = b1
                                                n1(3) = c1
                                            End If
                                            If b1 = w Then
                                                n1(2) = a1
                                                n1(3) = c1
                                            End If
                                            If c1 = w Then
                                                n1(2) = a1
                                                n1(3) = b1
                                            End If
                                            '----------------------
                                            If a2 = w Then
                                                n1(2) = b2
                                                n1(3) = c2
                                            End If
                                            If b2 = w Then
                                                n1(2) = a2
                                                n1(3) = c2
                                            End If
                                            If c2 = w Then
                                                n1(2) = a2
                                                n1(3) = b2
                                            End If
                                            '----------------------
                                            d1 = Minimo(a,b)
                                            e1 = Minimo(a,c)
                                            f1 = Minimo(b,c)
                                            If d1 = e1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If d1 = f1 Then
                                                g1 =(d1 - 10)
                                                If d1 < 10 Then
                                                    g1 =((90 + d1) - 10)
                                                End If
                                            End If
                                            If e1 = f1 Then
                                                g1 =(e1 - 10)
                                                If e1 < 10 Then
                                                    g1 =((90 + e1) - 10)
                                                End If
                                            End If
                                            '------------------
                                            d2 = Massimo(a,b)
                                            e2 = Massimo(a,c)
                                            f2 = Massimo(b,c)
                                            If d2 = e2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If d2 = f2 Then
                                                g2 = Fuori90(d2 + 10)
                                            End If
                                            If e2 = f2 Then
                                                g2 = Fuori90(e2 + 10)
                                            End If
                                            '------------------
                                            '----------------------------------------------------
                                            ruote(1) = r1
                                            ruote(2) = r2
                                            nu1(1) = g
                                            n1(1) = g
                                            n2(1) = g
                                            n2(2) = g1
                                            n2(3) = g2
                                            co = co + 1
                                            ColoreTesto 0
                                            Scrivi String(100,"°") & " Caso n°" & co,1
                                            ColoreTesto 0
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & "  Ambo in cadenza Distanza 30     :   " & Format2(a) & " - " & Format2(b) & "  [" & " in " & p1 & " e in " & p2 & "  pos. ]",1
                                            ColoreTesto 1
                                            Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idEstr,r2) & " ** " & "  Isotopo Intermedio Distanza 10  :   " & "** " & "- " & Format2(c) & "  [" & " in " & p2 & "  pos. ]",1
                                            Scrivi
                                            ColoreTesto 7
                                            Scrivi "Diametrali : " & Format2(Diametrale(a)) & " - " & Format2(Diametrale(b)) & " - " & Format2(Diametrale(c)) & " *** " & " Diametrali in Decina  : " & Format2(DiametraleD(a)) & " - " & Format2(DiametraleD(b)) & " - " & Format2(DiametraleD(c)),1
                                            ColoreTesto 0
                                            Scrivi
                                            ColoreTesto 2
                                            Scrivi "Diametrale o Diametrale in decina rintracciato  : " & Format2(w),1
                                                                                        Scrivi
                                            ColoreTesto 1
                                            Scrivi "         < Attenzione !!! Regole per scegliere le previsioni migliori > ",1
                                            Scrivi " Almeno due dei 3 estratti di base (I 2 numeri dell'Ambo e L'Isotopo Intermedio), ",1
                                            Scrivi " si devono trovare nelle ruote opposte a quelle di rilevamento nelle 11 estrazioni precedenti. ",1
                                            Scrivi "        Se si rintracciano tutti e tre i numeri, la previsione è più forte. ",1
                                            Scrivi " ---------------------------------------------------------------------------------------------- ",1
                                            Scrivi " Rintracciare almeno su una ruota l’ambata e gli abbinamenti per ambo secco nelle 11 estrazioni precedenti. ",1
                                            Scrivi "Non porre in gioco se si rilevano due sfaldamenti X ambo nelle 20 estrazioni precedenti sulle due ruote in gioco",1
                                            ColoreTesto 0
                                            Scrivi String(100,"="),1
                                            ImpostaGiocata 1,nu1,ruote,posta,nColpiDiGioco
                                            ImpostaGiocata 2,n1,ruote,poste,nColpiDiGioco
                                            ImpostaGiocata 3,n2,ruote,poste,nColpiDiGioco
                                            Gioca idEstr,1
                                            '-----------------------------------------------------------------
                                        End If
                                    End If
                                End If
                            End If
                            If ScriptInterrotto Then Exit For
                        Next
                    Next
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" IDEA BY ARCOR <> LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
 
Ultima modifica di un moderatore:
Grazie

Si è vero, mi è servito....

Se lo faceva Luigi, sono sicurissimo
che sarebbe venuto uno script totalmente diverso,
migliore anni luce da quello mio.....

Comunque devo ancora definire
meglio alcune cosette.......

Tempo al tempo.....

:)



Ciao Baffo , forse si ma io sono il primo che sostiene l'ideologia che qualsiasi strada che porta alla meta è comunque una strada buona.Percio apprezzo moltissimo quello che hai fatto e ti rassicuro dicendoti che scrivere gli script è solo una questione di esperienza , vedrai che continuando a scriverli acquisterai quello stile che ora ti sembra lontano.
Peccato che altri promettenti scripter si siano dati alla macchia ... (se vede che l'ho bacchettato troppo... lui sa di chi parlo :-) )

Ciao !
 
Ultima modifica di un moderatore:
Ciao Baffo , forse si ma io sono il primo che sostiene l'ideologia che qualsiasi strada che porta alla meta è comunque una strada buona.Percio apprezzo moltissimo quello che hai fatto e ti rassicuro dicendoti che scrivere gli script è solo una questione di esperienza , vedrai che continuando a scriverli acquisterai quello stile che ora ti sembra lontano.
Peccato che altri promettenti scripter si siano dati alla macchia ... (se vede che l'ho bacchettato troppo... lui sa di chi parlo :-) )

Ciao !

Hehehe, tutte le strade portano a Roma.....:)

Grazie ! lo devo solo a te....

So di chi parli, ultimamente si era dedicato al 10 e lotto e affini,
ma poi è sparito.....(sarà preso da qualche ricerca......).

Ho scoperto che lo script richiesto da arcor
era già stato fatto da Emplein qualche mese fa....

Io lo fatto mooolto più lungo.....non essendo pratico....

Ciao Luigi :)


X arcor

Come mai hai fatto di nuovo la richiesta
dello stesso script ?

Mi risulta che quello fatto da Emplein
fosse funzionante.....

 
Ultima modifica di un moderatore:
ciao baffo sembra uguale ma non lo è questa è la versione due con qualche sostanziale modifica nei parametri
 
ciao baffo sembra uguale ma non lo è questa è la versione due con qualche sostanziale modifica nei parametri

Scusa, ma nel tread " Per scripter tosti",

e questo qui, non ci vedo la differenza.

La tua richiesta è praticamente la stessa,

i calcoli pure......

Quale è la differenza ?
 
ciao baffo devo darti ragione avevo preparato 2 versioni dello stesso metodo logicamente la prima richiesta doveva essere quella della prima versione del metodo e questa che hai realizzato tu la seconda invece ho messo subito la versione aggiornata nella prima richiesta chiedo umilmente scusa ormai mettere la prima versione ora non ha più senso
 
ciao baffo devo darti ragione avevo preparato 2 versioni dello stesso metodo logicamente la prima richiesta doveva essere quella della prima versione del metodo e questa che hai realizzato tu la seconda invece ho messo subito la versione aggiornata nella prima richiesta chiedo umilmente scusa ormai mettere la prima versione ora non ha più senso


Mi sembrava che c'era qualcosa di "bizzarro"....

ok, tutto a posto....

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15
Indietro
Alto