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
    martedì 06 maggio 2025
    Bari
    06
    44
    88
    74
    39
    Cagliari
    72
    46
    55
    69
    07
    Firenze
    84
    82
    56
    39
    05
    Genova
    77
    53
    57
    42
    49
    Milano
    40
    71
    11
    02
    64
    Napoli
    12
    78
    75
    59
    38
    Palermo
    16
    47
    26
    56
    05
    Roma
    20
    19
    55
    01
    72
    Torino
    54
    83
    78
    71
    41
    Venezia
    71
    41
    55
    35
    63
    Nazionale
    46
    52
    67
    78
    59
    Estrazione Simbolotto
    Milano
    34
    21
    07
    16
    01
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto