Novità

10elotto

4813.png

[NA] [.. 59 .. .. ..] C. 1 Estratto 02054 [09/12/2022] [40.59.52.45.06]

Ciao toon ho questa combinazione di gioco con il 59
vi scrivo una mia previsione nello spoiler

MI PA 59 03 E a tutte per recupero

toon vuoi vedere come a fatto il 59 06 a NA

24 . 76 _____10_____ 2 . 4 _____
24 . 86 _____20_____ 2 . 5 _____
24 . 06 _____30_____ 2 . 6 _____
24 . 16 _____40_____ 2 . 7 _____
24 . 26 _____50_____ 2 . 8 _____
24 . 36 _____60_____ 2 . 9 _____
24 . 46 _____70_____ 2 . 1 _____
24 . 56 _____80_____ 2 . 2 _____
24 . 66 _____90_____ 2 . 3 _____

59.76 . 59.16 . 59.46 .
59.86 . 59.26 . 59.56 .
59.06 . 59.36 . 59.66 .

[NA][.. 59 .. .. 06] C.1 Ambo 02054 [09/12/2022] [40.59.52.45.06]
 
Ultima modifica:
Zetrix ha scritto:
buon sabato a tutti

volevo chiedere a blacklotto se puo risolvere questo script
vorrei evidenziare i numeri in tabella con ScegliNumeri
ma mi da errore lo script..


Codice: 
Option Explicit
Sub Main
   Dim anum(5),Ini,fin,es,r
   '
   Ini = EstrazioneFin - 0
   fin = EstrazioneFin
   '
   For es = Ini To fin
      For r = 1 To 12
         '
         anum(1) = Estratto(es,r,1)
         anum(2) = Estratto(es,r,2)
         anum(3) = Estratto(es,r,3)
         anum(4) = Estratto(es,r,4)
         anum(5) = Estratto(es,r,5)
         '
         Call ScegliNumeri(anum)
         '
         ReDim MatriceCaselleDaEvid(5,1)
         '-----------------------------------------------
         MatriceCaselleDaEvid(1,0) = r
         MatriceCaselleDaEvid(1,1) = 1
         '------------------------------ ----------------
         MatriceCaselleDaEvid(2,0) = r
         MatriceCaselleDaEvid(2,1) = 2
         '-----------------------------------------------
         MatriceCaselleDaEvid(3,0) = r
         MatriceCaselleDaEvid(3,1) = 3
         '-----------------------------------------------
         MatriceCaselleDaEvid(4,0) = r
         MatriceCaselleDaEvid(4,1) = 4
         '-----------------------------------------------
         MatriceCaselleDaEvid(5,0) = r
         MatriceCaselleDaEvid(5,1) = 5
         '-----------------------------------------------
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
         '
         'Call DisegnaCerchioCiclometrico(anum,True,True,True,,,True)
         '
         Scrivi StringaNumeri(anum)
         '
      Next
   Next
End Sub
Clicca per espandere...
Ciao Zetrix ma come si usa immetto un numero mi richiede sempre altri numeri,grazie.
 
Ciao Toon,Alien,

Alien ho fatto questo script però con scegli numeri non li disegna nelle estr
ma solo nel cerchio ciclometrico..


Codice: 
Sub Main
   Dim qt,r,rs,es
   ReDim anum(0)
   qt = ScegliNumeri(anum)
   Call OrdinaMatrice(anum,1)
   qt = UBound(anum)
   '
   r = ScegliRuota
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      ReDim MatriceCaselleDaEvid(5,1)
      '--------------------------------------------------
      MatriceCaselleDaEvid(1,0) = r
      MatriceCaselleDaEvid(1,1) = 1
      '------------------------------ --------------------
      MatriceCaselleDaEvid(2,0) = r
      MatriceCaselleDaEvid(2,1) = 2
      '--------------------------------------------------
      MatriceCaselleDaEvid(3,0) = r
      MatriceCaselleDaEvid(3,1) = 3
      '--------------------------------------------------
      MatriceCaselleDaEvid(4,0) = r
      MatriceCaselleDaEvid(4,1) = 4
      '--------------------------------------------------
      MatriceCaselleDaEvid(5,0) = r
      MatriceCaselleDaEvid(5,1) = 5
      '--------------------------------------------------
      Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
      'Call DisegnaCerchioCiclometrico(anum,True,True,True,,,True)
      'Call DisegnaCerchioCiclometrico(anum,True,,,,True,True)
      '
      Scrivi StringaNumeri(anum)
      '
   Next
End Sub
 
Codice: 
Option Explicit
Sub Main
   Dim sAlfabeto
   Dim sParola
   Dim nSomma
   Dim k,x
   Dim nLettere
   Dim id
   sAlfabeto = "abcdefghijklmnopqrstuvwxyz"
   sParola = InputBox("Inserire parola",,"test")
   nLettere = Len(sParola)
   ReDim aNumeri(nLettere)
   For k = 1 To nLettere
      id = InStr(sAlfabeto,LCase(Mid(sParola,k,1)))
      aNumeri(k) = id
      Call Scrivi(Mid(sParola,k,1) & " ------ " &(id) & "",1)
      nSomma = nSomma + id
      x = Fuori90(nSomma)
   Next
   Scrivi
   Call Scrivi("numero" & Space(3) & x & "",1)
End Sub

Alien questo script potrebbe servire per giocare i numeri al milion day
o al super enalotto..
Codice: 
A ------ 1

l ------ 12

i ------ 9

e ------ 5

n ------ 14

numero   41
 
Zetrix ha scritto:
Ciao Toon,Alien,

Alien ho fatto questo script però con scegli numeri non li disegna nelle estr
ma solo nel cerchio ciclometrico..


Codice: 
Sub Main
   Dim qt,r,rs,es
   ReDim anum(0)
   qt = ScegliNumeri(anum)
   Call OrdinaMatrice(anum,1)
   qt = UBound(anum)
   '
   r = ScegliRuota
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      '
      ReDim MatriceCaselleDaEvid(5,1)
      '--------------------------------------------------
      MatriceCaselleDaEvid(1,0) = r
      MatriceCaselleDaEvid(1,1) = 1
      '------------------------------ --------------------
      MatriceCaselleDaEvid(2,0) = r
      MatriceCaselleDaEvid(2,1) = 2
      '--------------------------------------------------
      MatriceCaselleDaEvid(3,0) = r
      MatriceCaselleDaEvid(3,1) = 3
      '--------------------------------------------------
      MatriceCaselleDaEvid(4,0) = r
      MatriceCaselleDaEvid(4,1) = 4
      '--------------------------------------------------
      MatriceCaselleDaEvid(5,0) = r
      MatriceCaselleDaEvid(5,1) = 5
      '--------------------------------------------------
      Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
      'Call DisegnaCerchioCiclometrico(anum,True,True,True,,,True)
      'Call DisegnaCerchioCiclometrico(anum,True,,,,True,True)
      '
      Scrivi StringaNumeri(anum)
      '
   Next
End Sub
Clicca per espandere...
Si ma qui sei un po "birichino" non mi da previsioni è .....:unsure:😂😂
 
Così ti puoi giocare un Ambo Secco ... personalizzato.

Codice: 
Option Explicit
Sub Main
   Dim sAlfabeto
   Dim sParola
   Dim nSomma
   Dim k,x
   Dim nLettere
   Dim id
  ' sAlfabeto = "abcdefghijklmnopqrstuvwxyz"
   sParola = InputBox("Inserire parola",,"Alien")
   nLettere = Len(sParola)
   ReDim aNumeri(nLettere)
   For k = 1 To nLettere
      id = Asc   (Mid (sParola, k,1))
      aNumeri(k) = id
      Call Scrivi(Mid(sParola,k,1) & " ------ " &(id) & "",1)
      nSomma = nSomma + id
      x = Fuori90(nSomma)
   Next
   Scrivi
   Call Scrivi("numero" & Space(3) & x & "",1)
End Sub

Se hai costanza ... prima o poi esce.

:)
 
joe ha scritto:
Così ti puoi giocare un Ambo Secco ... personalizzato.

Codice: 
Option Explicit
Sub Main
   Dim sAlfabeto
   Dim sParola
   Dim nSomma
   Dim k,x
   Dim nLettere
   Dim id
  ' sAlfabeto = "abcdefghijklmnopqrstuvwxyz"
   sParola = InputBox("Inserire parola",,"Alien")
   nLettere = Len(sParola)
   ReDim aNumeri(nLettere)
   For k = 1 To nLettere
      id = Asc   (Mid (sParola, k,1))
      aNumeri(k) = id
      Call Scrivi(Mid(sParola,k,1) & " ------ " &(id) & "",1)
      nSomma = nSomma + id
      x = Fuori90(nSomma)
   Next
   Scrivi
   Call Scrivi("numero" & Space(3) & x & "",1)
End Sub

Se hai costanza ... prima o poi esce.

:)
Clicca per espandere...
Acc................che fai mi prendi per il "girello"?Vengo lì con l'Astronave e ti distruggo :unsure:😂🤣 si questa è una smorfia napoletana.
 
ZETRIX IN QUESTO SCRIPT SI PUò AVERE UNA PREVISIONE ?

Sub Main
Dim qt,r,rs,es
ReDim anum(0)
qt = ScegliNumeri(anum)
Call OrdinaMatrice(anum,1)
qt = UBound(anum)
'
r = ScegliRuota
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'
ReDim MatriceCaselleDaEvid(5,1)
'--------------------------------------------------
MatriceCaselleDaEvid(1,0) = r
MatriceCaselleDaEvid(1,1) = 1
'------------------------------ --------------------
MatriceCaselleDaEvid(2,0) = r
MatriceCaselleDaEvid(2,1) = 2
'--------------------------------------------------
MatriceCaselleDaEvid(3,0) = r
MatriceCaselleDaEvid(3,1) = 3
'--------------------------------------------------
MatriceCaselleDaEvid(4,0) = r
MatriceCaselleDaEvid(4,1) = 4
'--------------------------------------------------
MatriceCaselleDaEvid(5,0) = r
MatriceCaselleDaEvid(5,1) = 5
'--------------------------------------------------
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'Call DisegnaCerchioCiclometrico(anum,True,True,True,,,True)
'Call DisegnaCerchioCiclometrico(anum,True,,,,True,True)
'
Scrivi StringaNumeri(anum)
'
Next
End Sub
 
Alien te vuoi gli script che danno le previsioni questi script non li posso mettere nel forum
se no copiazzano tutti..
quello script non da previsioni disegna solo i numeri in tabella..
 
toon ha scritto:
36 e 76 li vedo meglio col 59...
Clicca per espandere...

bravo toon e uscito 59 76 a FI (TT) ..

24 . 76 _____10_____ 2 . 4 _____
24 . 86 _____20_____ 2 . 5 _____
24 . 06 _____30_____ 2 . 6 _____
24 . 16 _____40_____ 2 . 7 _____
24 . 26 _____50_____ 2 . 8 _____
24 . 36 _____60_____ 2 . 9 _____
24 . 46 _____70_____ 2 . 1 _____
24 . 56 _____80_____ 2 . 2 _____
24 . 66 _____90_____ 2 . 3 _____

59.76 . 59.16 . 59.46 .
59.86 . 59.26 . 59.56 .
59.06 . 59.36 . 59.66 .

toon sai come si configura il numero 24 con questa tabella
adesso vi spiego come si configura il numero 24
24 -----si prende solo la decina 2 poi per configurare la cadenza 4 si prende la figura 4
e il numero 76 e l'unico numero con la figura 4
se osservi la tabella nella colonna 4 si configura il numero 2.4 (24) con la formattazione a 10
quindi il numero 76 configura il numero 24..
questa tabella lo scritta io serve per gli abb ma ci sono altre teorie di gioco..
che adesso non voglio scrivere qua se no copiazzano tutti..
 
Ultima modifica:
4815.png
Alien la conosci la tecnica con abc..
a+b=c
e ma questa formula la sanno fare tutti anche te..
vuoi vedere come si calcola il super ambo..

(a+b)=c ...(14+41)=55

se (a+b) e uguale a (c) allora noi calcoliamo c+b (i numeri in colonna)

55+41=96-90=6

abb 34+45=79 (diametrale)

il super ambo e 6 79

Numeri in gioco 06.79 su CA NA TT per Ambo

[NA] [79 06 .. .. ..] C.5 Ambo 02052 [03/12/2022] [79.06.22.77.25]
(SuperRAmbo)
 
Ultima modifica:
Grande Zetrix Ambo a Tutte 59 - 76 Firenze ;-)
proprio fra quelli da Te pronosticati..
 
Ultima modifica:
Zetrix ha scritto:
Codice: 
Option Explicit
Sub Main
   Dim sAlfabeto
   Dim sParola
   Dim nSomma
   Dim k,x
   Dim nLettere
   Dim id
   sAlfabeto = "abcdefghijklmnopqrstuvwxyz"
   sParola = InputBox("Inserire parola",,"test")
   nLettere = Len(sParola)
   ReDim aNumeri(nLettere)
   For k = 1 To nLettere
      id = InStr(sAlfabeto,LCase(Mid(sParola,k,1)))
      aNumeri(k) = id
      Call Scrivi(Mid(sParola,k,1) & " ------ " &(id) & "",1)
      nSomma = nSomma + id
      x = Fuori90(nSomma)
   Next
   Scrivi
   Call Scrivi("numero" & Space(3) & x & "",1)
End Sub

Alien questo script potrebbe servire per giocare i numeri al milion day
o al super enalotto..
Codice: 
A ------ 1

l ------ 12

i ------ 9

e ------ 5

n ------ 14

numero   41
Clicca per espandere...

No, Alien è un semplice sommativo con la differenza che la A maiuscola è diversa dalla a minuscola.

Che ci vuoi fare, i PC, sono dei precisini.

Dunque con il Fuori90 ed un +6 e una a minuscola ...

i risutati sono "quasi" gli stessi del giocare ... cosa si vuole.

Cioe:

a ------ 7
l ------ 18
i ------ 15
e ------ 11
n ------ 20

numero 71

Mò siamo al terno, secco personalizzato.


:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto