Novità

script per spaziometria

Ciao salvo50 ciao Master, stavo cercando qualcosa di simile , in realta ho creato un file in excel ma come ben sapete e laborioso riscontrare anche gli ambetti!
Per quanto ho potuto verificare ho riscontrato parecchie vincite date su ruota e ruota diametrale , capisco che e articolata ma ne varrebbe lapena!
Qualunque possa essere il vostro interessamento vi ringrazio ugualmente!
 
Ciao salvo50 ciao Master, stavo cercando qualcosa di simile , in realta ho creato un file in excel ma come ben sapete e laborioso riscontrare anche gli ambetti!
Per quanto ho potuto verificare ho riscontrato parecchie vincite date su ruota e ruota diametrale , capisco che e articolata ma ne varrebbe lapena!
Qualunque possa essere il vostro interessamento vi ringrazio ugualmente!
Per spaziometria master questo tuo script va bene o servono modifiche?
 
Ciao salvo50 ciao Master, stavo cercando qualcosa di simile , in realta ho creato un file in excel ma come ben sapete e laborioso riscontrare anche gli ambetti!
Per quanto ho potuto verificare ho riscontrato parecchie vincite date su ruota e ruota diametrale , capisco che e articolata ma ne varrebbe lapena!
Qualunque possa essere il vostro interessamento vi ringrazio ugualmente!
Non uso Excel mirco serve per spaziometria chi riesce a concluderlo ha il mio plauso
 
Master vai a dare uno sguardo anche a quello postato da me su argomento cabalistici ciclometria metodo libbra vedi se riesci appello rivolto anche ad altri
 
Buongiorno ho notato che quasi a colpo escono le distanze e fa ambetto con la somma dei numeri calcolati d ambo con le somme orizzontali esempio
martedì, giu 20 2023
+---------010252---------+
Bari 41 79 77 57 65
Cagliari 03 90 70 79 13
Firenze 70 31 81 02 32
Genova 03 47 76 58 63
Milano 40 86 73 88 90
Napoli 38 68 63 32 64
Palermo 76 61 75 71 58
Roma 61 36 14 87 65
Torino 10 13 02 52 83
Venezia 39 36 90 17 25
Nazionale 34 31 58 77 69

NA-PA 63-75= [48] 32-71= [13] DISTANZA 35
PA+RO 71+87= [68] 58+65= [33] DISTANZA 35

--------------------
Somma Vert 48+33 = 81 x2 rappresenta la somma COMUNE 72 somma finale
Somma Vert 13+68 = 81
--------------------
Somma Oriz 48+13 = 61 Diviso 2 = 31 allora distanza 35 per ambata con accanto al 48 c'è 32 e 71 sottostante 58 e 65 somma verticale fatta in questo modo 8piu 3 fa 11 tolgo decina rimane 1 e 4piu 3 fa 7 cioè 71 lo stesso sotto..ambo secco

+ +
 
ciao mi da errore
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi String(20,"-")
'----------------------------
Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
" x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
Scrivi String(20,"-")
Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
Scrivi Space(20) & "+" & Space(30) & "+"
Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
"Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
Scrivi String(20,"-")
Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
Scrivi Space(20) & "+"
Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
'-------------------------------------
Scrivi
Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Ruo,Posta,9
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub
 
ciao mi da errore
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi String(20,"-")
'----------------------------
Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
" x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
Scrivi String(20,"-")
Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
Scrivi Space(20) & "+" & Space(30) & "+"
Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
"Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
Scrivi String(20,"-")
Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
Scrivi Space(20) & "+"
Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
'-------------------------------------
Scrivi
Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Ruo,Posta,9
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub
mai visto uno scrip che inizia con "Next"
 
mai visto uno scrip che inizia con "Next"
Vero l'ho inserito a metà è quello inserito qua (solo per evidenziare l'errore) l'errore è quello in rosso
Option Explicit
Sub Main
Dim FIn,Es,Ini,R1,R2,R3,R4,Clp
Dim P1,P2,Po1,PO2,PO3,PO4,A,AA,B,BB,C,CC,D,DD,E1,E2,Co
Dim Ruo(3),SOBI(2),SOBI1(2),SOBB,SOBB1,SODIA,SODIA1
Dim SOB,SOB1,DSOB,DSOBB1,SOSOB,SOSOB1,SORIZ,SORIZ1
Dim TOTO2,TOTO,TOTODI,POS,SM,CE
Dim Posta(2),Num1(3)
Posta(1) = 1 : Posta(2) = 1
CE = CInt(InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",80))
Ini = EstrazioneFin - CE : FIn = EstrazioneFin
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For R1 = 1 To 9
R2 = R1 + 1
For Po1 = 1 To 4
PO2 = Po1 + 1
A = Estratto(Es,R1,Po1) : B = Estratto(Es,R2,Po1)
AA = Estratto(Es,R1,PO2) : BB = Estratto(Es,R2,PO2)
R3 = R2
R4 = R3 + 1
If R4 = 11 Then R4 = 1
For PO3 = 1 To 4
PO4 = PO3 + 1
C = Estratto(Es,R3,PO3) : D = Estratto(Es,R4,PO3)
CC = Estratto(Es,R3,PO4) : DD = Estratto(Es,R4,PO4)
'--------------------------------------
SOBI(1) = Fuori90(A + B): SOBI(2) = Fuori90(AA + BB)
SOBI1(1) = Fuori90(C + D):SOBI1(2) = Fuori90(CC + DD)
'----------------------------------------------
SOB = Massimo(SOBI(1),SOBI(2)) : SOBB = Minimo(SOBI(1),SOBI(2))
SOB1 = Minimo(SOBI1(1),SOBI1(2)) : SOBB1 = Massimo(SOBI1(1),SOBI1(2))
'-------------- DISTANZA ORIZZONTALE
DSOB = Distanza(SOB,SOBB)
DSOBB1 = Distanza(SOB1,SOBB1)
'--------------- SOMME VERT
SOSOB = Fuori90(SOB + SOB1)
SOSOB1 = Fuori90(SOBB + SOBB1)
'--------------- SOMME ORIZ
SORIZ = Fuori90(SOB + SOBB)
SORIZ1 = Fuori90(SOB1 + SOBB1) : TOTO = Fuori90(SORIZ + SORIZ1)
'------------------ DIAGONALI
SODIA = Fuori90(SOB + SOBB1)
SODIA1 = Fuori90(SOBB + SOB1) : TOTODI = Fuori90(SODIA + SODIA1)
'-------------------- DIVISIONI
TOTO2 = Fuori90(SORIZ1/2 + SORIZ/2)
If DSOB = DSOBB1 And SOSOB = SOSOB1 Then
Co = Co + 1
Scrivi String(100,"=") & " " & Co
'=======================================================
Scrivi Space(3) & DataEstrazione(Es,1),1,,,2
ScriviEstrazione(Es)
Scrivi SiglaRuota(R1) & "-" & SiglaRuota(R2) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R1,POS) : E2 = Estratto(Es,R2,POS)
If E1 = A Or E1 = AA And E2 = AA Or E2 = BB Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "-" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi SiglaRuota(R3) & "+" & SiglaRuota(R4) & " ",1,0,,10
For POS = 1 To 5
E1 = Estratto(Es,R3,POS) : E2 = Estratto(Es,R4,POS)
If E1 = C Or E1 = CC And E2 = D Or E2 = DD Then
SM =(Fuori90(E1 + E2))
Scrivi Format2(E1) & "+" & Format2(E2) & "= [" & Format2(SM) & "] ",1,0,,1',Gr,0 : ColoreTesto 0 : Gr = False
End If
Next
Scrivi " DISTANZA " & Format2(DSOB),1,,,10
Scrivi String(20,"-")
'----------------------------
Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
" x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
Scrivi String(20,"-")
Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
Scrivi Space(20) & "+" & Space(30) & "+"
Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
"Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
Scrivi String(20,"-")
Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
Scrivi Space(20) & "+"
Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
'-------------------------------------
Scrivi
Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
EliminaRipetuti Num1
ImpostaGiocata 1,Num1,Ruo,Posta,9
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto,0
End Sub
 
questo funziona... pecato che sia un cattivo investimento

Estrazione generatrice del pronostico 10257 [ 77 - 29/06/2023]
G 0001 Numeri in gioco : 34.68 su PA RO TO per Estratto,Ambo

In corso per altre 9 estrazioni
+----------------------------------------+
| Prima Giocata : 10177 |
| Ultima Giocata : 10257 |
| Range : 81 |
| Casi giocab perc. : 88,889% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 72 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 68 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 94,44 % | | BA | 45| 2| | | | | BA | 6,74| 7,14| | | | | BA | 43| |
| Pronostici totali : 196 | | CA | 53| 4| | | | | CA | 7,93|14,29| | | | | CA | 51| |
| Pronostici vinc. : 181 | | FI | 78| 4| | | | | FI |11,68|14,29| | | | | FI | 72| |
| Percentuale pos. : 92,35 % | | GE | 82| 4| | | | | GE |12,28|14,29| | | | | GE | 71| |
| Giocate in corso : 23 | | MI | 65| 1| | | | | MI | 9,73| 3,57| | | | | MI | 64| |
| Giocate terminate : 173 | | NA | 69| 2| | | | | NA |10,33| 7,14| | | | | NA | 60| |
| Bollette giocate : 5.013 | | PA | 51| 2| | | | | PA | 7,63| 7,14| | | | | PA | 53| |
| Bollette vincenti : 640 | | RO | 77| | | | | | RO |11,53| | | | | | RO | 64| |
| Attesa media : 3 | | TO | 88| 5| | | | | TO |13,17|17,86| | | | | TO | 64| |
| Spesa : 10.026,00 € | | VE | 60| 4| | | | | VE | 8,98|14,29| | | | | VE | 46| |
| Vincita : 6.017,66 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : -4.008,34 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : -39,979 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 162,00 € |
| Estratto su ruota : 668 |
| Ambo su ruota : 28 |
| |
+----------------------------------------+
 
Ciao a tutti
Ciao salvo50
Non sono un esperto
prova questa soluzione, sicuramente la puoi migliorare

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,R1,R2,R3,R4,Clp
   Dim P1,P2,Po1,PO2,PO3,PO4,A,AA,B,BB,C,CC,D,DD,E1,E2,Co
   Dim Ruo(3),SOBI(2),SOBI1(2),SOBB,SOBB1,SODIA,SODIA1
   Dim SOB,SOB1,DSOB,DSOBB1,SOSOB,SOSOB1,SORIZ,SORIZ1
   Dim TOTO2,TOTO,TOTODI,POS,SM,CE
   Dim Posta(2),Num1(3)
   Posta(1) = 1 : Posta(2) = 1
   CE = CInt(InputBox(" Quante estrazioni vuoi controllare? ","Estrazioni",80))
   Ini = EstrazioneFin - CE : FIn = EstrazioneFin
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 9
         R2 = R1 + 1
         For Po1 = 1 To 4
            PO2 = Po1 + 1
            A = Estratto(Es,R1,Po1) : B = Estratto(Es,R2,Po1)
            AA = Estratto(Es,R1,PO2) : BB = Estratto(Es,R2,PO2)
            R3 = R2
            R4 = R3 + 1
            If R4 = 11 Then R4 = 1
            For PO3 = 1 To 4
               PO4 = PO3 + 1
               C = Estratto(Es,R3,PO3) : D = Estratto(Es,R4,PO3)
               CC = Estratto(Es,R3,PO4) : DD = Estratto(Es,R4,PO4)
               '--------------------------------------
               SOBI(1) = Fuori90(A + B): SOBI(2) = Fuori90(AA + BB)
               SOBI1(1) = Fuori90(C + D):SOBI1(2) = Fuori90(CC + DD)
               '----------------------------------------------
               SOB = Massimo(SOBI(1),SOBI(2)) : SOBB = Minimo(SOBI(1),SOBI(2))
               SOB1 = Minimo(SOBI1(1),SOBI1(2)) : SOBB1 = Massimo(SOBI1(1),SOBI1(2))
               '-------------- DISTANZA ORIZZONTALE
               DSOB = Distanza(SOB,SOBB)
               DSOBB1 = Distanza(SOB1,SOBB1)
               '--------------- SOMME VERT
               SOSOB = Fuori90(SOB + SOB1)
               SOSOB1 = Fuori90(SOBB + SOBB1)
               '--------------- SOMME ORIZ
               SORIZ = Fuori90(SOB + SOBB)
               SORIZ1 = Fuori90(SOB1 + SOBB1) : TOTO = Fuori90(SORIZ + SORIZ1)
               '------------------ DIAGONALI
               SODIA = Fuori90(SOB + SOBB1)
               SODIA1 = Fuori90(SOBB + SOB1) : TOTODI = Fuori90(SODIA + SODIA1)
               '-------------------- DIVISIONI
               TOTO2 = Fuori90(SORIZ1/2 + SORIZ/2)
               If DSOB = DSOBB1 And SOSOB = SOSOB1 Then
                  Co = Co + 1
                  Scrivi String(100,"=") & " " & Co
                  '=======================================================
                  Scrivi Space(3) & DataEstrazione(Es,1),1,,,2
                  ScriviEstrazione(Es)
                  Scrivi SiglaRuota(R1) & "-" & SiglaRuota(R2) & " ",1,0,,10
                  For POS = 1 To 5
                     E1 = Estratto(Es,R1,POS) : E2 = Estratto(Es,R2,POS)
                     If E1 = A Or E1 = AA And E2 = AA Or E2 = BB Then
                        SM =(Fuori90(E1 + E2))
                        Scrivi Format2(E1) & "-" & Format2(E2) & "= [" & Format2(SM) & "]  ",1,0,,1
                     End If
                  Next
                  Scrivi " DISTANZA " & Format2(DSOB),1,,,10
                  Scrivi SiglaRuota(R3) & "+" & SiglaRuota(R4) & " ",1,0,,10
                  For POS = 1 To 5
                     E1 = Estratto(Es,R3,POS) : E2 = Estratto(Es,R4,POS)
                     If E1 = C Or E1 = CC And E2 = D Or E2 = DD Then
                        SM =(Fuori90(E1 + E2))
                        Scrivi Format2(E1) & "+" & Format2(E2) & "= [" & Format2(SM) & "]  ",1,0,,1',Gr,0 : ColoreTesto 0 : Gr = False
                     End If
                  Next
                  Scrivi " DISTANZA " & Format2(DSOB),1,,,10
                  Scrivi String(20,"-")
                  '----------------------------
                  Scrivi"Somma Vert " & Format2(SOB) & "+" & Format2(SOB1) & " = " & Format2(SOSOB) & _
                  " x2 rappresenta la somma COMUNE " & Fuori90(SOSOB*2) & " somma finale"
                  Scrivi"Somma Vert " & Format2(SOBB) & "+" & Format2(SOBB1) & " = " & Format2(SOSOB1)
                  Scrivi String(20,"-")
                  Scrivi"Somma Oriz " & Format2(SOB) & "+" & Format2(SOBB) & " = " & Format2(SORIZ) & Space(19) & "Diviso 2 = " & Format2((SORIZ/2))
                  Scrivi Space(20) & "+" & Space(30) & "+"
                  Scrivi"Somma Oriz " & Format2(SOB1) & "+" & Format2(SOBB1) & " = " & Format2(SORIZ1) & " = SO COMUNE " & Format2(TOTO) & Space(4) & _
                  "Diviso 2 = " & Format2((SORIZ1/2)) & Space(2) & "= Somma " & Fuori90(SORIZ1/2 + SORIZ/2)
                  Scrivi String(20,"-")
                  Scrivi"Somma Diag " & Format2(SOB) & "+" & Format2(SOBB1) & " = " & Format2(SODIA)
                  Scrivi Space(20) & "+"
                  Scrivi"Somma Diag " & Format2(SOBB) & "+" & Format2(SOB1) & " = " & Format2(SODIA1) & " = SO COMUNE " & Format2(TOTODI)
                  '-------------------------------------
                  Scrivi
                  Num1(1) = SOSOB : Num1(2) = TOTO : Num1(3) = TOTO2 : Ruo(1) = R1 : Ruo(2) = R2: Ruo(3) = R4
                  EliminaRipetuti Num1
                  ImpostaGiocata 1,Num1,Ruo,Posta,9
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto,0
End Sub

OK salvo50 ho corretto la scelta delle estrazioni
Ciao Master credo che sarebbe migliore se controllasse tutte le ruote per ambo magari con ID , puoi farlo,grazie.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 03 aprile 2025
    Bari
    71
    57
    74
    66
    81
    Cagliari
    08
    71
    63
    28
    13
    Firenze
    02
    77
    51
    48
    40
    Genova
    20
    73
    85
    80
    83
    Milano
    13
    69
    82
    14
    43
    Napoli
    89
    22
    84
    57
    80
    Palermo
    88
    17
    29
    43
    68
    Roma
    20
    10
    67
    41
    39
    Torino
    59
    43
    71
    34
    78
    Venezia
    57
    35
    28
    39
    29
    Nazionale
    52
    72
    73
    26
    77
    Estrazione Simbolotto
    Genova
    25
    07
    38
    14
    18
Indietro
Alto