Novità

Cadenze e Decine

Xeroxs

Advanced Member >GOLD<
Buongiorno a Tutti Voi,
Sto elaborando un metodo basata sulla ricerca di un ambo unito su Ruota dove i vari calcoli da eseguire elaborano sia le decine che unità o cadenze dell'ambo da ricercare,
faccio un esempio devo rintracciare ad esempio su Bari un ambo unito dove la decina del primo numero che chiamerò n1 dovrà essere uguale alla cadenza del secondo numero che chiamerò n2 oppure viceversa come da caso reale

17.10.2020 BA 47.24.50.84.17 - Ambo Unito ----------------> [47-24]
n1 = 47 ed n2 = 24
la mia ambata dovrà essere sempre data dall'unione dei numeri della decina e cadenza NON uguali in questo caso 72
il mio 1° abbinamento sarà sempre dato dall'unione dei numeri della decina e cadenza uguali in questo caso 44
il mio 2° Abbinamento sarà dato dalla somma del numero n1 e della decina e cadenza di n2 ( é qui nessun problema)

Ora ho riscontrato il primo problema come escludo dalla ricerca l'ambo vertibile come ad esempio 31-13 del 22 Ottobre ( e quindi ogni ambo vertibile)

2 problema è ovvio che la ricerca trova + combinazioni ma come posso imporre che la mia ambata sia sempre data dall'unione dei numeri diversi? e cosi per il 1° abbinamento che dovrà sempre essere dato dall'unione dei numeri uguali


Potente aiutarmi a correggere questi imprevisti ai quali non riesco a dare una logica soluzione?

Nota non badate alla molteplice presenza di casi che poì andrò a scremare, il metodo è in elaborazione

Di seguito Vi posto lo Script al quale dovrò intervenire per raggiungere le mie idee di gioco ( ma non del tutto mie)



Codice:
' Problemi da Risolvere
' 1)  Se ho l 'ambo vertibile come lo escludo visto che cadenze e decine sono uguali
' 2) l'ambata deve essere sempre data dai numeri non uguali come imporre questo codice
' 3) Il secondo abbianemnto sarà sempre dato dall'unione dei numeri uguali che corrisponde al gemello   

Option Explicit
Sub Main()
   Dim p1,p2,n1,n2,A,B,C,D
   Dim r1,r2,ruote(2),ambata(4),ambo1(2),ambo2(2),posta(1),poste(5),Clp,K
   Dim IE,ini,fin,es
   posta(1) = 1
   poste(2) = 1
   Clp = 9
   IE = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA :",,9820)
   Clp = InputBox("INSERISCI I COLPI DI GIOCO",,9)
   ini = IE
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      r1 = BA_
      For p1 = 1 To 4
         'For p2 = p1 + 1 To 5 ' Per Ambo non Unito = Tutte le Posizioni
         p2 = p1 + 1 ' Ricerca Ambo Unito
         n1 = Estratto(es,r1,p1)
         n2 = Estratto(es,r1,p2)
         If Cadenza(n1) = Decina(n2) Or Decina(n1) = Cadenza(n2) Then
            ruote(1) = r1
            'ruote(2) = r2
            ColoreTesto 1
            K = K + 1
            Scrivi String(96,"*") & " Caso n°" & Format2(K),1
            Scrivi
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " - Ambo Unito  " & " ----------------> " & "[" & Format2(n1) & "-" & Format2(n2) & "]"
            Scrivi
            Scrivi String(106,"-"),1
            Scrivi
            ColoreTesto 0
            '----------------------------------------------------------------------------------------------------------- Calcoli
            If Decina(n1) = Cadenza(n2) Or Cadenza(n1) = Decina(n2) Then
               A = Fuori90(Cadenza(n1) & Decina(n2))
               ' B  = Fuori90(Decina(n1) & Cadenza(n2))
               'A = Fuori90(Cadenza(n1) & Decina(n2)) Or  Fuori90(Decina(n1) & Cadenza(n2)) ' Mia Prova ma non è corretta
            End If
            '----------------------------------------------------------------------------------------------------------- 1 Abbianemto
            ' Nota il 1° Abbianemnto sarà sempre dato dall'unione dei numeri uguali
            C = Fuori90(Decina(n1) & Cadenza(n2))
            '---------------------------------------------------------------------------------------------------------- 2 Abbianemto
            D = Fuori90(n1 + Decina(n2) + Cadenza(n2))
            '---------------------------------------------------------------------------------------------------------- Prove
            'If Decina((n1) <> Cadenza(n2) Then
            'A = Fuori90(Decina(n1) & Cadenza(n2))
            'End If
            'If Decina(n1) = Cadenza(n1) Then
            'B =  Fuori90(Decina(n1) & Cadenza(n2))
            'End If
            'If Cadenza(n1) <> Decina(n2) Then
            'C = Fuori90(Cadenza(n1) & Decina(n2))
            'End If
            'If Cadenza(n1) = Decina(n2) Then
            'D = Fuori90(Cadenza(n1) & Decina(n2))
            'End If
            '-------------------------------------------------------------------- Ambata
            ambata(1) = A
            ImpostaGiocata 1,ambata,ruote,posta,Clp
            '-------------------------------------------------------------------- Ambi
            ambo1(1) = A
            ambo1(2) = C
            ImpostaGiocata 2,ambo1,ruote,poste,Clp
            ambo2(1) = A
            ambo2(2) = D
            ImpostaGiocata 3,ambo2,ruote,poste,Clp
            Gioca es,True
            Scrivi
         End If 'Chiude Cadenza = Decina
      Next 'Chiude p1
      'Next ' Chiude Ambo non Unito
   Next
   ScriviResoconto
End Sub

Sperando in un Vostro intervento Vi Ringrazio comunque fi da ora
 

Xeroxs

Advanced Member >GOLD<
Buongiorno a Tutti
Ho in qualche modo raggiunto alcuni obbiettivi per continuare nell'esecuzione dello Script, ma ho alcuni problemi per ultimarlo

1) Vorrei eliminare la condizione quando ho un ambo vertibile ma non so come fare
esempio ultimo caso o altro precedente

17.09.2020 BA 77.23.45.54.86 - Ambo Unito ----------------> [45-54]
22.10.2020 BA 70.31.13.07.89 - Ambo Unito ----------------> [31-13]


2) Se mi trovo con i numeri = a zero come in questi casi

19.09.2020 BA 18.20.09.74.03 - Ambo Unito ----------------> [20-09]

22.09.2020 BA 07.10.21.80.04 - Ambo Unito ----------------> [07-10]



Come posso far si che il numero da giocare sia il 90
anche in questo caso ho provato ad impostarlo nello script ma nulla

Forse con un If o altro ma nulla

Per Favore se mi aiutate a completare questi Calcoli riuscirò a completare questo tipo analisi
Vi Ringrazio Comunque fin da ora
Vi posto lo script realizzato con le eventuali correzioni

Codice:
' Problemi da Risolvere
' 1)  Se ho l 'ambo vertibile come lo escludo visto che cadenze e decine sono uguali
' 2) l'ambata deve essere sempre data dai numeri non uguali come imporre questo codice
' 3) Il secondo abbianemnto sarà sempre dato dall'unione dei numeri uguali che corrisponde al gemello

Option Explicit
Sub Main()
   Dim p1,p2,n1,n2,A,B,C,D,Num1,Num2,Num3,Num4
   Dim r1,r2,ruote(2),ambata(4),ambo1(2),ambo2(2),posta(1),poste(5),Clp,K
   Dim IE,ini,fin,es
   posta(1) = 1
   poste(2) = 1
   Clp = 9
   IE = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA :",,9820)
   Clp = InputBox("INSERISCI I COLPI DI GIOCO",,9)
   ini = IE
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      r1 = BA_
      For p1 = 1 To 4
         'For p2 = p1 + 1 To 5 ' Per Ambo non Unito = Tutte le Posizioni
         p2 = p1 + 1 ' Ricerca Ambo Unito
         n1 = Estratto(es,r1,p1)
         n2 = Estratto(es,r1,p2)
         If Cadenza(n1) = Decina(n2) Or Decina(n1) = Cadenza(n2) Then
            ruote(1) = r1
            'ruote(2) = r2
            ColoreTesto 1
            K = K + 1
            Scrivi String(96,"*") & " Caso n°" & Format2(K),1
            Scrivi
            Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " - Ambo Unito  " & " ----------------> " & "[" & Format2(n1) & "-" & Format2(n2) & "]"
            Scrivi
            Scrivi String(106,"-"),1
            Scrivi
            ColoreTesto 0
            '----------------------------------------------------------------------------------------------------------- Calcoli
            If n1 = Vert(n2) Then
            A  = False 
            End If
            Num1 = Decina(n1)
            Num2 = Cadenza(n1)
            Num3 = Decina(n2)
            Num4 = Cadenza(n2)
            If Num1 = Num4 And Num2 <> Num3 Then
            A = Cadenza(n1) & Decina(n2)
            End If
            If Num1 <> Num4 And Num2 = Num3 Then
            A = Decina(n1) & Cadenza(n2)
            End If
            '----------------------------------------------------------------------------------------------------------- 1 Abbianemto
            If n1 = Vert(n2) Then
            C  = False 
            End If
            If Num1 And Num4 = 0 Then
            C = 90
            End If
            If Num2 And Num3 = 0 Then
            C = 90
            End If
            ' Nota il 1° Abbianemnto sarà sempre dato dall'unione dei numeri uguali
            If Num1 = Num4 And Num2 <> Num3 Then
            C = Decina(n1) & Cadenza(n2)
            End If
            If Num1 <> Num4 And Num2 = Num3 Then
            C = Cadenza(n1) & Decina(n2)
            End If
            'C = Fuori90(Decina(n1) & Cadenza(n2))
            '---------------------------------------------------------------------------------------------------------- 2 Abbianemto = OK
            D = Fuori90(n1 + Decina(n2) + Cadenza(n2))
            '-------------------------------------------------------------------- Ambata
            ambata(1) = A
            ImpostaGiocata 1,ambata,ruote,posta,Clp
            '-------------------------------------------------------------------- Ambi
            ambo1(1) = A
            ambo1(2) = C
            ImpostaGiocata 2,ambo1,ruote,poste,Clp
            ambo2(1) = A
            ambo2(2) = D
            ImpostaGiocata 3,ambo2,ruote,poste,Clp
            Gioca es,True
            Scrivi
         End If 'Chiude Cadenza = Decina
      Next 'Chiude p1
      'Next ' Chiude Ambo non Unito
   Next
   ScriviResoconto
End Sub

Sperando in un vostro supporto
 

*blacklotto*

Super Member >PLATINUM<
prova a guardare attentamente questo listato di MIke58 se ti potrebbe essere d'aiuto

Sub Main()
'cerca numero isotopo su 2 ruote
Scrivi"Listato per ricerca Numero iso ",True,False,2,4,3
Scrivi" **** Metodo by Solare ***** ",True,False,4,2,3
Scrivi" **** Listed by Mike58 ***** ",True,True,3,1,3
Dim k(2),kk(6)',kkk(3)
Dim ruote(2)
Dim posta(5)
Dim poste(5)
posta(1) = 3
poste(2) = 1.5
poste(3) = .5
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",3))
clp1 = CInt(InputBox("Per quanti colpi di gioco 'AMBATA' ?","COLPI",4))
clp2 = CInt(InputBox("Per quanti colpi di gioco 'AMBO'?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
fin = EstrazioneFin
For es = ini To fin
Call Messaggio("Elaboro Estrazioni . . . . . . " & es & " * * * * Script by Mike58 * * * * ")
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r2,p1)
If n1 = n2 Then ' numero = numero
If n1 <> Gemello(n1) Then ' il numero non è un gemello <--------- <----------- <--------- <-----------
If Cadenza(n1) <> 0 Then ' il numero non è di cadenza zero <--------- <----------- <--------- <-----------
If n1 + n2 < 91 Then ' la somma dei numeri isotopi è inferiore a 91 <--------- <----------- <--------- <-----------
co = co + 1
ColoreTesto 0
ruote(1) = r1
ruote(2) = r2
'--------- Calcolo Numeri ma mettere in gioco-------------
k(1) = Fuori90(n1*2)
k(2) = Vert(k(1))
kk(1) = k(1)
kk(2) = k(2)
kk(3) = kk(1) - 1
kk(4) = kk(1) + 1
'kk(1) = k(2) - 1
kk(5) = k(2) - 1
kk(6) = k(2) + 1
EliminaRipetuti(kk)
If k(1) And k(2) <> n1 Or n2 Then ' i numeri non sono presenti nella estrazione
'If k(1) Or k(2)
'---------------------------------------------------------
Scrivi String(135,"=")
ColoreTesto 1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ---> isotopo " & n1 & " - " & " Posiz. " & p1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " ---> isotopo " & n2 & " - " & " Posiz. " & p1,1
Scrivi String(125,"-") & " Caso n° " & co,1
ColoreTesto 0
ImpostaGiocata 1,k,ruote,posta,clp1,1
ImpostaGiocata 2,kk,ruote,poste,clp2,2
'ImpostaGiocata 3,kkk,ruote,poste,clp2,2
'Gioca es,1,,1
End If
End If
End If
End If
End If
Next
Next
Next
Next
Scrivi
Scrivi "Casi Riscontrati n° " & CInt(co)
'ScriviResoconto
End Sub
 

Xeroxs

Advanced Member >GOLD<
Ciao e Grazie *blacklotto*,
Avevo pensato ad una cosa del genere con degli If e ne farò buon uso.

ora mi resta capire come eliminare questa condizione

************************************************************************************************ Caso n°03

17.09.2020 BA 77.23.45.54.86 - Ambo Unito ----------------> [45-54]

----------------------------------------------------------------------------------------------------------

Estrazione generatrice del pronostico 09822 [ 94 - 17/09/2020]
G 0003 Numeri in gioco : 54 su BA per Ambo

Interrotta per raggiunta durata

oppure eliminare la giocata per questa condizione, ho sistemato l'ambata,

Spero che qualcuno mi possa indicare come fare, infatti non capisco non mi mette l'ambata ed il secondo abbinamento ma il terzo elemento non riesco ad eliminarlo, l'ideale sarebbe azzerare la condizione.... ma come fare? 😭😭

Grazie ancora blacklotto* (y) (y)
 

druid

Super Member >PLATINUM<
Ciao e Grazie *blacklotto*,
Avevo pensato ad una cosa del genere con degli If e ne farò buon uso.

ora mi resta capire come eliminare questa condizione

************************************************************************************************ Caso n°03

17.09.2020 BA 77.23.45.54.86 - Ambo Unito ----------------> [45-54]

----------------------------------------------------------------------------------------------------------

Estrazione generatrice del pronostico 09822 [ 94 - 17/09/2020]
G 0003 Numeri in gioco : 54 su BA per Ambo

Interrotta per raggiunta durata

oppure eliminare la giocata per questa condizione, ho sistemato l'ambata,

Spero che qualcuno mi possa indicare come fare, infatti non capisco non mi mette l'ambata ed il secondo abbinamento ma il terzo elemento non riesco ad eliminarlo, l'ideale sarebbe azzerare la condizione.... ma come fare? 😭😭

Grazie ancora blacklotto* (y) (y)
Ciao Xeros,
il tuo script legge n1=45 (1es) ed n2=54(2es).
Prendi un' altra variabile (es. XY) e l'associ al vertibile di n2, che diventa quindi 45.
Nel primo if
"If Cadenza(n1) = Decina(n2) Or Decina(n1) = Cadenza(n2) Then"
devi mettere come condizione primaria che i due numeri siano diversi quindi:

IF XY<>n1 AND (le tue condizioni precedenti fra parentesi).

Piccolo consiglio: assegna sempre un "valore" ad una variabile....C1=Cadenza(n1)....D2=Decina(n2) da cui nella IF C1=D2 or ecc....
Spero di essere stato chiaro......
Ciao
 

Xeroxs

Advanced Member >GOLD<
Grazie druid per il consiglio,
Sono sempre disposto a seguire i Vostri consigli per imparare ad usare al meglio il programma per i miei scopi ludici e non solo miei, analizzerò bene quanto da Te esposto ed apporrò le modifiche necessarie.
Grazie ancora e buona serata
 

salvo50

Advanced Member >PLATINUM PLUS<
assegna delle variabili alle cadenze e decine
per non avere IF-THEN troppo lunghi che escono fuori dalla visuale

CaN1 = Cadenza(n1) : CaN2 = Cadenza(n2) : DeN1 = Decina(n1) : DeN2 = Decina(n2)
If(CaN1 = DeN2 And DeN1 <> CaN2) Or(DeN1 = CaN2 And CaN1 <> DeN2) Then
 
Ultima modifica:

Xeroxs

Advanced Member >GOLD<
Ciao, Salvo50,
Grazie anche per l Tuo contributo, Sto Riscrivendo lo script seguendo I Tuoi Consigli è quelli degli Altri cercando di arrivare ad una soluzione ideale.

Buona Giornata
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto