Per chi piace verificare le coperture mensili dei singoli estratti

[lotto_tom75]

Salvo errori...

Questo scriptino forse potrebbe tornarvi utile...

Verificare comunque sempre...

'Option Explicit
Sub Main
   'by lottotom75 scriptino easy per verifica copertura mensile...
   tuttie90osolouno = InputBox("vuoi verificare la copertura mensile di tutti i 90 (t) o solo uno alla volta (u) ?",,"t")
   If tuttie90osolouno = "u" Then
      estrattovolutook = CInt(InputBox("estratto da verificare",,1))
      numA = estrattovolutook
      numB = estrattovolutook
   Else
      numA = 1
      numB = 90
   End If
   quanteultime = CInt(InputBox("quanti ultimi anni analizzare",,3))
   mesevoluto = CInt(InputBox("mese da analizzare",,2))
   annidaverificare = quanteultime*144
   punti = 0
   For estrattovoluto = numA To numB
      For estrazione = EstrazioneFin - annidaverificare To EstrazioneFin
         For ruota = 1 To 1
            If Mese(estrazione) = mesevoluto Then
               ' Scrivi
               ' Scrivi GetInfoEstrazione(estrazione)
               ' Scrivi
               For p = 1 To 5
                  b = Estratto(estrazione,ruota,p)
                  If Estrattovoluto = b Then
                     punti = punti + 1
                     puntitotali = puntitotali + punti
                     'punti=0
                  End If
                  punti = 0
               Next
            End If
            ' Scrivi
            ' Scrivi "punti totali " & punti
         Next
         '   Scrivi
         '   Scrivi "punti totali " & punti
      Next
      'Next
      Scrivi
      Scrivi
      Scrivi "punti totali " & puntitotali
      Scrivi
      Scrivi
      Scrivi "Risultato verifica presenze nel mese di " & MeseNome(mesevoluto) & " negli ultimi " & quanteultime & " anni "
      Scrivi
      If puntitotali >= quanteultime Then
         Scrivi "<font color=green>ottimo! il numero " & estrattovoluto & " in passato è uscito nel mese analizzato di " & MeseNome(mesevoluto) & " almeno una volta nel passato!</font>"
      Else
         Scrivi "<font color=red>spiacente... il numero " & estrattovoluto & " in passato nel mese analizzato di " & MeseNome(mesevoluto) & " non è sempre uscito almeno una volta nel passato!</font>"
      End If
      puntitotali = 0
      Next' for estratto voluto
      Scrivi
      Scrivi "Tt " & TempoTrascorso
End Sub

 

[lotto_tom75]

Altra versione... per verificare "copertura" x E delle formazioni volute in un modo + visivo...

Sub Main
'by lottotom75 verifica copertura mensile x E by formazioni desiderate
   Dim Nu(2),aN(2),Ru(1),Posta(2)
   Posta(1) = 1
   quantianni = CInt(InputBox("quanti anni verificare",,3))
   Ini = EstrazioneFin -(144*quantianni)
   fin = EstrazioneFin
   z = ScegliRuota
   ScegliNumeri(Nu)
   m = CInt(InputBox("Scegli mese da verificare ",,2))
   For es = Ini To fin
      If IndiceMensile(es) = 1 And Mese(es) = m Then
         k = k + 1
         Ru(1) = z
         ImpostaGiocata 1,Nu,Ru,Posta,13,2
         co = co + 1
         Scrivi "Ricerca per gli anni desiderati " & " sulla ruota di " & SiglaRuota(z) & " il Numero " & a & " ............. MESE ............." & MeseNome(m) '& co,1,,,1,3
         Scrivi
         Gioca es,,,1
      End If
   Next
   Scrivi
   ScriviResoconto
End Sub

Es. pratico...

la terzina 2.30.43 sembra non aver mai mancato una presenza almeno xE negli ultimi 9 anni sulla ruota di Lino Banfi... nel mese di febbraio

Estrazione generatrice del pronostico 10037 [ 14 - 01/02/2022]
G 0001 Numeri in gioco : 02.30.43 su BA per Estratto
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 1 10038 [ 15 - 03/02/2022] [54.70.50.78.48]
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 2 10039 [ 16 - 05/02/2022] [25.58.57.06.23]
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 3 10040 [ 17 - 08/02/2022] [19.69.37.60.04]
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 4 10041 [ 18 - 10/02/2022] [55.38.05.39.37]

In corso per altre 9 estrazioni


Nessuna Certezza Solo Poca Probabilità

 

[fida]

Altra versione... per verificare "copertura" x E delle formazioni volute in un modo + visivo...

Sub Main
'by lottotom75 verifica copertura mensile x E by formazioni desiderate
   Dim Nu(2),aN(2),Ru(1),Posta(2)
   Posta(1) = 1
   quantianni = CInt(InputBox("quanti anni verificare",,3))
   Ini = EstrazioneFin -(144*quantianni)
   fin = EstrazioneFin
   z = ScegliRuota
   ScegliNumeri(Nu)
   m = CInt(InputBox("Scegli mese da verificare ",,2))
   For es = Ini To fin
      If IndiceMensile(es) = 1 And Mese(es) = m Then
         k = k + 1
         Ru(1) = z
         ImpostaGiocata 1,Nu,Ru,Posta,13,2
         co = co + 1
         Scrivi "Ricerca per gli anni desiderati " & " sulla ruota di " & SiglaRuota(z) & " il Numero " & a & " ............. MESE ............." & MeseNome(m) '& co,1,,,1,3
         Scrivi
         Gioca es,,,1
      End If
   Next
   Scrivi
   ScriviResoconto
End Sub

Es. pratico...

la terzina 2.30.43 sembra non aver mai mancato una presenza almeno xE negli ultimi 9 anni sulla ruota di Lino Banfi... nel mese di febbraio

Estrazione generatrice del pronostico 10037 [ 14 - 01/02/2022]
G 0001 Numeri in gioco : 02.30.43 su BA per Estratto
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 1 10038 [ 15 - 03/02/2022] [54.70.50.78.48]
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 2 10039 [ 16 - 05/02/2022] [25.58.57.06.23]
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 3 10040 [ 17 - 08/02/2022] [19.69.37.60.04]
N. [02.30.43 ] [BA] [.. .. .. .. ..] C. 4 10041 [ 18 - 10/02/2022] [55.38.05.39.37]

In corso per altre 9 estrazioni


Nessuna Certezza Solo Poca Probabilità

Ciao Lotto tom il 9 90 è sempre valido su na la?

 

[lotto_tom75]

Ciao Lotto tom il 9 90 è sempre valido su na la?

Si su NAPA per altri 5 shots ma è meglio se le domande si mettono sotto i relativi post altrimenti si genera solo confusione... ciao

 

[fida]

Si su NAPA per altri 5 shots ma è meglio se le domande si mettono sotto i relativi post altrimenti si genera solo confusione... ciao

Grazie