ho trovato questo vecchio listato,vedete se puo servire
quote:[Sub main()
'Metodo proposto da Occhidigiada mod. Cinzia
'quando su due ruote trovate isotopi due gemelli uguali...l'
Dim a(2),ru(2),ps(1),aa(3),bb(3),cc(5),pst(2)
k=14
ps(1)=1st(2)=2
For es=EstrazioneFin -50 To EstrazioneFin
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
ru(1)=r
ru(2)=r1
For p= 1 To 5
' For p1= 1 To 5
d=Estratto(es,r,p) :c=Estratto(es,r1,p)
'c=Estratto(es,r1,p1)
If d>0 And c>0 And Gemello(d) And Gemello(c) Then
b1=90-d: b2=90-c: b3=Fuori90(b1+45): b4=Fuori90(b2+45): b5=Fuori90(b2+b3)
b6=Diametrale(b1): b7=Diametrale(b2): b8=Fuori90(b1+b7): b9=Fuori90(b2+b6)
a(1)=b5 :aa(1)=b5:aa(2)=b2:aa(3)=b3:bb(1)=b5: bb(2)=b1: bb(3)=b4
cc(1)=b1:cc(2)=b2:cc(3)=b6:cc(4)=b7:cc(5)=b5
Messaggio(es)
ColoreTesto 2
Scrivi " "&es&" "&siglaruota(r)&" "&siglaruota(r1)&" "&format2(d) &" "&format2(c)
ColoreTesto 0
ImpostaGiocata 1,a,ru,ps,k
ImpostaGiocata 2,aa,ru,pst,k
ImpostaGiocata 3,bb,ru,pst,k
ImpostaGiocata 4,cc,ru,pst,k ' cinquina proposta da occgi combacia con i numeri di tressette
Gioca es
End If
Next
Next
Next
Next
'Next
ScriviResoconto
End Sub
/quote]
usate il mitico programma spaziometria del grande Luigi
8258 NA RM 33 77
Estrazione generatrice del pronostico 08258 [ 94 - 07/08/2010]
G 0001
Numeri in gioco : 25 su NA RM per Estratto
In corso per altre 14 estrazioni
G 0002
Numeri in gioco : 25.13.12 su NA RM per Ambo
In corso per altre 14 estrazioni
G 0003
Numeri in gioco : 25.57.58 su NA RM per Ambo
In corso per altre 14 estrazioni
G 0004
Numeri in gioco : 57.13.12.58.25 su NA RM per Ambo
In corso per altre 14 estrazioni
+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 146 |
| Casi vincenti : 240 |
| Percentuale pos. : 100 % |
| Giocate in corso : 156 |
| Giocate terminate : 428 |
| Bollette giocate : 13.856 |
| Bollette vincenti : 386 |
| Attesa media : 5 |
| Spesa : 24.248,00 € |
| Vincita : 20.865,22 € |
| Guadagno : -3.382,78 € |
| Perc. Rendimento : -13,951 % |
| Estratto su ruota : 578 |
| Ambo su ruota : 206 |
| Terno su ruota : 14 |
+---------------------------------------+