Cerca
 
 

Risultati secondo:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Ciclica sommativa
Sab Dic 09, 2017 1:05 pm Da Mara*

» Prove tecniche di trasmissione
Sab Dic 09, 2017 12:22 pm Da Lory

» Ultima del Mese BARI
Gio Dic 07, 2017 7:07 pm Da spike5

» Chi si accontenta .....gode!
Gio Dic 07, 2017 7:04 pm Da spike5

» Da Ambo spia 09-90 a tutte
Lun Dic 04, 2017 9:50 am Da vinci

» BA-GE (vedem che succede)
Lun Nov 20, 2017 7:11 am Da spike5

» Una quartina su Bari
Mer Nov 01, 2017 7:57 pm Da lottomarvin

» Ambo Unico di O. Manara
Lun Ott 30, 2017 12:58 pm Da Mara*

» Nazionale
Gio Ott 12, 2017 10:49 pm Da Mara*


Richista script

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

Richista script

Messaggio Da MAURIZIO ER PUMA il Dom Gen 08, 2017 8:00 pm

Buonasera a tutti e grazie per avermi accetato in questo gruppo. Vorrei richiedere se possibile uno script per un metodo, non mio, che reputo degno di attenzione:

a ricerca va eseguita su numeri distanza 1 o 10 su ruote esclusivamente consecutive

prendo gli ultimi due casi positivi

27-12-2016

firenze 14 prima posizione
genova 24 prima posizione

l'ambata è la somma degli estratti .. in questo caso 14+24= 38
gli abbinamenti sono i numeri di ricerca....
quindi fi-ge---ambata 38---ambi 38-14----38-24------
e potrebbe bastare così.... tenendo conto che se si giocano i due ambi secchi occore
utilizzare l'ambata per recupero.....

ho notato anche che le terzine simmetriche dei numeri di ricerca sono anche loro ottimi
o da utilizzare come abbinamenti oppure utilizzando due quartine....
38-14-44-74
38-24-54-84


questa previsione ha dato a colpo l'ambata 38 e l'ambo 38-14 a Firenze

sempre stessa estrazione 27-12-2016

Palermo 72 quarta posizione
Roma 71 quarta posizione

ambata 53---- ambi 53-71----53-72----

al secondo colpo ambata 53 e ambi 53-71---53-72----Roma

Grazie in anticipo.
avatar
MAURIZIO ER PUMA

Messaggi : 4
Data d'iscrizione : 08.01.17
Località : Roma

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Richista script

Messaggio Da Mara* il Mar Gen 10, 2017 9:29 am

ciao Maurizio  benvenuto in questo gruppo
per lo script io nn ti posso aiutare mi spiace spero che qualcun altro lo faccia
il metodo e' interessante, si puo' comunque fare la ricerca visivamente nel frattempo  Wink  grazie  Smile

avatar
Mara*
moderatore

Messaggi : 1014
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Richista script

Messaggio Da Marco il Mar Gen 10, 2017 3:44 pm

Ciao Maurizio e benvenuto  Smile
per quale software vuoi lo script,perchè da quanto mi risulta,Spaziometria non è più stato aggiornato.Cmq è di facile fattura e se Blackmore passa da queste parti,può essere che ti costruisca lo script (ora utiliziamo VL7)
avatar
Marco
amministratore

Messaggi : 808
Data d'iscrizione : 26.12.13

Vedi il profilo dell'utente http://lottomatematico.forumattivo.it

Tornare in alto Andare in basso

Re: Richista script

Messaggio Da MAURIZIO ER PUMA il Mar Gen 10, 2017 7:50 pm

Ciao Marco, io uso Spaziometria e funziona bene ed è aggiornato. Non conosco VL7 comumque sono certo che su Spaziometria uno script cosi semplice funziona...Grazie di nuovo.
avatar
MAURIZIO ER PUMA

Messaggi : 4
Data d'iscrizione : 08.01.17
Località : Roma

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Richista script

Messaggio Da Mara* il Mer Gen 11, 2017 8:26 pm

eccolo Maurizio...costruito x Spaziometria Smile

Sub main()
Dim Ruote(2),Ambata(1),Terzina(3),Quartina1(4),Quartina2(4),posta(1),Poste(3)
posta(1)= 1
Poste(2)=1
Poste(3)=1
Inizio = InputBox("Inizio",,9200)
Fine = EstrazioneFin
Colpi = InputBox("Colpi",,10)
k=0
For es = Inizio To Fine
For r1 = 1 To 9
r2 = r1+1
Ruote(1)= r1
Ruote(2)= r2
For p = 1 To 5
a = Estratto(es,r1,p)
b = Estratto(es,r2,p)
If Distanza(a,b) = 1 Or Distanza(a,b) = 10 Then
k=k+1
Scrivi String(90,"*")&" Caso n° "& k,1
Scrivi DataEstrazione(es)&" "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&" "& Format2(a)
Scrivi DataEstrazione(es)&" "& SiglaRuota(r2)&" "& StringaEstratti(es,r2)&" "& Format2(b)
ColoreTesto 1: Scrivi "Distanza Tra: "& Format2(a)&" e "& Format2(b) &" = "& Distanza(a,b),1: ColoreTesto 0
Scrivi
Ambata(1)= Fuori90(a+b)
ImpostaGiocata 1,Ambata,Ruote,posta,colpi,1
Terzina(1)= Ambata(1)
Terzina(2)= a
Terzina(3)= b
ImpostaGiocata 2,Terzina,Ruote,Poste,Colpi,2
Quartina1(1)= Ambata(1)
Quartina1(2)= a
Quartina1(3)= Fuori90(a+30)
Quartina1(4)= Fuori90(a+60)
ImpostaGiocata 3,Quartina1,Ruote,Poste,Colpi,2
Quartina2(1)= Ambata(1)
Quartina2(2)= b
Quartina2(3)= Fuori90(b+30)
Quartina2(4)= Fuori90(b+60)
ImpostaGiocata 4,Quartina2,Ruote,Poste,Colpi,2
Gioca es
End If
Next
Next
Next
ScriviResoconto
End Sub

avatar
Mara*
moderatore

Messaggi : 1014
Data d'iscrizione : 27.12.13

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Richista script

Messaggio Da MAURIZIO ER PUMA il Mer Gen 11, 2017 9:45 pm

Perfetto, alla grande. Siete fantastici grazieeee!!!
avatar
MAURIZIO ER PUMA

Messaggi : 4
Data d'iscrizione : 08.01.17
Località : Roma

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: Richista script

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum