Per salvo50 mi puoi aiutare

[Matematico]

Ciao salvo50 , potresti darmi una mano x un piccolo script , il post è qui : https://forum.lottoced.com/forum/lottoced/area-download/2140822-chi-mi-può-spiegare-questa-formula

Grazie1000

 

[salvo50]

Ciao Matematico, premetto che prima che intervenisse Silop, non ci avevo capito niente, dopo la spiegazione di Silop ho notato che il numero 30 lo sottraeva 2 volte e mi è sembrato strano, naturalmente l'ha fatto per far quadrare i conti e fidandosi di quello che avevi premesso tu, io a questo punto sono arrivato alla conclusione che forse ti sei sbagliato nelle spiegazioni, cioè se il numero è minore di 60 aggiungo 30 e se è maggiore sottraggo 30 in questo modo il numero 30 lo sottraggo o lo aggiungo una volta sola, lo script l'ho fatto con questo criterio, altrimenti lo correggo e sottraggo 2 volte il numero 30

Option Explicit
Sub Main
   Dim A,B,D,Ac,Acx3,AB,E
   Dim Salvo50
   A = CInt (InputBox (" Inserisci il primo numero ",Salvo50,34))
   B = CInt (InputBox (" Inserisci il secondo numero ",Salvo50,35))
   AB = A + B
   If A < 60 Then Ac = A + 30 - 1
   If A > 60 Then Ac = A - 30 - 1
   Acx3 = Ac * 3
   D = Acx3 + 93 - AB
   E = Fuori90(D)
   Scrivi "        PRIMO   NUMERO INSERITO " & Format2(A),1
   Scrivi "        SECONDO NUMERO INSERITO " & Format2(B),1
   Scrivi
   Scrivi "Numero risultante della formula " & Format2(E),1
End Sub

 

[salvo50]

Qui te l'ho fatto un po meno spartano ed ho aggiunto le ruote e la ricerca tramite impostagiocata

Option Explicit
Sub Main()
   Dim Ini,Fin,Es,R1,E1,Salvo50
   Dim P1,P2,P3,AB,A,B,AC,D,E
   Dim Caso,Casi,Clp1,Acx3
   Dim Ruota(1),Posta(1),Ambata(1)
   Fin = EstrazioneFin
   Posta(1) = 1
   Clp1 = InputBox(" Per quanti colpi vuoi giocare l'ambata? ",Salvo50,6)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9540)
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      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)
               AB = A + B
               If A < 60 Then AC = A + 30 - 1
               If A > 60 Then AC = A - 30 - 1
               Acx3 = AC * 3
               D = Acx3 + 93 - AB
               E = Fuori90(D)
               Scrivi
               Caso = Caso + 1
               Casi = Casi + 1
               ColoreTesto 1
               Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P3 = 1 To 5
                  E1 = Estratto(Es,R1,P3)
                  If E1 = A Or E1 = B Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi "        Numero risultante della formula " & Format2(E),1
               Ruota(1) = R1
               Ambata(1) = E
               ImpostaGiocata 1,Ambata,Ruota,Posta,Clp1
               Gioca Es
               'End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Matematico]

E' perfetto salvo50...grazie di cuore♥

 

[salvo50]

Ciao a Tutti, nel primo script ho messo l'inserzione dei numeri tramite InputBox