PER oruam

[Roby]

Ciao quel listato non mi gira, ti rispondo qui dal momento in cui Rob non vuole invasioni sul suo post.

Grazie

Alias Armageddon...
"...Studia il passato se vuoi prevedere il futuro...."

 

[oruam]

ciao,erasmus
cosi dovrebbe andare,col copia e incolla è uscito quel punto interrogativo, che non ti faceva girare lo script....MAh

Sub main() 
Dim nu(5),nn(5),n1(5) ,n2(5) 
Dim ru(1),rt(3) 
Dim post(5),pt(5),ptt(5) 

pt(1)=1 : pt(2)=1 : pt(3)=1 
ru(1)=11 
clp=9 ' colpi di gioco 

ep=CInt (InputBox ("Quante Estrazioni pregresse conteggiamo max ?","ESTR. INDIETRO",200)) 
ca=0 
ini=EstrazioneFin -ep
fin=EstrazioneFin 
For es=ini To fin 
Messaggio ("Sto Elaborando.."& es) 

   For r=1 To 10
      
      For p=1 To 4 
         For pp=p+1 To 5 
            n1(1)=Estratto (es,r,p) 
            n1(2)=Estratto (es,r,pp) 
           a=Massimo( n1(1), n1(2)) 
           b=Minimo( n1(1), n1(2))

               For r1=r+1 To 12 
                  If r1=11 Then r1=12 
                   n2(1)=Estratto (es,r1,p) 
                   n2(2)=Estratto (es,r1,pp) 
                  If (n1(1)= n2(1) And n1(2)=n2(2)) Or (n1(2)= n2(1) And n1(1)=n2(2))  Then  
ca=ca+1    
 

rt(1)=r : rt(2)=r1  : rt(3)=11
nu(1)=Vert(a)
nu(2)=b+1
nu(3)=b-1
nu(4)=b
ImpostaGiocata 1,nu,rt,pt,clp

ColoreTesto 1 : Scrivi String (80,"=") : ColoreTesto 0 
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&"  ["& n1(1)&" . "& n1(2)&"]" 
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r1)&"  "& StringaEstratti (es,r1)&"  ["& n2(1)&" . "& n2(2)&"]" 
Scrivi "Trovato Ambo Ripetuto nell'estrazione numero "& es 
Scrivi "Rilevamento ISOTOPO...e ORDINATO " 
Scrivi "SCHEMA   " & n1(1)&" . "& n1(2)
Scrivi "SCHEMA   " & nu(1) &" . "&nu(2)&" . " & nu(3)&" . " & nu(4)



Scrivi String (35,"_") 
Scrivi "-----------------Giochiamo"
Gioca es 

                  End If                    
               Next 
            Next              
         Next 
      Next 
   Next              

Scrivi : Scrivi "Casi  Trovati Compatibili  "& CInt (ca),1 
ScriviResoconto 
End Sub

================================================================================
26.08.2010  FI  61.79.67.12.52  [12 . 52]
26.08.2010  NA  48.86.11.52.12  [52 . 12]
Trovato Ambo Ripetuto nell'estrazione numero 8266
Rilevamento ISOTOPO...e ORDINATO 
SCHEMA   12 . 52
SCHEMA   25 . 13 . 11 . 12
___________________________________
-----------------Giochiamo
Estrazione generatrice del pronostico 08266 [102 - 26/08/2010]
G 0001
Numeri in gioco : 25.13.11.12 su FI NA TT per Estratto,Ambo,Terno
V N. [25.13.11.12                   ] [FI]     [.. .. .. 13 ..] C.   1 Estratto   08267 [103 - 28/08/2010]
V N. [25.13.11.12                   ] [NA]     [.. 25 .. .. ..] C.   1 Estratto   08267 [103 - 28/08/2010]
V N. [25.13.11.12                   ] [TT] [FI][.. .. .. 13 ..] C.   1 Estratto   08267 [103 - 28/08/2010]
V N. [25.13.11.12                   ] [TT] [NA][.. 25 .. .. ..] C.   1 Estratto   08267 [103 - 28/08/2010]
  N. [25.13.11.12                   ] [FI]     [.. .. .. .. ..] C.   2            08268 [104 - 31/08/2010]
  N. [25.13.11.12                   ] [NA]     [.. .. .. .. ..] C.   2            08268 [104 - 31/08/2010]
V N. [25.13.11.12                   ] [TT] [CA][12 .. .. .. ..] C.   2 Estratto   08268 [104 - 31/08/2010]
  N. [25.13.11.12                   ] [FI]     [.. .. .. .. ..] C.   3            08269 [105 - 02/09/2010]
  N. [25.13.11.12                   ] [NA]     [.. .. .. .. ..] C.   3            08269 [105 - 02/09/2010]
V N. [25.13.11.12                   ] [TT] [GE][.. .. 11 25 ..] C.   3 Ambo       08269 [105 - 02/09/2010]
V N. [25.13.11.12                   ] [TT] [TO][12 .. .. .. ..] C.   3 Estratto   08269 [105 - 02/09/2010]