Novità

x Salvo

i legend

Premium Member
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 :)
 

chicco3

Advanced Member
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

Premium Member
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 :)

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 :)
 

chicco3

Advanced Member
Ciao I legend non ho trovato nulla in merito alla mia seconda richiesta se puoi e trovi qualcosa ti ringrazierei .
ciao
 

chicco3

Advanced Member
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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:

rudivall

Advanced Member >PLATINUM<
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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......

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
 

janez57

Super Member >GOLD<
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
 

salvo50

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto