| buon giorno Luigian per la tua richiesta copia lo script
Sub Main()
Dim nu1(10),nu2(10),nu3(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
r1=InputBox("Inserisci la ruota di ricerca 1 / 10 /12","RUOTA",6)
fin=EstrazioneFin
ini=10321
For es=ini To fin
If IndiceMensile(es+1) = 1 Then ' questa è la modifica
AvanzamentoElab ini,fin,es
a1=Estratto(es-1,r1,1):a2=Estratto(es-1,r1,2):a3=Estratto(es-1,r1,3):a4=Estratto(es-1,r1,4):a5=Estratto(es-1,r1,5)
b1=Estratto(es,r1,1):b2=Estratto(es,r1,2):b3=Estratto(es,r1,3):b4=Estratto(es,r1,4):b5=Estratto(es,r1,5)
k1=Fuori90(a1+a2+a3+a4+a5)
k2=Fuori90(a2+a3+a4+a5+b1)
k3=Fuori90(a3+a4+a5+b1+b2)
k4=Fuori90(a4+a5+b1+b2+b3)
k5=Fuori90(a5+b1+b2+b3+b4)
k6=Fuori90(b1+b2+b3+b4+b5)
j1=Fuori90(a1+a2+a3+a4+a5+b1):j2=Fuori90(a2+a3+a4+a5+b1+b2):j3=Fuori90(a3+a4+a5+b1+b2+b3):j4=Fuori90(a4+a5+b1+b2+b3+b4):j5=Fuori90(a5+b1+b2+b3+b4+b5)
k7=Fuori90(j1+j2+j3+j4+j5)
y1=Fuori90(k1+k2+k3+k4+k5+k6)
If k7<90 And k7><45 Then
casi=casi+1
Scrivi String(65,"=")&" caso n° "&(casi)
Scrivi DataEstrazione(es-1,1)&" < "&SiglaRuota(r1)& " "& StringaEstratti(es-1,r1)&" "
Scrivi DataEstrazione(es,1)&" < "&SiglaRuota(r1)& " "& StringaEstratti(es,r1)&" "
Scrivi " a b c d e "
Scrivi " "&Format2(a1)&"."&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"="&Format2(k1)
Scrivi " "&Format2(a2)&"."&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"="&Format2(k2)
Scrivi " "&Format2(a3)&"."&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"="&Format2(k3)
Scrivi " "&Format2(a4)&"."&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"="&Format2(k4)
Scrivi " "&Format2(a5)&"."&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&"="&Format2(k5)
Scrivi " "&Format2(b1)&"."&Format2(b2)&"."&Format2(b3)&"."&Format2(b4)&"."&Format2(b5)&"="&Format2(k6)
Scrivi String(20," ")&" somme delle colonne Verticali a b c d e "
Scrivi " "&Format2(j1)&"."&Format2(j2)&"."&Format2(j3)&"."&Format2(j4)&"."&Format2(j5)
Scrivi String(20,"-")&" Somma delle Somme Verticali = "&Format2(k7)&" "
Scrivi String(20," ")&" somme delle colonne Orizzontali "
Scrivi " "&Format2(k1)&"."&Format2(k2)&"."&Format2(k3)&"."&Format2(k4)&"."&Format2(k5)&"."&Format2(k6)
Scrivi String(20,"-")&" Somma delle somme orizzontali = "&Format2(y1)&" "
k=10
ruote(1)=r1:ruota(1)=11
nu1(1)=y1
nu1(2)=Fuori90(y1+k7)
nu1(3)=90
ImpostaGiocata 1,nu1,ruota,poste,k,2
Gioca es
End If
Next
End If
Next
ScriviResoconto
End Sub
Edited by ferm2 - 14/4/2024, 16:20
|
