Novità

Spaziometria Empirica

Anche ieri ambetto ... ma a tt stavolta🫠 .. ancora una settimana ti do e poi ti affondo nella fossa delle Marianne 😜😜😜😜
Ambetto a Torino 🤐 ho giocato Roma e Torino ma al LottoPiù e non ho messo l'ambetto... avrei dovuto fare la schedina a parte e non l'ho fatto... pazienza .... sto noleggiando il batiscafo Picard per affossarti giù nella fossa delle Marianne .... hai "rimasto" solo due colpi 😬😬😬😬 ocio 🤣🤣🤣🤣🤣🤣🤣🤣
 
Ho inserito sopra uno script giusto per allenarmi.
Grazie Cinzia27 riusciresti a inserire la figura completa? Se riesci è un capolavoro per chi si avvicina a questi insegnamenti. Grazie di cuore a tutti in particolare a BaffoBlù e mi raccomando finchè riesci a combattere mai arrendersi. La Bandiera si abbassa ma giusto per rialzarla di nuovo per farla sventolare al vento con il fiato dell'inno di Mameli cantato con tutto il fiato e con tutto il cuore. W l'ITALIA 🇮🇹
 
Codice:
'Figura del rombo
'Script Cinzia27
Sub Main()
Dim n(2),ru(1),ps(2)
ps(1)=1
ps(2)=1

For es=8117 To EstrazioneFin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
 

aa=Estratto(es-4,r,3)
aa1=Estratto(es-2,r,1)'--
aa2=Estratto(es,r,3)
aa3=Estratto(es-2,r,5)'--



If (aa=aa1 )  Then


'=========================================================================================
Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" ",0,0
For p=1 To 2
ColoreTesto 0
Scrivi Format2(Estratto(es-4,r,p))&".",0,0
Next
ColoreTesto 2
Scrivi Format2(Estratto(es-4,r,3))&".",0,0
ColoreTesto 0
For p1=4 To 5
ColoreTesto 0
If p1<5 Then Scrivi Format2(Estratto(es-4,r,p1))&".",0,0 Else Scrivi Format2(Estratto(es-4,r,p1))
Next

Scrivi DataEstrazione(es-3+1) &" "&FormatSpace(es-3,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-3,r)

Scrivi DataEstrazione(es-2) &" "&FormatSpace(es-2,5,1)&" "&SiglaRuota(r)&" ",0,0
ColoreTesto 2
Scrivi Format2(Estratto(es-2,r,1))&".",0,0
For p2=2 To 4
ColoreTesto 0
Scrivi Format2(Estratto(es-2,r,p2))&".",0,0
Next
Scrivi Format2(Estratto(es-2,r,5))

Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es-1,r)

Scrivi DataEstrazione(es) &" "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(eS,r)

Scrivi
n(1)=aa2
n(2)=aa3
ImpostaGiocata 1,n,ru,ps,5,2
Gioca es
Scrivi String (40,"*")
End If


Next

Next
ScriviResoconto
End Sub
Cinzia potresti trovare la figura rombo von 3 numeri uguali ?

Ciao Eugenio
 
Per Genios, sono eventi rari e come vedi l'ambata residua esce con comodo.
Codice:
'Figura del rombo 1 numero diverso su 4.
'Script Cinzia27
Sub Main()
Dim n(1),aa(4),ru(1),ps(1)
ps(1)=1


For es=8117 To EstrazioneFin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
 

aa(1)=Estratto(es-4,r,3)
aa(2)=Estratto(es-2,r,1)'--
aa(3)=Estratto(es,r,3)
aa(4)=Estratto(es-2,r,5)'--

yy=0
For y=1 To 2
For y1=y+1 To 3
For y2=y1+1 To 4

If aa(y)=aa(y1) And aa(y)=aa(y2) Then yy=yy+1
Next
Next
Next
If yy>0 Then

xx=0
For x=1 To 2
For x1=x+1 To 3
For x2=x1+1 To 4
If aa(x)<>aa(x1) And aa(x)<>aa(x2) Then n(1)=aa(x)
If aa(x1)<>aa(x) And aa(x1)<>aa(x2) Then n(1)=aa(x1)
If aa(x2)<>aa(x) And aa(x2)<>aa(x1) Then n(1)=aa(x2)
Next
Next
Next


'=========================================================================================

Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-4,r)
Scrivi DataEstrazione(es-3) &" "&FormatSpace(es-3,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-3,r)
Scrivi DataEstrazione(es-2) &" "&FormatSpace(es-2,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es-2,r)
Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es-1,r)
Scrivi DataEstrazione(es) &" "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es,r)

ImpostaGiocata 1,n,ru,ps,45,1
Gioca es
Scrivi String (40,"*")
End If


Next

Next
ScriviResoconto
End Sub
 
Per Bubù: per figura completa cosa intendi ? Tutti e 4 numeri è impossibile poiché
in una ruota un numero può uscire solo una volta e nell' estrazione di mezzo i numeri di vertice sono 2.

Per Genios, 3 numeri è possibile, ma sono eventi rari e come vedi l'ambata residua esce con comodo.
Codice:
'Figura del rombo 1 numero diverso su 4.
'Script Cinzia27
Sub Main()
Dim n(1),aa(4),ru(1),ps(1)
ps(1)=1


For es=8117 To EstrazioneFin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
 

aa(1)=Estratto(es-4,r,3)
aa(2)=Estratto(es-2,r,1)'--
aa(3)=Estratto(es,r,3)
aa(4)=Estratto(es-2,r,5)'--

yy=0
For y=1 To 2
For y1=y+1 To 3
For y2=y1+1 To 4

If aa(y)=aa(y1) And aa(y)=aa(y2) Then yy=yy+1
Next
Next
Next
If yy>0 Then

xx=0
For x=1 To 2
For x1=x+1 To 3
For x2=x1+1 To 4
If aa(x)<>aa(x1) And aa(x)<>aa(x2) Then n(1)=aa(x)
If aa(x1)<>aa(x) And aa(x1)<>aa(x2) Then n(1)=aa(x1)
If aa(x2)<>aa(x) And aa(x2)<>aa(x1) Then n(1)=aa(x2)
Next
Next
Next


'=========================================================================================

Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-4,r)
Scrivi DataEstrazione(es-3) &" "&FormatSpace(es-3,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-3,r)
Scrivi DataEstrazione(es-2) &" "&FormatSpace(es-2,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es-2,r)
Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es-1,r)
Scrivi DataEstrazione(es) &" "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es,r)

ImpostaGiocata 1,n,ru,ps,45,1
Gioca es
Scrivi String (40,"*")
End If


Next

Next
ScriviResoconto
End Sub
grazie cinzia
 
Nuovo spunto x appassionarvi a questa disciplina e sempre con la stessa regola.....
pochi numeri ma sistemati in armonia.Queste ricerche raramente cannano ma
la ruota è sempre un problema.Io dico BARI perchè ho convergenze con le mie menate.
Attendiamo un eventuale esito.


Vedi l'allegato 2279726
Ecco al 2° colpo ambo su NA (TT) 5-34 che è la ruota assieme a RO sulla
periferia del fulcro,in genere scelgo proprio quelle ruote ma..... ho provato
la ruota Barese.
Spero sia chiara la potenza di questa Spaziomentria!
Forza!!!!! mettetevi al lavoro e vincete con il Kaos spaziometrico!
 
Grazie Cinzia27 riusciresti a inserire la figura completa? Se riesci è un capolavoro per chi si avvicina a questi insegnamenti. Grazie di cuore a tutti in particolare a BaffoBlù e mi raccomando finchè riesci a combattere mai arrendersi. La Bandiera si abbassa ma giusto per rialzarla di nuovo per farla sventolare al vento con il fiato dell'inno di Mameli cantato con tutto il fiato e con tutto il cuore. W l'ITALIA 🇮🇹
Grazie ancora a Cinzia27 e al Grande BaffoBlù
ESTRATTO 8 NAZ.jpg
 
Sempre per esercizio.
Codice:
'Figura del triangolo (2 n. uguali isotopi)
'Script Cinzia27
Sub Main()
Dim n(1),ru(1),ps(1)
ps(1)=1


For es=8117 To EstrazioneFin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
 

a=Estratto(es-4,r,1)
If a>0 Then
a1=Estratto(es-4,r,5)

b=Estratto(es,r,5)

If a1=b Then




'=========================================================================================
Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" ",0,0
ColoreTesto 2
Scrivi Format2(Estratto(es-4,r,1))&".",0,0
ColoreTesto 0
For p=2 To 4
ColoreTesto 0
Scrivi Format2(Estratto(es-4,r,p))&".",0,0
Next
ColoreTesto 2
Scrivi Format2(Estratto(es-4,r,5))

ColoreTesto 0
Scrivi DataEstrazione(es-3) &" "&FormatSpace(es-3,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-3,r)
Scrivi DataEstrazione(es-2) &" "&FormatSpace(es-2,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-2,r)
Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-1,r)

Scrivi DataEstrazione(es) &" "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" ",0,0
For p1=1 To 4
ColoreTesto 0
Scrivi Format2(Estratto(es,r,p1))&".",0,0
Next
ColoreTesto 2
Scrivi Format2(Estratto(es,r,5))
ColoreTesto 0
Scrivi


n(1)=a

ImpostaGiocata 1,n,ru,ps,5,1
Gioca es
Scrivi String (40,"*")
End If
End If

Next

Next
ScriviResoconto
End Sub
 
2° script triangolo
Codice:
'Figura del triangolo (n. uguali non isotopi)
'Script Cinzia27
Sub Main()
Dim n(1),ru(1),ps(1)
ps(1)=1


For es=8117 To EstrazioneFin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
 

a=Estratto(es-4,r,1)
If a>0 Then
a1=Estratto(es-4,r,5)

b=Estratto(es,r,5)

If a=b Then




'=========================================================================================
Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" ",0,0
ColoreTesto 2
Scrivi Format2(Estratto(es-4,r,1))&".",0,0
ColoreTesto 0
For p=2 To 4
ColoreTesto 0
Scrivi Format2(Estratto(es-4,r,p))&".",0,0
Next
ColoreTesto 2
Scrivi Format2(Estratto(es-4,r,5))

ColoreTesto 0
Scrivi DataEstrazione(es-3) &" "&FormatSpace(es-3,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-3,r)
Scrivi DataEstrazione(es-2) &" "&FormatSpace(es-2,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-2,r)
Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-1,r)

Scrivi DataEstrazione(es) &" "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" ",0,0
For p1=1 To 4
ColoreTesto 0
Scrivi Format2(Estratto(es,r,p1))&".",0,0
Next
ColoreTesto 2
Scrivi Format2(Estratto(es,r,5))
ColoreTesto 0
Scrivi


n(1)=a1

ImpostaGiocata 1,n,ru,ps,5,1
Gioca es
Scrivi String (40,"*")
End If
End If

Next

Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 22 luglio 2025
    Bari
    29
    03
    79
    27
    86
    Cagliari
    22
    54
    55
    50
    29
    Firenze
    52
    38
    30
    29
    83
    Genova
    08
    62
    20
    69
    26
    Milano
    17
    45
    55
    67
    73
    Napoli
    64
    39
    35
    62
    02
    Palermo
    84
    33
    60
    43
    28
    Roma
    33
    79
    27
    41
    81
    Torino
    35
    58
    38
    70
    56
    Venezia
    64
    11
    07
    57
    27
    Nazionale
    53
    15
    38
    52
    66
    Estrazione Simbolotto
    Nazionale
    18
    24
    03
    21
    15

Ultimi Messaggi

Indietro
Alto