Novità

Indici mensili

A

aldinobis

Super member
ciao a tutti

x Marco elle ,ho visionato la tua proposta ,e siccome due elementi b e c dell'agoritmo hanno continuato a dare esito
se ti era possibile ,volevo chiederti di cambiare la quartina in sestina oppure ottina e ricalcolarla al martedi ultimo scorso.
in pratica la pappa pronta. a buon intenditor........
buon week end a tutti.
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
aldinobis ha scritto:
ciao a tutti

x Marco elle ,ho visionato la tua proposta ,e siccome due elementi b e c dell'agoritmo hanno continuato a dare esito
se ti era possibile ,volevo chiederti di cambiare la quartina in sestina oppure ottina e ricalcolarla al martedi ultimo scorso.
in pratica la pappa pronta. a buon intenditor........
buon week end a tutti.
Clicca per espandere...
Ciao,
ho aggiornato gli algoritmi e ora si può scegliere con il Cintbox
quale giorno della settimana usare
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 60 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(90 +(Estratto(es,5,5)) - Estratto(es,4,4) + 45)
            n(2) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,2,1) + 55)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,6,3) + 20)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,3,2) + Estratto(es,9,4) + 55)
            n(2) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 36)
            n(3) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,9,2) + 37)
            n(4) = Fuori90(Estratto(es,1,5) + Estratto(es,7,5) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 14)
            n(2) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,1) + 87)
            n(3) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,10,5) + 85)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,4,5) + Estratto(es,5,5) + 19)
            n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,9,5) + 29)
            n(3) = Fuori90(Estratto(es,1,2) + Estratto(es,6,4) + 43)
            n(4) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 9)
            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
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Ci tengo a ringraziare alcuni Guru del VB script Joe,Mike58,Salvo50,Einplein
e scusate se,,,non mensiono altri per dimenticanza ma....in questo settore
sono encomiabiali e riescono a trovare sempre il modo di trasformare in scrittura
un evento,Io,sono un RE nel rubare e fare il copia-incolla e ne sono grato....
grazie ancora🙏
 
BaffoBlù

BaffoBlù

Advanced Member >PLATINUM<
Marco-elle ha scritto:
Ci tengo a ringraziare alcuni Guru del VB script Joe,Mike58,Salvo50,Einplein
e scusate se,,,non mensiono altri per dimenticanza ma....in questo settore
sono encomiabiali e riescono a trovare sempre il modo di trasformare in scrittura
un evento,Io,sono un RE nel rubare e fare il copia-incolla e ne sono grato....
grazie ancora🙏
Clicca per espandere...

hi hi hi, allora siamo in due a essere RE del copia e incolla...:ROFLMAO::ROFLMAO::ROFLMAO:

ti sei scordato del Re dei Re.......LuigiB:love:
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
BaffoBlù ha scritto:
Ok.....Re gemello di cartone...del copia e incolla...:ROFLMAO::ROFLMAO::ROFLMAO:
Clicca per espandere...
Baffone....perchè non apri un Thread dove inserire previsioni nella tua sezione?
Previsioni di varie entità...Empiriche,Statistiche,Algoritmiche e....chi più ne ha più
ne metta.La sezione PREVISIONI mi è diventata scomoda per vari motivi
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Marco-elle ha scritto:
Ciao,
ho aggiornato gli algoritmi e ora si può scegliere con il Cintbox
quale giorno della settimana usare
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 60 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(90 +(Estratto(es,5,5)) - Estratto(es,4,4) + 45)
            n(2) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,2,1) + 55)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,6,3) + 20)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,3,2) + Estratto(es,9,4) + 55)
            n(2) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 36)
            n(3) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,9,2) + 37)
            n(4) = Fuori90(Estratto(es,1,5) + Estratto(es,7,5) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 14)
            n(2) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,1) + 87)
            n(3) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,10,5) + 85)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,4,5) + Estratto(es,5,5) + 19)
            n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,9,5) + 29)
            n(3) = Fuori90(Estratto(es,1,2) + Estratto(es,6,4) + 43)
            n(4) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 9)
            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
Clicca per espandere...
Con l'ultimo aggiornamento,la previsione ricavata giovedi paga l'ambo
in quartina 60-74 al 2° colpo ovviamente è una frequenza temporanea ma......carpediem!
PS:
click the number two on the cintbox
Codice: 
22.02.2024
Estrazione generatrice del pronostico 10392 [ 30 - 22/02/2024]
G 0001 Numeri in gioco : 04.76.18.44 su BA per Ambo
V N. [04.76.18.44                   ] [BA]     [76 04 .. .. ..] C.   2 Ambo       10394 [ 32 - 24/02/2024]
Interrotta per raggiunta durata


29.02.2024
Estrazione generatrice del pronostico 10396 [ 34 - 29/02/2024]
G 0001 Numeri in gioco : 39.70.87.20 su BA per Ambo
V N. [39.70.87.20                   ] [BA]     [.. .. 87 39 ..] C.  10 Ambo       10406 [ 44 - 16/03/2024]
Interrotta per raggiunta durata


07.03.2024
Estrazione generatrice del pronostico 10400 [ 38 - 07/03/2024]
G 0001 Numeri in gioco : 86.32.84.23 su BA per Ambo
Interrotta per raggiunta durata


14.03.2024
Estrazione generatrice del pronostico 10404 [ 42 - 14/03/2024]
G 0001 Numeri in gioco : 88.87.89.40 su BA per Ambo
V N. [88.87.89.40                   ] [BA]     [.. .. .. 89 87] C.   1 Ambo       10405 [ 43 - 15/03/2024]
Interrotta per raggiunta durata


21.03.2024
Estrazione generatrice del pronostico 10408 [ 46 - 21/03/2024]
G 0001 Numeri in gioco : 72.49.30.47 su BA per Ambo
V N. [72.49.30.47                   ] [BA]     [.. .. 30 72 ..] C.   9 Ambo       10417 [ 55 - 06/04/2024]
Interrotta per raggiunta durata


28.03.2024
Estrazione generatrice del pronostico 10411 [ 49 - 28/03/2024]
G 0001 Numeri in gioco : 66.54.80.82 su BA per Ambo
V N. [66.54.80.82                   ] [BA]     [.. .. 82 .. 66] C.   3 Ambo       10414 [ 52 - 02/04/2024]
V N. [66.54.80.82                   ] [BA]     [.. .. 82 54 ..] C.  10 Ambo       10421 [ 59 - 13/04/2024]
Interrotta per raggiunta durata


04.04.2024
Estrazione generatrice del pronostico 10415 [ 53 - 04/04/2024]
G 0001 Numeri in gioco : 73.71.28.39 su BA per Ambo
V N. [73.71.28.39                   ] [BA]     [39 .. .. .. 73] C.   9 Ambo       10424 [ 62 - 19/04/2024]
Interrotta per raggiunta durata


11.04.2024
Estrazione generatrice del pronostico 10419 [ 57 - 11/04/2024]
G 0001 Numeri in gioco : 74.34.33.57 su BA per Ambo
V N. [74.34.33.57                   ] [BA]     [.. 74 34 .. ..] C.   9 Ambo       10428 [ 66 - 27/04/2024]
Interrotta per raggiunta durata


18.04.2024
Estrazione generatrice del pronostico 10423 [ 61 - 18/04/2024]
G 0001 Numeri in gioco : 82.21.31.01 su BA per Ambo
V N. [82.21.31.01                   ] [BA]     [.. 31 .. .. 21] C.  10 Ambo       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 : 34.50.90.53 su BA per Ambo
V N. [34.50.90.53                   ] [BA]     [34 50 .. .. ..] C.   7 Ambo       10438 [ 76 - 14/05/2024]
Interrotta per raggiunta durata


09.05.2024
Estrazione generatrice del pronostico 10435 [ 73 - 09/05/2024]
G 0001 Numeri in gioco : 65.08.50.07 su BA per Ambo
V N. [65.08.50.07                   ] [BA]     [.. 50 65 .. ..] C.   3 Ambo       10438 [ 76 - 14/05/2024]
Interrotta per raggiunta durata


16.05.2024
Estrazione generatrice del pronostico 10439 [ 77 - 16/05/2024]
G 0001 Numeri in gioco : 05.84.60.72 su BA per Ambo
V N. [05.84.60.72                   ] [BA]     [84 05 .. .. ..] C.   5 Ambo       10444 [ 82 - 24/05/2024]
Interrotta per raggiunta durata


23.05.2024
Estrazione generatrice del pronostico 10443 [ 81 - 23/05/2024]
G 0001 Numeri in gioco : 84.05.24.52 su BA per Ambo
V N. [84.05.24.52                   ] [BA]     [84 05 .. .. ..] C.   1 Ambo       10444 [ 82 - 24/05/2024]

In corso per altre 4 estrazioni

30.05.2024
Estrazione generatrice del pronostico 10447 [ 85 - 30/05/2024]
G 0001 Numeri in gioco : 60.16.74.18 su BA per Ambo
V N. [60.16.74.18                   ] [BA]     [.. 60 74 .. ..] C.   2 Ambo       10449 [ 87 - 01/06/2024]

In corso per altre 8 estrazioni
+----------------------------------------+
| Prima Giocata      : 10392             |
| Ultima Giocata     : 10447             |
| Range              : 56                |
| Casi giocab perc.  : 25%               |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
|               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati     :               14  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
| Casi vincenti      :               13  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos.   :          92,86 %  | | BA |     |   14|     |     |     | | BA |     |  100|     |     |     | | BA |   14|                       |
| Pronostici totali  :               14  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
| Pronostici vinc.   :               13  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
| Percentuale pos.   :          92,86 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
| Giocate in corso   :                2  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
| Giocate terminate  :               12  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
| Bollette giocate   :              128  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
| Bollette vincenti  :               14  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
| Attesa media       :                5  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
| Spesa              :         128,00    | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
| Vincita            :         547,46    | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
| Guadagno           :         419,46    | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       |
| Perc. Rendimento   :          327,7 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione  :          20,00    | 
| Estratto su ruota  :               28  |                                                                                                             
| Ambo su ruota      :               14  |                                                                                                             
|                                        |                                                                                                             
+----------------------------------------+
 
Ultima modifica:
A

aldinobis

Super member
grazie Marco -elle

aspetto l'estrazione di martedi prossimo per vedere che quartina esce fuori

buona domenica a tutti
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
aldinobis ha scritto:
grazie Marco -elle

aspetto l'estrazione di martedi prossimo per vedere che quartina esce fuori

buona domenica a tutti
Clicca per espandere...
Questo è un aggiornamento x ambata e 2 abbinamenti
sempre con la scelta del giorno estrazionale
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(1),n1(2),n2(2)
   Dim x
   posta(1) = 1
   poste(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",7))
   For Es = EstrazioneFin - 41 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 1
            n(x) = 0
         Next
         For x = 1 To 2
            n1(x) = 0
         Next
         For x = 1 To 2
            n2(x) = 0
         Next
         Scrivi
         Scrivi DataEstrazione(Es),1
         co = 0
         ok = 0
         If(Martedi(Es)And cp = 1)Then
            n(1) = Fuori90(Estratto(es,3,3) + Estratto(es,12,2) + 34)
            n1(1) = Fuori90(Estratto(es,3,3) + Estratto(es,12,2) + 34)
            n1(2) = Fuori90(Estratto(es,2,2) * Estratto(es,4,4) + 68)
            n2(1) = Fuori90(Estratto(es,3,3) + Estratto(es,12,2) + 34)
            n2(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,9,2) + 7)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,7,2) + Estratto(es,10,2) + 89)
            n1(1) = Fuori90(Estratto(es,7,2) + Estratto(es,10,2) + 89)
            n1(2) = Fuori90(Estratto(es,5,5) + Estratto(es,6,1) + 76)
            n2(1) = Fuori90(Estratto(es,7,2) + Estratto(es,10,2) + 89)
            n2(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,1,5) + 52)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,9,3) + Estratto(es,10,5) + 6)
            n1(1) = Fuori90(Estratto(es,9,3) + Estratto(es,10,5) + 6)
            n1(2) = Fuori90(Estratto(es,2,4) + Estratto(es,9,4) + 15)
            n2(1) = Fuori90(Estratto(es,9,3) + Estratto(es,10,5) + 6)
            n2(2) = Fuori90(Estratto(es,2,3) + Estratto(es,6,2) + 54)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,7,3) * Estratto(es,10,5) + 82)
            n1(1) = Fuori90(Estratto(es,7,3) * Estratto(es,10,5) + 82)
            n1(2) = Fuori90(Estratto(es,4,1) + Estratto(es,8,4) + 88)
            n2(1) = Fuori90(Estratto(es,7,3) * Estratto(es,10,5) + 82)
            n2(2) = Fuori90(Estratto(es,2,3) + Estratto(es,12,2) + 21)
            ok = 1
         End If
         ruote(1) = 1
         If co = co + 1 Then
         End If
         ImpostaGiocata 1,n,ruote,posta,k
         ImpostaGiocata 2,n1,ruote,poste,k
         ImpostaGiocata 3,n2,ruote,poste,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
 
Alien.

Alien.

Advanced Premium Member
Marco-elle ha scritto:
Ciao,
ho aggiornato gli algoritmi e ora si può scegliere con il Cintbox
quale giorno della settimana usare
Codice: 
Sub Main()
   Dim posta(5),poste(5),postee(5),posteee(5)
   Dim ruota(5),ruote(5)
   Dim n(6)
   Dim x
   posta(2) = 1
   cp = CInt(InputBox(" Scrivi 1 Martedi 2 Giovedi 3 Venerdi 4 Sabato"," ",1))
   k = CInt(InputBox(" Colpi di Gioco"," ",10))
   For Es = EstrazioneFin - 60 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(90 +(Estratto(es,5,5)) - Estratto(es,4,4) + 45)
            n(2) = Fuori90(90 +(Estratto(es,1,3)) - Estratto(es,2,1) + 55)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,6,3) + 20)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)Then
            n(1) = Fuori90(Estratto(es,3,2) + Estratto(es,9,4) + 55)
            n(2) = Fuori90(90 +(Estratto(es,7,1)) - Estratto(es,2,2) + 36)
            n(3) = Fuori90(90 +(Estratto(es,7,3)) - Estratto(es,9,2) + 37)
            n(4) = Fuori90(Estratto(es,1,5) + Estratto(es,7,5) + 1)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)Then
            n(1) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 14)
            n(2) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,2,1) + 87)
            n(3) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,10,5) + 85)
            n(4) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)Then
            n(1) = Fuori90(Estratto(es,4,5) + Estratto(es,5,5) + 19)
            n(2) = Fuori90(Estratto(es,1,5) + Estratto(es,9,5) + 29)
            n(3) = Fuori90(Estratto(es,1,2) + Estratto(es,6,4) + 43)
            n(4) = Fuori90(Estratto(es,4,1) + Estratto(es,12,4) + 9)
            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
Clicca per espandere...
Ciao Marco trovo che lo script è fantastico puoi fare una variazione, ID mese metti in gioco solo il primo martedì ,giovedì ecc.del mese (cioè quando vi è il martedì ovvio il martedì non esce raramente il primo del mese, non importa quando esce esce non so se mi sono spiegato bene)(il primo del mese può essere il sabato allora aspetti martedì e si gioca.)🤔😛😅
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Alziamo l'asticella anche se....l'impresa è ardua ma....mai dire mai!
Codice: 
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
 
joe

joe

Advanced Member >PLATINUM PLUS<
Buona sera a tutte/i.

Con la necessaria premessa, che non intendo polemizzare con nessuno,

dal momento che quelle funzioni scritte da me, servivano per tutt'altro ...

sono contento che le troviate utili per complicarvi la vita.

In pratica quando non era possibile stabilire quale fosse l'ultima estrazione del mese ...

... (anche se non me ne importava) servivano a questo.

Poi ... discutendone con Luigi ... sono entrate a far parte delle istruzioni di Spaziometria.

Nello specifico di IsUltimaDelMese.

Dunque "in linea" con il titolo del post ... il mese ... è il mese.

Il giorno della settimana ... sarebbe fuori-tema ... e un pronostico ci azzecca meno di nulla!

Come detto non mi formalizzo perchè a me interessano altre cose della programmazione.

Dunque ho messo mano alla ricerca della soluzione dello scompiglio ... quello del venerdì ...

e per il quale quelle funzioni, non funzionanti, erano divenute obsolete.

Pertanto e per ora, se non ho sbagliato, nel tentativo di soluzione, l'ultima dell' anno dovrebbe essere

l' Estrazione 10571 di Martedì 31/12/2024.

Ed è questo il pronostico che intendo controllare ... quando sarà.

Questo era lo scopo, originario delle funzioni che ho regalato, non so più a chi,

perché voleva sapere qualcosa in più sui giorni delle estrazioni.

Tutto qui.

Anzi no ... attenti al Banco ... ha spigoli duri.

:)
 
Ultima modifica:
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
joe ha scritto:
Buona sera a tutte/i.

Con la necessaria premessa, che non intendo polemizzare con nessuno,

dal momento che quelle funzioni scritte da me, servivano per tutt'altro ...

sono contento che le troviate utili per complicarvi la vita.

In pratica quando non era possibile stabilire quale fosse l'ultima estrazione del mese ...

... (anche se non me ne importava) servivano a questo.

Poi ... discutendone con Luigi ... sono entrate a far parte delle istruzioni di Spaziometria.

Nello specifico di IsUltimaDelMese.

Dunque "in linea" con il titolo del post ... il mese ... è il mese.

Il giorno della settimana ... sarebbe fuori-tema ... e un pronostico ci azzecca meno di nulla!

Come detto non mi formalizzo perchè a me interessano altre cose della programmazione.

Dunque ho messo mano alla ricerca della soluzione dello scompiglio ... quello del venerdì ...

e per il quale quelle funzioni, non funzionanti, erano divenute obsolete.

Pertanto e per ora, se non ho sbagliato, nel tentativo di soluzione, l'ultima dell' anno dovrebbe essere

l' Estrazione 10571 di Martedì 31/12/2024.

Ed è questo il pronostico che intendo controllare ... quando sarà.

Questo era lo scopo, originario delle funzioni che ho regalato, non so più a chi,

perché voleva sapere qualcosa in più sui giorni delle estrazioni.

Tutto qui.

Anzi no ... attenti al Banco ha spigoli duri.

:)
Clicca per espandere...
Vabbè dai.....però è divertente usare un tuo lavoro per altri scopi e lo sappiamo in molti
che il Banco è spigoloso
:)
 
Alien.

Alien.

Advanced Premium Member
Marco-elle ha scritto:
Alziamo l'asticella anche se....l'impresa è ardua ma....mai dire mai!
Codice: 
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
Clicca per espandere...
Fantastico, spero di baciare la "BELLA ADDORMENTATA DEL BOSCO"
a368b2924b185d4b08b39cdb570c3f.jpg
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Alien. ha scritto:
Ciao Marco trovo che lo script è fantastico puoi fare una variazione, ID mese metti in gioco solo il primo martedì ,giovedì ecc.del mese (cioè quando vi è il martedì ovvio il martedì non esce raramente il primo del mese, non importa quando esce esce non so se mi sono spiegato bene)(il primo del mese può essere il sabato allora aspetti martedì e si gioca.)🤔😛😅
Clicca per espandere...
Si può fare
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
Alien. ha scritto:
Ciao Marco trovo che lo script è fantastico puoi fare una variazione, ID mese metti in gioco solo il primo martedì ,giovedì ecc.del mese (cioè quando vi è il martedì ovvio il martedì non esce raramente il primo del mese, non importa quando esce esce non so se mi sono spiegato bene)(il primo del mese può essere il sabato allora aspetti martedì e si gioca.)🤔😛😅
Clicca per espandere...
Lo script andrebbe modificato per questo tipo di ricerca,però fa quello che vuoi sapere.
Il venerdi non condiderarlo perchè bisognerebbe allungare il range di esamina e diventa
lento e trova parecchi casi negativi a seconda della esamina e ho trovato una via di messo.
Se vuoi,con l'estrazione di ieri,c'è una previsione in corso da tenere sott'occhio
Codice: 
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 FunctionSub 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 - 670 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)And IndiceMensile(es) = 1 Then
            n(1) = Fuori90(Estratto(es,9,4) + Estratto(es,10,1) + 2)
            n(2) = Fuori90(90 +(Estratto(es,8,2)) - Estratto(es,10,5) + 3)
            n(3) = Fuori90(90 +(Estratto(es,8,5)) - Estratto(es,7,5) + 12)
            n(4) = Fuori90(Estratto(es,10,2) + Estratto(es,10,5) + 33)
            n(5) = Fuori90(90 +(Estratto(es,10,4)) - Estratto(es,4,5) + 6)
            ok = 1
         End If
         If(Giovedi(Es)And cp = 2)And IndiceMensile(es) = 1Then
            n(1) = Fuori90(Estratto(es,2,1) + Estratto(es,9,3) + 3)
            n(2) = Fuori90(Estratto(es,4,1) + Estratto(es,10,4) + 2)
            n(3) = Fuori90(Estratto(es,5,4) + Estratto(es,10,4) + 21)
            n(4) = Fuori90(Estratto(es,1,5) * Estratto(es,5,1) + 26)
            n(5) = Fuori90(Estratto(es,8,4) + Estratto(es,10,3) + 13)
            ok = 1
         End If
         If(Venerdi(Es)And cp = 3)And IndiceMensile(es) = 1 Then
            n(1) = Fuori90(Estratto(es,3,5) * Estratto(es,6,2) + 9)
            n(2) = Fuori90(90 +(Estratto(es,10,5)) - Estratto(es,5,2) + 15)
            n(3) = Fuori90(Estratto(es,5,5) * Estratto(es,10,3) + 9)
            n(4) = Fuori90(Estratto(es,1,3) * Estratto(es,12,1) + 58)
            n(5) = Fuori90(90 +(Estratto(es,9,4)) - Estratto(es,1,4) + 49)
            ok = 1
         End If
         If(Sabato(Es)And cp = 4)And IndiceMensile(es) = 1 Then
            n(1) = Fuori90(Estratto(es,10,5) + Estratto(es,12,1) + 2)
            n(2) = Fuori90(Estratto(es,7,4) + Estratto(es,12,5) + 29)
            n(3) = Fuori90(Estratto(es,1,3) + Estratto(es,9,1) + 63)
            n(4) = Fuori90(Estratto(es,7,1) * Estratto(es,12,1) + 10)
            n(5) = Fuori90(90 +(Estratto(es,2,4)) - Estratto(es,2,5) + 18)
            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
 
Alien.

Alien.

Advanced Premium Member
Ciao MARCO STRANO MI DA ERRORE LINEA 87 COLONNA 4---- End FunctionSub Main()

MA su chrome ok su OPERA MI DA ERRORE.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 25 giugno 2024
    Bari
    67
    26
    66
    47
    51
    Cagliari
    60
    62
    78
    22
    30
    Firenze
    23
    47
    55
    60
    08
    Genova
    72
    57
    90
    74
    13
    Milano
    50
    65
    21
    76
    22
    Napoli
    13
    14
    36
    45
    67
    Palermo
    63
    30
    13
    84
    53
    Roma
    22
    16
    70
    12
    68
    Torino
    82
    03
    73
    22
    21
    Venezia
    77
    26
    89
    46
    75
    Nazionale
    40
    60
    58
    09
    27
    Estrazione Simbolotto
    Napoli
    24
    27
    43
    40
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto