|
|
|
Salve a voi tutti,questo Listato mette in gioco ,dopo la sortita di una tot spia su ruota,gli Ambi piu' frequenti sortiti su 2 ruote a scelta ogni volta che quella tot spia e' sortita in quella ruota.( Ricavati tramite i Listati presenti in questa discussione: https://illottodisean69.forumfree.it/?t=50894675)
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 Cagliari,il Listato gioca gli Ambi piu' frequenti usciti su Bari e Cagliari,trovati in precedenza con i listati citati sopra):
Sub main()
Dim n(6),n1(3),ru(3),ps(3)
Dim ruo(1)'aggiunta la ruota tutte
Dim ps1(3)'aggiunta la posta per il solo terno
Dim am(2)'aggiunta ambata
Dim ps2(1)'aggiunta la posta ambata
Dim ps3(2)'aggiunta la posta ambo
Dim ambo(2)'aggiunta 1° ambo
Dim ambo1(2)'aggiunta 2° ambo
Dim ambo2(2)'aggiunta 3° ambo
Dim ambo3(2)'aggiunta 4° ambo
Dim ambo4(2)'aggiunta 5° ambo
Dim ambo5(2)'aggiunta 6° ambo
Dim qa(4)'aggiunta quartina
Dim ci(5)
ps(2)=2
ps(3)=1' assegno 1 euro al terno
ps1(3)=1' assegno 1 euro al terno su tutte
ps2(1)=1' assegno 1 euro all' ambata
ps3(2)=1' assegno 1 euro all' ambo
r=2
ru(1)=1
ru(2)=2
ruo(1)=11 'al vettore delle ruote tutte assegno 11 che equivale a tutte
ambo(1)=02
ambo(2)=30
ambo1(1)=56
ambo1(2)=65
ambo2(1)=57
ambo2(2)=87
ambo3(1)=03
ambo3(2)=61
For es=EstrazioneFin-230 To EstrazioneFin
If Posizione(es,r,90)>0 Then
ImpostaGiocata 3,ambo,ru,ps3,9,2
ImpostaGiocata 4,ambo1,ru,ps3,9,2
ImpostaGiocata 5,ambo2,ru,ps3,9,2
ImpostaGiocata 6,ambo3,ru,ps3,9,2
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
ColoreTesto 2 : Scrivi "--------------------------------------------------------------------",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1)&" " & " [" & " "& SiglaRuota(r) &" "& StringaEstratti(es,r)&" "&"] A Cagliari sortito numero spia !!! = "&""& Format2(90) &" ",1
Gioca es
End If
Next
ScriviResoconto
End Sub
Ed ecco il risultato:
Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie! clicca qui
Saluti,sean69!!
|
|
.
Offline
Web