Ambo Doppio per listato

[Roby]

Questo listato
E' un metodo basato sui Ambi doppi gioca 2 ambate su due ruote
per estratto determinato per 9 concorsi(colpi)
o per Ambata semplice per 6 concorsi basta togliere gli apici
nei punti indicati.


'Metodo AMBO_ Doppio
' da esselotto
' Ricerco su due ruote due ambi ripetuti isotopi
' per diminuire le combinazioni
Sub main()
Dim ruote(1)
Dim ptd1(6),ptd2(7),ptd3(8),ptd4(9),ptd5(10)
Dim rt(2),pt(5),ptt(5),pte(5),ptq(5)
Dim nu(2),na(10),na1(4),na2(4),na3(4),na4(4),na5(4),na6(4)
Dim SI,co
pt(1)=1 : ptt(2)=1 : pte(3)=1: ptq(4)=1 ' pt e la posta giocata per ambata ptt e quella dell' ambo pte del terno
ptd1(6)=1td2(7)=1td3(8)=1td4(9)=1td5(10)=1
clp=9

ruote(1)=11
ini=EstrazioneFin -800
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
rt(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,pp)

For rr=r+ 1 To 10
rt(2)=rr
For k= 1 To 4
For kk = 1 To 5
' solo posizioni isotopi se si vuole controllare ambi non isotopi
' mettere apice nel seguente if e uno nel end if
If k=p And kk=pp Then

c = Estratto (es,rr,k)
d = Estratto (es,rr,kk)

' controllo che siano ambi uguali
If a=c And b=d Or a=d And b=c Then
' procedo con calcoli
am = Fuori90 (a+b)' la 1° ambata
am1 = Abs (a-b)' la 2° ambata
'assegno a po1 e po2 le posizioni per estratto
If p=1 Then po1=ptd1
If p=2 Then po1=ptd2
If p=3 Then po1=ptd3
If p=4 Then po1=ptd4
If p=5 Then po1=ptd5

If pp=1 Then po2=ptd1
If pp=2 Then po2=ptd2
If pp=3 Then po2=ptd3
If pp=4 Then po2=ptd4
If pp=5 Then po2=ptd5

co=co+1

Scrivi ColoreTesto (2) &"================================================================="
Scrivi "Previsione numero " & co &" °"
ColoreTesto(0)
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" ["& a &"_"& b &"] "
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr)&" ["& c &"_"& d &"] "

nu(1)=am
nu(2)=am1
'ImpostaGiocata 1,nu,rt,pt,clp ' <............Ambata normale togliere apice e portare
' clp a 6


nu(1)=am
nu(2)=am1
ImpostaGiocata 2,nu,rt,po1,clp ' determinato
ImpostaGiocata 3,nu,rt,po2,clp ' determinato


TabellaGiocate
'--------------------------------------------------------------------------------
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
scrivi "°esselotto°"
End Sub

 

[esselotto]

 

[imported_n/a]

Bravo esselotto, continua cosi che sei molto apprezzato.

Ciao Mike58

 

[imported_n/a]

Bravo esselotto, continua cosi che sei molto apprezzato.

Ciao Mike58

 

[esselotto]

ti ringrazio mike58
Da quando ho inserito questo listato 170 visite
e nessuno si era degnato di rispondermi.
Ho dovuto mettere il pupazzo in attesa. Aspetta e spera.

 

[arcor]

quote:Originally posted by esselotto

ciao esselotto complimenti x il listato (visto solo ora)io sono un amante degli script
peccato che non so farli evidentemente quelli che hanno visto il post non gli interessano gli script
quando ne farai di interessanti postali pure vedrai che il nostro appoggio al lavoro non mancherà
ciao

 

[imported_n/a]

ha ragione arcor,a molti non interessa lo script se non hanno il programma,io invece ammiro chi e' capace e non finisco mai di ringraziare chi mi supporta e sopporta nelle mie richieste!!
percio' bravo e continua cosi'!!

sperem semper sperem!!

 

[LuigiB]

Anche io apprezzo i listati di Esselotto ma anche di ZX.
Non so se il listato lo hai scritto con LD o col mio programma ma visto che ci dovrebbe girare questi interventi fanno piacere anche a me !
Ciao !

 

[imported_n/a]

quote:Originally posted by LuigiB

Anche io apprezzo i listati di Esselotto ma anche di ZX.
Non so se il listato lo hai scritto con LD o col mio programma ma visto che ci dovrebbe girare questi interventi fanno piacere anche a me !
Ciao !

Ragazzi ma a voi questo script gira ??
stranamente mi da in errore la funzione "gioca se" eppure sto controllando riga per riga
Complimneti esselotto e grazie per il tuo lavoro
ciao

 

[esselotto]

Finalmente Adesso sono io a ringraziarvi a Tutti
quanti.

Lo script lo scritto con L8++ 6.0 ma va bene anche per il
programma Spaziometria di LuigiB.
Basta togliere TabellaGiocate è funziona anche in Spaziometria. se si hanno problemi basta scrivermi.

Spero di postarne altri. Ma solo metodi che superererano una certa percentuale di vincita. La prossima volta aggiungo anche spiegazione
del metodo.

Colgo inoltre l'occasione per ringraziare LuigiB per aver messo a disposizione un ottimo programma per giunta gratis.
Io personalmente uso le sezioni Spaziometria e ciclometria.

ciao esselotto

 

[imported_n/a]

quote:Originally posted by esselotto

Finalmente Adesso sono io a ringraziarvi a Tutti
quanti.

Lo script lo scritto con L8++ 6.0 ma va bene anche per il
programma Spaziometria di LuigiB.
Basta togliere TabellaGiocate è funziona anche in Spaziometria. se si hanno problemi basta scrivermi.

Spero di postarne altri. Ma solo metodi che superererano una certa percentuale di vincita. La prossima volta aggiungo anche spiegazione
del metodo.

Colgo inoltre l'occasione per ringraziare LuigiB per aver messo a disposizione un ottimo programma per giunta gratis.
Io personalmente uso le sezioni Spaziometria e ciclometria.

ciao esselotto

Scusa esselotto ma a me da sempre lo stesso erroe sulla riga 86 colonna 10 , alla voce gioca es
ciao

 

[esselotto]

ciao cebino
adesso lo controllo anche io su Spaziometria e
rimetto il listato senza errori.

 

[esselotto]

Ciao cebino
dopo aver tolto tabellagiocate
tu hai voluto provare ambi non isotopi
quindi hai messo l'apice sul
If k=p And kk=pp Then
Dovresti metter un apice
anche su L' End if. in fondo allo script.

Comunque allego nuovo script TROVA AMBI UGUALI IN QUALSIASI POSIZIONE
PER SPAZIOMETRIA VERSIONE 1.1.8

 

[esselotto]

<div align="left">' RICERCA AMBO DOPPIO IN QUALSIASI POSIZIONE ESTRATTIVA
' PER SPAZIOMETRIA VERSIONE 1.1.8
'Metodo AMBO_ Doppio
' da esselotto
' Ricerco su due ruote due ambi ripetuti isotopi
' per diminuire le combinazioni
Sub main()
Dim ruote(1)
Dim ptd1(6),ptd2(7),ptd3(8),ptd4(9),ptd5(10)
Dim rt(2),pt(5),ptt(5),pte(5),ptq(5)
Dim nu(2),na(10),na1(4),na2(4),na3(4),na4(4),na5(4),na6(4)
Dim SI,co
pt(1)=1 : ptt(2)=1 : pte(3)=1: ptq(4)=1 ' pt e la posta giocata per ambata ptt e quella dell' ambo pte del terno
ptd1(6)=1td2(7)=1td3(8)=1td4(9)=1td5(10)=1
clp=9

ruote(1)=11
ini=EstrazioneFin -300
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
rt(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,pp)

For rr=r+ 1 To 10
rt(2)=rr
For k= 1 To 4
For kk = 1 To 5
c = Estratto (es,rr,k)
d = Estratto (es,rr,kk)
' controllo che siano ambi uguali
If a=c And b=d Or a=d And b=c Then
' procedo con calcoli
am = Fuori90 (a+b)' la 1° ambata
am1 = Abs (a-b)' la 2° ambata
'assegno a po1 e po2 le posizioni per estratto
If p=1 Then po1=ptd1
If p=2 Then po1=ptd2
If p=3 Then po1=ptd3
If p=4 Then po1=ptd4
If p=5 Then po1=ptd5

If pp=1 Then po2=ptd1
If pp=2 Then po2=ptd2
If pp=3 Then po2=ptd3
If pp=4 Then po2=ptd4
If pp=5 Then po2=ptd5
co=co+1
Scrivi ColoreTesto (2) &"================================================================="
Scrivi "Previsione numero " & co &" °"
ColoreTesto(0)
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" ["& a &"_"& b &"] "
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr)&" ["& c &"_"& d &"] "
nu(1)=am
nu(2)=am1
'ImpostaGiocata 1,nu,rt,pt,clp ' <............Ambata normale togliere apice e portare
nu(1)=am
nu(2)=am1
ImpostaGiocata 2,nu,rt,po1,clp ' determinato
ImpostaGiocata 3,nu,rt,po2,clp ' determinato
'--------------------------------------------------------------------------------
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi "°esselotto°"
End Sub</div id="left">

controlla questa. Io personalmete ho già controllato non ci sono errori.

 

[imported_n/a]

quote:Originally posted by esselotto

<div align="left">' RICERCA AMBO DOPPIO IN QUALSIASI POSIZIONE ESTRATTIVA
' PER SPAZIOMETRIA VERSIONE 1.1.8
'Metodo AMBO_ Doppio
' da esselotto
' Ricerco su due ruote due ambi ripetuti isotopi
' per diminuire le combinazioni
Sub main()
Dim ruote(1)
Dim ptd1(6),ptd2(7),ptd3(8),ptd4(9),ptd5(10)
Dim rt(2),pt(5),ptt(5),pte(5),ptq(5)
Dim nu(2),na(10),na1(4),na2(4),na3(4),na4(4),na5(4),na6(4)
Dim SI,co
pt(1)=1 : ptt(2)=1 : pte(3)=1: ptq(4)=1 ' pt e la posta giocata per ambata ptt e quella dell' ambo pte del terno
ptd1(6)=1td2(7)=1td3(8)=1td4(9)=1td5(10)=1
clp=9

ruote(1)=11
ini=EstrazioneFin -300
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
rt(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,pp)

For rr=r+ 1 To 10
rt(2)=rr
For k= 1 To 4
For kk = 1 To 5
c = Estratto (es,rr,k)
d = Estratto (es,rr,kk)
' controllo che siano ambi uguali
If a=c And b=d Or a=d And b=c Then
' procedo con calcoli
am = Fuori90 (a+b)' la 1° ambata
am1 = Abs (a-b)' la 2° ambata
'assegno a po1 e po2 le posizioni per estratto
If p=1 Then po1=ptd1
If p=2 Then po1=ptd2
If p=3 Then po1=ptd3
If p=4 Then po1=ptd4
If p=5 Then po1=ptd5

If pp=1 Then po2=ptd1
If pp=2 Then po2=ptd2
If pp=3 Then po2=ptd3
If pp=4 Then po2=ptd4
If pp=5 Then po2=ptd5
co=co+1
Scrivi ColoreTesto (2) &"================================================================="
Scrivi "Previsione numero " & co &" °"
ColoreTesto(0)
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" ["& a &"_"& b &"] "
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr)&" ["& c &"_"& d &"] "
nu(1)=am
nu(2)=am1
'ImpostaGiocata 1,nu,rt,pt,clp ' <............Ambata normale togliere apice e portare
nu(1)=am
nu(2)=am1
ImpostaGiocata 2,nu,rt,po1,clp ' determinato
ImpostaGiocata 3,nu,rt,po2,clp ' determinato
'--------------------------------------------------------------------------------
Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi "°esselotto°"
End Sub</div id="left">

controlla questa. Io personalmete ho già controllato non ci sono errori.

Tutto ok "ESSE" funziona a meraviglia grazie 1000

 

[imported_n/a]

Ciao esselotto, come vedi l'apprezzamento per il lavoro c'è da parte di tanti che cominciano a muoversi in questo difficile mondo degli script, e solo grazie allo sforzo di pochi come te noi possiamo attingere a qualche istruzione per imparare.

Ti chiedo se fosse possibile mettere un'istruzione che calcola il ritardo della previsione giocata, es. vicino alla previsione da giocare mettere anche il ritardo che la singola previsione ha al momento del suo ritrovamento.

Ciao e grazie
Mike58

 

[esselotto]

quote:Originally posted by mike58

Ciao esselotto, come vedi l'apprezzamento per il lavoro c'è da parte di tanti che cominciano a muoversi in questo difficile mondo degli script, e solo grazie allo sforzo di pochi come te noi possiamo attingere a qualche istruzione per imparare.

Ti chiedo se fosse possibile mettere un'istruzione che calcola il ritardo della previsione giocata, es. vicino alla previsione da giocare mettere anche il ritardo che la singola previsione ha al momento del suo ritrovamento.

Ciao e grazie
Mike58

ciao mike58
vedo cosa posso fare
esselotto.

 

[imported_n/a]

Ciao esselotto e altri a cui possono interessare gli script, im merito alla mia richiesta del ritardo della previsione con ritardo in parte ci sono arrivato da solo scopiazzando di qua e di la.

Solo non sono riuscito a fare il ritardo attuale della previsione dagli un'occhiata e vedi se con le capacità tu riesci.

allego un esempio di script con metodo vecchioni di ambo unico a tutte.

Ciao Mike58



Sub main()
' ambo unico a tutte by vecchione + RITARDO PREVISIONE'
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
Dim ruote(11)
Dim numeri1(2)' quanti numeri '
Dim poste(2) ' quanta posta ''se vario la cella posta da 2 a 1 mi appare rosso'
poste(2) = 2 'posta 1 '

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '


ri = InputBox("Scrivi quì sotto da che data inizio a controllare.","DATA","31/12/2009")

ruote(11) = TU_
k = 13 ' numero di colpi '

For n = PrimaSuccessiva(ri) To EstrazioneFin ' prima successiva di ri dichiarata in imputbox a ultima estrazione'
If IndiceMensile = 5 Then ' indice mensile '
co = co + 1
ColoreTesto 1
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
Scrivi String(100,"=") & " Caso n°" & co
Messaggio "elab. del " & DataEstrazione 'scrive Messaggio In Output dela data e numero estrazione '
RitAmboTutte = SerieRitardo(n - 90,n,numeri1,ruote,2) ' elabora ritardo a tutte'
frequenzaAmboTutte = SerieFreq(n - 90,n,numeri1,ruote,2) ' elabora frequenza a tutte '

ColoreTesto 1
Scrivi "************Il ritardo per tutte dell'ambo al momento della pevisione ******* è : " & RitAmboTutte,1
Scrivi"*******serie frequenza dell'ambo per tutte dall'estarzione esaminata ******** e : " & frequenzaAmboTutte,2
Scrivi " °°°°°°°°°°°°°°°°°° ritardo della previsione alla data attuale °°°°°°°°°°°°°°° e: " & RitAmboTutte + k,1



Scrivi String(100,"=") & " Mike58 " ' svrive stringa
ColoreTesto 0
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
'PRIMA numero x ambo '
'TERZO DI cagliari + FISSO 39'


'SECONDA numero x ambo'
' 1 estratto di palermo + fisso 1 '

' metodo ambo secco by vecchione '

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '

numeri1(1) = Fuori90(Estratto(n,2,3) + 39) ' mi sembra chiaro che sono gli estratti in posizione + il fisso add '
numeri1(2) = Fuori90(Estratto(n,PA_,1) + 1) ' idem sopra con diff indicata x ruota'
ImpostaGiocata 1,numeri1,ruote,poste,k,2 'imposta numeri - ruota - posta e colpi - blocco uscita(,2) ambo'

Gioca n - 1
End If
Next
ScriviResoconto ' scrive il resoconto'


End Sub

 

[esselotto]

ciao mike58
controllo anche il tuo script.

Per gli amici ddi questo forum.

A proposito sezione Metodi Ambata Ciclometrica
tieni d'occhio ho realizzato un ambo. al 2° colpo

Tra non molto posto listato in quella sezione.
vai a prelevare è un buon metodo, da collezione.

 

[esselotto]

quote:Originally posted by mike58

Ciao esselotto e altri a cui possono interessare gli script, im merito alla mia richiesta del ritardo della previsione con ritardo in parte ci sono arrivato da solo scopiazzando di qua e di la.

Solo non sono riuscito a fare il ritardo attuale della previsione dagli un'occhiata e vedi se con le capacità tu riesci.

allego un esempio di script con metodo vecchioni di ambo unico a tutte.

Ciao Mike58



Sub main()
' ambo unico a tutte by vecchione + RITARDO PREVISIONE'
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
Dim ruote(11)
Dim numeri1(2)' quanti numeri '
Dim poste(2) ' quanta posta ''se vario la cella posta da 2 a 1 mi appare rosso'
poste(2) = 2 'posta 1 '

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '


ri = InputBox("Scrivi quì sotto da che data inizio a controllare.","DATA","31/12/2009")

ruote(11) = TU_
k = 13 ' numero di colpi '

For n = PrimaSuccessiva(ri) To EstrazioneFin ' prima successiva di ri dichiarata in imputbox a ultima estrazione'
If IndiceMensile = 5 Then ' indice mensile '
co = co + 1
ColoreTesto 1
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
Scrivi String(100,"=") & " Caso n°" & co
Messaggio "elab. del " & DataEstrazione 'scrive Messaggio In Output dela data e numero estrazione '
RitAmboTutte = SerieRitardo(n - 90,n,numeri1,ruote,2) ' elabora ritardo a tutte'
frequenzaAmboTutte = SerieFreq(n - 90,n,numeri1,ruote,2) ' elabora frequenza a tutte '

ColoreTesto 1
Scrivi "************Il ritardo per tutte dell'ambo al momento della pevisione ******* è : " & RitAmboTutte,1
Scrivi"*******serie frequenza dell'ambo per tutte dall'estarzione esaminata ******** e : " & frequenzaAmboTutte,2
Scrivi " °°°°°°°°°°°°°°°°°° ritardo della previsione alla data attuale °°°°°°°°°°°°°°° e: " & RitAmboTutte + k,1



Scrivi String(100,"=") & " Mike58 " ' svrive stringa
ColoreTesto 0
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
'PRIMA numero x ambo '
'TERZO DI cagliari + FISSO 39'


'SECONDA numero x ambo'
' 1 estratto di palermo + fisso 1 '

' metodo ambo secco by vecchione '

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '

numeri1(1) = Fuori90(Estratto(n,2,3) + 39) ' mi sembra chiaro che sono gli estratti in posizione + il fisso add '
numeri1(2) = Fuori90(Estratto(n,PA_,1) + 1) ' idem sopra con diff indicata x ruota'
ImpostaGiocata 1,numeri1,ruote,poste,k,2 'imposta numeri - ruota - posta e colpi - blocco uscita(,2) ambo'

Gioca n - 1
End If
Next
ScriviResoconto ' scrive il resoconto'


End Sub

per mike58
Anch'io ho scopiazzato in giro e con l'aiuto della guida Help , ho imparato a programmare
gli script. Normalmente programmo in Visual Basic.
Ma per il lotto ho visto che questi gestori di script vanno benissimo
per testare metodi.

A scrivere i ritardi non ci avevo mai pensato. perche ci sono metodi che non
tengono conto di questo fattore.

Comunque grazie mike 58. E' una buona idea dare più indicazioni della giocata.
In qualche metodo si può usare per eliminare eventuali casi negativi.
A scambiare idee si lavora meglio.
esselotto


ho risolto bug sul tuo script. spedisco cosi come ho risolto.
Riordina tu stesso i vari commandi dello script, e controlla se funziona il tutto.

***********************************************************************

Sub main()
' ambo unico a tutte by vecchione + RITARDO PREVISIONE'
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -