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ì 16 gennaio 2025
    Bari
    47
    33
    54
    51
    58
    Cagliari
    58
    88
    03
    30
    65
    Firenze
    76
    56
    16
    73
    29
    Genova
    78
    58
    71
    18
    26
    Milano
    09
    74
    15
    26
    57
    Napoli
    75
    81
    35
    59
    17
    Palermo
    17
    39
    46
    54
    08
    Roma
    28
    75
    76
    02
    23
    Torino
    24
    36
    80
    87
    89
    Venezia
    86
    70
    37
    23
    45
    Nazionale
    09
    65
    30
    06
    07
    Estrazione Simbolotto
    Bari
    21
    43
    01
    02
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto