Cerco Listato

[solare]

Ottimo Cinzia27

 

[solare]

In pratica io con il tuo listato trovo le somme a mio piacimento
poi con un programma che ho analizzo in un certo periodo la coppia degli ambi di somma
ed il programma mi restituisce gli ambi o le ambate più frequenti
i risultati sono buoni sia per ambata ambo e ambetto

 

[Cinzia27]

Grazie della spiegazione.
Spero che il listato ti possa essere utile.

 

[solare]

Grazie mille, sei stata gentilissima
posterò degli ambi appena si crea una condizione valida

 

[Serpico 90]

Buon giorno
Ieri non ho avuto la possibilità di intervenire .
Desidero ringraziare Solare per la sua idea e ringrazio Cinzia che con la sua bravura ha costruito lo script.
Gentile Solare ,io sono un appassionato del 45 e del 90 ...sia come numeri che cerco di abbinare con altri,
sia come somma.
Ti chiedo cortesemente se avrai tempo e voglia quando lo riterrai opportuno se potresti fare una ricerca
sui due numeri, con il tuo procedimento e avere una previsione sempre se lo riterrai opportuno.
Vi auguro un buon proseguimento
Saluti
Serpico

 

[solare]

Ciao serpico90
Certo che lo farò adesso vedo un pò
io dico sempre l'importante che la lottomatica paga
è magari se abbiamo qualcosa di buono passiamocela "Finche dura"

 

[solare]

Per serpico90 e non solo.
Eccoci: nell'estrazione del 12 c.m abbiamo la somma 90 sulle ruote di Cagliari Palermo (Ambi in gioco 3-54 / 19/90)
Genova Venezia somma 90 (ambi in gioco) 32-84 / 34-69.
Per quanto riguarda la somma 45 abbiamo sulle ruote di Bari Napoli (Ambi in gioco 4-61 / 15-27 / 27-54)
ruote di Cagliari Venezia ambi in gioco 27-54.
Ruote di Napoli Torino ambi in gioco 5-81 / 4-29-58.
Ovviamente ognuno gioca quello che decide non serve giocare tutto.
La durata è max 9 estrazioni, non escludere l'ambetto anzi direi di puntare l'80 % sull'ambetto.
Ciao

 

[joe]

Buona giornata a tutte/i.

Mi permetto ancora qualche suggerimento.

Il pulsante indicato dalla freccia permette di indentare lo script.

Una volta, esposto meglio, è possibile distinguere facilmente la struttura composta

da un loop principale che scorre le estrazioni, e 2 secondari dentro di esso.

Le stringhe di asterischi, che separano le estrazioni, che contengono risultati VALIDI della ricerca,

sono così meglio individuate solo dopo che entrambi i 2 cicli interni, hanno rintracciato le condizioni imposte.

Cioè qualche risultato della ricerca nella data dell'estrazione.

Visivamente l'output è solo un pochino più elegante. Senza doppie file di asterischi.

Se però l'output dovesse essere trattato successivamente da altro script o con un editor o un altro altro programma,

delle file di asterischi, in più, renderebbero necessarie ulteriori istruzioni o lavoro necessario per trovarle ed eliminarle.

 

[neri]

grazie dello script somma isotopa 45 90 lo sto esperimentando con una mia idea se trovo buoni risultati poi ve lo scrivo

 

[Serpico 90]

Buona sera a tutti..
" L'unione fa la forza"
Per Cinzia .....ti chiedo,se possibile,altra cortesia,ho uno script che non ricordo se è tuo ,non ricordo da dove l'ho preso ,e se mi dai
l'Ok lo posto, cortesemente se puoi dovresti fare una modifica.
Appena ricevo tuo notizie e sei in linea lo invio.
buon proseguimento

 

[Cinzia27]

Ciao, Serpico.
Posso parlare per me. Se è mio puoi postarlo tranquillamente.

 

[Serpico 90]

io sono un po pasticcione .....quando scarico script purtroppo non scrivo di chi è .
Io lo posto tu lo guardi se puoi fare qualcosa bene ,altrimenti Pazienza.

 

[Serpico 90]

Sub Main
Dim aRetAbb,Ru(2),aN(1),Num(2)
Dim k,r
Ini = EstrazioneIni
fin = EstrazioneFin
Call ScegliRange(Ini,fin,Inizio,fine)
r = InputBox("Quale Ruota Analizzo",,0)
qtAbb = CInt(InputBox("Quanti Abbinamenti",,2))
ReDim Nu(0)
Call ScegliNumeri(Nu)
aa = UBound(Nu)
Scrivi "Range Inizio.......... " & GetInfoEstrazione(Ini),1
Scrivi "Range Fine............ " & GetInfoEstrazione(fin),1
Scrivi "Totali Estrazioni..... " &(fin - Ini) + 1,1
Scrivi
For n = 1 To aa
aN(1) = Nu
T = Array(T,"Ruote","Ambo","Freq","Rit","Max","Incr")
Call InitTabella(T)
Scrivi "CapoGioco Scelto " & aN(1),1,,,1,3,,1
Call Abbinamenti(aN(1),aRetAbb,Ini,fin,r,0)
Ru(1) = r
For k = 1 To qtAbb
ReDim Preserve abb(k)
abb(0) = aN(1)
abb(k) = aRetAbb(k,1)
Num(1) = aN(1)
Num(2) = aRetAbb(k,1)
er = EstrattoRitardo(r,abb(k),Ini,fin)
er1 = EstrattoRitardo(r,abb(0),Ini,fin)
ef = EstrattoFrequenza(r,abb(k),Ini,fin)
ef1 = EstrattoFrequenza(r,abb(0),Ini,fin)
ReDim Preserve ritk(k)
riga = riga + FormattaStringa(er,"000") & " "
rigo = rigo + FormattaStringa(ef,"000") & " "
Call StatisticaFormazione(Num,Ru,2,rit,max,Incr,fre,Ini,fin)
V = Array(v,StringaRuote(Ru),StringaNumeri(Num,,1),fre,rit,max,Incr)
Call AddRigaTabella(V)
Scrivi aN(1) & "-" & Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2) & vbTab & rit & vbTab & Max & vbTab & Incr & vbTab & fre
Next
Call VerificaEsito(abb,Ru,EstrazioneFin,2,1,,esito,,es1)
Scrivi SiglaRuota(r) & vbTab & StringaNumeri(abb,". ",1),1
Scrivi "Rit. " & vbTab & FormattaStringa(er1,"000") & " " & riga
Scrivi "Fre. " & vbTab & FormattaStringa(ef1,"000") & " " & rigo

If esito <> "" Then Scrivi es1,1,,,1
If esito = "" Then Scrivi "Nessun Esito",,,,2
Scrivi "============================================"
CreaTabella
riga = ""
rigo = ""
Next
End Sub


Desidero che la ricerca sia fatta per due numeri e per due ruote..
Solo questa e la modifica .

 

[Serpico 90]

Faccio un esempio
Concorso n.1 del 29.1.21
ruota 2 ruota 3
abbinamenti 2 per le due ruote..


poi il resto dello script resta cosi come è.
io inserisco i due numeri per la ricerca nelle due ruote e lo script mi da i due numeri capigioco e i due numeri di abbinamento .
Spero che con la tua bravura riuscirai a farci questo ulteriore regalo ..

 

[Cinzia27]

Appena posso ci provo

 

[Serpico 90]

Ok grazie
Saluti
Serpico

 

[Cinzia27]

Per cortesia, Serpico, puoi controllare che questi dati siano esatti ?

Range Inizio.......... [00001] [ 1 ] 07.01.1871
Range Fine............ [09963] [ 96] 12.08.2021
Totali Estrazioni..... 9963

CapoGioco Scelto 15
15-48 con presenze 37 266 747 0 49
15-40 con presenze 37 248 1096 0 50
BA CA 15. 48. 40
Rit. 023 011 083
Fre. 564 612 577
Nessun Esito
============================================

Ruote​	Ambo​	Freq​	Rit​	Max​	Incr​
BA.CA​	15.48​	49​	266​	747​	0​
BA.CA​	15.40​	50​	248​	1096​	0​

CapoGioco Scelto 16
16-66 con presenze 39 130 707 0 57
16-04 con presenze 37 241 1173 0 55
BA CA 16. 66. 04
Rit. 003 001 015
Fre. 550 587 569
Nessun Esito
============================================

Ruote​	Ambo​	Freq​	Rit​	Max​	Incr​
BA.CA​	16.66​	57​	130​	707​	0​
BA.CA​	16.04​	55​	241​	1173​	0​

 

[Serpico 90]

Buon giorno
ieri sera non mi sono piu collegato ,quindi non ho potuto rispondere subito.
poco fa ho fatto la verifica con il primo script .....cioè per ruota singola:
inserendo la ruota di bari mi da la previsione con i due numeri 15 e 16 uguale al nuovo script .
inserendo la ruota di cagliari sempre con il primo script mi da come previsioni 15 88----15.51-----16.51------16.82----
non posso verificare con le estrazioni del passato perche la previsione e del 12.8. e quindi si potra verificare con le nuove estrazioni. se le previsioni saranno vincenti........
Se vuoi inserisci il nuovo script che io durante la giornata faccio le verifiche con le estrazioni del passato e potro controllare meglio come da te richiesto .
Sempre grato
auguri buon proseguimento
Ciao

 

[Cinzia27]

Ciao, Serpico.
Ecco lo script.
Non capisco il significato di questi dati, perciò non li ho potuti controllare, per cortesia, potresti controllarli e spiegarmeli?
Il resto mi sembra corretto per entrambi i capogiochi.

Sub Main
Dim aRetAbb,Ru(2),aN(1),Num(2)
Dim k,r
Ini = EstrazioneIni
fin = EstrazioneFin
Call ScegliRange(Ini,fin,Inizio,fine)
r = InputBox("Quale Ruota Analizzo",,0)
r1 = InputBox("Quale Ruota Analizzo",,0)

qtAbb = CInt(InputBox("Quanti Abbinamenti",,2))
ReDim Nu(0)
Call ScegliNumeri(Nu)
aa = UBound(Nu)
Scrivi "Range Inizio.......... " & GetInfoEstrazione(Ini),1
Scrivi "Range Fine............ " & GetInfoEstrazione(fin),1
Scrivi "Totali Estrazioni..... " &(fin - Ini) + 1,1
Scrivi
For n = 1 To aa
aN(1) = Nu(n)
T = Array(T,"Ruote","Ambo","Freq","Rit","Max","Incr")
Call InitTabella(T)
Scrivi "CapoGioco Scelto " & aN(1),1,,,1,3,,1
Call Abbinamenti(aN(1),aRetAbb,Ini,fin,r,0)
Ru(1) = r
Ru(2) = r1
For k = 1 To qtAbb
ReDim Preserve abb(k)
abb(0) = aN(1)
abb(k) = aRetAbb(k,1)
Num(1) = aN(1)
Num(2) = aRetAbb(k,1)
er = EstrattoRitardo(r,abb(k),Ini,fin)
er1 = EstrattoRitardo(r,abb(0),Ini,fin)
ef = EstrattoFrequenza(r,abb(k),Ini,fin)
ef1 = EstrattoFrequenza(r,abb(0),Ini,fin)
eer = EstrattoRitardo(r1,abb(k),Ini,fin)
eer1 = EstrattoRitardo(r1,abb(0),Ini,fin)
eef = EstrattoFrequenza(r1,abb(k),Ini,fin)
eef1 = EstrattoFrequenza(r1,abb(0),Ini,fin)
      
ReDim Preserve ritk(k)
riga = riga + FormattaStringa(er,"000") & " "
rigo = rigo + FormattaStringa(ef,"000") & " "
Call StatisticaFormazione(Num,Ru,2,rit,max,Incr,fre,Ini,fin)
V = Array(v,StringaRuote(Ru),StringaNumeri(Num,,1),fre,rit,max,Incr)
Call AddRigaTabella(V)
Scrivi aN(1) & "-" & Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2) & vbTab & rit & vbTab & Max & vbTab & Incr & vbTab & fre
Next
Call VerificaEsito(abb,Ru,EstrazioneFin,2,1,,Esito,,es1)
Scrivi SiglaRuota(r) & vbTab & SiglaRuota(r1) & vbTab &StringaNumeri(abb,". ",1),1
Scrivi "Rit. " & vbTab & FormattaStringa(er1,"000") & " " & riga
Scrivi "Fre. " & vbTab & FormattaStringa(ef1,"000") & " " & rigo

If Esito <> "" Then Scrivi es1,1,,,1
If Esito = "" Then Scrivi "Nessun Esito",,,,2
Scrivi "============================================"
CreaTabella
riga = ""
rigo = ""
Next
End Sub

 

[Serpico 90]

Grazie Cinzia PER la tua professionalità e Gentilezza nell'esaudire questa mia richiesta e tante altre.
Lo script che hai fatto e DAVVERO UN BEL REGALO .
Per quanto riguarda il significato dei dati ti confesso che non essendo pratico di scritture per far funzionare gli script
non ti so rispondere con esattezza,come ti scrivevo ieri,io ho trovato questo script l'ho copiato e installato su spaziometria.
Per quello che posso capire si tratterebbe di uno script statistico ,per gli abbinamenti con dei numeri che ognuno potrà inserire
io lo utilizzerò per andare a cercare con quali numeri si abbinano i famosi due numeri che io utilizzo per giocare qualche ambo.
Metterò insieme lo script che hai creato per la gentile Solare e dopo utilizzerò questo script per trovare gli abbinamenti per ambo.
Con questo ultimo script eviterò di fare diverse ricerche perchè inserendo le due ruote e due numeri,avrò subito le previsioni per gli abbinamenti.
Che dirti nuovamente grazie
Ora ti auguro un buon riposo e buona festa di Ferragosto.
Vedrò di capire dove posso scriverti in altro tread ,perchè questo e per le richieste di script e magari informarti delle nuove previsioni
che troverò
Saluti
Serpico