-
sargantana.
User deleted
Sean
Su un ritaglio apparso in una vecchia rivista ho ritrovato un sistema che ho usato qualche volta con discreta soddisfazione.
In pratica si prendono in considerazione 3 numeri di 3 differenti ruote; vi si aggiungono 3 fissi e si mette in gioco la terzina ottenuta su una quarta ruota.
Ovviamente non ti chiedo il listato perchè ci voglio arrivare da solo; sapresti però consigliarmi un buon listato di partenza sul quale lavorare, apportando le necessarie modifiche?
Penso che questo sia l'unico sistema per rimuovere la ruggine... e riprendere la dimestichezza con LottoScript.
E' chiaro che una volta redatto e verificato il listato verrà postato sul forum
Ciao, grazie!
. -
num3r0.
User deleted
Intanto ciao, è chiaro che se lo scopo principale è quello di riprendere dimestichezza con gli script, ciò che sto per scrivere è del tutto irrilevante, altrimenti un metodo del genere è di facilissima attuazione usando visuallotto, senza l'ausiglio di nessun script!!
Nonostante ciò essendo cosi facile, non credo tu abbia difficoltà a trovare già postato uno script, già redatto a cui eseguirte modifiche, ricordo di averne letto uno o più che giocano una terzina su tutte.....basterà modificare i parametri, credo!!. -
.
Ciao,parti da questo: CODICESub main
Dim n1(3),n2(2),n3(3),n4(4),n5(5),n6(6),n7(7),pt(3),rt(2),nn(2),pta(1)
'pta(1)=1
pt(2)=1
pt(3)=1
clp=9 'colpi di gioco
rt(1)=4 '1a ruota di gioco in questo caso 4 = genova
'rt(2)=10 '2a ruota di gioco
ini=EstrazioneFin -100 ' qui' sono le estrazioni in gioco:In questo caso=100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=1 Then '1a estrazione del mese.Per Mettere Ultima scrivere (es+1)=1
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,1)'<<--- questo è il 1^estr. di Bari!!!
b=Estratto(es,2,1)'<<--- questo è il 1^estr. di Cagliari !!!
c=Estratto(es,3,1)'<<---questo e' il 1^estr. di Firenze !!!
'------------------------------ TERZINA IN GIOCO
n1(1)=Fuori90 (a+1) ' qui' 1° Bari +1
n1(2)=Fuori90 (b+2) ' qui' 1° Cagliari +2
n1(3)=Fuori90 (c+3) ' qui' 1° Firenze +3
ImpostaGiocata 1,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
dovrebbe andare bene,ci sono le istruzioni all'interno per cambiare i valori...fammi sapere se va' bene..
da' questo risultato:CODICE============================================================
mar 01.02.2011 [8333]
G 1: AT 49.60.03 Ge 9/9
negativo
============================================================
mar 01.03.2011 [8345]
G 1: AT 31.08.82 Ge 9/9
negativo
============================================================
sab 02.04.2011 [8359]
G 1: AT 21.60.54 Ge 9/9
negativo
============================================================
mar 03.05.2011 [8372]
G 1: AT 65.40.72 Ge 9/9
negativo
============================================================
Grazie num3r0 per la risposta,quello sopra dovrebbe andare bene... -
sargantana.
User deleted
num3r0 e sean69
Grazie ad entrambi per le risposte.
num3r0
Si, lo scopo era proprio quello di partire da uno script decisamente poco impegnativo e possibilmente garantito funzionante (ecco il motivo delle mia richiesta a sean) per poi modificare le variabili e "vedere l'effetto che fa". Leggi altrimenti: riacquisire la dimestichezza perduta con gli anni. Purtroppo LottoScript NON è propriamente come andare in bicicletta...
sean69
Il sistema (parola grossa...) adesso funziona. L'unico inconveniente è che pur aumentando il numero di estrazioni selezionate la percentuale di successi resta piuttosto bassa mentre la ricordavo un pò più soddisfacente. Evidentemente invecchiando la memoria gioca brutti scherzi...
In generale noto che il medesimo listato, fatto girare sul L8+ 6.0 e Spaziometria, restituisce output differenti e soprattutto in L8+ non sempre la tabellina riassuntiva generata contiene dati ma quasi sempre riporta tutti "0".
Grazia ancora per la pazienza.
Buona giornata..
listato di partenza |
Offline
Web