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
    giovedì 10 settembre 2026
    Bari
    31
    54
    14
    69
    11
    Cagliari
    52
    41
    56
    44
    34
    Firenze
    22
    13
    70
    03
    26
    Genova
    58
    84
    23
    66
    26
    Milano
    36
    61
    25
    16
    54
    Napoli
    06
    67
    19
    18
    10
    Palermo
    86
    87
    64
    11
    02
    Roma
    20
    32
    81
    01
    72
    Torino
    27
    61
    30
    88
    68
    Venezia
    24
    61
    29
    34
    07
    Nazionale
    71
    87
    37
    41
    75
    Estrazione Simbolotto
    Palermo
    22
    40
    21
    28
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto