-
claudiotto.
User deleted
Qualche automazione in + , un saluto
Sub Main()
Dim ruote(2),nu2(3),poste(3)
Dim im
poste(2) = 1
poste(3) = 1
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",200)
k = InputBox("per quanti colpi?","colpi di gioco",3)
im = InputBox( " per quale Indice Mese di rilevamento?","",7)' sesta mese
r1 = InputBox ( " ruota del 1°estratto?","",7)' ruota di Milano eccc
p1 = InputBox( " posizione del 1°estratto?","",5)
fi1 = InputBox( " primo fisso","",32)
'''''''''''
r2 = InputBox( " ruota del 2°estratto?","",7)
p2 = InputBox( " posizione del 2°estratto?","",5)
fi2 = InputBox( " secondo fisso","",70)
'''''''''''
r3 = InputBox( " ruota del 3°estratto?","",6)
p3 = InputBox( " posizione del 3°estratto?","",4)
fi3 = InputBox( " terzo fisso?","",76)
'''''''''''
ini = EstrazioneFin - ce
fin = EstrazioneFin
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)" & " Indice Mese = " & im ,1
For es = ini To fin
If IndiceMensile(es) = 7 Then
x = PrimaMesePrec(es)
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
casi = casi + 1
Scrivi String(69,"=") & " by chinonlofa",1
Scrivi "metodo superlotto x lotto69 "
Scrivi String(68,"-")
Scrivi p1 & "° Estratto di " & NomeRuota(r1) & " della " & IndiceMensile(x+2)&"^ Mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r1,p1) & " ] + " & fi1 & " / A "
Scrivi p2 & "° Estratto di " & NomeRuota(r2) & " della " & IndiceMensile(x+2)&"^ Mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r2,p2) & " ] + " & fi2 & " / A "'Scrivi " 5° Estratto su Pa+70 della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r2,p2) & " ] + 70 / B "
Scrivi p3 & "° Estratto di " & NomeRuota(r3) & " della " & IndiceMensile(x+9)&"^ Mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,r3,p3) & " ] + " & fi3 & " / A "
Scrivi String(69,"-") & " caso n° " &(casi)
ruote(1) = 11
ruote(2) = 12
co = 0
a = Fuori90(Estratto(x + 2,r1,p1) + fi1)
b = Fuori90(Estratto(x + 2,r2,p2) + fi2)
c = Fuori90(Estratto(x + 9,r3,p3) + fi3)
' a = Fuori90(Estratto(x + 2,7,5) + 32) ' originale
' b = Fuori90(Estratto(x + 2,7,5) + 70) ' originale
' c = Fuori90(Estratto(x + 9,(6),4) + 76)' originale
nu2(1) = a
nu2(2) = b
nu2(3) = c
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
End Sub
Function PrimaMesePrec(es)
For x = es To es - 25 Step - 1
If Cadenza(Distanza(Mese(es),Mese(x))) = 1 And IndiceMensile(x) = 1 Then
PrimaMesePrec = x
Exit For
End If
Next
End Function.