SUPER LOTTO

listato interessante

« Older   Newer »
  Share  
paolo andrioletti
CAT_IMG Posted on 14/5/2012, 15:20




ciao
inserisco un listato veramente utile che ho trovato in un altro sito
Sub Main()
ColoreTesto 1: Scrivi String(51," ") & "LISTATO DI DANILO",1
Scrivi
Scrivi String(38,"*") & " TROVA AMBATE SOMMATIVE SU INDICE MENSILE " & String(41,"*"),1
Scrivi
ColoreTesto 0
Scrivi
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
es = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,0)
nmc = InputBox("NUMERO DI MESI?",,7)
perc = InputBox("PERCENTUALE ESITI? (50-100)",,90)
ncg = InputBox("COLPI DI GIOCO?",,7)
ultest = EstrazioneFin
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
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
End If
n = n - 1
Wend
nn = n + 1
For r2 = 1 To 12
If r2 = 11 Then r2 = 12
Scrivi
Scrivi String(110,"*"),1
Scrivi String(110,"*"),1
Scrivi
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
ColoreTesto 0
Scrivi s
ColoreTesto 1
Scrivi "Quantità mesi Impostati: " & nmc & "",1
ColoreTesto 0
Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
Scrivi "RUOTA DI " & NomeRuota(r2),1
Scrivi
For r = 1 To 12
If r = 11 Then r = 12
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),13) + " + " + Format2(CStr(eval(j))) + " su "
s = s + FormatSpace(NomeRuota(r2),12) + " è uscito " + CStr(som(i,j)) + " Volte Su " + CStr(eval(z))
s = s + " : Previsione: " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " " & ColoreTesto(0) & " In Gioco " Else s = s + " " & ColoreTesto(2) & " Già Uscito " End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
ColoreTesto 0
End If
Next
Next
Next
ColoreTesto 2
Scrivi
Scrivi "********** NUMERI - CONVERGENTI **********",1
ColoreTesto 0
For i = 1 To 90
If(amb(i) > 1) Then
Scrivi Format2(CStr(eval(i))) + ": CONVERGENTE IN " + Format2(CStr(eval(amb(i)))) + " SISTEMI"
End If
Next
If ScriptInterrotto Then Exit For
Next
End Sub


sarebbe bello se qualcuno potrebbe modificarlo invece di 1 ambata realizzarlo x 2 ambate su ruota
grazie
 
Top
0 replies since 14/5/2012, 15:18   699 views
  Share