-
.
ciao
inserisco un listato trovato in un altro forum molto ma molto interessante dove trova delle ambate sommative su qualsiasi indice mensileSPOILER (clicca per visualizzare)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
. -
.
Grazie paolo,sara' molto gradito..ecco lo sviluppo del listato: CODICE************************************** TROVA AMBATE SOMMATIVE SU INDICE MENSILE *****************************************
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Bari
3° di Cagliari + 67 su Bari è uscito 6 Volte Su 7 : Previsione: 83 In Gioco
4° di Genova + 15 su Bari è uscito 6 Volte Su 7 : Previsione: 63 In Gioco
2° di Palermo + 38 su Bari è uscito 6 Volte Su 7 : Previsione: 48 In Gioco
1° di Roma + 84 su Bari è uscito 6 Volte Su 7 : Previsione: 3 In Gioco
4° di Roma + 46 su Bari è uscito 6 Volte Su 7 : Previsione: 6 In Gioco
5° di Torino + 60 su Bari è uscito 6 Volte Su 7 : Previsione: 45 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Cagliari
3° di Bari + 40 su Cagliari è uscito 6 Volte Su 7 : Previsione: 14 In Gioco
2° di Cagliari + 14 su Cagliari è uscito 6 Volte Su 7 : Previsione: 7 In Gioco
4° di Firenze + 34 su Cagliari è uscito 6 Volte Su 7 : Previsione: 41 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Firenze
1° di Bari + 70 su Firenze è uscito 6 Volte Su 7 : Previsione: 78 In Gioco
5° di Bari + 79 su Firenze è uscito 6 Volte Su 7 : Previsione: 78 In Gioco
4° di Firenze + 82 su Firenze è uscito 6 Volte Su 7 : Previsione: 89 In Gioco
1° di Genova + 32 su Firenze è uscito 6 Volte Su 7 : Previsione: 54 In Gioco
1° di Palermo + 43 su Firenze è uscito 6 Volte Su 7 : Previsione: 72 In Gioco
1° di Palermo + 49 su Firenze è uscito 6 Volte Su 7 : Previsione: 78 In Gioco
2° di Torino + 23 su Firenze è uscito 6 Volte Su 7 : Previsione: 35 In Gioco
5° di Venezia + 76 su Firenze è uscito 6 Volte Su 7 : Previsione: 42 In Gioco
2° di Nazionale + 23 su Firenze è uscito 6 Volte Su 7 : Previsione: 43 In Gioco
********** NUMERI - CONVERGENTI **********
78: CONVERGENTE IN 03 SISTEMI
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Genova
3° di Milano + 15 su Genova è uscito 6 Volte Su 7 : Previsione: 4 In Gioco
1° di Roma + 64 su Genova è uscito 6 Volte Su 7 : Previsione: 73 In Gioco
5° di Roma + 69 su Genova è uscito 6 Volte Su 7 : Previsione: 30 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Milano
5° di Roma + 54 su Milano è uscito 6 Volte Su 7 : Previsione: 15 In Gioco
3° di Venezia + 44 su Milano è uscito 6 Volte Su 7 : Previsione: 37 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Napoli
1° di Palermo + 42 su Napoli è uscito 6 Volte Su 7 : Previsione: 71 In Gioco
5° di Torino + 43 su Napoli è uscito 6 Volte Su 7 : Previsione: 28 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Palermo
3° di Genova + 32 su Palermo è uscito 6 Volte Su 7 : Previsione: 42 In Gioco
1° di Torino + 10 su Palermo è uscito 6 Volte Su 7 : Previsione: 68 In Gioco
5° di Torino + 72 su Palermo è uscito 6 Volte Su 7 : Previsione: 57 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Roma
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Torino
4° di Bari + 45 su Torino è uscito 6 Volte Su 7 : Previsione: 70 In Gioco
2° di Cagliari + 72 su Torino è uscito 6 Volte Su 7 : Previsione: 65 In Gioco
4° di Roma + 59 su Torino è uscito 6 Volte Su 7 : Previsione: 19 In Gioco
5° di Torino + 73 su Torino è uscito 6 Volte Su 7 : Previsione: 58 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Venezia
3° di Bari + 07 su Venezia è uscito 6 Volte Su 7 : Previsione: 71 In Gioco
2° di Genova + 08 su Venezia è uscito 6 Volte Su 7 : Previsione: 76 In Gioco
1° di Venezia + 14 su Venezia è uscito 6 Volte Su 7 : Previsione: 9 In Gioco
********** NUMERI - CONVERGENTI **********
**************************************************************************************************************
**************************************************************************************************************
All'ultima° estrazione del mese per 7 colpi
Quantità mesi Impostati: 7
Statistica dal: 29.11.2011 al: 08.05.2012
Percentuale Impostata: 90%
RUOTA DI Nazionale
3° di Genova + 45 su Nazionale è uscito 6 Volte Su 7 : Previsione: 55 In Gioco
5° di Napoli + 67 su Nazionale è uscito 6 Volte Su 7 : Previsione: 32 In Gioco
3° di Roma + 11 su Nazionale è uscito 6 Volte Su 7 : Previsione: 28 In Gioco
1° di Torino + 58 su Nazionale è uscito 6 Volte Su 7 : Previsione: 26 In Gioco
4° di Torino + 03 su Nazionale è uscito 6 Volte Su 7 : Previsione: 85 In Gioco
********** NUMERI - CONVERGENTI **********. -
.
ciao sean
nn è che magari sei cosi bravo da poter fare 2 ambate per ruota e nn una???. -
.
magari,pero' forse qualcuno ci puo' aiutare..vediamo.. . -
.
allora aspettiamo...........
grazie x la tua disponibilita. -
.
ciao paolo,ho provato anche a chiedere a persone piu' brave,ma niente,non ci riescono..mi dispiace,ma credo che non si possa fare..almeno qui'.. . -
.
Percentuale Impostata: 98%
Impostatto sull'ultima estrazione del mese
RUOTA DI Cagliari
3° di Firenze + 53 su Cagliari è uscito 14 Volte Su 15 : Previsione: 50 In Gioco
2° di Roma + 67 su Cagliari è uscito 14 Volte Su 15 : Previsione: 73 In Gioco
perche' i calcoli non mi coincidono con l'ultima estrazione del mese?
grazie.
listato interessante!!!!!!!!!!!!! |
Offline
Web
