Per gli scipter

[Roby]

Salve , avrei bisogno del seguente script:

Rintracciare in posizione isotopa un ambo distanza 30 , rimettere in gioco la somma dell'ambo con abbinamenti per terzina degli elementi dell'ambo stesso, per 20 colpi sorte ambo in terzina.

Es fittizio NA 33 CA 63 somma = 6 Terzina per ambo e terno sulle due ruote 6.33.63

Grazie anticipate .

Un saluto e buona giornata.

Mauro
YES WE CAN

 

[Roby]

Poi ve mando il conto!!!
Ciao

Sub main()
Dim num(3)
Dim ruote(10)
Dim poste(3)
poste(2)=1
'poste(3)=1
tmp=InputBox("Quante estrazioni controllo?","Zagor dist. 30 isotopa",100) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If Distanza(a,b)=30 Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "&StringaEstratti(es,r)&" --> "&Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "&StringaEstratti(es,r1)&" --> "&Format2(b)
a1=Fuori90(a+b)
ruote(1)=r
ruote(2)=r1
num(1)=a1
num(2)=Fuori90(a1+30)
num(3)=Fuori90(a1+60)
ImpostaGiocata 1,num,ruote,poste,20,2
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[Zagor]

Ciao Metus , (sopportare pazientemente le persone moleste) , lo script non fa ciò che avevo chiesto , rimette in gioco l'intera terzina simmetrica , mentre io volevo la somma dei due isotopi (con eventuale fuori 90) più gli elementi di ricerca.
Spero di essere stato chiaro.

Per il conto , rimettimi RB a 30 gg sulla (Come dice il mitico Max giusti) BANCA DELLA MAGLIANA.

Mille grazie.

Un saluto e buona giornata.

Mauro
YES WE CAN

 

[Roby]

Opsssssssssss....poco male....letto alla svelta, rimettiasmo in gioco allora l'ambo di distanza 30!!

Sub main()
Dim num(3)
Dim ruote(10)
Dim poste(3)
poste(2)=1
'poste(3)=1
tmp=InputBox("Quante estrazioni controllo?","Zagor dist. 30 isotopa",100) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If Distanza(a,b)=30 Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "&StringaEstratti(es,r)&" --> "&Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "&StringaEstratti(es,r1)&" --> "&Format2(b)
a1=Fuori90(a+b)
ruote(1)=r
ruote(2)=r1
num(1)=a1
num(2)=a
num(3)=b
ImpostaGiocata 1,num,ruote,poste,20,2
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[imported_n/a]

Non male
X Metus,
posta la tua pay-pal che....quando mi avrai insegnato
le varie funzioni,ti spedisco un salame


Parlar sensa pensar xè come sparar sensa mirar

 

[Roby]

quote:Originally posted by Marco

Non male
X Metus,
posta la tua pay-pal che....quando mi avrai insegnato
le varie funzioni,ti spedisco un salame


Parlar sensa pensar xè come sparar sensa mirar

Tu vuoi spedì un salame....a chi fa i salami!!!!!
Naaaaaaaaaaaaaa........non se ne fa di niente!!!
Scopiazza a dx e a sx è l'unico modo per mettersi in testa le tre o quattro funzioni principali.....il resto è solo fantasia e ragionamenti come quelli dell'imbecille elettronico!!
Guarda un po sto resoconto su 100 estrazioni e dimmi che ne pensi??
Vedi che molte volte la bassa percentuale da degli ottimi risultati!!!
Non chiedere il listato perchè non si accettano....salami!!
Ciao

*********************************************************
*********************************************************
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
|              RESOCONTO              | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        | 
+-------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Casi esaminati     :           255  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       | 
| Casi vincenti      :            29  | +----------------------------------+ +----------------------------------+ +----------------------------------+ 
| Percentuale pos.   :       11,37 %  | | BA |     |    3|     |     |     | | BA |     | 8,57|     |     |     | | BA |   35|                       | 
| Giocate in corso   :             5  | | CA |     |    1|     |     |     | | CA |     | 2,86|     |     |     | | CA |   20|                       | 
| Giocate terminate  :           250  | | FI |     |    8|    1|     |     | | FI |     |22,86|33,33|     |     | | FI |   60|                       | 
| Bollette giocate   :           717  | | GE |     |    3|     |     |     | | GE |     | 8,57|     |     |     | | GE |   40|                       | 
| Bollette vincenti  :            29  | | MI |     |   14|    1|     |     | | MI |     |   40|33,33|     |     | | MI |   65|                       | 
| Attesa media       :             2  | | NA |     |    5|    1|     |     | | NA |     |14,29|33,33|     |     | | NA |   15|                       | 
| Spesa              :      844,00 €  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       | 
| Vincita            :    3.675,59 €  | | RM |     |     |     |     |     | | RM |     |     |     |     |     | | RM |     |                       | 
| Guadagno           :    2.831,59 €  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       | 
| Perc. Rendimento   :     335,496 %  | | VE |     |    1|     |     |     | | VE |     | 2,86|     |     |     | | VE |   20|                       | 
| Mass. Esposizione  :      213,00 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       | 
| Estratto su ruota  :            61  | | TT |     |     |     |     |     | | TT |     |     |     |     |     | | TT |     |                       | 
| Ambo su ruota      :            35  | +----------------------------------+ +----------------------------------+ +----------------------------------+

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[imported_n/a]

Probabilmente è un sommativo ciclico
messo in gioco su MI-TT x 2 colpi
Prima o poi (scopiazzando) imparo anche io me


Parlar sensa pensar xè come sparar sensa mirar

 

[Roby]

No no niente sommativa....se era sommativa ti ce mettevo 4 o 5 cinquine, tanto per fa un po di effetti speciali!!
E' una cosa molto più seria .... una specie di malattia...eheheh!!
Ciao

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[Roby]

quote:Originally posted by Marco

Probabilmente è un sommativo ciclico
messo in gioco su MI-TT x 2 colpi
Prima o poi (scopiazzando) imparo anche io me


Parlar sensa pensar xè come sparar sensa mirar

Ciao Marco,vai qui :http://forum.lottoced.com/topic.asp?TOPIC_ID=132958

ce' un sommativo di FILLOTTO ampiamente commentato e modificabile,vedi se ti puo' essere utile !

SUERTE !!!!

 

[Zagor]

Grazie Metus , ottimo.
Se Marco ti manderà un salame allora io ti manderò un prosciutto.[][][]

Un saluto e buona giornata.

Mauro
YES WE CAN

 

[Zagor]

Ciao Metus , ti disturbo ancora.
Si potrebbe modificare il listato giocando i 3 ambi invece della terzina ,per vedere se è più remunerativo ?.In più metterei anche il terzo numero componente la terzina simmetrica per Ambo terno quaterna.
Scusa la scocciatura ma con i listati non ci azzecco proprio.


PS
Bello quel resoconto sopra , largamente in attivo ma immagino che per il listato la risposta sia NO.

Un saluto e buona giornata.

Mauro
YES WE CAN

 

[Roby]

Va beh facciamo un'altro sforzo!!
I prosciutti son gia due, e si preferisce, anzi tassativo Pratomagno.
Per il resoconto ovvio che per il listato nada de nada però googlando byronite in qualche parte del web ce stanno le previsioni.
Saluti

Sub main()
Dim num(2)
Dim num1(2)
Dim num2(2)
Dim num3(4)
Dim ruote(10)
Dim poste(3)
Dim post(4)
poste(2)=1
post(2)=1
post(3)=1
post(4)=1
tmp=InputBox("Quante estrazioni controllo?","Zagor dist. 30 isotopa",100) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If Distanza(a,b)=30 Then
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "&StringaEstratti(es,r)&" --> "&Format2(a)
Scrivi Left(NomeRuota(r1),3)&" "&StringaEstratti(es,r1)&" --> "&Format2(b)
a1=Fuori90(a+b)
c=Fuori90(a+30)
If c=b Then c=Fuori90(a+60)
ruote(1)=r
ruote(2)=r1
num(1)=a1
num(2)=a
ImpostaGiocata 1,num,ruote,poste,20,2
num1(1)=a1
num1(2)=b
ImpostaGiocata 2,num1,ruote,poste,20,2
num2(1)=a
num2(2)=b
ImpostaGiocata 3,num2,ruote,poste,20,2
num3(1)=a1
num3(2)=a
num3(3)=b
num3(4)=c
ImpostaGiocata 4,num3,ruote,post,20,2
Gioca es
Scrivi"***************************************"
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[Zagor]

Grazie Metus , sei come la Panda , se non ci fossi bisognerebbe inventarti.

Un saluto e buona giornata.

Mauro
YES WE CAN

 

[Zagor]

Ciao Metus , grazie mille per l'imput , trovato ed iscritto.

Un saluto e buona giornata.

Mauro
YES WE CAN