barattolo
Senior Member
Come da oggetto...con la possibilità di scegliere la Ruota...e non di default solo quella di Bari.
Premetto che tale opera (Script) non è mio...anzi, purtroppo, non ci capisco niente!
Grazie a Luigi per il fantastico (e scusa se è poco) programma!
Grazie a chi mi aiuterà...
Codice:
Sub Main() Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
es = InputBox("Inserisci 0 ultima, 1 prima, ....",,0)
nmc = InputBox("Numero mesi:",,31)
perc = InputBox("Percentuale esiti(50-100):",,50)
ncg = InputBox("Numero colpi di gioco",,10)
ultest = 8457 '-------------------------------> da aggiornare ogni fine mese
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
' questa sotto deve essere una unica riga riga
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
' fine della riga sopra
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For r2 = 1 To 1
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + " estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo:"
Else
s = s + ncg + " colpi:"
End If
End If
Scrivi s
Scrivi "Statistica dal " + DataEstrazione(nn) + " al " + DataEstrazione(EstrazioneFin)
For r = 1 To 10
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
z = z + 1
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k2 = eval(ncg)
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
k = Estratto(nv,r2,j) - estr(i)
While k <= 0
k = k + 90
Wend
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
Val(i,k) = False
End If
Next
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),8) + " + " + Format2(CStr(eval(j))) + " su "
s = s + FormatSpace(NomeRuota(r2),8) + " è uscito " + CStr(som(i,j)) + "/" + CStr(eval(z))
s = s + " : " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " in corso" Else s = s + " out" End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
End If
Next
Next
Next
For i = 1 To 90
If(amb(i) > 1) Then
Scrivi CStr(eval(i)) + ": previsto da " + CStr(eval(amb(i))) + " sistemi"
End If
Next
Next
End SubPremetto che tale opera (Script) non è mio...anzi, purtroppo, non ci capisco niente!
Grazie a Luigi per il fantastico (e scusa se è poco) programma!
Grazie a chi mi aiuterà...
