-
calabrone60.
User deleted
ciao sean69. come da te consigliato ho provato il listato ambo spia 9-90 a cagliari, a questo indirizzo,
https://illottodisean69.forumfree.it/?t=50895499. l'inserimento manuale dei numeri spia va comunque bene ,ma il resoconto dei dati è in una colonna per volta. mi piacerebbe che mi dasse sia il risultato della ruota spia che quella della ruota di tutte in una sola volta.c'è la possibilità di modificare il listato? (fammi sapere) ciao e GRAZIE
. -
.
ciao,ci provo,appena posso ti rispondo se ci sono riusciuto..
vedi se va bene cosi',il risultato e' questo:
se va' bene,il listato da usare e' il seguente:CODICESub main()
Dim mt(4005,6),n(2),ru(2)
r=1'ruota della spia
a=9 'spia
b=90 '2a spia
cl=10'colpi
rr=7 '1° ruota ,qui' Palermo
rr1=11 '2° ruota,qui' Tutte
ru(1)=rr
ru(2)=rr1
scrivi
For es=6000 To EstrazioneFin-cl' 8000 è l' estrazione di partenza
If Posizione(es,r,a)>0 and Posizione(es,r,b)>0 Then
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
mt(co,4)=SiglaRuota(rr)
mt(co,5)=SiglaRuota(rr1)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,6)=mt(co,6)+fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)&" "&SiglaRuota(rr1)&" "& StringaEstratti (z,rr1)
'next
'----------------------------------------------------
ColoreTesto 0
End if
Next
OrdinaMatrice mt,-1,6
Scrivi "AMBO SPIA "& Format2(a)&"-"& Format2(b)&" sulla ruota di "& NomeRuota(r)
For xx=1 To 8
Scrivi Format2(mt(xx,2))&" "&Format2(mt(xx,3))&" "&mt(xx,4)&" "&mt(xx,5)&" "&Formatspace(mt(xx,6),4,1)
next
End Sub
fammi sapere se e' cio' che intendevi ,ciao e grazie... -
calabrone60.
User deleted
grazie per la risposta, per darti un idea di quello che mi interessa a me ti riporto sotto un esempio.
AMBO SPIA 9-90 SULLA RUOTA DI BARI
7-65 BARI 8 TUTTE 8
spero di essere stato abbastanza chiaro .ciao sean69 e grazie. -
.
ci devo lavorare sopra,vedo che riesco a fare... .