|
|
|
Salve a voi tutti,questo Listato cerca ,dopo la sortita di una tot spia su ruota,la Terzina(o la Quartina) piu' frequente sortita su 1 o 2 ruote a scelta ogni volta che quella tot spia e' sortita in quella ruota.
Ecco Il risultato:
Ecco il Listato completo di spiegazioni dettagliate di come effettuare modifiche in base alle proprie esigenze:
(In questo caso,dopo l'uscita del numero spia 90 a Torino,il Listato cerca la Terzina o Quartina piu' frequente uscita su Roma e Torino):
CODICE Sub main()
Dim n(4),n1(3),ru(3),ps(3)
Dim ruo(1)
Dim ps1(3)
ps(2)=2
ps(3)=1
ps1(3)=1
r=9 'ruota dove e' uscita la spia
ru(1)=8 '1a ruota di gioco
ru(2)=9 '2a ruota di gioco
ruo(1)=11
For es=EstrazioneFin-165 To EstrazioneFin ' estrazioni da controllare a ritroso,qui' 165
If Posizione(es,r,90)>0 Then ' spia sortita,qui' 90
n(1)=16
n(2)=26
n(3)=41
'n(4)=Fuori90(Estratto(es,r,5)+33) 'per giocare la quartina togliere apice davanti a n4
ImpostaGiocata 1,n,ru,ps,10
Scrivi "----------------------------------------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& SiglaRuota(r) &" "& StringaEstratti(es,r)&" "&"] sortito numero spia !!! = "&""& Format2(90) &" ",1
Gioca es
End If
Next
ScriviResoconto
End Sub
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie! clicca qui
Saluti,sean69!!
Edited by sean69 - 25/1/2011, 09:35
|
|
.
Offline
Web