Novità

x Salvo

Ciao a tutti
x salvo e magia :)
se volete posto uno script che vi potrebbe essere utile come spunto giusto per poterci lavorare su .Ho inserito anche la richiesta del calcolo di rudivall , ma senza fare alcuna statistica
fatemi sapere . Ciao :)
 
Scusa i legend se scoccio anche te poco tempo fa avevo chiesto a salvo ma non ha nulla mi voleva se puoi un listato che avendo un numero o due come capogioco che mi andasse a ricercare i numeri in abbinamento. Gentilmente fammi sapere ciao
chicco
 
i legend;n2120308 ha scritto:
Ciao a tutti
x salvo e magia :)
se volete posto uno script che vi potrebbe essere utile come spunto giusto per poterci lavorare su .Ho inserito anche la richiesta del calcolo di rudivall , ma senza fare alcuna statistica
fatemi sapere . Ciao :)
Clicca per espandere...

Ciao chicco ho scritto che non ho fatto la statistica,
Lo script che ho realizzato potrebbe essere utile solo agli scripter e solo come spunto logico, in quanto ci sono una serie di filtri che riducono notevolmente i casi rilevabili.
in se lo script non è particolarmente complicato.
È diventato impegnativo in corso d opera in base alle richieste aggiunte e alle modifiche.


aspetto salvo e magia

per quanto riguarda il secondo script , l avevo già fatto per un altro utente. E in questa sezioni.
ciao a tutti :)
 
Ciao I legend non ho trovato nulla in merito alla mia seconda richiesta se puoi e trovi qualcosa ti ringrazierei .
ciao
 
Ciao Salvo e Rudivall potete inserirmi l'impostazione gioca sia per ambata che per ambo cosi riesco a fare le convergenze in spaziometria grazie e buona giornata.


Codice: 
Sub Main()
    '- http://forum.lottoced.com/f8/gemello-5%B0-chiama-lambata-117021/index2.html -
    Dim anum(02),ruota(01),posta(02),anum1(01),anum2(01)
    Dim ambetti,sretnumeri,nvincita
    ini = EstrazioneFin - 25
    fin = EstrazioneFin
    ca = fin - Ini
    Scrivi String(120,"="),1
    Scrivi" Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 ",1,0,3
    Scrivi"   su totali " & ca & " estrazioni  ",1,0,2
    Scrivi "  " & Chr(174) & "  Script by Mike58  " & Chr(169) & "  ",1,- 1,6
    Scrivi
    'Scrivi String(120,"="),1
    ReDim AT(13)
    AT(01) = " Casi "
    AT(02) = " Data "
    AT(03) = " Ruota "
    AT(04) = " Estratti "
    AT(05) = " Gemello "
    AT(06) = " Posiz. "
    AT(07) = " pronostico "
    AT(08) = " Esito  "
    AT(09) = " Colpi "
    AT(10) = " Estratti"
    AT(11) = " Data ID "
    AT(12) = " Estratti ID "
    AT(13) = " Ritardo Pronos. "
    'AT(12) = " nGuadagno "
    'AT(13) = " Qtà "
    'AT(14) = " s_Ambetti "
    'AT(15) = " n_Vincita "
    Call InitTabella(AT,1,,3,5)
    For es = fin To Ini Step - 1
        For r1 = 1 To 12
            If r1 = 11 Then r1 = 12
            ruota(01) = r1
            posta(01) = 4
            posta(02) = 1
            For p1 = 5 To 5
                'For p2 = p1 + 1 To 5
                a = Estratto(es,r1,p1)
                b = Estratto(es,r1,4)
                If Gemello(a)Then
                    c = Radicale(a)
                    d = Vert(c)
                    e =(11*c)
                    f = Vert(e)
                    b1 = b - 1
                    b2 = b + 1
                    casi = casi + 1
                    anum(01) = b1'c
                    anum(02) = b2' d
                    'anum(3) = 84
                    'anum(4) = f
                    anum1(01) = b1
                    anum2(01) = b2
                    sf1 = SerieRitardo(1,fin,anum1,ruota,1)
                    sf2 = SerieRitardo(1,fin,anum2,ruota,1)
                    'For idestr = es + 1 To fin
                    'ambetti = VerificaAmbetto(anum,r1,idestr,sretnumeri,nvincita)
                    'Next
                    'For x = 1 To 4
                    '---------- calcolo x escludere i numeri trovati ------------------
                    'If EstrattoRitardo(r1,anum(x),es,es) = 0 Then anum(x) = 0
                    '-----------------------------------------------------------------
                    Call VerificaEsitoConGuadagno(anum,ruota,es + 1,1,10,,esito,colpi,estratti,id,,nguad)
                    'Next
                    ReDim AV(13)
                    AV(01) = casi
                    AV(02) = DataEstrazione(es)
                    AV(03) = SiglaRuota(r1)
                    AV(04) = StringaEstratti(es,r1)
                    AV(05) = a
                    AV(06) = p1
                    AV(07) = StringaNumeri(anum)
                    AV(08) = esito
                    AV(09) = colpi
                    AV(10) = estratti
                    If esito <> "" Then AV(11) = DataEstrazione(id)
                    If esito = "" Then AV(11) = " -- "
                    'AV(12) = nguad
                    'AV(13) = ambetti
                    'AV(14) = sretnumeri
                    'AV(15) = nvincita
                    If esito <> "" Then AV(12) = StringaEstratti(id,r1)
                    If esito = "" Then AV(12) = "---.---.---.---.---"
                    AV(13) = Format2(sf1) & " - " & Format2(sf2)
                    If esito = "" And colpi < 10 Then Call AddRigaTabella(AV,4,,3,0)
                    If esito <> "" Then Call AddRigaTabella(AV,3,,3,1)
                    If esito = "" And colpi = 10 Then Call AddRigaTabella(AV,,,3)
                    'If esito <> "" And colpi < 4 Then Call SetColoreCella(9,3,1)
                    If DataEstrazione(id) = DataEstrazione(fin) Then Call SetColoreCella(11,4,2)
                End If
            Next
        Next
    Next
    Call SetTableWidth("100%")
    Call CreaTabella()
End Sub
 
Non voglio scombussolare lo script di Mike58, quindi se per te va bene ne ho fatto un altro solo con Gioca


Codice: 
 Option Explicit
Sub Main
   Scrivi" Ricerca Gemello in 5^ posizione e gioca 4^ estratto +/- 1 ",1,1,3
   Dim Es,R1,A,B,Ini,Fin,Clp
   Dim Caso,Casi
   Dim C(2),Ruo(1),Posta(2)

   Call ScegliRange(Ini,Fin,9400,EstrazioneFin)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,9)
   For Es = Ini To Fin
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A = Estratto(Es,R1,5)
         B = Estratto(Es,R1,4)
         If Gemello(A)Then
            C(1) = B - 1
            C(2) = B + 1
            Ruo(1) = R1
            Posta(1) = 1
            Posta(2) = 1
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi
            Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            ImpostaGiocata 1,C,Ruo,Posta,Clp
            Gioca Es
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Salvo chiedo ancora aiuto,se vuoi potresti provare a cambiare la funzione delle figure con la funzione delle terzine Simmetriche, ne potrebbe uscire un'altro bel metodo......
'PROGETTO - Proposto da Chicco3 - N3
'è una ricerca su tutte le cadenzee ruote consecutive
'esempio giorno 5-6-2018 MI 18 e 8 mentre NA 8
'come vedi ruote consecutive e In isotopia.
'Altra cosa se è possibile nella ricerca sia In orizzontale
'che In verticale troviamo altri numeri della stessa Cadenza
'si prendono anche quelli.In orizzontale sulla riga del 18 e 8,
'mentre In verticale bisogna solo guardare la linea del numero 8 e,
'se non trova nulla e ne trova solo tre come In Figura va bene lo stesso.
'Aggiunto modifica proposta da Rudival, sommare il maggiore con il medio
'ed il minore con il medio e giocarli per ambata per 9 colpi
'SCRIPT BY SALVO50
Option Explicit
Dim R1,R2,Es
Sub Main
Dim FIn,Esq,Col,Esqcol
Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
Dim PP1,PP2,CA,CB,CC,CD
FIn = EstrazioneFin : Call ScegliRange(Esq,Col,9400,FIn)
Casi = 00 : Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol : Call Messaggio(Es) : Call AvanzamentoElab(Esq,Esqcol,Es)
Caso = 00
For R1 = 01 To 10 : R2 = R1 + 01
If R2 = 11 Then R2 = 12
For P1 = 01 To 04 : P2 = P1 + 01
A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
If A > 0 And B > 0 And C > 0 And D > 0 Then
CA = Cadenza(A) : CB = Cadenza(B) : CC = Cadenza(C) : CD = Cadenza(D)

CA = Figura(A) : CB = Figura(B) : CC = Figura(C) : CD = Figura(D)
'
Call AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E 1,A,B,PP2,E2,C)
Call AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E 1,A,B,PP2,E2,D)
Call AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E 1,A,PP2,E2,C,D)
Call AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E 1,B,PP2,E2,C,D)
'
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Sub AmboAmbataVers01(CA,CB,CC,Caso,Casi,Es,R1,R2,PP1,E 1,A,B,PP2,E2,C)
If CA = CB And CA = CC Then
Caso = Caso + 01 : Casi = Casi + 01
Call ColoreTesto(01)
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
Call ColoreTesto(02)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
Call ColoreTesto(00)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R1) & " ",01,00)
For PP1 = 01 To 05
E1 = Estratto(Es,R1,PP1)
If E1 = A Or E1 = B Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E1) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R2) & " ",01,00)
For PP2 = 01 To 05
E2 = Estratto(Es,R2,PP2)
If E2 = C Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E2) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi()
Dim ANum : ANum = Array(ANum,A,B,C) : Call aMedio(ANum)
End If
End Sub
Sub AmboAmbataVers02(CA,CB,CD,Caso,Casi,Es,R1,R2,PP1,E 1,A,B,PP2,E2,D)
If CA = CB And CA = CD Then
Caso = Caso + 01 : Casi = Casi + 01
Call ColoreTesto(01)
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
Call ColoreTesto(02)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
Call ColoreTesto(00)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R1) & " ",01,00)
For PP1 = 01 To 05
E1 = Estratto(Es,R1,PP1)
If E1 = A Or E1 = B Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E1) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R2) & " ",01,00)
For PP2 = 01 To 05
E2 = Estratto(Es,R2,PP2)
If E2 = D Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E2) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi()
Dim ANum : ANum = Array(ANum,A,B,D) : Call aMedio(ANum)
End If
End Sub
Sub AmbataAmboVers01(CA,CC,CD,Caso,Casi,Es,R1,R2,PP1,E 1,A,PP2,E2,C,D)
If CA = CC And CA = CD Then
Caso = Caso + 01 : Casi = Casi + 01
Call ColoreTesto(01)
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
Call ColoreTesto(02)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
Call ColoreTesto(00)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R1) & " ",01,00)
For PP1 = 01 To 05
E1 = Estratto(Es,R1,PP1)
If E1 = A Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E1) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R2) & " ",01,00)
For PP2 = 01 To 05
E2 = Estratto(Es,R2,PP2)
If E2 = C Or E2 = D Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E2) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi()
Dim ANum : ANum = Array(ANum,A,C,D) : Call aMedio(ANum)
End If
End Sub
Sub AmbataAmboVers02(CB,CC,CD,Caso,Casi,Es,R1,R2,PP1,E 1,B,PP2,E2,C,D)
If CB = CC And CB = CD Then
Caso = Caso + 01 : Casi = Casi + 01
Call ColoreTesto(01)
Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
Call ColoreTesto(02)
Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
Call ColoreTesto(00)
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R1) & " ",01,00)
For PP1 = 01 To 05
E1 = Estratto(Es,R1,PP1)
If E1 = B Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E1) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
Call Scrivi(" " & SiglaRuota(R2) & " ",01,00)
For PP2 = 01 To 05
E2 = Estratto(Es,R2,PP2)
If E2 = C Or E2 = D Then
Call ColoreTesto(02)
Else
Call ColoreTesto(00)
End If
Call Scrivi(Format2(E2) & " ",01,00)
Call ColoreTesto(00)
Next
Call Scrivi()
Call Scrivi()
Dim ANum : ANum = Array(ANum,B,C,D) : Call aMedio(ANum)
End If
End Sub
Function aMedio(ANum)
Call OrdinaMatriceTurbo(ANum,01)
Call Scrivi("Numero MINORE : " & ANum(01),True)
Call Scrivi("Numero MEDIO : " & ANum(02),True)
Call Scrivi("Numero MAGGIORE : " & ANum(03),True)
Dim MaxMed : MaxMed = Fuori90(ANum(03) + ANum(02))
Dim MinMed : MinMed = Fuori90(ANum(02) + ANum(01))
Call Scrivi("MAGGIORE + MEDIO : " & MaxMed,True)
Call Scrivi("MEDIO + MINORE : " & MinMed,True)
Dim Amb(2) : Amb(1) = MaxMed : Amb(2) = MinMed
Dim poste(2) : poste(1) = 1
Dim Ruo(2) : Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Amb,Ruo,poste,9
Gioca Es
End Function
 
rudivall;n2120628 ha scritto:
Salvo chiedo ancora aiuto,se vuoi potresti provare a cambiare la funzione delle figure con la funzione delle terzine Simmetriche, ne potrebbe uscire un'altro bel metodo......
Clicca per espandere...

Ciao a Tutti.

La distanza tra gli estratti l'ho fatta variabile, nel senso che puoi cambiarla tramite ImputBox.

Codice: 
 'PROGETTO - Proposto da Chicco3
'è una ricerca su tutte le cadenzee ruote consecutive, con tre numeri
'Aggiunto modifica proposta da Rudival, sostituire le cadenze
'con le terzine simmetriche, quindi sommare il maggiore con il medio
'ed il minore con il medio e giocarli per ambata per 9 colpi
'SCRIPT BY SALVO50
Option Explicit
Dim R1,R2,Es
Sub Main
   Dim FIn,Esq,Col,Esqcol
   Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,Diff
   Dim Dab,Dac,Dad,Dbc,Dbd,Dcd
   Dim CA,CB,CC,CD
   FIn = EstrazioneFin : Call ScegliRange(Esq,Col,9400,FIn)
   Diff = CInt(InputBox(" Qual'è Differenza?",,30))
   Casi = 00 : Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol : Call Messaggio(Es) : Call AvanzamentoElab(Esq,Esqcol,Es)
      Caso = 00
      For R1 = 1 To 10 : R2 = R1 + 01
         If R2 = 11 Then R2 = 12
         For P1 = 01 To 04 : P2 = P1 + 01
            A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
            C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
            If A > 0 And B > 0 And C > 0 And D > 0 Then
               Dab = Differenza(A,B) : Dac = Differenza(A,C) : Dad = Differenza(A,D)
               Dbc = Differenza(B,C) : Dbd = Differenza(B,D) : Dcd = Differenza(C,D)
               '
               Call AmboAmbataVers01(Dab,Dac,Dbc,Diff,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
               Call AmboAmbataVers02(Dab,Dbd,Dad,Diff,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
               Call AmbataAmboVers01(Dac,Dcd,Dad,Diff,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
               Call AmbataAmboVers02(Dbd,Dcd,Dbc,Diff,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
               '
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Sub AmboAmbataVers01(dab,dac,dbc,diff,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
   If A <> C And B <> C Then
      If((dab = diff And dac = diff) Or(dac = diff And dbc = diff) Or(dab = diff And dbc = diff)) Then
         Caso = Caso + 01 : Casi = Casi + 01
         Call ColoreTesto(01)
         Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
         Call ColoreTesto(02)
         Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
         Call ColoreTesto(00)
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
         For PP1 = 01 To 05
            E1 = Estratto(Es,R1,PP1)
            If E1 = A Or E1 = B Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E1) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
         For PP2 = 01 To 05
            E2 = Estratto(Es,R2,PP2)
            If E2 = C Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E2) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi()
         Dim ANum : ANum = Array(ANum,A,B,C) : Call aMedio(ANum)
      End If
   End If
End Sub
Sub AmboAmbataVers02(Dab,Dbd,Dad,Diff,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
   If A <> D And B <> D Then
      If((Dab = Diff And Dbd = Diff) Or(Dbd = Diff And Dad = Diff) Or(Dad = Diff And Dab = Diff))Then
         Caso = Caso + 01 : Casi = Casi + 01
         Call ColoreTesto(01)
         Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
         Call ColoreTesto(02)
         Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
         Call ColoreTesto(00)
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
         For PP1 = 01 To 05
            E1 = Estratto(Es,R1,PP1)
            If E1 = A Or E1 = B Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E1) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
         For PP2 = 01 To 05
            E2 = Estratto(Es,R2,PP2)
            If E2 = D Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E2) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi()
         Dim ANum : ANum = Array(ANum,A,B,D) : Call aMedio(ANum)
      End If
   End If
End Sub
Sub AmbataAmboVers01(dac,dcd,dad,diff,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,d)
   If A <> C And A <> d Then
      If((dac = diff And dcd = diff) Or(dcd = diff And dad = diff) Or(dad = diff And dac = diff))Then
         Caso = Caso + 01 : Casi = Casi + 01
         Call ColoreTesto(01)
         Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
         Call ColoreTesto(02)
         Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
         Call ColoreTesto(00)
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
         For PP1 = 01 To 05
            E1 = Estratto(Es,R1,PP1)
            If E1 = A Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E1) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
         For PP2 = 01 To 05
            E2 = Estratto(Es,R2,PP2)
            If E2 = C Or E2 = d Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E2) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi()
         Dim ANum : ANum = Array(ANum,A,C,d) : Call aMedio(ANum)
      End If
   End If
End Sub
Sub AmbataAmboVers02(dbd,dcd,dbc,diff,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
   If B <> C And B <> D Then
      If((dbd = diff And dcd = diff) Or(dcd = diff And dbc = diff) Or(dbc = diff And dbd = diff)) Then
         Caso = Caso + 01 : Casi = Casi + 01
         Call ColoreTesto(01)
         Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
         Call ColoreTesto(02)
         Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
         Call ColoreTesto(00)
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
         For PP1 = 01 To 05
            E1 = Estratto(Es,R1,PP1)
            If E1 = B Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E1) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
         Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
         For PP2 = 01 To 05
            E2 = Estratto(Es,R2,PP2)
            If E2 = C Or E2 = D Then
               Call ColoreTesto(02)
            Else
               Call ColoreTesto(00)
            End If
            Call Scrivi(Format2(E2) & " ",01,00)
            Call ColoreTesto(00)
         Next
         Call Scrivi()
         Call Scrivi()
         Dim ANum : ANum = Array(ANum,B,C,D) : Call aMedio(ANum)
      End If
   End If
End Sub
Function aMedio(ANum)
   Call OrdinaMatriceTurbo(ANum,01)
   Call Scrivi("Numero MINORE   : " & ANum(01),True)
   Call Scrivi("Numero MEDIO    : " & ANum(02),True)
   Call Scrivi("Numero MAGGIORE : " & ANum(03),True)
   Dim MaxMed : MaxMed = Fuori90(ANum(03) + ANum(02))
   Dim MinMed : MinMed = Fuori90(ANum(02) + ANum(01))
   Call Scrivi("MAGGIORE + MEDIO  : " & MaxMed,True)
   Call Scrivi("MEDIO + MINORE    : " & MinMed,True)
   Dim Amb(2) : Amb(1) = MaxMed : Amb(2) = MinMed
   Dim poste(2) : poste(1) = 1
   Dim Ruo(2) : Ruo(1) = R1 : Ruo(2) = R2
   ImpostaGiocata 1,Amb,Ruo,poste,9
   Gioca Es
End Function
 
Buon giorno a tutti/e.
Grazie Sig.Salvo per la sua disponibilità.
Le volevo chiedere gentilmente se questo ultimo script per le terzine simmetriche
si può modificarlo per le somme variabili rimanendo il resto invariato.
Es: se voglio cercare la somma 90 oppure 91 sempre con tre numeri di cui uno isotopo.
Grazie mille
Janez
 
Ciao Rudivall, Buon Sabato

Per Janez, la somma nella modifica che hai chiesto, io l'ho inteso come somma totale, cioè ammettiamo che decidi di mettere 90, il 90 è la somma totale dei tre numeri.


Codice: 
 'PROGETTO - Proposto da Chicco3
'è una ricerca su tutte le cadenzee ruote consecutive, con tre numeri
'Aggiunto modifica proposta da Janez, sostituire le cadenze
'con somme variabili,aggiunto modifica proposta da Rudival
'sommare il maggiore con il medio
'ed il minore con il medio e giocarli per ambata per 9 colpi
'SCRIPT BY SALVO50
Option Explicit
Dim R1,R2,Es,Clp
Sub Main
   Dim FIn,Esq,Col,Esqcol
   Dim Caso,Casi,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,Som
   Dim Sabc,Sabd,Sacd,Sbcd
   FIn = EstrazioneFin : Call ScegliRange(Esq,Col,9000,FIn)
   Som = CInt(InputBox(" Qual'è somma? - MIN 4 - MAX 269",,90))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare le ambate?",,9))
   Casi = 00 : Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol : Call Messaggio(Es) : Call AvanzamentoElab(Esq,Esqcol,Es)
      Caso = 00
      For R1 = 1 To 10 : R2 = R1 + 01
         If R2 = 11 Then R2 = 12
         For P1 = 01 To 04 : P2 = P1 + 01
            A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
            C = Estratto(Es,R2,P1) : D = Estratto(Es,R2,P2)
            If A > 0 And B > 0 And C > 0 And D > 0 Then
               Sabc =(A + B + C) : Sabd =(A + B + D) : Sacd =(A + C + D) : Sbcd =(B + C + D)
               '
               Call AmboAmbataVers01(Sabc,Som,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,C)
               Call AmboAmbataVers02(Sabd,Som,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,D)
               Call AmbataAmboVers01(Sacd,Som,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,D)
               Call AmbataAmboVers02(Sbcd,Som,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,C,D)
               '
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Sub AmboAmbataVers01(Sabc,Som,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,c)
   If Sabc = Som Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = c Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,c) : Call aMedio(ANum)
   End If
End Sub
Sub AmboAmbataVers02(Sabd,Som,Caso,Casi,Es,R1,R2,PP1,E1,A,B,PP2,E2,d)
   If Sabd = Som Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Or E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = d Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,B,d) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers01(sacd,som,Caso,Casi,Es,R1,R2,PP1,E1,A,PP2,E2,C,d)
   If sacd = som Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = A Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = C Or E2 = d Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,A,C,d) : Call aMedio(ANum)
   End If
End Sub
Sub AmbataAmboVers02(Sbcd,Som,Caso,Casi,Es,R1,R2,PP1,E1,B,PP2,E2,c,d)
   If Sbcd = Som Then
      Caso = Caso + 01 : Casi = Casi + 01
      Call ColoreTesto(01)
      Call Scrivi(String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"))
      Call ColoreTesto(02)
      Call Scrivi(String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"))
      Call ColoreTesto(00)
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R1) & " ",01,00)
      For PP1 = 01 To 05
         E1 = Estratto(Es,R1,PP1)
         If E1 = B Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E1) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),01,00)
      Call Scrivi("  " & SiglaRuota(R2) & " ",01,00)
      For PP2 = 01 To 05
         E2 = Estratto(Es,R2,PP2)
         If E2 = c Or E2 = d Then
            Call ColoreTesto(02)
         Else
            Call ColoreTesto(00)
         End If
         Call Scrivi(Format2(E2) & " ",01,00)
         Call ColoreTesto(00)
      Next
      Call Scrivi()
      Call Scrivi()
      Dim ANum : ANum = Array(ANum,B,c,d) : Call aMedio(ANum)
   End If
End Sub
Function aMedio(ANum)
   Call OrdinaMatriceTurbo(ANum,01)
   Call Scrivi("Numero MINORE   : " & ANum(01),True)
   Call Scrivi("Numero MEDIO    : " & ANum(02),True)
   Call Scrivi("Numero MAGGIORE : " & ANum(03),True)
   Dim MaxMed : MaxMed = Fuori90(ANum(03) + ANum(02))
   Dim MinMed : MinMed = Fuori90(ANum(02) + ANum(01))
   Call Scrivi("MAGGIORE + MEDIO  : " & MaxMed,True)
   Call Scrivi("MEDIO + MINORE    : " & MinMed,True)
   Dim Amb(2) : Amb(1) = MaxMed : Amb(2) = MinMed
   Dim poste(2) : poste(1) = 1
   Dim Ruo(2) : Ruo(1) = R1 : Ruo(2) = R2
   ImpostaGiocata 1,Amb,Ruo,poste,Clp
   Gioca Es
End Function
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 gennaio 2025
    Bari
    32
    56
    11
    49
    52
    Cagliari
    90
    42
    39
    30
    13
    Firenze
    21
    60
    31
    05
    14
    Genova
    42
    80
    86
    57
    36
    Milano
    31
    88
    28
    12
    66
    Napoli
    27
    22
    44
    30
    77
    Palermo
    54
    56
    36
    06
    43
    Roma
    31
    70
    27
    11
    22
    Torino
    85
    08
    70
    49
    07
    Venezia
    16
    13
    81
    18
    03
    Nazionale
    35
    01
    67
    44
    14
    Estrazione Simbolotto
    Bari
    35
    40
    32
    28
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto