Aiuto x Script in Spaziometria e se possibile Adattamento x Visual Lotto 7.0.5

[Manuel67]

Ciao a tutti.
Chiedevo gentilmente se qualcuno di voi sia in grado di sviluppare uno script x spaziometria e magari poi adattarlo in Visual Lotto 7.0.5 con queste caratteristiche:

Ricercare su una ruota una spia
in base alla spia trovata inserire un numero fisso per ambata
Far cercare alo script i 5 miglior algoritmi sommativi o moltiplicativi dei 55 numeri presenti sul quadro estrazionale relativo alla spia trovata combinati fra loro per un minimo di almeno 12 casi

Esempio: ricerco la Spia 90 a cagliari sul quadro estrazionale in qualsiasi posizione o su una posizione determinata.
Metto in gioco l'Ambata 09 x 5 colpi di gioco sulla ruota di Bari
Chiedo allo script di trovare i 5 miglior abbinamenti sommativi o moltiplicativi per ambo con l'ambata 09 a condizione rispettata.

Ad esempio 1° Bari + 2° Bari o il 3° Cagliari x il 1°Nazionale

La stessa cosa sarebbe bello averla per i metodi che vanno dalla 1a alla ultima del mese sempre x 5-6-7 colpi su una o più ruote di gioco.

Mi scuso in anticipo se non sono stato chiaro nell'esporvi i concetti sopra menzionati, ma sono a vostra disposizione per ulteriori chiarimenti in merito.

Grazie di cuore a tutti per la vostra possibile partecipazione a realizzare questo progetto.

Manuel67

 

[Manuel67]

Ciao a tutti.

Volevo dare un esempio di quanto espresso precedentemente per far capire meglio la mia richiesta.

Il listato che segue in Visual 7.0.5 mostra un esempio di un metodo con Spia 68 sulla ruota di Bari che mette in gioco in 6 colpi 4 ambi sulle ruote di Bari - Cagliari

Sub Main()

'Inserisci il codice qui

Dim a as integer

Dim Numeri(2) as integer

Dim Giocate(1) as integer
Giocate(1) = _Ambo

Dim Ruote(2) as integer
Ruote(1)=_BA
Ruote(2)=_CA

Metodo.Init("Ambo a Bari-Cagliari in 6 colpi dopo l'uscita della Spia 68 a Bari","Autore: [Manuel67]", _CasisticaON,21)

Metodo.Progressione(_Ambo, 1, 100)

For a = Estrazione.Ultima To _DataAuto Step -1

If Estrazione.Mensile(a) Then

Dim n1 as integer = (Estratti.Numero(a,_BA,1))
Dim n2 as integer = (Estratti.Numero(a,_BA,2))
Dim n3 as integer = (Estratti.Numero(a,_BA,3))
Dim n4 as integer = (Estratti.Numero(a,_BA,4))
Dim n5 as integer = (Estratti.Numero(a,_BA,5))

If n1 = 68 or n2 = 68 or n3 = 68 or n4 = 68 or n5 = 68 Then

Numeri(1) = 59
Numeri(2) = F90(Estratti.Numero(a,_FI,1)+(Estratti.Numero(a,_PA,2)+40))

Metodo.GiocaPronostico(1, a+1, 6, Numeri, Ruote, Giocate, 0)

Numeri(1) = 59
Numeri(2) = F90(Estratti.Numero(a,_CA,1)+(Estratti.Numero(a,_FI,1)+20))

Metodo.GiocaPronostico(2, a+1, 6, Numeri, Ruote, Giocate, 0)

Numeri(1) = 59
Numeri(2) = F90(Estratti.Numero(a,_BA,4)+(Estratti.Numero(a,_VE,2)+64))

Metodo.GiocaPronostico(3, a+1, 6, Numeri, Ruote, Giocate, 0)

Numeri(1) = 59
Numeri(2) = F90(Estratti.Numero(a,_BA,5)+(Estratti.Numero(a,_GE,1)+64))

Metodo.GiocaPronostico(4, a+1, 6, Numeri, Ruote, Giocate, 0)


End If
End If

If Metodo.CasiElab >=22 then exit For

Next


Metodo.Report()

End Sub


Per poter trovare gli algoritmi sommativi migliori da adattare a questo metodo ho impiegato quattro giorni di ricerca facendo girare i 55 estratti fra loro. Avendo invece una procedura automatizzata da un listato idoneo, credo fermamente che la la stessa operazione potrebbe essere elaborata in pochi minuti.

Spero che ora, questo mio progetto possa essere più chiaro per tutti coloro che programmano in spaziometria e Visual Lotto 7.0.5.

Grazie,
Manuel67

 

[i legend]

Ciao.
In spaziometria c è il modulo metodi sommativi. Fa ricerche per formazioni spia e se non ricordo male anche x indice mensile.
Ciao

 

[Manuel67]

Ciao I Leggend, sapevo già di questi script in spaziometria, ma per quel che ho visto sono incompleti al progetto che avrei avuto il piacere di veder realizzato qui in Lottoced. Ad esempio ho provato a inserire la Spia 68 in programmi sommativi, ma non è stato possibile perchè non esiste l'opzione.

Manuel67

 

[chicco3]

Ciao Manuel e Ilegend saluto con piacere tutti e due da quando eravamo su saigon. Per Manuel ho controllato il tuo script non è male per la spia e sommativi io ti consiglio non uno script ma AlgoWarp ti allego foto dell'ultimo rilevamento della spia 68 a Bari del 28.1.2020 e, dopo l'elaborazione ilnumero più frequente a BA/CA è il 40 al 1 colpo uscito su Cagliari e, abbinamento x ambo 40-38 in cinquina, oppure fare 4 ambi secchi. Adesso vedi tu un saluto a tutti e due Raf

 

[Manuel67]

Ciao Chicco3, contraccambio il tuo saluto con piacere. Grazie per l'incoraggiamento dello script proposto,
AlgoWarp è una funzione integrata in Visual Lotto Professional ? Io sfortunatamente ho la versione 7.0.5 Free dove alcune funzioni non sono funzionali.

Grazie Manuel

 

[chicco3]

Buon giorno Manuele non è integrato è un programma a parte che fa al caso tuo, come è ottimo anche spaziometria. Con questo non voglio istigarti a comprarlo non è che fa i miracoli come tutti.Ciao e buona giornata a te e tutti

 

[Manuel67]

Grazie Chicco per la tua repentina risposta alla mia domanda. Ho provato a cercarlo su internet ma non ho trovato nulla. Ora non so se per ovvi motivi puoi o meno dirmi chi lo commercializza e mi sembra che qui possa lasciarti il mio indirizzo email, come posso fare per avere comunicazioni in privato con te in merito ?

Grazie Manuel

 

[gabby]

aiuto x spaziometria: epr(ba4,-5)- epr(ba1,-8)+13 = 40 come si fa' con spaziometria (script) grazie

 

[Alien.]

e si ma a me lo script da errore qua:

Dim a As Integer


si può correggere,grazie.

 

[Manuel67]

Ciao Alien, lo script di esempio che ho proposto è stato scritto per Visual Lotto 7.0.5. e ovviamente non funziona su Spaziometria. Per utilizzarlo lo devi adattare.

Manuel67

 

[chicco3]

Ciao Manuel scusa ma ti posso rispondere solo adesso per quanto riguarda il mio contatto qui è difficile. Il programma viene commercializzato sempre da chi ha fatto vl7 https://www.vlwarp-team.net/index.html questo è il sito lo contatti tramite email e subito ti riponde Ciao Raf

 

[Manuel67]

Ciao Alien, ho adattato lo script proposto per Spaziometria. Dagli un occhiata e spero che vada bene.

Sub Main()
Dim ruota(2)
Dim posta(1)
Dim posta2(2)
Dim n(10)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
posta(1) = 1
posta2(2) = 1
k = 6 '<-------- numero colpi
ini = 9540 '<---- estrazione di inizio ricerca ( 3950 inizio Archivio senza buchi estrazionali 14-09-1946 )
fin = EstrazioneFin
For es = ini To fin '<------------------------------- ciclo x estrazioni da controllare
For p = 1 To 5 '<-------------------------------- ciclo x posizione estratti
For r = 1 To 1 '<---------------------------- ciclo prima ruota
a = Estratto(es,r,p) '<------------------ estratto prima ruota

If a = 68 Then '<--------------------- se trova la Spia 68 sulla Ruota di Bari
Scrivi "________________________________________________________________"
Scrivi
Scrivi GetInfoEstrazione(es) & " Numero Spia 68 su " & NomeRuota(r)
ruota(1) = BA_ ' <----- prima ruota
ruota(2) = CA_ ' <----- seconda ruota


n(1) = 59 '<----------- numero da giocare come Ambata

ImpostaGiocata 1,n,ruota,posta,k,1 '<--- imposta la giocata x ambata

ambo1(1) = n(1)
ambo1(2) = Fuori90(Estratto(es,FI_,1)+(Estratto(es,PA_,2)+40))

ImpostaGiocata 2,ambo1,ruota,posta2,k,2 '<--- imposta la giocata 1° ambo

ambo2(1) = n(1)
ambo2(2) = Fuori90(Estratto(es,CA_,1)+(Estratto(es,FI_,1)+20))

ImpostaGiocata 3,ambo2,ruota,posta2,k,2 '<--- imposta la giocata 2° ambo

ambo3(1) = n(1)
ambo3(2) = Fuori90(Estratto(es,BA_,4)+(Estratto(es,VE_,2)+64))

ImpostaGiocata 4,ambo3,ruota,posta2,k,2 '<--- imposta la giocata 3° ambo

ambo4(1) = n(1)
ambo4(2) = Fuori90(Estratto(es,BA_,5)+(Estratto(es,GE_,1)+64))

ImpostaGiocata 5,ambo3,ruota,posta2,k,2 '<--- imposta la giocata 4° ambo



Gioca es,,,1 '<----------------------------- gioca le formazioni impostate
End If
Next
Next
Next
ScriviResoconto
End Sub


Ciao, Manuel67

 

[Manuel67]

Grazie Chicco, sempre gentilissimo.
Ho già contattato il fornitore e ora aspetto.

Manuel67

 

[Alien.]

è meno male che c'è Santo Manuel ,grazie.

 

[Manuel67]

Figurati.

Manuel67