Novità

Aiuto script per metodo distanza 30 testato.

Juri

Super Member >GOLD<
Ciao a tutti.Vorrei sapere se potete aiutarmi,per piacere con sto metodo.Rimane anche a voi ed è forte per ambata e unito anche per ambo molto forte.

Si cercano 2 numeri su una ruota e 2 su un'altra ruota distanza 30.Solo uniti.

Su ruote unite per ambo è forte anche se rarissima.


Si sommano i 3 numeri distanza 30 e il risultato è l'ambata.Gli altri 3 numeri gli abbinamenti e riuniti 4 per ambo

Si fa la quadratura e si ottengono i numeri sotto.Il numero ripetuto non si somma.Parlo di somma matematica e non ciclometrica.
83-23 poi sotto 44-74.

83+44=37. Poi 23-74=7.Poi 44-23=7 poi 83+74=67.
Il 67 è il numero ripetuto 2 volte.Si somma 7-37-67=21 ambata.


12/07/2018 GE 83-44 (4°-5°) Dist.Vert.30
12/07/2018 VE 23-74 (4°-5°)
Ambi ISOTOPI.Ambata 21 con 67 rip e 7-37.

poi 1-61 e sotto 42-73.

21/07/2018 FI 01-43 (2°-3°) Dist.Diag.30
21/07/2018 VE 73-61 (2°-3°)

Qui 1+43=44 poi 61+43=14 poi 61+73=44 poi 1+73=74.
il 44 è ripetuto 2 volte.
44+14+74=42 vhe è l'ambata.



Ambi ISOTOPI.Ambata 42 con 44 rip e 74-14.Al 3° c 42 ve.


Mi sono spiegato bene?

Grazie mille.

Buona serata.
 
Ultima modifica:

Juri

Super Member >GOLD<
Si sommano i 3 numeri distanza 30 e il risultato è l'ambata.Gli altri 3 numeri gli abbinamenti e riuniti 4 per ambo.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Juri

Juri;n2125759 ha scritto:
Mi sono spiegato bene?

No!

Per ogni numero da giocare devi spiegare come l'hai ottenuto, fai le addizioni o sottrazioni con i numeri degli esempi, io non sono nella tua testa, se per te è tutto logico, non lo è per me, fai le operazioni di tutte e due gli esempi, solo per curiosità quel (rip) cos'è.
 

salvo50

Advanced Member >PLATINUM PLUS<
Codice:
Primo esempio

83 23                                         
44 74  

83+44=37. Poi 23-74=7.Poi 44-23=7 poi 83+74=67.
Il 67 è il numero ripetuto 2 volte.Si somma 7-37-67=21 ambata.


1) 83 + 44 = 37 ok
2) 23 - 74 = 07 ?  qui forse volevi fare 23 + 44 = 67
3) 44 - 23 = 07 a Me risulta 21
4) 83 + 74 = 67 ok

Mettiamo delle Lettere per ogni numero

A B
C D

quindi abbiamo calcolato

1) A + C
2) B + C
3) Differenza (B,C)
4) A + D

3 Addizioni e una sottrazione
----------------------------------------
secondo esempio
01 43
73 61


Qui 1+43=44 poi 61+43=14 poi 61+73=44 poi 1+73=74.
il 44 è ripetuto 2 volte.

1) 01 + 43 = 44 ok
2) 61 + 43 = 14 ok
3) 61 + 73 = 44 ok
4) 01 + 73 = 74 ok

Mettiamo delle Lettere per ogni numero

A B
C D

1) A + B
2) B + D
3) C + D
4) A + C  <-- unica operazione uguale al Primo esempio

comunque nel Primo esempio ci sono 3 Addizioni e una sottrazione,
nel Secondo esempio 4 Addizioni, Domanda qual'è la condizione che
mi fa stabilire se devo fare l'addizione o la sottrazione?
Lo chiedo perchè non l'ho capita.

Dal fatto che le operazioni fatte nel Primo esempio non coincidono
con le operazioni fatte nel secondo esempio, ne deduco che è
perchè nel Primo esempio la Distanza 30 è tra C è D e nel
Secondo esempio è tra B e C, però a questo punto mi chiedo e quando
la Distanza 30 è tra

A e B
A e C
B e D
A e D

Quali sono le operazioni che devo fare?

Faccio tutte queste Domande perchè prima di Iniziare lo script
devo avere le idee chiare.
 

Juri

Super Member >GOLD<
1) 83 + 44 = 37 ok 2) 23 + 74 = 07 ? qui forse volevi fare 23 + 44 = 67 3) 44 + 23 = 067 4) 83 + 74 = 67 ok Tutti piu'.
 

Juri

Super Member >GOLD<
Va fatto solo addizioni.Non si sommano mai i numeri distanza 30 quindi 83-23 e 44-74 primo esempio.Sempre il resto.

Nel 2° caso mai 1-61 o 43-73.
Poi vedi anche tu che risulta quasi sempre 1 numero uguale e 3 di distanza 30.Puo' essere che ci siano 4 numeri diversi e va bene.3 di distanza 30 e un'altro diverso.E' piu' raro.
Tutto ok?

Il resto che hai messo è ok.
 

Juri

Super Member >GOLD<
83-23
44-74 cosi' ho fatto la somma a mano in diagonale e verticale.

poi

1-61
43-73

poi volendo che non c'è.

15-75
10-70

Mi sono spiegato bene?
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ho aggiunto a titolo di curiosità anche la ricerca dell'ambata + le tre somme, quindi 4 numeri per tutte le ruote, vedi se ho capito bene la tua richiesta.

Codice:
'Chiesto da Juri, cercare in due ruote 2 ambi consecutivi ed isotopi
'con la distanza 30, in orizontale, verticale o in diagonale,
'delle 6 somme possibili tra i componenti dei 2 ambi, scartare la
'coppia dove si è verificata la distanza 30 ed anche la coppia
'speculare,alla coppia con distanza 30, eseguire le 4 somme rimaste
'e prendere solo le somme dove ce ne siano 2 uguali, scartare una delle 2
'somme uguali e sommare le tre somme rimanenti, il risultato è l'ambata,
'per gli abbinamenti, unire all'ambata ad una ad una le tre somme.
'script by Salvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,P1,P2,P3,P4,Clp1,E1,E2
   Dim A,B,C,D,Caso,Casi,Dist,Ok,St,Distx
   Dim DAB,DCD,DAC,DBD,DAD,DBC,S1,S2,S3,S4
   Dim Abb1,Abb2,Abb3,Clp2,Ind,Salvo50
   Dim Ambata(1),Ambo1(2),Ambo2(2),Ambo3(2),Ruote(1)
   Dim Ruo(2),Posta(1),Poste(2),Quat(4),Post(4)


   Posta(1) = 1
   Poste(2) = 1
   Post(2) = 1
   Post(3) = 1
   Ruote(1) = TU_

Fin =  EstrazioneFin

   Clp1 = InputBox("Quanti colpi vuoi giocare l'ambata?",,10)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,10)
   Dist = CInt(InputBox(" Quale distanza  ",,30))
  Ini = 9300

   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            Ruo(1) = R1
            Ruo(2) = R2
            For P1 = 1 To 4
               P2 = P1 + 1
               A = Estratto(Es,R1,P1) : If A > 0 Then
               B = Estratto(Es,R1,P2)
               C = Estratto(Es,R2,P1) : If C > 0 Then
               D = Estratto(Es,R2,P2)
               Ok = 0
               Distx = ""
               DAB = Differenza(A,B) : DAC = Differenza(A,C) : DAD = Differenza(A,D)
               DBC = Differenza(B,C) : DBD = Differenza(B,D) : DCD = Differenza(C,D)
               If(A <> C) And(A <> D)And(B <> C)And(B <> D)Then
                  If(DAB = Dist) Or(DAC = Dist) Or(DAD = Dist)Or(DBC = Dist)Or(DBD = Dist) Or(DCD = Dist) Then
                     If DAB = Dist Xor DCD = Dist Then
                        If DAB = Dist Then Distx = " Distanza " & Format2(Dist) & " tra " & Format2(A) & " e " & Format2(B)
                        If DCD = Dist Then Distx = " Distanza " & Format2(Dist) & " tra " & Format2(C) & " e " & Format2(D)
                        S1 = Fuori90(A + C)
                        S2 = Fuori90(A + D)
                        S3 = Fuori90(B + C)
                        S4 = Fuori90(B + D)
                        If(S1 = S2) Xor(S1 = S3) Xor(S1 = S4)Xor(S2 = S3)Xor(S2 = S4)Xor(S3 = S4)Then
                           Call SommaTotale(S1,S2,S3,S4,St,Abb1,Abb2,Abb3)
                           Ok = 1
                        End If
                     End If
                     '-----------------------------------------------------------------
                     If DAC = Dist Xor DBD = Dist Then
                        If DAC = Dist Then Distx = " Distanza " & Format2(Dist) & " tra " & Format2(A) & " e " & Format2(C)
                        If DBD = Dist Then Distx = " Distanza " & Format2(Dist) & " tra " & Format2(B) & " e " & Format2(D)
                        S1 = Fuori90(A + B)
                        S2 = Fuori90(A + D)
                        S3 = Fuori90(B + C)
                        S4 = Fuori90(C + D)
                        If(S1 = S2) Xor(S1 = S3) Xor(S1 = S4)Xor(S2 = S3)Xor(S2 = S4)Xor(S3 = S4)Then
                           Call SommaTotale(S1,S2,S3,S4,St,Abb1,Abb2,Abb3)
                           Ok = 1
                        End If
                     End If
                     '-----------------------------------------------------------------
                     If DAD = Dist Xor DBC = Dist Then
                        If DAD = Dist Then Distx = " Distanza " & Format2(Dist) & " tra " & Format2(A) & " e " & Format2(D)
                        If DBC = Dist Then Distx = " Distanza " & Format2(Dist) & " tra " & Format2(B) & " e " & Format2(C)
                        S1 = Fuori90(A + B)
                        S2 = Fuori90(A + C)
                        S3 = Fuori90(B + D)
                        S4 = Fuori90(C + D)
                        If(S1 = S2) Xor(S1 = S3) Xor(S1 = S4)Xor(S2 = S3)Xor(S2 = S4)Xor(S3 = S4)Then
                           Call SommaTotale(S1,S2,S3,S4,St,Abb1,Abb2,Abb3)
                           Ok = 1
                        End If
                     End If
                     If Ok = 1 Then
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                        ColoreTesto 2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                        ColoreTesto 0
                        Scrivi
                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " ",1,0
                        For P3 = 1 To 5
                           E1 = Estratto(Es,R1,P3)
                           If E1 = A Or E1 = B Then
                              Call ColoreTesto(2)
                           Else
                              Call ColoreTesto(0)
                           End If
                           Call Scrivi(Format2(E1) & " ",1,0)
                           Call ColoreTesto(0)
                        Next
                        Scrivi
                        Scrivi Space(60) &(Distx),1

                        Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                        Scrivi "  " & SiglaRuota(R2) & " ",1,0
                        For P4 = 1 To 5
                           E2 = Estratto(Es,R2,P4)
                           If E2 = C Or E2 = D Then
                              Call ColoreTesto(2)
                           Else
                              Call ColoreTesto(0)
                           End If
                           Call Scrivi(Format2(E2) & " ",1,0)
                           Call ColoreTesto(0)
                        Next
                        Scrivi
                        Scrivi
                        ColoreTesto(1)
                        Scrivi Space(20) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1
                        ColoreTesto 0
                        Scrivi
                        ColoreTesto 2
                        Scrivi " Ambata " & Format2(St),1,0
                        ColoreTesto 0
                        Scrivi " = " & Format2(Abb1) & " + " & Format2(Abb2) & " + ",1,0
                        Scrivi Format2(Abb3),1
                        Ambata(1) = St
                        ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1,1
                        Ambo1(1) = St : Ambo1(2) = Abb1
                        ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp2,2
                        Ambo2(1) = St : Ambo2(2) = Abb2
                        ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp2,2
                        Ambo3(1) = St : Ambo3(2) = Abb3
                        ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp2,2
                        Quat(1) = St : Quat(2) = Abb1
                        Quat(3) = Abb2 : Quat(4) = Abb3
                        ImpostaGiocata 5,Quat,Ruote,Post,Clp2,2
                        Gioca Es
                     End If
                  End If
               End If
            End If
         End If
      Next
   Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
Function SommaTotale(S1,S2,S3,S4,St,Abb1,Abb2,Abb3)
   If S1 = S2 Or S1 = S3 Or S1 = S4 Then
      St = Fuori90(S2 + S3 + S4)
      Abb1 = S2 : Abb2 = S3 : Abb3 = S4
   End If
   If S2 = S3 Or S2 = S4 Then
      St = Fuori90(S1 + S3 + S4)
      Abb1 = S1 : Abb2 = S3 : Abb3 = S4
   End If
   If S3 = S4 Then
      St = Fuori90(S1 + S2 + S4)
      Abb1 = S1 : Abb2 = S2 : Abb3 = S4
   End If
End Function
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Juri;n2126253 ha scritto:
Va bene.Puoi mettere 10 colpi e non 8?Il resto va bene ma esce poco ho visto.
Grazie.

Ho modificato lo script, ho messo delle domande in modo che puoi cambiarli tu i colpi da giocare, la prima domanda ti chiede quante estrazioni vuoi andare indietro, io lo impostato a 200, ma tu puoi cambiarlo, nella seconda domanda ti chiede per quanti colpi vuoi giocare l'ambata, la terza domanda ti chiede per quanti colpi vuoi giocare gli ambi, naturalmente puoi cambiare a piacere anche questi, e la quarta domanda ti chiede se vuoi cambiare la distanza da cercare, io ho messo 30, anche questa puoi cambiarla.

Ho tolto la prima domanda, quella delle estrazioni indietro, mi sono reso conto che è un doppione dato che c'è scegli range
 
Ultima modifica:

boris

Advanced Member
buongiorno salvo, interessante la distanza 30, ho scaricato il script mi da errore nella definizione .., se ha una dritta per poterlo superare
Call ScegliRange(Ini,Fin,Ini,EstrazioneFin) GRAZIE
 

salvo50

Advanced Member >PLATINUM PLUS<
boris;n2126292 ha scritto:
buongiorno salvo, interessante la distanza 30, ho scaricato il script mi da errore nella definizione .., se ha una dritta per poterlo superare
Call ScegliRange(Ini,Fin,Ini,EstrazioneFin) GRAZIE

Ciao a Tutti.

L'ho scaricato provato e funziona, quella riga funziona solo con spaziometria, se sei anche leggermente un po' pratico di script, puoi mettere la spunta o toglierla completamente quella riga e lo script funziona lo stesso, dimmi se riesci a farlo altrimenti ne posto un altro senza quella riga.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto