Novità

Per gli scripter

  • Creatore Discussione Creatore Discussione Y10
  • Data di inizio Data di inizio
Y10

Y10

Advanced Member >PLATINUM<
Salve , avrei piacere che qualche scripter volenteroso mi faccia il listato di questo vecchio metodo , impostandolo a 10 colpi per sorte Ambata e Ambo.

Grazie anticipate.

Bisogna rintracciare in due ruote due ambi di distanza 45, la posizione è ininfluente, dalla loro somma ricaveremo sempre un numero uguale, se ciò non accade, allora la somma si farà in diagonale, l’unico abbinamento ci verrà dato dalla somma degli ambi ed anche in questo caso sarà sempre un numero uguale, i due numeri ricavati si giocheranno per estratto e ambo, e sarà composto sempre da un ambo di distanza 45, vediamo alcuni esempi:

Estrazione del 5 gennaio 05
Napoli 63-43--- Roma 88-18
Rintracciamo due ambi di distanza 45, 63-18 e 43-88, posizioniamo gli ambi nell’esatto ordine di sortita per ricavare l’ambata

____________63+______43+
____________88=______18=
________________________
____________61_______61_____ che sarà l’ambata

adesso sommeremo i due ambi e ricaveremo sempre un numero uguale

63+43=106-90=16, 88+18=106-90=16 secondo numero che sarà l’abbinamento, previsione ricavata: Napoli Roma 61 ambata, 61-16 ambo di distanza 45.
Esito: al 5° colpo ambata 61 e ambo 16-61 Napoli.

Estrazione del 30 marzo 05
Cagliari 53-58--- Venezia 13-8
Rintracciati gli ambi di distanza 45 andremo a ricavare l’ambata,

_______53+______58+
_______13=_______8=
____________________
_______66_______66 ambata

53+58=111-90=21, 13+8=21, abbinamento

previsione ricavata: Cagliari Venezia 66 ambata 66-21 ambo di distanza 45.
Esito: al 2° colpo ambata 66 a Venezia.

Estrazione del 14 maggio 05
Firenze 90-3--- Palermo 48-45
Previsione ricavata: 48 ambata 48-3 ambo di distanza 45.
Esito: al 7° colpo ambata 48 e ambo 48-3 Firenze.

Estrazione del 16 marzo 05
Napoli 81-16--- Roma 61-36
Previsione ricavata. Ambata 52 e ambo 52-7.
Esito: al 1° colpo ambata 52 Napoli.

Estrazione del 2 aprile 05
Bari 31-53--- Roma 76-8
Previsione ricavata: 39 ambata 39-84 ambo secco.
Esito: al 1° colpo ambata 39 Roma.

Estrazione del 25 maggio 05
Napoli 37-35--- Nazionale 80-82
Previsione ricavata: 27 ambata 27-72 ambo secco.
Esito: al 2° colpo ambata 27 e ambo secco 27-72 Nazionale.

Estrazione del 15 aprile 06
Torino 48-56--- Venezia 3-11
previsione ricavata: 59 ambata 59-14 ambo secco
Esito: al 6° colpo ambata 59 e ambo secco 59-14 a Torino.


Estrazione del 29 aprile 06
Firenze 24-14---Torino 59-69
previsione ricavata: 83 ambata 83-38 ambo secco
Esito: al 6° colpo ambata 83 e ambo secco 83-38 a Firenze.
 
Ecco fatto !



Codice: 
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim t,r1,r2,n1,n2,n3,n4
    Dim am(1)
    Dim amb(2)
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    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)
        t = 1
        Do While DISAMBO(idEstr,t,r1,n1,n2,r2,n3,n4) = True
            ruote(1) = r1
            ruote(2) = r2
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi
            Scrivi NomeRuota(r1) & " " & CInt(n1) & " " & CInt(n2) & "  " & NomeRuota(r2) & " " & CInt(n3) & " " & CInt(n4)
            z1 = Fuori90(n1 + n3)
            z2 = Fuori90(n2 + n4)
            If z1 = z2 Then
                am(1) = z1
            End If
            z3 = Fuori90(n1 + n2)
            z4 = Fuori90(n3 + n4)
            If z3 = z4 Then
                amb(1) = am(1)
                amb(2) = z3
            End If
            If z3 <> z4 Then
                z5 = Fuori90(n1 + n4)
                z6 = Fuori90(n2 + n3)
                If z5 = z6 Then
                    amb(1) = am(1)
                    amb(2) = z5
                End If
            End If
            ImpostaGiocata 1,am,ruote,posta,nColpiDiGioco
            ImpostaGiocata 2,amb,ruote,poste,nColpiDiGioco
            For a = 1 To 10
                For b = 1 To 10
                    ImpostaInterruzioni a,b,2
                Next
            Next
            Gioca idEstr,1
            t = t + 1
        Loop
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati = 0
    For r = 1 To 7
        For i = 1 To 4
            For j = i + 1 To 5
                a = Estratto(estrazione,r,i)
                b = Estratto(estrazione,r,j)
                c = Distanza(a,b)
                If c = 45 Then
                    For rr = r + 1 To 8
                        For ii = 1 To 4
                            For jj = ii + 1 To 5
                                aa = Estratto(estrazione,rr,ii)
                                bb = Estratto(estrazione,rr,jj)
                                cc = Distanza(aa,bb)
                                If c = cc Then
                                    trovati = trovati + 1
                                    If trovati = tentativo Then
                                        numero1 = Estratto(estrazione,r,i)
                                        numero2 = Estratto(estrazione,r,j)
                                        numero3 = Estratto(estrazione,rr,ii)
                                        numero4 = Estratto(estrazione,rr,jj)
                                        ruota1 = r
                                        ruota2 = rr
                                        DISAMBO = True
                                        Exit Function
                                    End If
                                End If
                            Next
                        Next
                    Next
                End If
            Next
        Next
    Next
    DISAMBO = False
End Function
 
ciao
anch'io avrei una richiesta per uno script, me ne servirebbe uno che mi calcoli delle statistiche,
vorrei che mi calcolasse quali sono i ritardi storici sincroni su tutte le ruote per un determinato
periodo,
ad esempio
il 12 a cagliari ed il 6 a genova hanno un ritardo di 87 estrazioni
vorrei sapere quali sono i massimi ritardi storici che hanno avuto due numeri sincroni
(qualsiasi numeri abbiano raggiunto i massimi ritardi, non solo il ritardo storico del 12 e 6)

spero di essere stato chiaro, se è già possibile farlo su spaziometria mi spiegate come,
io ho provato ma non ho trovato e capito niente

ciao
 
Baffoblu ha scritto:
Ecco fatto !



Codice: 
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim t,r1,r2,n1,n2,n3,n4
    Dim am(1)
    Dim amb(2)
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    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)
        t = 1
        Do While DISAMBO(idEstr,t,r1,n1,n2,r2,n3,n4) = True
            ruote(1) = r1
            ruote(2) = r2
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi
            Scrivi NomeRuota(r1) & " " & CInt(n1) & " " & CInt(n2) & "  " & NomeRuota(r2) & " " & CInt(n3) & " " & CInt(n4)
            z1 = Fuori90(n1 + n3)
            z2 = Fuori90(n2 + n4)
            If z1 = z2 Then
                am(1) = z1
            End If
            z3 = Fuori90(n1 + n2)
            z4 = Fuori90(n3 + n4)
            If z3 = z4 Then
                amb(1) = am(1)
                amb(2) = z3
            End If
            If z3 <> z4 Then
                z5 = Fuori90(n1 + n4)
                z6 = Fuori90(n2 + n3)
                If z5 = z6 Then
                    amb(1) = am(1)
                    amb(2) = z5
                End If
            End If
            ImpostaGiocata 1,am,ruote,posta,nColpiDiGioco
            ImpostaGiocata 2,amb,ruote,poste,nColpiDiGioco
            For a = 1 To 10
                For b = 1 To 10
                    ImpostaInterruzioni a,b,2
                Next
            Next
            Gioca idEstr,1
            t = t + 1
        Loop
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati = 0
    For r = 1 To 7
        For i = 1 To 4
            For j = i + 1 To 5
                a = Estratto(estrazione,r,i)
                b = Estratto(estrazione,r,j)
                c = Distanza(a,b)
                If c = 45 Then
                    For rr = r + 1 To 8
                        For ii = 1 To 4
                            For jj = ii + 1 To 5
                                aa = Estratto(estrazione,rr,ii)
                                bb = Estratto(estrazione,rr,jj)
                                cc = Distanza(aa,bb)
                                If c = cc Then
                                    trovati = trovati + 1
                                    If trovati = tentativo Then
                                        numero1 = Estratto(estrazione,r,i)
                                        numero2 = Estratto(estrazione,r,j)
                                        numero3 = Estratto(estrazione,rr,ii)
                                        numero4 = Estratto(estrazione,rr,jj)
                                        ruota1 = r
                                        ruota2 = rr
                                        DISAMBO = True
                                        Exit Function
                                    End If
                                End If
                            Next
                        Next
                    Next
                End If
            Next
        Next
    Next
    DISAMBO = False
End Function
Clicca per espandere...

Ciao Baffo , ti disturbo ancora , questo script , mi pare buono per le ambate , ma per gli ambi non è granchè , ora volevo sapere se è possibile lasciare intatto il discorso ambate , e per abbinamenti ambo , poter inserire dei numeri fissi a piacere da 1 a 90 tramite imput box.
Spero di essere stato chiaro.
 
ppaaolox ha scritto:
ciao
anch'io avrei una richiesta per uno script, me ne servirebbe uno che mi calcoli delle statistiche,
vorrei che mi calcolasse quali sono i ritardi storici sincroni su tutte le ruote per un determinato
periodo,
ad esempio
il 12 a cagliari ed il 6 a genova hanno un ritardo di 87 estrazioni
vorrei sapere quali sono i massimi ritardi storici che hanno avuto due numeri sincroni
(qualsiasi numeri abbiano raggiunto i massimi ritardi, non solo il ritardo storico del 12 e 6)

spero di essere stato chiaro, se è già possibile farlo su spaziometria mi spiegate come,
io ho provato ma non ho trovato e capito niente

ciao
Clicca per espandere...

Per questo dovresti rivolgerti a Mike58 che ne capisce di ritardi....

Io ancora non li assorbo, anche perchè rifiuto mentalmente il concetto di ritardo.

ciao
 
Y10 ha scritto:
Ciao Baffo , ti disturbo ancora , questo script , mi pare buono per le ambate , ma per gli ambi non è granchè , ora volevo sapere se è possibile lasciare intatto il discorso ambate , e per abbinamenti ambo , poter inserire dei numeri fissi a piacere da 1 a 90 tramite imput box.
Spero di essere stato chiaro.
Clicca per espandere...


Io ho solo fatto lo script della tua idea.
Che non sia granche non è colpa mia......

Allora la modifica dovrà lasciare il ricavo dell'ambata intatto, giusto ?

I calcoli per gli abbinamenti attuali li tolgo completamente ?

Quanti numeri fissi max vorresti inserire ?

ciao :)
 
ho fatto questa modifica, puoi inserire il numero da abbinare all'ambata....


Codice: 
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim t,r1,r2,n1,n2,n3,n4
    Dim am(1)
    Dim amb(2)
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    ab1 = CInt(InputBox(" Inserisci il numero da abbinare ",,"1"))
    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)
        t = 1
        Do While DISAMBO(idEstr,t,r1,n1,n2,r2,n3,n4) = True
            ruote(1) = r1
            ruote(2) = r2
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi
            Scrivi NomeRuota(r1) & " " & CInt(n1) & " " & CInt(n2) & "  " & NomeRuota(r2) & " " & CInt(n3) & " " & CInt(n4)
            z1 = Fuori90(n1 + n3)
            z2 = Fuori90(n2 + n4)
            If z1 = z2 Then
                am(1) = z1
                amb(1) = am(1)
                amb(2) = ab1
            End If
            ImpostaGiocata 1,am,ruote,posta,nColpiDiGioco
            ImpostaGiocata 2,amb,ruote,poste,nColpiDiGioco
            For a = 1 To 10
                For b = 1 To 10
                    ImpostaInterruzioni a,b,2
                Next
            Next
            Gioca idEstr,1
            t = t + 1
        Loop
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati = 0
    For r = 1 To 7
        For i = 1 To 4
            For j = i + 1 To 5
                a = Estratto(estrazione,r,i)
                b = Estratto(estrazione,r,j)
                c = Distanza(a,b)
                If c = 45 Then
                    For rr = r + 1 To 8
                        For ii = 1 To 4
                            For jj = ii + 1 To 5
                                aa = Estratto(estrazione,rr,ii)
                                bb = Estratto(estrazione,rr,jj)
                                cc = Distanza(aa,bb)
                                If c = cc Then
                                    trovati = trovati + 1
                                    If trovati = tentativo Then
                                        numero1 = Estratto(estrazione,r,i)
                                        numero2 = Estratto(estrazione,r,j)
                                        numero3 = Estratto(estrazione,rr,ii)
                                        numero4 = Estratto(estrazione,rr,jj)
                                        ruota1 = r
                                        ruota2 = rr
                                        DISAMBO = True
                                        Exit Function
                                    End If
                                End If
                            Next
                        Next
                    Next
                End If
            Next
        Next
    Next
    DISAMBO = False
End Function
 
Ciao Baffo , hai colto in pieno nel segno , lasciando il ricavo delle ambate intatto , solo che vorrei(se possibile) abbinare + numeri , sarebbe ideale 5 , in tal modo posso abbinare cinquine particolari , e , o , quartine radicali, oppure altre combinazioni.
Lontano da me farti una colpa (dopo ciò che fate e il tempo che perdete) ci mancherebbe altro addossarvi responsabilità per esiti non confortanti.
Grazie ancora , se potrai , se tecnicamente non si può , grazie ugualmente.:)
 
Y10 ha scritto:
Ciao Baffo , hai colto in pieno nel segno , lasciando il ricavo delle ambate intatto , solo che vorrei(se possibile) abbinare + numeri , sarebbe ideale 5 , in tal modo posso abbinare cinquine particolari , e , o , quartine radicali, oppure altre combinazioni.
Lontano da me farti una colpa (dopo ciò che fate e il tempo che perdete) ci mancherebbe altro addossarvi responsabilità per esiti non confortanti.
Grazie ancora , se potrai , se tecnicamente non si può , grazie ugualmente.:)
Clicca per espandere...

Non ti preoccupare, non mi sento in colpa, dopotutto ho fatto solo lo script, il metodo è tuo :)

Adesso voglio capire se vuoi giocare Ambi secchi oppure una Quartina o Cinquina per ambo ?

Però la quantità dei numeri massimi ammessi deve essere fissa, tipo max 5 numeri....

Fammi sapere... :)
 
Dunque , giochiamo solo ambi secchi , e , se la quantità degli abbinamenti deve essere fissa , mettiamo trè abbinamenti.
Buona serata. :)
 
Adesso mette in gioco un ambata e 3 ambi secchi.

Ho già impostato con tre abbinamenti inseriti da me, fai girare lo script così comè.......

PS: nel listato trovi una riga "remmata", con i 10 migliori abbinamenti.....:)




Codice: 
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim t,r1,r2,n1,n2,n3,n4
    Dim am(1)
    Dim amb1(2)
    Dim amb2(2)
    Dim amb3(2)
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    ab1 = CInt(InputBox(" Inserisci il 1° numero da abbinare ",,"2"))
    ab2 = CInt(InputBox(" Inserisci il 2° numero da abbinare ",,"3"))
    ab3 = CInt(InputBox(" Inserisci il 3° numero da abbinare ",,"15"))
    ' I 10 Abbinamenti migliori : 02,03,15,42,53,55,71,77,86,90
    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)
        t = 1
        Do While DISAMBO(idEstr,t,r1,n1,n2,r2,n3,n4) = True
            ruote(1) = r1
            ruote(2) = r2
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi
            Scrivi NomeRuota(r1) & " " & CInt(n1) & " " & CInt(n2) & "  " & NomeRuota(r2) & " " & CInt(n3) & " " & CInt(n4)
            z1 = Fuori90(n1 + n3)
            z2 = Fuori90(n2 + n4)
            If z1 = z2 Then
                am(1) = z1
                amb1(1) = am(1)
                amb1(2) = ab1
                amb2(1) = am(1)
                amb2(2) = ab2
                amb3(1) = am(1)
                amb3(2) = ab3
            End If
            ImpostaGiocata 1,am,ruote,posta,nColpiDiGioco
            ImpostaGiocata 2,amb1,ruote,poste,nColpiDiGioco
            ImpostaGiocata 3,amb2,ruote,poste,nColpiDiGioco
            ImpostaGiocata 4,amb3,ruote,poste,nColpiDiGioco
            For a = 1 To 10
                For b = 1 To 10
                    ImpostaInterruzioni a,b,2
                Next
            Next
            Gioca idEstr,1
            t = t + 1
        Loop
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati = 0
    For r = 1 To 7
        For i = 1 To 4
            For j = i + 1 To 5
                a = Estratto(estrazione,r,i)
                b = Estratto(estrazione,r,j)
                c = Distanza(a,b)
                If c = 45 Then
                    For rr = r + 1 To 8
                        For ii = 1 To 4
                            For jj = ii + 1 To 5
                                aa = Estratto(estrazione,rr,ii)
                                bb = Estratto(estrazione,rr,jj)
                                cc = Distanza(aa,bb)
                                If c = cc Then
                                    trovati = trovati + 1
                                    If trovati = tentativo Then
                                        numero1 = Estratto(estrazione,r,i)
                                        numero2 = Estratto(estrazione,r,j)
                                        numero3 = Estratto(estrazione,rr,ii)
                                        numero4 = Estratto(estrazione,rr,jj)
                                        ruota1 = r
                                        ruota2 = rr
                                        DISAMBO = True
                                        Exit Function
                                    End If
                                End If
                            Next
                        Next
                    Next
                End If
            Next
        Next
    Next
    DISAMBO = False
End Function
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto