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ì 13 ottobre 2026
    Bari
    56
    21
    79
    19
    67
    Cagliari
    23
    76
    52
    15
    63
    Firenze
    22
    63
    81
    76
    49
    Genova
    17
    57
    79
    14
    68
    Milano
    01
    03
    46
    32
    29
    Napoli
    69
    23
    30
    80
    10
    Palermo
    76
    84
    49
    87
    82
    Roma
    20
    06
    36
    62
    18
    Torino
    41
    55
    33
    08
    87
    Venezia
    39
    06
    81
    41
    79
    Nazionale
    52
    33
    59
    45
    12
    Estrazione Simbolotto
    37
    33
    13
    19
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto