Novità

Per salvo50 , una cortesia x uno script

Matematico

Super Member >PLATINUM<
Messaggi
436
Punti reazione
30
Punti
28
Ciao a te salvo50 e a tutti ,

Avrei bisogno di uno script che attraverso un imput box ,mi permetta di inserire 2 estratti a mia scelta ...il primo su BARI in quinta posizione e il secondo su MILANO in prima posizione.....quest ox un astatistica della stessa condizione a ritroso.

Esempio : 31/10/2019

BA-20 in quinta posiz

MI-50 in prima posiz.

Per i lgioco dell'ambata si fà la piramidazione:

2050
255
71 vertibile 17

Ambate 71-17 anche in 1/5 posiz.

per ambo si fà il diametrale in decina del 71 = 76
poi la figura : 71 = 8

Quindi ambi secchi : 71-76/ 71-8 principali e 17-76 / 17-8 secondari
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.046
Punti reazione
53
Punti
48
Ciao Matematico.

Qualche chiarimento

1) Inserisci i 2 numeri tramite inputbox

2) quindi lo script deve cercare nelle estrazioni passate gli stessi numeri inseriti nelle stesse
posizioni

3) se li trova nelle stesse posizioni deve piramidare i 2 numeri e si ferma al cuspide con 2 cifre
fa il vertibile del cuspide e cerca i due numeri come ambata, e 1ª e 5ª posizione e prosegue come da te indicato per ricavare gli altri numeri da giocare.

Ho capito bene o no?
 

Matematico

Super Member >PLATINUM<
Messaggi
436
Punti reazione
30
Punti
28
Ciao salvo50, un saluto a tutti...volevo solo chiedere se è fattibile il listato grazie :)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.046
Punti reazione
53
Punti
48
Ciao Matematico.

Non ho ancora eliminato gli ambi doppi, quindi è da perfezionare, comunque guarda se più o meno è quello che avevi chiesto

Codice:
'Avrei bisogno di uno script che attraverso un imput box ,
'mi permetta di inserire 2 estratti a mia scelta ...
'il Primo su BARI In quinta Posizione e
'il secondo su MILANO In prima posizione.....
'questo per una statistica della stessa condizione a ritroso.
'Esempio : 31/10/2019
'BA-20 In quinta posiz
'MI-50 In prima posiz.
'Per i lgioco dell'ambata si fà la piramidazione:
'2050
'255
'71 vertibile 17
'Ambate 71-17 anche In 1/5 posiz.
'per ambo si fà il Diametrale In Decina del 71 = 76
'poi la Figura : 71 = 8
'Quindi ambi secchi : 71-76/ 71-8 principali e 17-76 / 17-8 secondari
Option Explicit
Sub Main
   Dim FIn,Es,Es1,Es2,Ini,Clp,Salvo50,Ok
   Dim R1,R2,P1,P2,E1,E2
   Dim A,B,C,D,Caso,Casi,SS,Sp
   Dim Pr_Mi,Qu_Ba,Cusp,Vert_Cusp
   Dim DiamD_Cu,Fig_Cu
   Dim Ruo(2),P(2),S(2),Amba(2)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Posta(10),Poste(2)
   Posta(1) = 1
   Posta(6) = 1
   Posta(10) = 1
   Poste(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9703))
   Qu_Ba = CInt(InputBox("Inserisci il Quinto estratto di Bari",Salvo50,20))
   Pr_Mi = CInt(InputBox("Inserisci il Primo estratto di Milano",Salvo50,50))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER MATEMATICO - SCRIPT SALVO50",1,,4,,3,,1
   Ruo(1) = BA_
   Ruo(2) = MI_
   A = Qu_Ba
   B = Pr_Mi
   Es = Ini
   For Es2 = Es - 1 To 1 Step - 1
      Messaggio Es2
      AvanzamentoElab Ini,1,Es2
      Caso = 0
      Ok = 0
      C = Estratto(Es2,BA_,5)
      D = Estratto(Es2,MI_,1)
      If A = C And B = D Then Ok = 1
      If Ok = 1 Then Exit For
   Next
   If Ok = 1 Then
      S(1) = C
      S(2) = D
      SS = StringaNumeri(S,"",True)
      P(1) = Piramide(SS,1)
      P(2) = Piramide(SS,2)
      Cusp = Fuori90(P(2))
      Vert_Cusp = Vert(Cusp)
      DiamD_Cu = DiametraleD(Cusp)
      Fig_Cu = Figura(Cusp)
      Amba(1) = Cusp : Amba(2) = Vert_Cusp
      Ambo1(1) = Cusp : Ambo1(2) = DiamD_Cu
      Ambo2(1) = Cusp : Ambo2(2) = Fig_Cu
      Ambo3(1) = Vert_Cusp : Ambo3(2) = DiamD_Cu
      Ambo4(1) = Vert_Cusp : Ambo4(2) = Fig_Cu
      Caso = Caso + 1
      Casi = Casi + 1
      Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
      Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
      Scrivi " Estrazione iniziale " & Format2(Es) & " del " & DataEstrazione(Es),1
      Scrivi " Estratto da cercare in quinta posizione a  Bari " & Format2(A),1
      Scrivi " Estratto da cercare in prima posizione a Milano " & Format2(B),1
      Scrivi Space(15) & "Trovati in ",1
      Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
      Scrivi "  " & SiglaRuota(BA_) & Sp,1,0
      For P1 = 1 To 5
         E1 = Estratto(Es2,BA_,P1)
         If E1 = C Then
            ColoreTesto 2
         Else
            ColoreTesto 0
         End If
         Scrivi Format2(E1) & Sp,1,0
         ColoreTesto 0
      Next
      Scrivi
      Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
      Scrivi "  " & SiglaRuota(MI_) & Sp,1,0
      For P2 = 1 To 5
         E2 = Estratto(Es2,MI_,P2)
         If E2 = D Then
            ColoreTesto 2
         Else
            ColoreTesto 0
         End If
         Scrivi Format2(E2) & Sp,1,0
         ColoreTesto 0
      Next
      Scrivi
      ColoreTesto 2
      Scrivi Space(27) & SS,1
      Scrivi Space(27) & P(1),1
      Scrivi Space(27) & Format2(Cusp),1
      ColoreTesto 0
      Scrivi " 1ª Ambata " & Format2(Cusp) & "  Vertibile di " & Format2(Cusp) & " = 2ª Ambata " & Format2(Vert_Cusp),1
      Scrivi " 1° Abbinamento, Diametrale in Decina di " & Format2(Cusp) & " = " & Format2(DiamD_Cu),1
      Scrivi " 2° Abbinamento, Figura di " & Format2(Cusp) & " = " & Format2(Fig_Cu),1
      Scrivi
      ImpostaGiocata 1,Amba,Ruo,Posta,Clp
      ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
      ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
      ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
      ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
      Gioca Es
   Else
      Scrivi
      Scrivi " Dall'estrazione " & Format2(Es) & " fino alla prima estrazione, non ci sono stati riscontri per i numeri e posizioni indicate",1,,,,3,,1
   End If
   If Ok = 1 Then ScriviResoconto
End Sub
 

Matematico

Super Member >PLATINUM<
Messaggi
436
Punti reazione
30
Punti
28
Ciao salvo50, ma se inserisco ad esempio la condizione del 14 nov2019 , BA 89 quinto e MI 76 primo non m idà riscontro ..non mi visualizza niente e nemmeno a ritroso dal 1871...
E importantex me che vada\ aricercare altre condizioni simili a ritroso dal 1871...forse non m iero spiegato bene e m iscuso per questo:-(
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.046
Punti reazione
53
Punti
48
Ciao salvo50, ma se inserisco ad esempio la condizione del 14 nov2019 , BA 89 quinto e MI 76 primo non m idà riscontro ..non mi visualizza niente e nemmeno a ritroso dal 1871...
E importantex me che vada\ aricercare altre condizioni simili a ritroso dal 1871...forse non m iero spiegato bene e m iscuso per questo:-(
Se non ti da niente è perchè quella condizione non si è mai verificata, se te quella condizione nel passato delle estrazioni l'hai trovata, dimmi qual'è ed io cercherò di capire perchè lo script non la vede, poi se vuoi vedere quella del 14 nov 2019, devi impostare un'estrazione maggiore di quella perchè come da tua richiesta mi hai detto di andare indietro nelle estrazioni, quindi al 14 nov 2019 corrisponde l'estrazione 9708, per vedere il riscontro di questa estrazione devi impostare un'estrazione maggiore (alla prima domanda inputbox) minimo 9709

ho impostato 9709 estrazione iniziale - 5° BARI - 89, 1° MILANO 76 ed ottengo questo riscontro

matematico 2.PNG
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao a tutti :)
A mio avviso dato che il calcolo è sempre lo stesso la piramide si può calcolare prima della ricerca del ciclo estr
Pos1= scegliesito
Pos2= scegliesito
E1= 20
E2=50
Ambate =piramide(e1&e2,,lunghezza)
Ambate2= ecc...
For idestr = fin ti ini step -1
If posizione (idestr,1,E1)=pos1 and posizione ( idestr, 5,e2)=pos2 then
' codice delle giocate
End if
Next
Scritto da cell guardate bene non ricordo a memoria i parametri della la funzione piramide
Ciao :)
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Si può generalizzare anche la scelta della ruota con
r1= scegliruota
R2= scegliruota
Posizione (idestr,r1,e1)=pos1 and
Ecc then
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.046
Punti reazione
53
Punti
48
Ciao ILegend, io ho pensato che se non c'è riscontro è inutile fare il calcolo della piramide, per la scelta della ruota e posizione avevo pensato di farlo in seguito anche se matematico non me l'ha chiesto
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao ILegend, io ho pensato che se non c'è riscontro è inutile fare il calcolo della piramide, per la scelta della ruota e posizione avevo pensato di farlo in seguito anche se matematico non me l'ha chiesto
Certo è vero ma il calcolo della piramide se vi sono 3 condizioni lo deve eseguire 3 volte e non solo una all inizio .
Cmq va da se che trovare due estratti determinati , non porta una mole co considerevole di dati da filtrare.
metti caso che un ambo è uscito su ruota 21 volte se chiediamo di trovare quell ambo in 2 specifiche posizioni vediamo come il numero degli ambi viene abbattuto, se poi chiediamo di trovare il primo numero in una posizione specifica e cosi anche per il secondo ,
Quanti ambi avremmo ?
Maggiori possibilità si potrebbero avere cercando un numero in posizione e un altro in una qualsiasi .
Oppure ancora
If (posizione ( ID,r,e1)=p1 and posizione (id,r2,e2) ) or
(posizione ( ID,r,e1) and posizione (id,r2,e2) =pos2) then il numero dei casi aumenterebbe , ma questo solo per parlare, non è la ricerca che interessa a matematico.
Ciao:)
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.046
Punti reazione
53
Punti
48
Forse col telefonino non hai potuto seguire tutto lo script, io faccio una sola ricerca, appena trovo i due estratti selezionati non ne cerco altri, se ci sono bene vuol dire che posso fare la ricerca del cuspide, del vertibile ecc..., se non ci sono gli faccio apparire una scritta che gli dice i numeri da te selezionati non ci sono, all'inizio l'avevo fatto che ne cercava più di una coppia, ma dato che come hai appurato pure tu i numeri sono fissi non cambiano e quindi mi cercava gli stessi numeri, erano dei doppioni, quindi poi l'ho fatto con una sola ricerca se c'è procedo con la piramide, ma non ne cerco altre coppie, proprio perche le ruote ed i numeri sono fissi, comunque ti ringrazio sempre per il tuo interessamento.

Adesso aspetto la risposta di Matematico, io l'ho capita così, può anche darsi che non ho capito niente della sua richiesta.
 
Ultima modifica:

Matematico

Super Member >PLATINUM<
Messaggi
436
Punti reazione
30
Punti
28
Forse col telefonino non hai potuto seguire tutto lo script, io faccio una sola ricerca, appena trovo i due estratti selezionati non ne cerco altri, se ci sono bene vuol dire che posso fare la ricerca del cuspide, del vertibile ecc..., se non ci sono gli faccio apparire una scritta che gli dice i numeri da te selezionati non ci sono, all'inizio l'avevo fatto che ne cercava più di una coppia, ma dato che come hai appurato pure tu i numeri sono fissi non cambiano e quindi mi cercava gli stessi numeri, erano dei doppioni, quindi poi l'ho fatto con una sola ricerca se c'è procedo con la piramide, ma non ne cerco altre coppie, proprio perche le ruote ed i numeri sono fissi, comunque ti ringrazio sempre per il tuo interessamento.

Adesso aspetto la risposta di Matematico, io l'ho capita così, può anche darsi che non ho capito niente della sua richiesta.
Ciao salvo50 , i legend e tutti.....non m isono spiegato io, il listato deve ricercare i doppioni ai fini di una ricerca statistica della previsione , ad esempio se io metto 50 quinto di BA e 31 primo di MI , il listato dovrà cercare gli stessi 2 numeri o doppioni a ritroso dal 1939 ad oggi .

Grazie sempre e buona giornata a tutti:)
 

Matematico

Super Member >PLATINUM<
Messaggi
436
Punti reazione
30
Punti
28
Ciao salvo50 , i legend e tutti.....non m isono spiegato io, il listato deve ricercare i doppioni ai fini di una ricerca statistica della previsione , ad esempio se io metto 50 quinto di BA e 31 primo di MI , il listato dovrà cercare gli stessi 2 numeri o doppioni a ritroso dal 1939 ad oggi .

Grazie sempre e buona giornata a tutti
 

salvo50

Advanced Member >PLATINUM PLUS<
Messaggi
2.046
Punti reazione
53
Punti
48
Ciao salvo50 , i legend e tutti.....non m isono spiegato io, il listato deve ricercare i doppioni ai fini di una ricerca statistica della previsione , ad esempio se io metto 50 quinto di BA e 31 primo di MI , il listato dovrà cercare gli stessi 2 numeri o doppioni a ritroso dal 1939 ad oggi .

Grazie sempre e buona giornata a tutti
Ciao a Tutti.

Non capisco a che serve trovarne più di una coppia, allora se ne trovo una o due o tre di coppie uguali, devo con i numeri inseriti fare la piramide, cioè non serve a niente trovare più di una coppia, a meno che per ogni coppia trovata fai la piramide e vedi se i numeri scaturiti dalla piramide escono in quel periodo del ritrovamento della coppia, allora il discorso cambia, però se è così, io non ho idea di come procedere, quindi passo la palla a ILegend, penso che riesca a esaudire la tua richiesta dato che dal primo momento aveva capito che le riceche delle coppie dovevano essere più di una
 
Ultima modifica:

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao in pratica se ho capito bene ogni volta che esce il numero x in posizione x 1ed il numero y in posizione y 1
Allora si mette in gioco l ambata ricava dalla piramide del numero x&numero y ,che sono sempre le stesse.
X matematico
Hai provato a verificare quanti casi produce una ricerca simile?
Ciao :)
 

Matematico

Super Member >PLATINUM<
Messaggi
436
Punti reazione
30
Punti
28
Ciao I Legend , appunto era questa opzione che volevo fare aggiungere ....esempio quanti casi produce a ritroso la stessa condizione 50 quinto di BA e 31 primo di MI ?...e cosi via anche x altri casi con numer idiversi grazie.
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao Matematico ,
ti ho fatto questa domanda per capire ,se avevi gia fatto tu delle ricerche e ti serviva uno script per verificare un idea che aveva gia una buona base di partenza.

Se non ho fatto errori
queste coppie Di estratti hanno dato
Codice:
1BA  2CA  35-78  =   7
3BA  3CA  35-46  =   7
4BA  3CA  46-20  =   7
5BA  5CA  48-72  =   7
1BA  5FI  25-60  =   7
2BA  5FI  57-62  =   7
2BA  5FI  01-25  =   7
4BA  2GE  18-57  =   7
1BA  1MI  48-19  =   8
2BA  3MI  59-28  =   7
2BA  3MI  27-28  =   7
3BA  3MI  81-34  =   7
3BA  5MI  46-83  =   7
4BA  5MI  44-15  =   9
3BA  5NA  08-29  =   7
4BA  3NA  74-43  =   7
3BA  5PA  22-42  =   7
2BA  2VE  81-10  =   8
5CA  1FI  71-77  =   7
5CA  5FI  88-78  =   7
2CA  4MI  08-29  =   7
4CA  4MI  59-35  =   7
5CA  1MI  15-18  =   7
3CA  1NA  53-05  =   8
3CA  2NA  26-83  =   7
5CA  4NA  33-40  =   7
1CA  3PA  90-62  =   7
2CA  2PA  88-59  =   7
4CA  2RO  59-50  =   9
1CA  3TO  69-76  =   7
2CA  5TO  85-22  =   7
4CA  2VE  38-46  =   7
4CA  4VE  73-59  =   7
5CA  5VE  61-58  =   7
4FI  5GE  13-17  =   8
1FI  3NA  48-67  =   7
5FI  5NA  34-77  =   7
4FI  1PA  83-24  =   7
5FI  3PA  40-31  =   7
5FI  4PA  50-58  =   7
5FI  5PA  69-90  =   7
3FI  4RO  28-10  =   7
4FI  1RO  50-85  =   7
4FI  1TO  68-11  =   7
5FI  3TO  19-36  =   7
5FI  3VE  32-20  =   7
5FI  4VE  68-32  =   7
5GE  1MI  05-30  =   7
3GE  1NA  17-88  =   7
2GE  3RO  19-52  =   7
4GE  4RO  63-83  =   7
2GE  4TO  02-64  =   7
4GE  1TO  88-60  =   7
5GE  2TO  87-84  =   7
4GE  4VE  84-21  =   7
2MI  4NA  16-65  =   8
3MI  5PA  08-42  =   7
5MI  1PA  30-74  =   7
5MI  3RO  06-82  =   7
5MI  2TO  15-41  =   7
1NA  2PA  20-61  =   7
1NA  3RO  05-33  =   7
4NA  4RO  16-36  =   7
5NA  4RO  17-06  =   7
5NA  1TO  35-80  =   7
1NA  4VE  87-73  =   7
4PA  4RO  37-22  =   7
5PA  1TO  84-85  =   7
5PA  5TO  77-30  =   7
1PA  4VE  52-12  =   7
3RO  2TO  29-67  =   7
5RO  4TO  67-05  =   7
4RO  2VE  40-20  =   9
1TO  3VE  24-32  =   8
1TO  5VE  33-62  =   7
4TO  1VE  34-63  =   7
5TO  2VE  19-38  =   7
5TO  5VE  44-22  =   7
dal 3950 al 9709
in base alla mia ricerca( se è corretta) queste sono le coppie che hanno dato almeno 7 casi ,
si leggono cosi.
1° riga
1BA 2CA 35-78 = 7
1Ba=35
2Ca =78
casi spia 7

per trovare queste coppie la ricerca è stata lunga .
puoi verificare queste coppie o altre anche con lo script di salvo
per agevolare il lavoro di chi fa script bisogna avere ben chiaro in mente un idea ,un percorso di cio che si vuole ottenere.


Giocare 2 ambate su 2 ruote per 3 colpi senza una progressione adeguate si va già in perdita se non ricordo male
ciao :)
 
Ultima modifica:

Matematico

Super Member >PLATINUM<
Messaggi
436
Punti reazione
30
Punti
28
Ciao I Legend, buona domenica a te e a tutti ,
No io non ho fatto ricerche anche perchè i casi saranno sicuramente pochi andando a ritroso nel tempo , specifico che i casi da trovare sono solo esclusivamente sulla ruota di BA quinto estartto e MI come primo estratto....le altre ruote e posizioni non m iinteressano ....poi và fatta la piramidazione x ottenere l'ambata.

Mi scuso ancora sia con te che con salvo50 se non m isono fatto capire bene.

Sempre grato x il vostro grande lavoro :)
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.200
Punti reazione
84
Punti
48
Ciao I Legend , appunto era questa opzione che volevo fare aggiungere ....esempio quanti casi produce a ritroso la stessa condizione 50 quinto di BA e 31 primo di MI ?...e cosi via anche x altri casi con numer idiversi grazie.
Anche x altri casi con numeri diversi .
Cercavo di dirti che i casi sono pochi.per questo ho fatto la ricerca su tutto l archivio per ogni coppia di estratto.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 dicembre 2019
    Bari
    31
    35
    51
    16
    17
    Cagliari
    74
    45
    88
    04
    02
    Firenze
    58
    79
    71
    32
    70
    Genova
    35
    36
    74
    19
    67
    Milano
    37
    22
    09
    03
    50
    Napoli
    67
    32
    06
    82
    37
    Palermo
    59
    41
    52
    31
    06
    Roma
    17
    79
    01
    58
    19
    Torino
    41
    31
    57
    60
    03
    Venezia
    50
    31
    41
    01
    68
    Nazionale
    05
    12
    65
    02
    13
Alto