salvo50
Advanced Member >PLATINUM PLUS<
SCRIPT SU METODI CABALISTICI, CICLOMETRICI & COMPANY
IL QUADRATO NUMERICO DI URAZIO
IL QUADRATO NUMERICO DI URAZIO
Codice:
'Progetto - IL QUADRATO NUMERICO - AUTORE URAZIO
'Script by Salvo50
Option Explicit
Sub Main
Dim Fin,Clp,Col,Esqcol,Esq,Es,R1,K,Caso,Casi,K1
Dim A(5),B(5),C(5),D(5),E(5),AB(5),BC(5),CD(5),DE(5)
Dim S1,S2,S3,S4,S5,D12,D23,D34,D45,Rs12,Rs34
Dim D1,D2,D3,D4,D5,D6,D7,D8,Rs1,Rs2,Rs3,Rs4
Dim Num(2),Ru(1),Poste(2)
Poste(1) = 1
Poste(2) = 1
Fin = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,1048)'1048 l'esempio nell'articolo, Ruota Napoli
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
Col = CInt(InputBox(" Quante estrazioni vuoi controllare?",,10))
Esqcol = Esq + Col
If Esqcol > Fin Then Esqcol = Fin
For Es = Esq To Esqcol
Caso = 0
AvanzamentoElab Esq,Esqcol,Es
For R1 = 1 To 10
'Le 5 estrazioni
A(1) = Estratto((Es - 4),R1,1):If A(1) > 0 Then
A(2) = Estratto((Es - 4),R1,2):A(3) = Estratto((Es - 4),R1,3)
A(4) = Estratto((Es - 4),R1,4):A(5) = Estratto((Es - 4),R1,5):B(1) = Estratto((Es - 3),R1,1)
B(2) = Estratto((Es - 3),R1,2):B(3) = Estratto((Es - 3),R1,3):B(4) = Estratto((Es - 3),R1,4)
B(5) = Estratto((Es - 3),R1,5):C(1) = Estratto((Es - 2),R1,1):C(2) = Estratto((Es - 2),R1,2)
C(3) = Estratto((Es - 2),R1,3):C(4) = Estratto((Es - 2),R1,4):C(5) = Estratto((Es - 2),R1,5)
D(1) = Estratto((Es - 1),R1,1):D(2) = Estratto((Es - 1),R1,2):D(3) = Estratto((Es - 1),R1,3)
D(4) = Estratto((Es - 1),R1,4):D(5) = Estratto((Es - 1),R1,5):E(1) = Estratto(Es,R1,1)
E(2) = Estratto(Es,R1,2):E(3) = Estratto(Es,R1,3):E(4) = Estratto(Es,R1,4):E(5) = Estratto(Es,R1,5)
'I 4 Risultati centrali ogni 2 estrazioni
AB(1) = Fuori90(90 +(B(1) - A(1))):AB(2) = Fuori90(90 +(B(2) - A(2))):AB(3) = Fuori90(90 +(B(3) - A(3)))
AB(4) = Fuori90(90 +(B(4) - A(4))):AB(5) = Fuori90(90 +(B(5) - A(5))):BC(1) = Fuori90(90 +(C(1) - B(1)))
BC(2) = Fuori90(90 +(C(2) - B(2))):BC(3) = Fuori90(90 +(C(3) - B(3))):BC(4) = Fuori90(90 +(C(4) - B(4)))
BC(5) = Fuori90(90 +(C(5) - B(5))):CD(1) = Fuori90(90 +(D(1) - C(1))):CD(2) = Fuori90(90 +(D(2) - C(2)))
CD(3) = Fuori90(90 +(D(3) - C(3))):CD(4) = Fuori90(90 +(D(4) - C(4))):CD(5) = Fuori90(90 +(D(5) - C(5)))
DE(1) = Fuori90(90 +(E(1) - D(1))):DE(2) = Fuori90(90 +(E(2) - D(2))):DE(3) = Fuori90(90 +(E(3) - D(3)))
DE(4) = Fuori90(90 +(E(4) - D(4))):DE(5) = Fuori90(90 +(E(5) - D(5)))
'Le somme delle estrazioni
S1 = Fuori90(A(1) + A(2) + A(3) + A(4) + A(5)):S2 = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
S3 = Fuori90(C(1) + C(2) + C(3) + C(4) + C(5)):S4 = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
S5 = Fuori90(E(1) + E(2) + E(3) + E(4) + E(5))
'Le differenze delle somme
D12 = Fuori90(90 +(S2 - S1)):D23 = Fuori90(90 +(S3 - S2)):D34 = Fuori90(90 +(S4 - S3)):D45 = Fuori90(90 +(S5 - S4))
D1 = Fuori90(90 +(D12 - S1)):D2 = Fuori90(90 +(S2 - D12)):D3 = Fuori90(90 +(D23 - S2)):D4 = Fuori90(90 +(S3 - D23))
D5 = Fuori90(90 +(D34 - S3)):D6 = Fuori90(90 +(S4 - D34)):D7 = Fuori90(90 +(D45 - S4)):D8 = Fuori90(90 +(S5 - D45))
Rs1 = Fuori90(90 +(D2 - D1)):Rs2 = Fuori90(90 +(D4 - D3)):Rs3 = Fuori90(90 +(D6 - D5)):Rs4 = Fuori90(90 +(D8 - D7))
Rs12 = Fuori90(90 +(Rs2 - Rs1)):Rs34 = Fuori90(90 +(Rs4 - Rs3))
'Fine calcoli--------------------------------------------------
Ru(1) = R1
Num(1) = Rs12
Num(2) = Rs34
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
For K = 4 To 0 Step - 1
Scrivi Space(23) &(" Estrazione n." & Format2(Es - K) & " del " & DataEstrazione(Es - K)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti((Es - K),R1),1
Next
Scrivi
For K1 = 1 To 5
Scrivi Space(20) & Format2(A(K1)) & " " & Format2(AB(K1)) & " " & Format2(B(K1)),0,0
Scrivi " -- " & Format2(B(K1)) & " " & Format2(BC(K1)) & " " & Format2(C(K1)),0,0
Scrivi " -- " & Format2(C(K1)) & " " & Format2(CD(K1)) & " " & Format2(D(K1)),0,0
Scrivi " -- " & Format2(D(K1)) & " " & Format2(DE(K1)) & " " & Format2(E(K1))
Next
ColoreTesto 2
Scrivi Space(20) & Format2(S1) & " " & Format2(D12) & " " & Format2(S2),0,0
Scrivi " -- " & Format2(S2) & " " & Format2(D23) & " " & Format2(S3),0,0
Scrivi " -- " & Format2(S3) & " " & Format2(D34) & " " & Format2(S4),0,0
Scrivi " -- " & Format2(S4) & " " & Format2(D45) & " " & Format2(S5)
ColoreTesto 1
Scrivi Space(22) & Format2(D1) & " " & Format2(D2) & Space(10) & Format2(D3),0,0
Scrivi " " & Format2(D4) & Space(10) & Format2(D5) & " " & Format2(D6),0,0
Scrivi Space(10) & Format2(D7) & " " & Format2(D8) : ColoreTesto 0
Scrivi Space(24) & Format2(Rs1) & Space(14) & Format2(Rs2) & Space(14) & Format2(Rs3) & Space(14) & Format2(Rs4)
ColoreTesto 2
Scrivi Space(32) & Format2(Rs12) & Space(30) & Format2(Rs34)
ColoreTesto 0
Scrivi
ImpostaGiocata 1,Num,Ru,Poste,Clp
Gioca Es
End If
Next
Next
ScriviResoconto
End Sub
Ultima modifica:
