Super ambata (tecnica)

[esselotto]

Ciao Clexidra

mi sono permesso di fare lo script del tuo metodo
Gira esclusivamente su Spaziometria
non usate L8 o Ld

rintraccia qualsiasi caso in cui sia presente il 90 in 2° 3° 4° posizione.

 

[esselotto]

Sub main()
Dim ruote(11)
Dim rt(2) 
Dim n(2)
Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim nu(2),na(8),na1(8)

poambata(1)=1 : poambo(2)=1 :poterno(3)=1:poquaterna(4)=1



ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String (25," ")& "Super Ambata (tecnica) ",1
Scrivi String (25," ")& "*** clexidra *** su Lottoced ",1
ColoreTesto 1
Scrivi String (25," ")& "programmed by °°°esselotto°°° ",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1
indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Simmetrici",100))
If indietro= False Then Exit Sub
colpis=CInt(InputBox ("Colpi di gioco?..","Simmetrici",9))
If colpis= False Then Exit Sub
clp=colpis
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin

For es=ini To fin 
       Messaggio "elaborazione. estraz. "&(es)

For r=1 To 10
    rt(1)=r
For p= 2 To 4 
    n(1)=Estratto (es,r,p) 
If n(1)=90 Then 
    n(2)=Estratto (es,r,5)

    am=(90-n(2))
    am1=n(2)

co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
            ''''''''identifica ad esempio 4 caselle
			ReDim MatriceCaselleDaEvid(2,1)
			' Primo elemento
			MatriceCaselleDaEvid(1,0) = r 
			MatriceCaselleDaEvid(1,1) = p 
			' secondo elemento
			MatriceCaselleDaEvid(2,0) = r 
			MatriceCaselleDaEvid(2,1) = 5 
			Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
			
ruote(1)=11
nu(1)=am
nu(2)=am1
ImpostaGiocata 1,nu,rt,poambata,clp

Gioca es
End If
Next
Next 
Next

ScriviResoconto 
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
scrivi "Super Ambata *clexidra",1
End Sub

 

[esselotto]

nella speranza di aver fatto cosa gradita
un saluto da
esselotto

 

[clexidra]

Sarà molto gradito Esselotto...

Clexidra

 

[clexidra]

dal 20.11.2010

Firenze ambate 30-60

Clexidra

 

[clexidra]

Posted - 20/11/2010 : 00:40:56
--------------------------------------------------------------------------------
Quindi stasera si gioca a Genova per l'estratto determinato in 2° 3° 4° posizione i numeri 8 e 82 e a Torino per l'estratto determinato in 2° 3° 4° posizione i numeri 6 e 84


giusto clexidra ?

Sir Jho


<center>al 5° colpo ambata 6 su Torino (determinata se vogliamo)</center>

Clexidra

 

[clexidra]

<center>Al 5° colpo, ambata 60 su Firenze!</center>

Clexidra