una mano x un listato a gentile richiesta

[tiberio1]

un grazie a chi vorra' dare il suo personale contributo

 

[tiberio1]

Settimane intese quando si giocava 1 volta o 2 volte? Non e' dato sapere...

 

[tiberio1]

Bisogna conteggiare una estrazione a settimana nel 1991 si giocava cosi

 

[salvo50]

un grazie a chi vorra' dare il suo personale contributo

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,xX,X,yY,Y,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim DiBC,DiEF,Abb1,Abb2,Abb3
   Dim Ruo(2),Po1(1),Po2(2),Num(4)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9840))'6284 esempio nelle spiegazioni
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "Chiesto da Tiberio1, Titolo... Autore... Script Salvo50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            P2 = P1 + 1
            B = Estratto(Es,R1,P1)
            C = Estratto(Es,R1,P2)
            DiBC = Differenza(B,C)
            If pari(DiBC) Then
               For R2 = R1 + 1 To 10
                  For P3 = 1 To 4
                     P4 = P3 + 1
                     E = Estratto(Es,R2,P3)
                     F = Estratto(Es,R2,P4)
                     DiEF = Differenza(E,F)
                     If DiEF = DiBC Then
                        If B > 0 And E > 0 Then
                           xX =(B + C) : X = xX / 2
                           A = Diametrale(X)
                           If Cadenza(X) <> 0 Then
                           Ruo(1) = R1 : Ruo(2) = R2
                              Amba(1) = X
                              If SerieFreqTurbo(Es - 4,Es,Amba,Ruo,1) = 0 Then
                                 yY =(E + F) : Y = yY / 2
                                 D = Diametrale(Y)
                                 Abb1 = Fuori90(A + D)
                                 Abb2 = Fuori90((90 + Abb1) - 1)
                                 Abb3 = Fuori90(Abb1 + 1)
                                 'B---C
                                 '|   |
                                 'E---F
                                
                                 Num(1) = X : Num(2) = Abb1 : Num(3) = Abb2 : Num(4) = Abb3
                                 If SerieFreqTurbo(Es,Es,Num,Ruo,1) = 0 Then
                                    Ambo1(1) = X : Ambo1(2) = Abb1
                                    Ambo2(1) = X : Ambo2(2) = Abb2
                                    Ambo3(1) = X : Ambo3(2) = Abb3
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    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 = B Or E1 = C Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Differenza Pari " & Format2(DiBC),1
                                    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 = E Or E2 = F Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "  <-- Evidenziati Differenza Pari " & Format2(DiEF),1
                                    Scrivi
                                    Scrivi Space(6) & Format2(B) & " + " & Format2(C) & " = " & Format2(xX) & " / 2 = " & Format2(X),1,0
                                    Scrivi Space(20) & Format2(E) & " + " & Format2(F) & " = " & Format2(yY) & " / 2 = " & Format2(Y),1
                                    Scrivi
                                    Scrivi Space(14) & Format2(A) & Space(42) & Format2(D),1
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(10) & Format2(B) & Space(6) & Format2(C) & Space(34) & Format2(E),1,0
                                    Scrivi Space(6) & Format2(F),1
                                    Scrivi Space(14) & Format2(X) & " <-Ambata " & Space(32) & Format2(Y),1
                                    Scrivi
                                    Scrivi Space(24) & Format2(A) & " + " & Format2(D) & " = " & Format2(Abb1) & " Abbinamento 1",1
                                    Scrivi Space(24) & Format2(Abb1) & " - " & Format2(01) & " = " & Format2(Abb2) & " Abbinamento 2",1
                                    Scrivi Space(24) & Format2(Abb1) & " + " & Format2(01) & " = " & Format2(Abb3) & " Abbinamento 3",1
                                    Scrivi
                                    ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                                    ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp,2
                                    ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp,2
                                    ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp,2
                                    Gioca Es
                                 End If
                              End If
                           End If
                        End If
                     End If
                  Next
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[tiberio1]

Grazie a te