10elotto

[Zetrix]

Option Explicit
Sub Main
   Dim arrData(10,14)
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12
   Dim es,x,k,w
   Dim Ini,fin
   Dim Ini1,fin1
   '
   x = InputBox("Quale numero vuoi controllare?",,0)
   '
   Ini = EstrazioneFin - 18
   fin = EstrazioneFin
   '
   es = EstrazioneFin
   '
   Ini1 = EstrazioneIni
   fin1 = EstrazioneFin
   '
   r1 = 1
   r2 = 2
   r3 = 3
   r4 = 4
   r5 = 5
   r6 = 6
   r7 = 7
   r8 = 8
   r9 = 9
   r10 = 10
   '---------------------------
   '
   arrData(1,1) = "" & x & Space(2) & " BA "
   arrData(2,1) = "" & x & Space(2) & " CA "
   arrData(3,1) = "" & x & Space(2) & " FI "
   arrData(4,1) = "" & x & Space(2) & " GE "
   arrData(5,1) = "" & x & Space(2) & " MI "
   arrData(6,1) = "" & x & Space(2) & " NA "
   arrData(7,1) = "" & x & Space(2) & " PA "
   arrData(8,1) = "" & x & Space(2) & " RO "
   arrData(9,1) = "" & x & Space(2) & " TO "
   arrData(10,1) = "" & x & Space(2) & " VE "
   '
   arrData(1,2) = EstrattoFrequenza(r1,x,Ini,fin)
   arrData(2,3) = EstrattoFrequenza(r2,x,Ini,fin)
   arrData(3,4) = EstrattoFrequenza(r3,x,Ini,fin)
   arrData(4,5) = EstrattoFrequenza(r4,x,Ini,fin)
   arrData(5,6) = EstrattoFrequenza(r5,x,Ini,fin)
   arrData(6,7) = EstrattoFrequenza(r6,x,Ini,fin)
   arrData(7,10) = EstrattoFrequenza(r7,x,Ini,fin)
   arrData(8,11) = EstrattoFrequenza(r8,x,Ini,fin)
   arrData(9,12) = EstrattoFrequenza(r9,x,Ini,fin)
   arrData(10,14) = EstrattoFrequenza(r10,x,Ini,fin)
   '
   For k = 1 To 1
   Next
   Call Scrivi("Grafico" & k)
   Call Grafico(arrData,2,DataEstrazione((es),1) & Space(5) & "" & x & "" & Space(5) & "ultime 18 estrazioni" & Space(5) & "frequenze" & "","titY")
   '
   Scrivi SiglaRuota(r1) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r1,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r1,x,Ini1,fin1)
   Scrivi SiglaRuota(r2) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r2,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r2,x,Ini1,fin1)
   Scrivi SiglaRuota(r3) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r3,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r3,x,Ini1,fin1)
   Scrivi SiglaRuota(r4) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r4,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r4,x,Ini1,fin1)
   Scrivi SiglaRuota(r5) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r5,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r5,x,Ini1,fin1)
   Scrivi SiglaRuota(r6) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r6,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r6,x,Ini1,fin1)
   Scrivi SiglaRuota(r7) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r7,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r7,x,Ini1,fin1)
   Scrivi SiglaRuota(r8) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r8,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r8,x,Ini1,fin1)
   Scrivi SiglaRuota(r9) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r9,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r9,x,Ini1,fin1)
   Scrivi SiglaRuota(r10) & Space(2) & Format2(x) & Space(4) & "uscite " & EstrattoFrequenza(r10,x,Ini,fin) & Space(4) & "ritardo " & EstrattoRitardo(r10,x,Ini1,fin1)
   '
End Sub

toon perche e natale vi regalo quest'altro script scritto da me..
quanti regali vi sto facendo e tutti passano di qua a copiazzare gli script..

 

[nadin]

Grazie Zetrix per i tuoi regali Natalizi. Anche se io capisco nulla di script Buon Natale ragazzi!!!!

 

[Zetrix]

buongiorno ragazzi ci aggiorniamo piu tardi per il 59 01 a tutte

grazie nadin buon Natale a tutti..stavo per chiederti ma ai spaziometria cosi puoi
vedere gli script che cosa fanno le tabelle che ai visto nel forum sono elaborati proprio
con gli script di spaziometria nessun'altro programma puo fare tutte quelle tabelle..
e io ne ho scritti piu di 200 script che disegnano quelle tabelle ma leggo che con gli script non sai quasi nulla..
forse un giorno ti spiegherò come si fa uno script non e molto difficile..
certo poi ci sono degli script piu complessi ed elaborati e quelli non li so fare neanche io..
anzi visto che siamo in diretta aggiorniamo adesso le tabelle per i numeri 59 01 cosi vediamo quale
ruote sono piu migliori da giocare per stasera..
la nazionale però lo esclusa dalla tabella non so che dite la mettiamo la nazionale nella tabella..

 

[Zetrix]

allora nadin vediamo prima la tabella con il numero 1

BA 1 uscite 2 ritardo 8
CA 1 uscite 2 ritardo 13
FI 1 uscite 2 ritardo 4
GE 1 uscite 0 ritardo 32
MI 1 uscite 0 ritardo 23
NA 1 uscite 0 ritardo 30
PA 1 uscite 0 ritardo 49
RO 1 uscite 0 ritardo 26
TO 1 uscite 0 ritardo 30
VE 1 uscite 3 ritardo 10

allora vediamo nella tabella che nelle ultime 18 estr che sarebbe il ciclo naturale di un numero estratto
su una ruota il numero 1 nessuna ruota a 1 uscita e adesso la scelta si fa piu difficile..
a vi devo dire un altra cosa questa tabella calcola soltanto le ultime 18 estr
perche secondo la legge del terzo con i 90 numeri estratti 1 terzo esce 0 uscite
1 terzo esce 1 uscite e 1 terzo esce 2 uscite e piu..
qui nella tabella vediamo che il numero 1 nessuna ruota a dato 1 sola uscita..
scusa nadin mi sa che forse ho sbagliato a scrivere le ultime 18 estr
dobbiamo calcolare le ultime 17 estr..in modo che possiamo considerare l'ambata con il ciclo 18 estr..
adesso farò una correzione allo script e vediamo la nuova tabella..

 

[Sakti]

Grazie Zetrix, con il nuovo listato funziona tutto ok, volevo regalarvi uno script che uso da diverso tepo, è una chicca che ance se su tutte, da ottimi risultati anche nel tempo..
Se volete ve lo mando per Natale, e se lo modificate in meglio benisssssimo.

Anticipazione (Spoiler)

Option Explicit
Sub Main
'Metodo Toon 1 e 5
Dim Ini,Fin,Es,R(12),K,a,b,i,f
Dim Nu(20),Num(10),posta(5)
posta(2) = 1.40
posta(3) = 0.50
posta(4) = 0.20
Ini = EstrazioneFin - 500
Fin = EstrazioneFin
Scrivi "Metodo 1 e 5",1,,,1,3,,1
For Es = Ini To Fin
'If IsUltimaDelMese(Es) Then
If IndiceMensile(Es) = 1 Then
R(1) = 4:R(2) = 8
'----------------------------
K = K + 1
a = Estratto(Es,4,1)
b = Estratto(Es,4,5)
Nu(1) = Fuori90(a + b)
Nu(2) = Vert(Nu(1))
Nu(3) = 90 -(Nu(1))
Nu(4) = Figura(a)
Nu(5) = Figura(b)
Nu(6) =(Cadenza(a)) &(Decina(b))
Nu(7) = Fuori90(Nu(6))
Nu(8) = Nu(4) + Nu(7)
Nu(9) = Figura(Nu(8))
Nu(10) = Nu(7) + Nu(5)
Nu(11) = Figura(Nu(10))
Nu(12) =(Nu(9)) &(Nu(11))
Nu(13) = 90 - Nu(12)
Nu(14) = Vert(Nu(12))
Nu(15) = 90 - Nu(14)
'---
Num(1) = Nu(1)
Num(2) = Nu(3)
Num(3) = Nu(12)
Num(4) = Nu(13)
Num(5) = Nu(14)
Num(6) = Nu(15)

EliminaRipetuti Num
'---
For f = 1 To UBound(Nu)
If Cadenza(Nu(f)) = 9 Then Nu(f) = Vert(Nu(f) - 2)
Next
'---
For i = 1 To UBound(Nu)
If Gemello(Nu(i)) Then Nu(i) = Vert(Nu(i) - 1)
Next
'----
ImpostaGiocata 1,Num,R,posta,15',2
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub

 

[Zetrix]

BA 1 uscite 1 ritardo 8 <-----------
CA 1 uscite 2 ritardo 13
FI 1 uscite 1 ritardo 4 <----------
GE 1 uscite 0 ritardo 32
MI 1 uscite 0 ritardo 23
NA 1 uscite 0 ritardo 30
PA 1 uscite 0 ritardo 49
RO 1 uscite 0 ritardo 26
TO 1 uscite 0 ritardo 30
VE 1 uscite 3 ritardo 10 <----------

allora nadin ecco la nuova tabella..le ruote di bari e firenze hanno dato 1 uscite
oltre a questo si deve considerare anche il rit che non deve superare le 17 estr..
poi notiamo che a venezia il nuemro 1 a una super frequenza con 3 uscite e il rit e di 10 estr
quindi le ruote preferite per il numero 1 per stasera sono bari firenze e venezia..
adesso vediamo la tabella con il numero 59

 

[Zetrix]

grazie toon metti pure lo script poi vedrò se si puo migliorare lo script..
adesso devo aggiornare il 59 1 a tutte

 

[Zetrix]

allora nella tabella e scritto ultime 18 estr ma considera le ultime 17 estr..

BA 59 uscite 2 ritardo 2
CA 59 uscite 2 ritardo 4
FI 59 uscite 3 ritardo 5
GE 59 uscite 1 ritardo 17 <----------
MI 59 uscite 0 ritardo 159 --------->
NA 59 uscite 3 ritardo 2
PA 59 uscite 0 ritardo 45
RO 59 uscite 2 ritardo 9
TO 59 uscite 0 ritardo 49
VE 59 uscite 1 ritardo 0 <----------

allora le ruote che non hanno dato il 59 con la doppia sortita sono genova e venezia e il rit siamo entro le 17 estr
e queste sono le ruote preferite poi possiamo aggiungere anche milano che con il rit di 159 estr non a dato
neanche 1 uscita del 59 e quindi la mettiamo in gioco lo stesso per questo fattore del rit di 159 estr..
scriviamo le ruote preferite genova milano e venezia per l'ambata 59 per stasera

 

[Armaus]

Vedi l'allegato 2249463

allora nella tabella e scritto ultime 18 estr ma considera le ultime 17 estr..

BA 59 uscite 2 ritardo 2
CA 59 uscite 2 ritardo 4
FI 59 uscite 3 ritardo 5
GE 59 uscite 1 ritardo 17 <----------
MI 59 uscite 0 ritardo 159
NA 59 uscite 3 ritardo 2
PA 59 uscite 0 ritardo 45
RO 59 uscite 2 ritardo 9
TO 59 uscite 0 ritardo 49
VE 59 uscite 1 ritardo 0 <----------

Ciao Zetrix, innanzitutto auguri di buon Natale te e famiglia. Cosa mettiamo in gioco per oggi? Grazie e ancora auguri

 

[Zetrix]

numero 1 bari firenze e venezia..
numero 59 genova milano e venezia..

adesso vediamo le ruote convergente per 1 59 a tutte

ragazzi non ci sono dubbi la ruota preferita e venezia..
però io direi di aggiungere anche milano che e la sua diametrale di venezia..

MI VE 59 01 (TT)

 

[Zetrix]

ciao Armaus sto vedendo adesso che numeri giocare per questa sera..
auguri anche a te e in famiglia..

 

[Zetrix]

ragazzi per quanto riguarda la previsione del 3 59 a tutte dovremmo rifare di nuovo la tabella
perche avevo considerato le ultime 18 estr..e si deve fare lo stesso calcolo che abbiamo fatto
con il 59 1

comunque la tabella del 59 l'abbiamo gia dobbiamo fare la tabella con il 3

 

[Zetrix]

BA (3) uscite 0 ritardo 19
CA (3) uscite 0 ritardo 36
FI (3) uscite 0 ritardo 27
GE (3) uscite 0 ritardo 25
MI (3) uscite 1 ritardo 12 <---------
NA (3) uscite 0 ritardo 18
PA (3) uscite 1 ritardo 12 <---------
RO (3) uscite 0 ritardo 53
TO (3) uscite 0 ritardo 38
VE (3) uscite 1 ritardo 1 <---------

che bella situazione abbiamo con il 3 e un numero che non e super frequente
vedete quante uscite 0 nelle ultime 17 estr..e nessuna ruota a dato la doppia sortita
con 2 uscite..

 

[Zetrix]

MI VE 59 01 (TT)
MI PA VE 3 59 (TT)

aggiornamento per stasera il gioco a tutte e facoltativo chi si puo permettere puo giocare anche a tutte
se no deve giocare solo sulle ruote di gioco..
in bocca a lupo

 

[Armaus]

MI VE 59 01 (TT)
MI PA VE 3 59 (TT)

aggiornamento per stasera il gioco a tutte e facoltativo chi si puo permettere puo giocare anche a tutte
se no deve giocare solo sulle ruote di gioco..
in bocca a lupo

Grazie Zetrix e buon Natale

 

[Sakti]

Fatto, fatemi sapere...
Tantissimi Auguri a Tutti Voi e alle persone a Voi più care.
;-))

 

[Serpico 90]

Buon di Toon........


Grazie e tanti Auguri a Te

 

[Zetrix]

grazie toon dopo vedrò lo script che ai allegato nello spoiler..

grazie e auguri anche te Serpico 90

 

[Zetrix]

ho fatto questo disegno a torino e venezia ma sto facendo uno studio in prova
con altre formattazioni del numero escluso che sarebbe il numero 39...

39 . 59 _____08_____ 3 . 5 _____
39 . 69 _____18_____ 3 . 6 _____
39 . 79 _____28_____ 3 . 7 _____
39 . 89 _____38_____ 3 . 8 _____
39 . 09 _____48_____ 3 . 9 _____
39 . 19 _____58_____ 3 . 1 _____
39 . 29 _____68_____ 3 . 2 _____
39 . 39 _____78_____ 3 . 3 _____
39 . 49 _____88_____ 3 . 4 _____

01.59 . 01.89 . 01.29 .
01.69 . 01.09 . 01.39 .
01.79 . 01.19 . 01.49 .

numero = 39 cadenza = 9 format = 48
numero = 39 figura = 3 format = 78

il numero 39 a cadenza 9 e il numero 1 si potrebbe abbinare con un numero in cadenza 9
il numero raddoppiato e 39x2=78
le formattazioni sono con i format in serie 8..dopo vediamo con le estr il numero 1
con chi si abbinerà per ambo a tutte..
queste tabelle sono difficili da spiegare perche sono studi che sto seguendo io
ho scritto diverse tabelle ognuna con diverse formattazioni del numero calcolato..

[NZ] [.. .. .. 49 01] [09/12/2022] [30.37.46.49.01]

 

[Nico13]

Grazie Zetrix,
Un sereno Natale a te e Famiglia ed a chi passa