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
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38

Ultimi Messaggi

Indietro
Alto