Script su Metodi Cabalistici, Ciclometrici & C.

[filippo1963]

Ciao a Tutti

Matematico
Grazie

Per Filippo

E se il numero dopo la divisione per 4 è inferiore a 45 è non ha decimali che si fa?

Per Everita

Si può fare, però devo capire a quale Byron ti riferisci, perchè ognuno sto Byron se lo modifica a piacere suo, sicuramente la parte finale per come ricava l'ambo da giocare è uguale all'ultimo Byron che ho postato nel post 884, ma la parte iniziale non corrisponde perché in questo si deve avere la somma delle differenze e in quello del post 884 non c'era, quindi lo devo fare con calma altrimenti non ci capisco niente.

se la divisione per 4 da numeri interi inferiori a 91 rimane quel numero se ha decimali con il numero intero sotto 46 si somma la parte decimale alla parte intera se la somma supera 90 si toglie 90; se il numero decimale ha la parte intera superiore a 45 si sottrae la parte decimale se il numero esce per esempio negativo dopo la sottrazione si cambia segno al numero e si gioca quello

 

[salvo50]

Ciao a Tutti

Filippo in tutto quello che hai risposto non mi hai dato la risposta all'unica domanda che ti avevo fatto

Se il numero dopo la divisione per 4 è inferiore a 46 e NON HA DECIMALI cosa si fa?



nei casi dove c'è il numero 25 e 39 cosa si fa, dato che dici che se il numero è inferiore a 46 si deve fare la somma con i decimali

ma ripeto se il numero dopo la divisione per 4 è inferiore a 46 e non ha decimali cosa bisogna fare

 

[salvo50]

Provvisoriamente ho messo che quando il numero è inferiore a 46 e non ci sono decimali aggiungere 45

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Salvo50,Som4,Som4_4
   Dim R1,R2,A,B,C,D,E1,E2,S,Clp
   Dim Caso,Casi,P1,P2,P3,P4,P5,P6
   Dim F_A,F_B,F_C,F_D,C_A,C_B,C_C,C_D
   Dim D_A,D_B,D_C,D_D,Decm
   Dim Amba(1),Ruo(2),Posta(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
   Clp = InputBox("Quanti colpi di gioco?",Salvo50,10)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi " Somma Estratti No Zerati, No Cadenza 0 - proposto da Filippo1963 - Script Salvo50",1,,4,,3,,1
   Posta(1) = 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
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If A > 9 And Cadenza(A) <> 0 And B > 9 And Cadenza(B) <> 0 Then
               R2 = R1 + 1
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               If C > 9 And Cadenza(C) <> 0 And D > 9 And Cadenza(D) <> 0 Then
                  F_A = Figura(A) : F_B = Figura(B) : F_C = Figura(C) : F_D = Figura(D)
                  C_A = Cadenza(A) : C_B = Cadenza(B) : C_C = Cadenza(C) : C_D = Cadenza(D)
                  D_A = Decina(A) : D_B = Decina(B) : D_C = Decina(C) : D_D = Decina(D)
                  If(F_A = F_B And F_C = F_D And F_B = F_C)_
                     Or(C_A = C_B And C_C = C_D And C_B = C_C)_
                     Or(D_A = D_B And D_C = D_D And D_B = D_C) Then
                     If(F_A = F_B And F_C = F_D And F_B = F_C) Then S = " Figura Uguale"
                     If(C_A = C_B And C_C = C_D And C_B = C_C) Then S = " Cadenza Uguale"
                     If(D_A = D_B And D_C = D_D And D_B = D_C) Then S = " Decina Uguale"
                     Som4 =(A + B + C + D)
                     Som4_4 = Som4 / 4
                     Decm = Som4_4 - Int(Som4_4)
                     If Som4_4 > 45 Then Amba(1) = Int(Som4_4)
                     If Decm > 0 Then Decm = Decm * 100
                     If Som4_4 < 46 And Decm > 0 Then Amba(1) = Fuori90(Som4_4 + Decm)
                     If Som4_4 < 46 And Decm < 1 Then Amba(1) = Diametrale(Som4_4)
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(100,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(90,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " 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." & FormattaStringa(Es,"00000") & " 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 Space(39) & S,1,,,1
                     Scrivi " Somma dei 4 estratti             " & Som4,1
                     Scrivi " Somma dei 4 estratti diviso 4    " & Som4_4 & Space(7) & "Decimali " & Format2(Decm),1
                     Ruo(1) = R1 : Ruo(2) = R2
                     Scrivi
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                     Gioca Es,1
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub