Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Black , io di Danilo ho lo script sulla BASEF di Scaravetti se ti interessa lo posso postare. Ciaooooooooooo
Allora copiatevi questo script, è un costruttore di metodi sommativi per ambate su indice mensile
Basta scegliere i mesi e i colpi, ed il costruttore vi troverà automaticamente le ambate da mettere in gioco su ogni ruota
1 - NON CHIEDETEMI MODIFICHE, NON SO FARLE SU QUESTO COSTRUTTORE
2 - SE VOLETE CERCARE ABBINAMENTI PER AMBO ETC.. USATE LA SEZIONE METODI SOMMATIVI NEL PROGRAMMA SPAZIOMETRIA
3 - FUNZIONA ANCHE SU L8
BUON DIVERTIMENTO, E RICORDATE DI GIOCARE SEMPRE CON MODERAZIONE
Ciao
Codice:Sub Main() ColoreTesto 1: Scrivi String(51," ") & "LISTATO DI DANILO - Modificato Da Blackmore",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, ....)",,10) 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
IL MIO PUNTO DI VISTA
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 75.30 su BA per Estratto,Ambo
V N. [75.30 ] [BA] [.. 75 .. .. ..] C. 1 Estratto 08908 [119 - 04/10/2014]
V N. [75.30 ] [BA] [.. .. 30 .. ..] C. 8 Estratto 08915 [126 - 21/10/2014]
V N. [75.30 ] [BA] [75 .. .. .. ..] C. 9 Estratto 08916 [127 - 23/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 84.39 su BA per Estratto,Ambo
V N. [84.39 ] [BA] [.. .. .. .. 39] C. 1 Estratto 08908 [119 - 04/10/2014]
V N. [84.39 ] [BA] [.. .. .. 39 ..] C. 7 Estratto 08914 [125 - 18/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 46.01 su BA per Estratto,Ambo
V N. [46.01 ] [BA] [.. .. .. 01 ..] C. 6 Estratto 08913 [124 - 16/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 67.22 su BA per Estratto,Ambo
V N. [67.22 ] [BA] [22 67 .. .. ..] C. 6 Ambo 08913 [124 - 16/10/2014]
V N. [67.22 ] [BA] [.. 67 .. .. ..] C. 7 Estratto 08914 [125 - 18/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 14.59 su BA per Estratto,Ambo
V N. [14.59 ] [BA] [.. .. .. .. 59] C. 3 Estratto 08910 [121 - 09/10/2014]
V N. [14.59 ] [BA] [.. .. .. .. 14] C. 7 Estratto 08914 [125 - 18/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 83.38 su BA per Estratto,Ambo
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 07.52 su BA per Estratto,Ambo
V N. [07.52 ] [BA] [.. .. 52 .. ..] C. 4 Estratto 08911 [122 - 11/10/2014]
V N. [07.52 ] [BA] [.. .. 52 .. ..] C. 10 Estratto 08917 [128 - 25/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 29.74 su BA per Estratto,Ambo
V N. [29.74 ] [BA] [.. .. .. .. 74] C. 8 Estratto 08915 [126 - 21/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 83.38 su BA per Estratto,Ambo
In corso per altre 3 estrazioni
-----------------------------------------------------------
Estrazione generatrice del pronostico 08907 [118 - 02/10/2014]
G 0002 Numeri in gioco : 64.19 su BA per Estratto,Ambo
V N. [64.19 ] [BA] [.. .. .. 64 ..] C. 1 Estratto 08908 [119 - 04/10/2014]
V N. [64.19 ] [BA] [.. .. .. 19 ..] C. 3 Estratto 08910 [121 - 09/10/2014]
V N. [64.19 ] [BA] [.. .. 64 .. ..] C. 5 Estratto 08912 [123 - 14/10/2014]
In corso per altre 3 estrazioni
-----------------------------------------------------------
********** NUMERI - CONVERGENTI **********
01: CONVERGENTE IN 05 SISTEMI
04: CONVERGENTE IN 08 SISTEMI
05: CONVERGENTE IN 07 SISTEMI
09: CONVERGENTE IN 07 SISTEMI
10: CONVERGENTE IN 06 SISTEMI
11: CONVERGENTE IN 08 SISTEMI
12: CONVERGENTE IN 10 SISTEMI
13: CONVERGENTE IN 12 SISTEMI
14: CONVERGENTE IN 07 SISTEMI
15: CONVERGENTE IN 09 SISTEMI
16: CONVERGENTE IN 05 SISTEMI
18: CONVERGENTE IN 08 SISTEMI
19: CONVERGENTE IN 09 SISTEMI
20: CONVERGENTE IN 02 SISTEMI
22: CONVERGENTE IN 03 SISTEMI
25: CONVERGENTE IN 03 SISTEMI
26: CONVERGENTE IN 08 SISTEMI
28: CONVERGENTE IN 09 SISTEMI
30: CONVERGENTE IN 02 SISTEMI
32: CONVERGENTE IN 07 SISTEMI
36: CONVERGENTE IN 02 SISTEMI
37: CONVERGENTE IN 02 SISTEMI
39: CONVERGENTE IN 06 SISTEMI
40: CONVERGENTE IN 02 SISTEMI
41: CONVERGENTE IN 05 SISTEMI
43: CONVERGENTE IN 02 SISTEMI
45: CONVERGENTE IN 10 SISTEMI
46: CONVERGENTE IN 02 SISTEMI
47: CONVERGENTE IN 09 SISTEMI
48: CONVERGENTE IN 06 SISTEMI
49: CONVERGENTE IN 02 SISTEMI
50: CONVERGENTE IN 02 SISTEMI
52: CONVERGENTE IN 08 SISTEMI
53: CONVERGENTE IN 08 SISTEMI
54: CONVERGENTE IN 03 SISTEMI
59: CONVERGENTE IN 09 SISTEMI
60: CONVERGENTE IN 11 SISTEMI
63: CONVERGENTE IN 06 SISTEMI
64: CONVERGENTE IN 11 SISTEMI
66: CONVERGENTE IN 06 SISTEMI
67: CONVERGENTE IN 08 SISTEMI
69: CONVERGENTE IN 02 SISTEMI
73: CONVERGENTE IN 07 SISTEMI
74: CONVERGENTE IN 04 SISTEMI
75: CONVERGENTE IN 10 SISTEMI
79: CONVERGENTE IN 05 SISTEMI
82: CONVERGENTE IN 04 SISTEMI
85: CONVERGENTE IN 02 SISTEMI
87: CONVERGENTE IN 06 SISTEMI
88: CONVERGENTE IN 02 SISTEMI
90: CONVERGENTE IN 02 SISTEMI
RIDUCO PRENDENDO LE PIU ALTE IN SISTEMA
04: CONVERGENTE IN 08 SISTEMI
11: CONVERGENTE IN 08 SISTEMI
12: CONVERGENTE IN 10 SISTEMI
13: CONVERGENTE IN 12 SISTEMI
15: CONVERGENTE IN 09 SISTEMI
18: CONVERGENTE IN 08 SISTEMI
19: CONVERGENTE IN 09 SISTEMI
28: CONVERGENTE IN 09 SISTEMI
45: CONVERGENTE IN 10 SISTEMI
47: CONVERGENTE IN 09 SISTEMI
59: CONVERGENTE IN 09 SISTEMI
60: CONVERGENTE IN 11 SISTEMI
64: CONVERGENTE IN 11 SISTEMI
67: CONVERGENTE IN 08 SISTEMI
75: CONVERGENTE IN 10 SISTEMI
RIDUCO PRENDENDO LE MIE CONVERGENZE CON IL Più ALTO
1° CINQUINA
75: CONVERGENTE IN 10 SISTEMI
64: CONVERGENTE IN 11 SISTEMI
60: CONVERGENTE IN 11 SISTEMI
12: CONVERGENTE IN 10 SISTEMI
13: CONVERGENTE IN 12 SISTEMI
ESITO
1° COLPO AMBO
75.64.
5° COLPO AMBO
64.13.
ANDANDO VIA VIA SCALLANDO SI TROVANO ALTRE BELLE COSETTE
TIPO
TERNO AL 3° COLPO
45.15.18.
TERNO AL 4°
12.59.19.
TERNO AL 5°
13.64.47.
TERNO AL 9°
75.04.28.
E TANTA’ALTRO MI FERMO SOLO A BARI