Indici mensili

[Alien.]

Vedo ora dal cell, che non è lo script che intendevo io e non l’ho neanche salvato…. Insomma, ho fatto un gran casino!

Ciao Marco hai un messaggio sulla tua "casa" lotto.

 

[Marco-elle]

Ciao Marco hai un messaggio sulla tua "casa" lotto.

Non so dove guardare il messaggio

 

[Alien.]

Va bhe............. nel tuo forum

 

[Marco-elle]

Alziamo l'asticella anche se....l'impresa è ardua ma....mai dire mai!

Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   posta(3) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 40 To EstrazioneFin
      If(Sabato(Es)And cp = 4)Or(Venerdi(Es)And cp = 3)Or(Giovedi(Es)And cp = 2)Or(Martedi(Es)And cp = 1)Then
         For x = 1 To 6
            n(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(Estratto(es,5,4) + Estratto(es,10,1) + 3)
            n(2) = Fuori90(Estratto(es,6,3) + Estratto(es,9,3) + 73)
            n(3) = Fuori90(Estratto(es,9,4) + Estratto(es,12,3) + 5)
            n(4) = Fuori90(Estratto(es,2,2) + Estratto(es,7,1) + 46)
            n(5) = Fuori90(Estratto(es,1,4) * Estratto(es,8,4) + 12)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,5,2) + Estratto(es,10,4) + 17)
            n(2) = Fuori90(90 +(Estratto(es,6,2)) - Estratto(es,4,1) + 79)
            n(3) = Fuori90(Estratto(es,1,5) * Estratto(es,4,5) + 81)
            n(4) = Fuori90(Estratto(es,6,2) + Estratto(es,7,1) + 19)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,5,4) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,2,1) + Estratto(es,3,5) + 6)
            n(2) = Fuori90(90 +(Estratto(es,10,1)) - Estratto(es,3,4) + 90)
            n(3) = Fuori90(Estratto(es,4,3) + Estratto(es,6,3) + 5)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,5) + 71)
            n(5) = Fuori90(Estratto(es,4,3) + Estratto(es,6,1) + 5)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,9,4) + Estratto(es,10,5) + 14)
            n(2) = Fuori90(90 +(Estratto(es,1,1)) - Estratto(es,8,4) + 10)
            n(3) = Fuori90(Estratto(es,1,1) * Estratto(es,3,1) + 63)
            n(4) = Fuori90(Estratto(es,3,3) + Estratto(es,7,1) + 3)
            n(5) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,5) + 5)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         Gioca es,1
      End If
   Next
   ScriviResoconto,0
End Sub
Function Martedi(Es)
   Martedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbTuesday Then Martedi = True
End Function
Function Giovedi(Es)
   Giovedi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbThursday Then Giovedi = True
End Function
Function Venerdi(Es)
   Venerdi = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbFriday Then Venerdi = True
End Function
Function Sabato(Es)
   Sabato = False
   Data = Replace(DataEstrazione(Es),".","/")
   Joe = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
   Data = Format2(Joe) & "/" & Format2(Mes) & "/" & Ann
   If WeekDay(Data) = vbSaturday Then Sabato = True
End Function

Cmq...le vincite ci sono state la scor,,,scor settimana

20.04.2024
Estrazione generatrice del pronostico 10425 [ 63 - 20/04/2024]
G 0001 Numeri in gioco : 30.58.07.31.66 su BA per Ambo,Terno
V N. [30.58.07.31.66                ] [BA]     [58 .. 30 .. 66] C.   4 Terno      10429 [ 67 - 29/04/2024]
Interrotta per raggiunta durata


27.04.2024
Estrazione generatrice del pronostico 10428 [ 66 - 27/04/2024]
G 0001 Numeri in gioco : 65.35.59.50.62 su BA per Ambo,Terno
V N. [65.35.59.50.62                ] [BA]     [.. 50 65 35 ..] C.  10 Terno      10438 [ 76 - 14/05/2024]
Interrotta per raggiunta durata


04.05.2024
Estrazione generatrice del pronostico 10433 [ 71 - 04/05/2024]
G 0001 Numeri in gioco : 15.38.45.56.46 su BA per Ambo,Terno
V N. [15.38.45.56.46                ] [BA]     [38 46 15 56 ..] C.  10 Quaterna   10443 [ 81 - 23/05/2024]
Interrotta per raggiunta durata


11.05.2024
Estrazione generatrice del pronostico 10437 [ 75 - 11/05/2024]
G 0001 Numeri in gioco : 56.82.15.38.70 su BA per Ambo,Terno
V N. [56.82.15.38.70                ] [BA]     [38 .. 15 56 ..] C.   6 Terno      10443 [ 81 - 23/05/2024]
Interrotta per raggiunta durata


18.05.2024
Estrazione generatrice del pronostico 10441 [ 79 - 18/05/2024]
G 0001 Numeri in gioco : 64.54.51.47.62 su BA per Ambo,Terno
V N. [64.54.51.47.62                ] [BA]     [54 .. .. 64 62] C.   1 Terno      10442 [ 80 - 21/05/2024]
Interrotta per raggiunta durata


25.05.2024
Estrazione generatrice del pronostico 10445 [ 83 - 25/05/2024]
G 0001 Numeri in gioco : 49.31.15.29.86 su BA per Ambo,Terno
V N. [49.31.15.29.86                ] [BA]     [.. 31 29 .. 49] C.   1 Terno      10446 [ 84 - 28/05/2024]
Interrotta per raggiunta durata


01.06.2024
Estrazione generatrice del pronostico 10449 [ 87 - 01/06/2024]
G 0001 Numeri in gioco : 48.87.73.04.20 su BA per Ambo,Terno
Interrotta per raggiunta durata


08.06.2024
Estrazione generatrice del pronostico 10453 [ 91 - 08/06/2024]
G 0001 Numeri in gioco : 90.80.72.53.03 su BA per Ambo,Terno
V N. [90.80.72.53.03                ] [BA]     [.. 53 .. .. 03] C.   3 Ambo       10456 [ 94 - 14/06/2024]

In corso per altre 1 estrazioni

15.06.2024
Estrazione generatrice del pronostico 10457 [ 95 - 15/06/2024]
G 0001 Numeri in gioco : 40.08.23.25.40 su BA per Ambo,Terno
In corso per altre 5 estrazioni

22.06.2024
Estrazione generatrice del pronostico 10461 [ 99 - 22/06/2024]
G 0001 Numeri in gioco : 14.14.41.51.41 su BA per Ambo,Terno
In corso per altre 9 estrazioni
+----------------------------------------+
| Prima Giocata      : 10425             |
| Ultima Giocata     : 10461             |
| Range              : 37                |
| Casi giocab perc.  : 27,027%           |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :               10  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :                7  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :             70 %  | | BA |     |   22|    9|    1|     | | BA |     |  100|  100|  100|     | | BA |   10|                       |
| Pronostici totali  :               10  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Pronostici vinc.   :                7  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Percentuale pos.   :             70 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
| Giocate in corso   :                3  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Giocate terminate  :                7  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Bollette giocate   :               85  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Bollette vincenti  :                7  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
| Attesa media       :                5  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Spesa              :         170,00    | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Vincita            :       4.324,00    | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Guadagno           :       4.154,00    | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :       2443,529 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :          38,00    |   
| Estratto su ruota  :               21  |                                                                                                               
| Ambo su ruota      :               22  |                                                                                                               
| Terno su ruota     :                9  |                                                                                                               
| Quaterna su ruota  :                1  |                                                                                                               
|                                        |                                                                                                               
+----------------------------------------+

18.04.2024
Estrazione generatrice del pronostico 10423 [ 61 - 18/04/2024]
G 0001 Numeri in gioco : 21.31.15.81.51 su BA per Ambo,Terno
V N. [21.31.15.81.51                ] [BA]     [.. 31 81 .. 21] C.  10 Terno      10433 [ 71 - 04/05/2024]
Interrotta per raggiunta durata


02.05.2024
Estrazione generatrice del pronostico 10431 [ 69 - 02/05/2024]
G 0001 Numeri in gioco : 11.38.51.08.73 su BA per Ambo,Terno
V N. [11.38.51.08.73                ] [BA]     [38 11 08 .. ..] C.   1 Terno      10432 [ 70 - 03/05/2024]
Interrotta per raggiunta durata


09.05.2024
Estrazione generatrice del pronostico 10435 [ 73 - 09/05/2024]
G 0001 Numeri in gioco : 63.12.46.35.48 su BA per Ambo,Terno
V N. [63.12.46.35.48                ] [BA]     [63 35 .. 12 ..] C.   5 Terno      10440 [ 78 - 17/05/2024]
Interrotta per raggiunta durata


16.05.2024
Estrazione generatrice del pronostico 10439 [ 77 - 16/05/2024]
G 0001 Numeri in gioco : 35.61.63.89.67 su BA per Ambo,Terno
V N. [35.61.63.89.67                ] [BA]     [63 35 .. .. ..] C.   1 Ambo       10440 [ 78 - 17/05/2024]
Interrotta per raggiunta durata


23.05.2024
Estrazione generatrice del pronostico 10443 [ 81 - 23/05/2024]
G 0001 Numeri in gioco : 63.20.12.28.29 su BA per Ambo,Terno
V N. [63.20.12.28.29                ] [BA]     [12 .. 29 63 ..] C.   3 Terno      10446 [ 84 - 28/05/2024]
Interrotta per raggiunta durata


30.05.2024
Estrazione generatrice del pronostico 10447 [ 85 - 30/05/2024]
G 0001 Numeri in gioco : 50.26.21.46.39 su BA per Ambo,Terno
Interrotta per raggiunta durata


06.06.2024
Estrazione generatrice del pronostico 10451 [ 89 - 06/06/2024]
G 0001 Numeri in gioco : 28.60.36.41.12 su BA per Ambo,Terno
Interrotta per raggiunta durata


13.06.2024
Estrazione generatrice del pronostico 10455 [ 93 - 13/06/2024]
G 0001 Numeri in gioco : 13.09.65.58.57 su BA per Ambo,Terno
V N. [13.09.65.58.57                ] [BA]     [.. 58 65 .. 09] C.   2 Terno      10457 [ 95 - 15/06/2024]

In corso per altre 3 estrazioni

20.06.2024
Estrazione generatrice del pronostico 10459 [ 97 - 20/06/2024]
G 0001 Numeri in gioco : 88.23.36.79.11 su BA per Ambo,Terno
In corso per altre 7 estrazioni
+----------------------------------------+
| Prima Giocata      : 10423             |
| Ultima Giocata     : 10459             |
| Range              : 37                |
| Casi giocab perc.  : 24,324%           |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :                9  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :                6  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :          66,67 %  | | BA |     |   16|    5|     |     | | BA |     |  100|  100|     |     | | BA |    9|                       |
| Pronostici totali  :                9  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Pronostici vinc.   :                6  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Percentuale pos.   :          66,67 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
| Giocate in corso   :                2  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Giocate terminate  :                7  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Bollette giocate   :               80  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Bollette vincenti  :                6  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
| Attesa media       :                4  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Spesa              :         160,00    | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Vincita            :       2.491,00    | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Guadagno           :       2.331,00    | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :       1456,875 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :          54,00    |   
| Estratto su ruota  :               17  |                                                                                                               
| Ambo su ruota      :               16  |                                                                                                               
| Terno su ruota     :                5  |                                                                                                               
|                                        |                                                                                                               
+----------------------------------------+