| Ciao Genal, Non so se ho capito bene cosa hai chiesto dunque se sono necessarie correzioni, le si puņ effettuare. CODICE Option Explicit
Sub Main
' x Genal
' https://lottogam.forumfree.it/?t=79310921
' Script Per Spaziometria by Joe V.1.0 del 07/10/2022
'Tramite InputBox che chieda la Somma Totale dei 4 numeri da rilevare col fuori 90
'Esempio dopo il 24-09-2022, chiedo Somma 61, lo script mi presenta al 1° e 2° posto
'BA 25.47
'CA 50.29
'che sommati danno Somma 61
'ora facendo la Quadratura otterremo 6 numeri comprendenti 3 ambi di Somma 61
'Or 72.79; Vert. 75.76 Diag. 54.7
'La Sestina va giocata per Ambo sulle due Ruote BA-CA
Dim Ini,Fin,Es,G,R,S,P,Q,T
Dim A,B,C,D,Nu(6),Ru(2),Co : G = Space(2)
T = CInt(InputBox("Inserisci" & Chr(13) & "Es. 61","SOMMA DI 4 NUMERI",61))
Ini = EstrazioneFin - 99 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
Scrivi String(57,"-"),True
For R = 1 To 9 : Ru(1) = R
For S = R + 1 To 10 : Ru(2) = S
For P = 1 To 4
For Q = P + 1 To 5
A = Estratto(Es,R,P) : B = Estratto(Es,R,Q)
C = Estratto(Es,S,P) : D = Estratto(Es,S,Q)
If Fuori90(A + B + C + D) = T Then
Scrivi DataEstrazione(Es) & G,True,False
Scrivi SiglaRuota(R) & " " & Format2(A) & "." & Format2(B) & " + ",False,False
Scrivi SiglaRuota(S) & " " & Format2(C) & "." & Format2(D) & G,False,False
' Quadratura
'A - B
'| X |
'C - D
Nu(1) = Fuori90(A + B) : Nu(2) = Fuori90(C + D)
Nu(3) = Fuori90(A + C) : Nu(4) = Fuori90(B + D)
Nu(5) = Fuori90(A + D) : Nu(6) = Fuori90(B + C)
ColoreTesto 2 : Scrivi StringaNumeri(Nu,,True) & G,True,False
Call VerificaEsito(Nu,Ru,Es + 1,2,0,0,Co)
ColoreTesto 1 : Scrivi Iif(Co <> "",Co,"Rit " &(Fin - Es)),1 : ColoreTesto 0
End If
Next
Next
Next
Next
Next
End Sub  Buona giornata a tutte/i. |
