help per listato

[Roby]

Ciao a tutti del forum, so che ge tanta gente bravissima a fare dei listati per , io ho acquistato il software ma non riesco a fare listati, chi potrebbe aiutarmi a fare un listato per questo metodo mio personale, con la speranza di poter vincere qualcosina.

Penso che valga per qualsiasi estrazione e per qualsiasi ruota, ma è da analizzare quale possa essere la migliore.

ALLORA SUPPONIAMO PER BARI, SI PRENDE IL PRIMO ESTRATTO SI SOMMA UNO, POI SI TROVA IL SUO VERTIBILE, POI SI PREDNE IL QUINTO ESTRATTO SI SOMMA UNO E POI SI TROVA IL SUO VERTIBILE, SI METTONO IN QUARTINA I QUATTRO NUMERI E SI GIOCA PER AMBO SU TUTTE.

<center>ESEMPIO SULLA RUOTA DI BARI:
ESTRAZIONE 02 MAGGIO 2002
1° ESTRATTO 15
5° ESTRATTO 59

15+1=16
59+1=60

QUARTINA:
16.60.61.06

GRAZIE PER CHI PUò AIUTARE.</center>

 

[maxma62]

Ecco qui, modifica il listato come vuoi tu

Sub main()
Dim ruote(10)
Dim ruota(10)
Dim ruote2(10)
Dim numeri1(10)
Dim poste(5)

poste(2)=2.5
poste(3)=1.
poste(4)=0.5

ruote(1)=1 'ruota di gioco fissa cambiala qui
ruota(1)=11 'ruota di gioco tutte

For es=EstrazioneFin-300 To EstrazioneFin
If IndiceMensile(es)=1 Then 'numero estr. mensile cambiala qui

Scrivi String(55,"*"),1
scrivi"gioca da "&dataestrazione(es+1,1)
Scrivi

a=Fuori90(Estratto(es,1,1)+1) 'ruote ricerca cambiale qui
b=Vert(a)
c=Fuori90(Estratto(es,1,5)+1) 'ruote ricerca cambiale qui
d=Vert(c)
k=12 'colpi gioco cambiali qui

numeri1(1)=a
numeri1(2)=b
numeri1(3)=c
numeri1(4)=d
ImpostaGiocata 1,numeri1,ruota,poste,k,3 'giocata 1 x tutte
ImpostaGiocata 2,numeri1,ruote,poste,k,3 'giocata 2 x ruota fissa
Gioca es
End If
Next
ScriviResoconto
End Sub


ciao, max

 

[mariangela]

NON VOLEVO SU BARI MA SOLO SU TUTTE, COSA DEVO CAMBIARE NEL LISTATO?
GRAZIE MAX

 

[maxma62]

Ci sono tutte e 2 le giocate sia su Ba che Tutte.
Comunque se vuoi solo al giocata su Tutte mettici un apice all' inizio.
Nell' help di trovi tante informazioni.Se ti interessa sapere di più dei listati per ti consiglio di andare nel sito di Danilo o Ramcolotto.
Ciao, max

 

[mariangela]

Grazie max