Novità

Per chi assesse voglia di svilupparlo

B

baikal

Super Member >PLATINUM<
Buondì a tutti del forum è un pò che non faccio una capatina qui.
Avendomi creato un metodo con calcoli manuali cerco se possibile uno sviluppo con script, da condividere e migliorare senza snaturare la tecnica.

condizione: trovare su due ruote consecutive due ambi in figura

es. estr. del 15/12/2018 [TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 459"]
[TR]
[TD]Palermo[/TD]
[TD="align: right"]67[/TD]
[TD="align: right"]65[/TD]
[TD="align: right"]14[/TD]
[TD="align: right"]41[/TD]
[TD="align: right"]56[/TD]
[/TR]
[TR]
[TD]Roma[/TD]
[TD="align: right"]77[/TD]
[TD="align: right"]89[/TD]
[TD="align: right"]25[/TD]
[TD="align: right"]59[/TD]
[TD="align: right"]73[/TD]
[/TR]
[/TABLE]
abbiamo due ambi in figura 5
pa 14-14
ro 77-59

dovremmo sommarli così 14+77= 7+1 = 8 4+7=11 di cui 1+1 (fig.)2 quindi avremo 82
così anche 4+5= 9 9+1= 10 1+0= 1 quindi 91 - fuori 90= 1
per cui ogni qual volta la somma degli addendi è superiore a 9 si fa la figura es. 11 1+1= 2 fig. 23 2+3 fig. 5

ricavati i primi due numeri 82 e 01
poi per ogni ambo facciamo la somma di ogni singolo ambo 14+41=55 - complemento a 90 otteniamo il 35
77+59= 136- fuori 90 36 - complemento a 90 54
i numeri in gioco su palermo e roma 82-01-55-33-36-54
spero di essere stato chiaro. Vi ringrazio anticipatamente.
 
Ultima modifica:
Ciao a Tutti.

Codice: 
 'Progetto - chiesto da Baikal
'condizione: trovare su due ruote consecutive due ambi In Figura
'es. estr. del 15/12/2018
'Palermo    67    65    14    41    56
'Roma       77    89    25    59    73
'abbiamo due ambi In Figura 5
'pa 14-14
'ro 77-59
'dovremmo sommarli Così 14+77= 7+1 = 8 4+7=11 di cui 1+1 (fig.)2 quindi avremo 82
'Così anche 4+5= 9 9+1= 10 1+0= 1 quindi 91 - fuori 90= 1
'per cui ogni qual volta la somma degli addendi è superiore a 9 si fa la Figura es. 11 1+1= 2 fig. 23 2+3 fig. 5
'ricavati i primi due numeri 82 e 01
'poi per ogni ambo facciamo la somma di ogni singolo ambo 14+41=55 - complemento a 90 otteniamo il 35
'77+59= 136- fuori 90 36 - complemento a 90 54
'i numeri In gioco su palermo e roma 82-01-55-35-36-54
'Ricerca anche per tutte le ruote
'Script - by Salvo50
Option Explicit
Sub Main
   Dim R1,P1,P2,Es,R2,A,B,C,D,P3,P4,P5,P6
   Dim FIn,Ini,Caso,Casi,Clp1,Clp2,Salvo50,E1,E2
   Dim Fa,Fb,Fc,Fd,S1,S2,S3,S4,SoAB,SoCD,CSoAB,CSoCD
   Dim Amba1,amba2,DeA,DeB,DeC,DeD,CaA,CaB,CaC,CaD
   Dim Ru(2),Posta(5),Num(6),Tutte(1),Poste(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Clp1 = InputBox("Per quanti colpi vuoi fare la ricerca su ruote determinate?",Salvo50,5)
   Clp2 = InputBox("Per quanti colpi vuoi fare la ricerca su Tutte le ruote?",Salvo50,5)
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   'Posta(5) = 1
    Poste(2) = 2
   Poste(3) = 2
   'Poste(4) = 1
   'Poste(5) = 1

   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               Fa = Figura(A) : Fb = Figura(B)
               If Fa = Fb Then
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        Fc = Figura(C) : Fd = Figura(D)
                        If Fc = Fa And Fd = Fa Then
                           DeA = Decina(A) : DeB = Decina(B) : DeC = Decina(C) : DeD = Decina(D)
                           CaA = Cadenza(A) : CaB = Cadenza(B) : CaC = Cadenza(C) : CaD = Cadenza(D)
                           S1 = FuoriX(DeA + DeC,9) : S2 = FuoriX(CaA + CaC,9)
                           S3 = FuoriX(DeB + DeD,9) : S4 = FuoriX(CaB + CaD,9)
                           If CaA = 0 And CaC = 0 Then S2 = 0
                           If CaB = 0 And CaD = 0 Then S4 = 0


                           If S1 = 9 Then S1 = 0
                           If S3 = 9 Then S3 = 0
                           Amba1 = S1 & S2 : amba2 = S3 & S4
                           If Amba1 <> amba2 Then
                              SoAB = Fuori90(A + B) : CSoAB = ComplAdX(SoAB)
                              SoCD = Fuori90(C + D) : CSoCD = ComplAdX(SoCD)
                              Scrivi
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi " " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi " " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi Space(5) & "Estratti stessa figura " & Format2(A) & " " & Format2(B),1
                              Scrivi Space(5) & "Estratti stessa figura " & Format2(C) & " " & Format2(D),1
                              Scrivi Space(28) & String(5,"-"),1
                              Scrivi Space(5) & "Somma Cifre Col Fuori9 ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Amba1) & " " & Format2(amba2),1 : ColoreTesto 0
                              Scrivi
                              Ru(1) = R1 : Ru(2) = R2
                              Tutte(1) = TU_
                              Num(1) = Amba1
                              Num(2) = amba2
                              Num(3) = SoAB
                              Num(4) = CSoAB
                              Num(5) = SoCD
                              Num(6) = CSoCD
                              EliminaRipetuti Num
                              ImpostaGiocata 1,Num,Ru,Posta,Clp1
                              ImpostaGiocata 2,Num,Tutte,Poste,Clp2
                              Gioca Es
                           End If
                        End If
                     Next
                  Next
                  Next
               End If

            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Non avevo notato che che doveva essere con ruote consecutive, ne metto un'altro

Con ruote consecutive
Codice: 
 'Progetto - chiesto da Baikal
'condizione: trovare su due ruote consecutive due ambi In Figura
'es. estr. del 15/12/2018
'Palermo    67    65    14    41    56
'Roma       77    89    25    59    73
'abbiamo due ambi In Figura 5
'pa 14-14
'ro 77-59
'dovremmo sommarli Così 14+77= 7+1 = 8 4+7=11 di cui 1+1 (fig.)2 quindi avremo 82
'Così anche 4+5= 9 9+1= 10 1+0= 1 quindi 91 - fuori 90= 1
'per cui ogni qual volta la somma degli addendi è superiore a 9 si fa la Figura es. 11 1+1= 2 fig. 23 2+3 fig. 5
'ricavati i primi due numeri 82 e 01
'poi per ogni ambo facciamo la somma di ogni singolo ambo 14+41=55 - complemento a 90 otteniamo il 35
'77+59= 136- fuori 90 36 - complemento a 90 54
'i numeri In gioco su palermo e roma 82-01-55-35-36-54
'Ricerca anche per tutte le ruote
'Script - by Salvo50
Option Explicit
Sub Main
   Dim R1,P1,P2,Es,R2,A,B,C,D,P3,P4,P5,P6
   Dim FIn,Ini,Caso,Casi,Clp1,Clp2,Salvo50,E1,E2
   Dim Fa,Fb,Fc,Fd,S1,S2,S3,S4,SoAB,SoCD,CSoAB,CSoCD
   Dim Amba1,amba2,DeA,DeB,DeC,DeD,CaA,CaB,CaC,CaD
   Dim Ru(2),Posta(5),Num(6),Tutte(1),Poste(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Clp1 = InputBox("Per quanti colpi vuoi fare la ricerca su ruote determinate?",Salvo50,5)
   Clp2 = InputBox("Per quanti colpi vuoi fare la ricerca su Tutte le ruote?",Salvo50,5)
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   'Posta(5) = 1
   Poste(2) = 2
   Poste(3) = 2
   'Poste(4) = 1
   'Poste(5) = 1
   For Es = Ini To FIn
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               Fa = Figura(A) : Fb = Figura(B)
               If Fa = Fb Then
                  R2 = R1 + 1
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        Fc = Figura(C) : Fd = Figura(D)
                        If Fc = Fa And Fd = Fa Then
                           DeA = Decina(A) : DeB = Decina(B) : DeC = Decina(C) : DeD = Decina(D)
                           CaA = Cadenza(A) : CaB = Cadenza(B) : CaC = Cadenza(C) : CaD = Cadenza(D)
                           S1 = FuoriX(DeA + DeC,9) : S2 = FuoriX(CaA + CaC,9)
                           S3 = FuoriX(DeB + DeD,9) : S4 = FuoriX(CaB + CaD,9)
                           If CaA = 0 And CaC = 0 Then S2 = 0
                           If CaB = 0 And CaD = 0 Then S4 = 0


                           If S1 = 9 Then S1 = 0
                           If S3 = 9 Then S3 = 0
                           Amba1 = S1 & S2 : amba2 = S3 & S4
                           If Amba1 <> amba2 Then
                              SoAB = Fuori90(A + B) : CSoAB = ComplAdX(SoAB)
                              SoCD = Fuori90(C + D) : CSoCD = ComplAdX(SoCD)
                              Scrivi
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi " " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi " " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi Space(5) & "Estratti stessa figura " & Format2(A) & " " & Format2(B),1
                              Scrivi Space(5) & "Estratti stessa figura " & Format2(C) & " " & Format2(D),1
                              Scrivi Space(28) & String(5,"-"),1
                              Scrivi Space(5) & "Somma Cifre Col Fuori9 ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Amba1) & " " & Format2(amba2),1 : ColoreTesto 0
                              Scrivi
                              Ru(1) = R1 : Ru(2) = R2
                              Tutte(1) = TU_
                              Num(1) = Amba1
                              Num(2) = amba2
                              Num(3) = SoAB
                              Num(4) = CSoAB
                              Num(5) = SoCD
                              Num(6) = CSoCD
                              EliminaRipetuti Num
                              ImpostaGiocata 1,Num,Ru,Posta,Clp1
                              ImpostaGiocata 2,Num,Tutte,Poste,Clp2
                              Gioca Es
                           End If
                        End If
                     Next
                  Next
                  'Next
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
baikal;n2144820 ha scritto:
sig. salvo50 la ringrazio potrebbe per il momento aggiungere anche gli esiti a tutte?
Clicca per espandere...

Ciao a Tutti

Ho inserito ai due script gli esiti per tutte le ruote
 
Ultima modifica:
a
baikal;n2144820 ha scritto:
sig. salvo50 la ringrazio potrebbe per il momento aggiungere anche gli esiti a tutte?
Clicca per espandere...

Sig. Baikal, potrebbe fare bene i conti.....?
Nel post iniziale scrive:
77+59 = 136 - fuori 90 36 - complemento a 90 54
errato, il mio script mi da :
77+59 = 136 - fuori 90 46 - complemento a 90 44
così l'ambo lo becchiamo di K..o non di tecnica.

La saluto
 
si sig. Claudio8
per questo ho chiesto uno script, perchè essendo un'asino in matematica prendevo oltre gli ambi anche i terni
Grazie sig. Salvo50 per la modifica
 
Ultima modifica:
baikal;n2144868 ha scritto:
Grazie sig. Salvo50 per la modifica
Clicca per espandere...

Di nulla Baikal, gli script sono da riprendere, c'era un piccolo errore, quando le due cadenze sommate erano tutte e due a zero, dato che l'ho fatto con il Fuori9, tornava il valore 9
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 19 agosto 2025
    Bari
    85
    16
    32
    30
    28
    Cagliari
    53
    60
    46
    12
    87
    Firenze
    58
    62
    66
    38
    33
    Genova
    13
    24
    60
    57
    79
    Milano
    22
    13
    38
    24
    07
    Napoli
    02
    12
    51
    16
    86
    Palermo
    88
    06
    26
    02
    76
    Roma
    73
    70
    81
    51
    36
    Torino
    01
    14
    62
    05
    70
    Venezia
    84
    63
    72
    40
    22
    Nazionale
    57
    24
    30
    68
    09
    Estrazione Simbolotto
    Nazionale
    03
    41
    27
    07
    30
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto