Mauro-emme
Member
'in allegato il pdf per chi non usa Spaziometria
Sub Main
Dim ruota(2),am(3),pt(3),ruote(5),a1(2),a2(4),a3(4),a4(4),a5(2),a6(2),a,b,c,d,e,f,g,h,i,P,S,T,Q,caso
pt(1) = 1
pt(2) = 1
pt(3) = 1
clp = 9
ini = 9908
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO codice rilevamento condizione
If IndiceMensile(es) = 3 Then 'TERZA estrazione
a = Estratto(es,BA_,1)
b = Estratto(es,BA_,5)
c = Estratto(es,VE_,1)
d = Estratto(es,CA_,1)
e = Estratto(es,PA_,5)
f = Estratto(es,PA_,2)
g = Estratto(es,TO_,2)
h = Estratto(es,CA_,3)
i = Estratto(es,MI_,1)
P = Fuori90(a + b + c)
S = Fuori90((d + d) * e)
T = Fuori90(d + f - g)
Q = Fuori90((h + h) * i)
If P = S Then S = S + 1
If P = T Then T = T + 1
If P = Q Then Q = Q + 1
If S = T Then T = T + 1
If S = Q Then Q = Q + 1
If T = Q Then Q = Q + 1
' ------ FINE codice rilevamento condizione
' ------ RUOTE di gioco
ruote(1) = 3 'Ruota di Firenze
ruote(2) = 7 'Ruota di Palermo
' ------ GIOCATA
pt(1) = 1
cg = 0
am(1) = P
cg = cg + 1
ImpostaGiocata cg,am,ruote,pt,clp,0
a1(1) = P
a1(2) = S
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp,1
a2(1) = am(1)
a2(2) = T
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp,1
a3(1) = am(1)
a3(2) = Q
cg = cg + 1
ImpostaGiocata cg,a3,ruote,pt,clp,1
a4(1) = P
a4(2) = S
a4(3) = T
a4(4) = Q
cg = cg + 1
pt(1) = 0
pt(2) = 1
pt(3) = 1
ImpostaGiocata cg,a4,ruote,pt,12,0
Scrivi
ColoreTesto (1) 'Blu
Scrivi "-------------------------------------------------------------------------------" & " estrazione generatrice n° " & es
Scrivi
Scrivi "Dalla " & IndiceMensile(es) & "° estrazione mensile prendiamo il 1° estratto di Bari (" & a & ") che sommiamo al 5° estratto di Bari (" & e & ") ed al 1° estratto di Venezia (" & c & ")"
Scrivi
If (a + b + c) < 90 Then
Scrivi " Ovvero " & a & " + " & b & " + " & c & " la cui somma é " & (a + b + c) & P
End If
If (a + b + c) > 90 Then
Scrivi " Ovvero " & a & " + " & b & " + " & c & " la cui somma é " & (a + b + c) & " che col fuori 90 da " & P
End If
Scrivi
Scrivi "Il primo numero da abbinare lo troviamo prendendo il 1° estratto di Cagliari (" & d & ") che sommiamo a sé stesso e il cui risultato (" & (d + d) & ") moltiplichiamo per il 5° estratto di Palermo (" & e & ")"
Scrivi
If ((d + d) * e) < 90 Then
Scrivi " Ovvero " & d & " + " & d & " = " & (d + d) & " x " & e & " = " & (d + d) * e
End If
If ((d + d) * e) > 90 Then
Scrivi " Ovvero " & d & " + " & d & " = " & (d + d) & " x " & e & " = " & (d + d) * e & " che col fuori 90 da " & S
End If
Scrivi
Scrivi "Il secondo numero da abbinare lo troviamo prendendo il primo estratto di Cagliari (" & d & ") che sommiamo al secondo estratto di Palermo (" & f & ") alla cui somma sottraiamo il secondo estratto di Torino (" & g & ")"
Scrivi
If ((d + f) - g) < 90 Then
Scrivi " Ovvero " & d & " + " & f & " = " & (d + f) & " - " & g & " = " & T
End If
If ((d + f) - g) > 90 Then
Scrivi " Ovvero " & d & " + " & f & " = " & (d + f) & " - " & g & " = " & " che col fuori 90 da " & T
End If
Scrivi
If ((h + h) * i) < 90 Then
Scrivi "Il terzo numero da abbinare lo troviamo prendendo il 3° estratto di Cagliari (" & h & ") che sommiamo a sé stesso e il cui risultato (" & (h + h) & ") va moltiplicato al 1° estratto di Milano (" & i & ") che da (" & Q & ")"
End If
If ((h + h) * 1) > 90 Then
Scrivi "Il terzo numero da abbinare lo troviamo prendendo il 3° estratto di Cagliari (" & h & ") che sommiamo a sé stesso e il cui risultato (" & (h + h) & ") va moltiplicato al 1° estratto di Milano (" & i & ") che da (" & Q & ") e col furi 90 (" & Q & ")"
End If
Scrivi "RIEPILOGANDO I NUMERI TROVATI SONO:"
Scrivi
Scrivi " AMBATA CAPOG.: " & P
Scrivi " ABB.TO n° 1: " & S
Scrivi " ABB.TO n° 2: " & T
Scrivi " ABB.TO n° 3: " & Q
Scrivi
Scrivi
Scrivi "Le giocate sono:"
Scrivi " " & a1(1) & " per ambata principale"
Scrivi a1(1) & " - " & a1(2) & " 1° ambo"
Scrivi a2(1) & " - " & a2(2) & " 2° ambo"
Scrivi a3(1) & " - " & a3(2) & " 3° ambo"
Scrivi
Scrivi a1(1) & " - " & a1(2)& " - " & a2(2)& " - " & a3(2) & " quartina per ambo e terno!"
Scrivi
Scrivi "------------------------------------------------------------------------------- RISULTATI"
Gioca es,1
End If
caso = caso + 1
Next
ScriviResoconto
End Sub
Sub Main
Dim ruota(2),am(3),pt(3),ruote(5),a1(2),a2(4),a3(4),a4(4),a5(2),a6(2),a,b,c,d,e,f,g,h,i,P,S,T,Q,caso
pt(1) = 1
pt(2) = 1
pt(3) = 1
clp = 9
ini = 9908
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO codice rilevamento condizione
If IndiceMensile(es) = 3 Then 'TERZA estrazione
a = Estratto(es,BA_,1)
b = Estratto(es,BA_,5)
c = Estratto(es,VE_,1)
d = Estratto(es,CA_,1)
e = Estratto(es,PA_,5)
f = Estratto(es,PA_,2)
g = Estratto(es,TO_,2)
h = Estratto(es,CA_,3)
i = Estratto(es,MI_,1)
P = Fuori90(a + b + c)
S = Fuori90((d + d) * e)
T = Fuori90(d + f - g)
Q = Fuori90((h + h) * i)
If P = S Then S = S + 1
If P = T Then T = T + 1
If P = Q Then Q = Q + 1
If S = T Then T = T + 1
If S = Q Then Q = Q + 1
If T = Q Then Q = Q + 1
' ------ FINE codice rilevamento condizione
' ------ RUOTE di gioco
ruote(1) = 3 'Ruota di Firenze
ruote(2) = 7 'Ruota di Palermo
' ------ GIOCATA
pt(1) = 1
cg = 0
am(1) = P
cg = cg + 1
ImpostaGiocata cg,am,ruote,pt,clp,0
a1(1) = P
a1(2) = S
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp,1
a2(1) = am(1)
a2(2) = T
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp,1
a3(1) = am(1)
a3(2) = Q
cg = cg + 1
ImpostaGiocata cg,a3,ruote,pt,clp,1
a4(1) = P
a4(2) = S
a4(3) = T
a4(4) = Q
cg = cg + 1
pt(1) = 0
pt(2) = 1
pt(3) = 1
ImpostaGiocata cg,a4,ruote,pt,12,0
Scrivi
ColoreTesto (1) 'Blu
Scrivi "-------------------------------------------------------------------------------" & " estrazione generatrice n° " & es
Scrivi
Scrivi "Dalla " & IndiceMensile(es) & "° estrazione mensile prendiamo il 1° estratto di Bari (" & a & ") che sommiamo al 5° estratto di Bari (" & e & ") ed al 1° estratto di Venezia (" & c & ")"
Scrivi
If (a + b + c) < 90 Then
Scrivi " Ovvero " & a & " + " & b & " + " & c & " la cui somma é " & (a + b + c) & P
End If
If (a + b + c) > 90 Then
Scrivi " Ovvero " & a & " + " & b & " + " & c & " la cui somma é " & (a + b + c) & " che col fuori 90 da " & P
End If
Scrivi
Scrivi "Il primo numero da abbinare lo troviamo prendendo il 1° estratto di Cagliari (" & d & ") che sommiamo a sé stesso e il cui risultato (" & (d + d) & ") moltiplichiamo per il 5° estratto di Palermo (" & e & ")"
Scrivi
If ((d + d) * e) < 90 Then
Scrivi " Ovvero " & d & " + " & d & " = " & (d + d) & " x " & e & " = " & (d + d) * e
End If
If ((d + d) * e) > 90 Then
Scrivi " Ovvero " & d & " + " & d & " = " & (d + d) & " x " & e & " = " & (d + d) * e & " che col fuori 90 da " & S
End If
Scrivi
Scrivi "Il secondo numero da abbinare lo troviamo prendendo il primo estratto di Cagliari (" & d & ") che sommiamo al secondo estratto di Palermo (" & f & ") alla cui somma sottraiamo il secondo estratto di Torino (" & g & ")"
Scrivi
If ((d + f) - g) < 90 Then
Scrivi " Ovvero " & d & " + " & f & " = " & (d + f) & " - " & g & " = " & T
End If
If ((d + f) - g) > 90 Then
Scrivi " Ovvero " & d & " + " & f & " = " & (d + f) & " - " & g & " = " & " che col fuori 90 da " & T
End If
Scrivi
If ((h + h) * i) < 90 Then
Scrivi "Il terzo numero da abbinare lo troviamo prendendo il 3° estratto di Cagliari (" & h & ") che sommiamo a sé stesso e il cui risultato (" & (h + h) & ") va moltiplicato al 1° estratto di Milano (" & i & ") che da (" & Q & ")"
End If
If ((h + h) * 1) > 90 Then
Scrivi "Il terzo numero da abbinare lo troviamo prendendo il 3° estratto di Cagliari (" & h & ") che sommiamo a sé stesso e il cui risultato (" & (h + h) & ") va moltiplicato al 1° estratto di Milano (" & i & ") che da (" & Q & ") e col furi 90 (" & Q & ")"
End If
Scrivi "RIEPILOGANDO I NUMERI TROVATI SONO:"
Scrivi
Scrivi " AMBATA CAPOG.: " & P
Scrivi " ABB.TO n° 1: " & S
Scrivi " ABB.TO n° 2: " & T
Scrivi " ABB.TO n° 3: " & Q
Scrivi
Scrivi
Scrivi "Le giocate sono:"
Scrivi " " & a1(1) & " per ambata principale"
Scrivi a1(1) & " - " & a1(2) & " 1° ambo"
Scrivi a2(1) & " - " & a2(2) & " 2° ambo"
Scrivi a3(1) & " - " & a3(2) & " 3° ambo"
Scrivi
Scrivi a1(1) & " - " & a1(2)& " - " & a2(2)& " - " & a3(2) & " quartina per ambo e terno!"
Scrivi
Scrivi "------------------------------------------------------------------------------- RISULTATI"
Gioca es,1
End If
caso = caso + 1
Next
ScriviResoconto
End Sub