UN RICHIESTA A TUTTI VOI SPECIAL ONE DI SCIPT

[mastrogino]

Scusami salvo potresti inserire nell'ultimo listato l'estrazione reale e quella invertita grazie 1000

 

[mastrogino]

DALL'ULTIMO LISTATO HO NOTATO CH EESCONO I NUMERI RIPETUTI IN AMBO E TERNO
SI POTREBBE STUDIARE UN ALGORITMO SULLE FREGUENZE DEI NUMERI

 

[salvo50]

Scusami salvo potresti inserire nell'ultimo listato l'estrazione reale e quella invertita grazie 1000

Ciao a Tutti

Ciao Mastrogino

Probabilmente volevi dire l'estrazione reale e quella estrapolata, perché quella invertita non so a cosa ti riferisci, per l'estrapolata lo posso fare, non l'avevo inserita perché devo estrapolarla 4 volte e non pensavo che ti interessasse, comunque appena posso la faccio.

Per questa richiesta

DALL'ULTIMO LISTATO HO NOTATO CH EESCONO I NUMERI RIPETUTI IN AMBO E TERNO
SI POTREBBE STUDIARE UN ALGORITMO SULLE FREGUENZE DEI NUMERI

non ho capito cosa chiedi

 

[salvo50]

Inserito l'estrazione reale in tutte le ruote ed anche l'estrapolazione nelle 4 direzioni in tutte le ruote
controllare eventuali errori o dimenticanze

Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,Clp2,Es,Salvo50,R1,P1,P2,Casi
   Dim R,Som_R,Som_B,Som_C,Som_D,Som_E
   Dim Somma,Som_B2,Som_C2,Som_D2,Som_E2
   Dim Ruo(1),Po1(3),A(5),B(5),C(5),D(5),E(5)
   Dim A2(5),B2(5),C2(5),D2(5),E2(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10180))
   'Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,1))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare ambo e terno?",Salvo50,3))
   Scrivi " Da Un'idea di Mastrogino Estrapolazioni nella tavola settenaria - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi " DBS = Estrapolati in Direzione DIAGONALE in BASSO a SINISTRA ",1,,3,,3,,1
   Scrivi " DAS = Estrapolati in Direzione DIAGONALE in ALTO a SINISTRA ",1,,4,,3,,1
   Scrivi " DBD = Estrapolati in Direzione DIAGONALE in BASSO a DESTRA ",1,,3,,3,,1
   Scrivi " DAD = Estrapolati in Direzione DIAGONALE in ALTO a DESTRA ",1,,4,,3,,1
   'Po1(1) = 1
   Po1(2) = 1
   Po1(3) = 1
   R1 = ScegliRuota
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Somma = Fuori90(SommaEstratti(Es,R1))
      For P1 = 1 To 5
         A(P1) = Estratto(Es,R1,P1)
         If Cadenza(A(P1)) <> 1 Then
            B(P1) = Fuori90((A(P1) + 9)*13) 'DBS
            B(P1) = 91 - B(P1) 'DBS
            C(P1) = Fuori90(A(P1) + 79) 'DAS
            C(P1) = 91 - C(P1) 'DAS
         End If
         If Cadenza(A(P1)) = 1 Then
            B(P1) = Fuori90((A(P1) + 19)*13)
            B(P1) = 91 - B(P1)
            C(P1) = Fuori90(A(P1) + 89)
            C(P1) = 91 - C(P1)
         End If
         If Cadenza(A(P1)) <> 0 Then
            D(P1) = Fuori90((A(P1) + 11)*13) 'DBD
            E(P1) = Fuori90((A(P1) + 81)*7) 'DAD
         End If
         If Cadenza(A(P1)) = 0 Then
            D(P1) = Fuori90((A(P1) + 1)*13)
            E(P1) = Fuori90((A(P1) + 71)* 7)
         End If
      Next
      '
      Som_B = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
      Som_C = Fuori90(C(1) + C(2) + C(3) + C(4) + C(5))
      Som_D = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
      Som_E = Fuori90(E(1) + E(2) + E(3) + E(4) + E(5))
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
      Scrivi("Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
      Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
      Scrivi " Somma Estr. Reali " & Format2(Somma),1,,,1
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(B," ",True),1,0
      Scrivi " Somma " & Format2(Som_B) & "  Estrapolati in DBS",1,,,2
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(C," ",True),1,0
      Scrivi " Somma " & Format2(Som_C) & "  Estrapolati in DAS",1,,,2
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(D," ",True),1,0
      Scrivi " Somma " & Format2(Som_D) & "  Estrapolati in DBD",1,,,2
      Scrivi "Num. estrapolati dalla tav settenaria " & StringaNumeri(E," ",True),1,0
      Scrivi " Somma " & Format2(Som_E) & "  Estrapolati in DAD",1,,,2
      Scrivi
      '---------------------------------------
      Scrivi Space(8)& "ESTRAZIONI REALI" & Space(11)&"ESTRAPOLATI" & Space(14)&"ESTRAPOLATI",1,0
      Scrivi Space(14)&"ESTRAPOLATI" & Space(14)&"ESTRAPOLATI",1
      Scrivi Space(37)&"IN DBS" & Space(19)&"IN DAS"& Space(19)&"IN DBD"& Space(19)&"IN DAD",1


      
      For R = 1 To 12
         If R = 11 Then R = 12
         Som_R = Fuori90(SommaEstratti(Es,R))
         For P2 = 1 To 5
            A2(P2) = Estratto(Es,R,P2)
            If Cadenza(A(P2)) <> 1 Then
               B2(P2) = Fuori90((A2(P2) + 9)*13) 'DBS
               B2(P2) = 91 - B2(P2) 'DBS
               C2(P2) = Fuori90(A2(P2) + 79) 'DAS
               C2(P2) = 91 - C2(P2) 'DAS
            End If
            If Cadenza(A(P2)) = 1 Then
               B2(P2) = Fuori90((A2(P2) + 19)*13)
               B2(P2) = 91 - B2(P2)
               C2(P2) = Fuori90(A2(P2) + 89)
               C2(P2) = 91 - C2(P2)
            End If
            If Cadenza(A2(P2)) <> 0 Then
               D2(P2) = Fuori90((A2(P2) + 11)*13) 'DBD
               E2(P2) = Fuori90((A2(P2) + 81)*7) 'DAD
            End If
            If Cadenza(A2(P2)) = 0 Then
               D2(P2) = Fuori90((A2(P2) + 1)*13)
               E2(P2) = Fuori90((A2(P2) + 71)* 7)
            End If
            Som_B2 = Fuori90(B2(1) + B2(2) + B2(3) + B2(4) + B2(5))
            Som_C2 = Fuori90(C2(1) + C2(2) + C2(3) + C2(4) + C2(5))
            Som_D2 = Fuori90(D2(1) + D2(2) + D2(3) + D2(4) + D2(5))
            Som_E2 = Fuori90(E2(1) + E2(2) + E2(3) + E2(4) + E2(5))
         Next
         Scrivi Space(5) & SiglaRuota(R) & " " & StringaEstratti(Es,R) & " S " & Format2(Som_R),1,0
         Scrivi Space(3) & SiglaRuota(R) & " " & StringaNumeri(B2," ",True) & " S " & Format2(Som_B2),1,0,,1
         Scrivi Space(3) & SiglaRuota(R) & " " & StringaNumeri(C2," ",True) & " S " & Format2(Som_C2),1,0
         Scrivi Space(3) & SiglaRuota(R) & " " & StringaNumeri(D2," ",True) & " S " & Format2(Som_D2),1,0,,1
         Scrivi Space(3) & SiglaRuota(R) & " " & StringaNumeri(E2," ",True) & " S " & Format2(Som_E2),1
      Next
      '---------------------------------------
      Ruo(1) = R1
      Scrivi
      ImpostaGiocata 1,B,Ruo,Po1,Clp2
      ImpostaGiocata 2,C,Ruo,Po1,Clp2
      ImpostaGiocata 3,D,Ruo,Po1,Clp2
      ImpostaGiocata 4,E,Ruo,Po1,Clp2
      Gioca Es
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[giorgio1960]

buonasera, per Mastogino
novità in aggiunta per il metodo in oggetto?