|
|
| Ciao Morenish, con il permesso di occhidigiada..ho fatto delle
modifiche in merito alla richiesta di trovare la condizione anche
in 3a e 4a posizione.
Ciao, Enplein.CODICE Sub main()
Dim ru(1),nu(2),nn(6),pt(1),ptt(3),rtt(2),n3(3),n1(1),ps(10)
pt(1)=1:ptt(2)=1
rtt(1)=11 : rtt(2)=12
clp=14
ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
n=90 'Numero di ricerca in 2a, 3a, 4a posizione
For es=ini To fin
Messaggio es
For r=1 To 11
If r=11 Then r=12
po=Posizione (es,r,n)
If po>0 Then
If po=2 Or po=3 Or po=4 Then
For i=2 To 4
If po=i Then a=Estratto (es,r,po-1) : b=Estratto (es,r,po+1)
Next
'Previsione
Erase ps
If po=2 Or po=3 Or po=4 Then ps(po+5-1)=1:ps(po+5+1)=1:ps(1)=1
ru(1)=r:rtt(1)=r : rtt(2)=11
nu(1)=Fuori90(a+b): nu(2)=(90-nu(1))
co=co+1
Scrivi String (60,"=")&" Caso n°"&co
Scrivi DataEstrazione(es)&" "& SiglaRuota (r)&" "& StringaEstratti(es,r)&" Terna "&a&"-"&n&"-"&b&_
" Pos. "&po-1&"."&po&"."&po+1
Scrivi "I due laterali sono "& a&"-"&b &" "
ImpostaGiocata 1,nu,ru,ps,clp,1
ImpostaGiocata 2,nu,rtt,ptt,clp,2
Gioca es
End If
End If
Next
Next
ScriviResoconto
ColoreTesto 2
Scrivi "Metodo 'La vittoria fà 90 di Morenish' by listed occhidigiada&Enplein.",1
ColoreTesto 0
End Sub
|
| | |
