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
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto