AIUTO X LISTATO

[Roby]

Salve,cerco qualcuno che sappia fare il listato per un metodo facile facile...

Scegliere una ruota qualsiasi e sommare tutti i 5 numeri estratti in una estrazione .
Con il risultato di questa somma fare fuori 90 (sottrarre 90) e ancora fuori 90 fino a ottenere
un numero che sia inferiore o uguale a 90.

Al numero che si ottiene aggiungere i valori 2 e 3 (per esempio, viene 70.. fare 70+2 e 70+3 = 73 e rilevare le sortite per 13 colpi

poi si vedra' dal listato se c'è una ruota che si presta particolarmente a questo....

Se il numero è di nuovo superiore a 90 fare FUORI 90

***********************************************
<center>

</center>
***********************************************

 

[rob]

CIAO RECORD10V,SCUSA SE MI INTROMETTO,MA QUESTO METODO DOVE LO HAI TROVATO???E' IDENTICO AL 1000 X 1000 A UN MIO METODO CHE POSTATO IL 27-8-2007!!!SENZA FARE ALCUNA INSINUAZIONE TI ESORTO A DARE UNO SGUARDO CLICCANDO SU QUESTO LINK!!!ROB

http://forum.lottoced.com/topic.asp?TOPIC_ID=67848

 

[Record10V]

in un sito...

***********************************************
<center>

</center>
***********************************************

 

[Record10V]

Si possono postare i link di altri siti?non vorrei che mi ribannino

***********************************************
<center>

</center>
***********************************************

 

[Baffowilly]

Ecco quà il listato

Sub main()
Dim ruote(1)
Dim poste(1)
Dim numeri(2)
r=CInt(InputBox("Su quale ruota?Bari=1 Cagliari =2 ecc.","Ruota",1))
ruote(1)=r
poste(1)=1
casi=0
c=13
For n=EstrazioneFin-399 To EstrazioneFin 
'If IndiceMensile(n)=1 Then '<---se vuoi l'indice estrazionale togliere"'"davanti a If
Scrivi
ColoreTesto 2 : Scrivi " Somma dei 5 estratti di "& NomeRuota(r)&"  ="&SommaEstratti(n,r)& " Fuori90 = "&Fuori90(SommaEstratti(n,r)),1
ColoreTesto 2 : Scrivi " Numeri in gioco per ambata "&Fuori90(SommaEstratti(n,r)+2)&"/"&Fuori90(SommaEstratti(n,r)+3),1

numeri(1)=Fuori90(SommaEstratti(n,r)+2)
numeri(2)=Fuori90(SommaEstratti(n,r)+3)
ImpostaGiocata 1,numeri,ruote,poste,c,1

TabellaGiocate

Gioca n 
casi=casi+1
 'End If '<---come sopra solo nel caso di indice estrazionale
Next 

Scrivi
Scrivi
Scrivi " Totale Mesi analizzati: "&Cint(casi)

ScriviResoconto 1
Scrivi " Saluti dal Baffo "
End Sub

Baffowilly

 

[Record10V]

Innanzitutto grazie Baffowilly,che anche a quest'ora sei stato cosi' gentilissimo...



per rob

Ti capisco,hai perfettamente ragione,poi se ne prendono il merito....

L'1% pero' puo' essere che l'abbiano sperimentato anche loro,booo...[:0]

***********************************************
<center>

</center>
***********************************************

 

[Baffowilly]

ciao Record10V ciao Rob
Diciamo pure che è possibile,anzi vi posso garantire che anch'io tra le innumerevoli
prove che ho fatto, ancora prima di avere il PC ( anni 87/88) con carta e penna ho fatto anche questo (Somma dei 5 estratti /fuori 90 in gioco numero e relativo vertibile) oppure (somma dei 5 estratti dividere per 5 mettere in gioco il risultato con +1 e -1)
Unico inconveniente al tempo era il controllo a ritroso di questi (pseudo metodi) e vi dirò di più uno dei motivi per cui mi sono impegnato ad imparare a fare i listati
è stato proprio per questo motivo, testare tutti questi semplici metodi
Ti posso capire Rob tu lo hai postato quindi è giusto che ne rivendichi la paternita
ma non te la prendere
Un saluto




Baffowilly

 

[Baffowilly]

list

 

[Baffowilly]

list

 

[Record10V]

Ottima anche questa variante,per convergenze ecc...

Grazie

***********************************************
<center>

</center>
***********************************************