Per Salvo50 o altro esperto in listati

[Roby]

ecco lo script

Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,x1,x2
Dim ruota(12)
Dim poste(10)
Dim am(10)
Dim a,b,c,d,e,co
poste(2) = 1
x1 = CInt(InputBox(" Scegli Fisso Base ",,"1"))
x2 = CInt(InputBox(" Scegli Fisso Base ",,"30"))
r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
r1 = 11
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r0
ruota(2) = r1
a = Estratto(es,r0,1)
b = Estratto(es,r0,2)
c = Estratto(es,r0,3)
d = Estratto(es,r0,4)
e = Estratto(es,r0,5)
'--------------------
am(1) = Fuori90(a + x1)
am(2) = Fuori90(b + x1)
am(3) = Fuori90(c + x1)
am(4) = Fuori90(d + x1)
am(5) = Fuori90(e + x1)
am(6) = Fuori90(a + x2)
am(7) = Fuori90(b + x2)
am(8) = Fuori90(c + x2)
am(9) = Fuori90(d + x2)
am(0) = Fuori90(e + x2)
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fiss1 " & x1 & " - " & x2,1,,,1
ImpostaGiocata 1,am,ruota,poste,Clp,2
Gioca es,True,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto,False
End Sub

 

[fillotto]

Un semplice divertissement vero è vero ma non prendetelo sul serio!!!!

 [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09485 [ 71 - 14/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 16.75.30.30.31 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]  N. [16.75.30.30.31                ] [BA]     [.. .. .. .. ..] C.   1            09486 [ 72 - 16/06/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09486 [ 72 - 16/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 20.77.36.41.25 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]V N. [20.77.36.41.25                ] [BA]     [20 77 25 .. 41] C.   1 Quaterna   09487 [ 73 - 19/06/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09487 [ 73 - 19/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 50.05.27.72.39 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]V N. [50.05.27.72.39                ] [BA]     [05 .. 50 .. ..] C.   1 Ambo       09488 [ 74 - 21/06/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09488 [ 74 - 21/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 88.57.70.43.31 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]V N. [88.57.70.43.31                ] [BA]     [31 .. 70 .. ..] C.   1 Ambo       09489 [ 75 - 23/06/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09489 [ 75 - 23/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 55.23.54.21.46 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]V N. [55.23.54.21.46                ] [BA]     [.. 55 .. 23 54] C.   1 Terno      09490 [ 76 - 26/06/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09490 [ 76 - 26/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 21.13.24.01.13 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]  N. [21.13.24.01.13                ] [BA]     [.. .. .. .. ..] C.   1            09491 [ 77 - 28/06/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09491 [ 77 - 28/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 81.19.54.19.85 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]  N. [81.19.54.19.85                ] [BA]     [.. 81 .. .. ..] C.   1 Estratto   09492 [ 78 - 30/06/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09492 [ 78 - 30/06/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 53.44.70.85.57 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]V N. [53.44.70.85.57                ] [BA]     [.. .. 85 57 44] C.   1 Terno      09493 [ 79 - 03/07/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09493 [ 79 - 03/07/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 07.32.83.54.24 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000]V N. [07.32.83.54.24                ] [BA]     [54 .. .. 83 ..] C.   1 Ambo       09494 [ 80 - 05/07/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09494 [ 80 - 05/07/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 42.79.02.22.33 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]  N. [42.79.02.22.33                ] [BA]     [.. .. 02 .. ..] C.   1 Estratto   09495 [ 81 - 07/07/2018][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]Interrotta per raggiunta durata[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]----------------------------------------------------------------------[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]sommativi utilizzati il 1°,2°,3°,4° e 5° di NZ_FI_MI_TO_FI 70,37,4,82,70[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09495 [ 81 - 07/07/2018][/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 74.65.31.51.11 su BA per Ambo,Terno[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 1 estrazioni[/COLOR][/SIZE][/FONT]  [FONT=Courier New][SIZE=2][COLOR=#000000]****************************************************************************************************[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#ff0000][B] casi trovati : 11[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]                                                                                                    [/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]+----------------------------------------+ | Prima Giocata      : 9485              | | Ultima Giocata     : 9495              | | Range              : 11                | | Casi giocab perc.  : 100%              |[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+  |               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |  +----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+  | Casi esaminati     :               11  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |  | Casi vincenti      :                6  | +----------------------------------+ +----------------------------------+ +----------------------------------+  | Percentuale pos.   :          54,55 %  | | BA |     |   15|    6|    1|     | | BA |     |  100|  100|  100|     | | BA |   11|                       |  | Pronostici totali  :               11  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |  | Pronostici vinc.   :                6  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |  | Percentuale pos.   :          54,55 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |  | Giocate in corso   :                1  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |  | Giocate terminate  :               10  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |  | Bollette giocate   :               10  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |  | Bollette vincenti  :                6  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |  | Attesa media       :                1  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |  | Spesa              :          20,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |  | Vincita            :       2.890,50 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |  | Guadagno           :       2.870,50 €  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |  | Perc. Rendimento   :        14352,5 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+  | Mass. Esposizione  :           6,00 €  |     | Estratto su ruota  :               16  |                                                                                                                 | Ambo su ruota      :               15  |                                                                                                                 | Terno su ruota     :                6  |                                                                                                                 | Quaterna su ruota  :                1  |                                                                                                                 |                                        |                                                                                                                 +----------------------------------------+                                                                                                                 [/COLOR][/SIZE][/FONT]

 

[fillotto]

mi space ma non riesco più a trasmettere esatto si tratta di un resoconto che si dispone su una sola riga????!!??