Novità

Script su Metodi Cabalistici, Ciclometrici & C.

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
 
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?

fil.PNG

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
 

Allegati

  • fil.PNG
    fil.PNG
    23 KB · Visite: 4
Ultima modifica:
Provvisoriamente ho messo che quando il numero è inferiore a 46 e non ci sono decimali aggiungere 45

Codice:
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 = 0 Then Amba(1) = 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
 
Ultima modifica:
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?

Vedi l'allegato 2299832

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
Se la divisione per 4 da numeri interi senza decimali inferiori ed è inferiore a 91 si lascia il numero intero senza decimali, si ci sono i decimali sotto 46 si somma alla parte intera con la parte decimale, se la parte intera del numero decimale è superiore a 45 si sottrae dal numero intero del numero decimale la parte decimale
 
Ciao Filippo
ho messo che quando dopo la divisione per 4 il numero risultante è inferiore a 46 e non ha decimali resta quello che è
se ci sono anomalie fammelo sapere
 
Ciao Filippo
ho messo che quando dopo la divisione per 4 il numero risultante è inferiore a 46 e non ha decimali resta quello che è
se ci sono anomalie fammelo sapere
Ho Testato lo Script ed ho visto che se la divisione ad esempio la N.10003 del 13-11-2021 su NA-PA la somma 87+84+88+87=346/4=86,5 86 intero e 50 decimale si deve fare 86-50=36 e non lasciare 86, mese se la parte intera del numero decimale è inferiore a 46 la somma viene fatta
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 aprile 2025
    Bari
    60
    48
    59
    35
    50
    Cagliari
    42
    63
    88
    44
    90
    Firenze
    33
    65
    76
    01
    25
    Genova
    29
    82
    70
    19
    43
    Milano
    04
    73
    67
    22
    85
    Napoli
    65
    27
    10
    06
    66
    Palermo
    37
    13
    35
    79
    85
    Roma
    51
    14
    63
    71
    89
    Torino
    44
    04
    70
    82
    51
    Venezia
    61
    88
    27
    82
    66
    Nazionale
    15
    82
    14
    18
    32
    Estrazione Simbolotto
    Genova
    45
    13
    32
    14
    37

Ultimi Messaggi

Indietro
Alto