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 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto