Lottostudio.NET

'http://www.lottostudio.net/cms/index.php?option=com_kunena&func=view&catid=30&id=15404&Itemid=44#15542
ColoreTesto 1
Scrivi String(37,32) & "2 nr uguali su 2 ruote x Bubu'",1
Scrivi
Scrivi String(48,32) & "Listato DjNomade",1
ColoreTesto 0
Sub main()
Dim k(2),k1(3)
Dim ruote(2),ruotee(10)
Dim posta(5),poste(5),postee(5)
posta(1)=1  
poste(2)=1  
postee(2)=1 
postee(3)=1      
tmp=CInt (InputBox ("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp=CInt (InputBox ("Per quanti colpi di gioco ?","COLPI",12))
co=0
ini=EstrazioneFin -tmp 
For es=ini To EstrazioneFin
Messaggio (es)
For r1=1 To 9
For r2=r1+1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r2,p1)
If (n1)=(n2)  Then
co=co+1
Scrivi String(70,"="): ColoreTesto 2
Scrivi NomeRuota(r1)&"-"& NomeRuota (r2) &_
" Numero isotopo "& n1 &"-"& n2  &" estratto al "&p1&"° posto",1
Scrivi : ColoreTesto 0 

a=91-Fuori90(n1+n2)
b=Fuori90(Fuori90(a+1)+Fuori90(90+a-1))'1^ AMBATA
c=Vert(b)'2^ AMBATA
d=DiametraleD(Fuori90(a+1))
e=DiametraleD(Fuori90(90+a-1))
ruote(1)=r1
ruote(2)=r2
ruotee(1)=r1
ruotee(2)=r2
ruotee(3)=11

k(1)=b
k(2)=c
ImpostaGiocata 1, k, ruote, posta,clp

k(1)=b
k(2)=Fuori90(a+1)
ImpostaGiocata 2, k, ruote, poste,clp
k(1)=b
k(2)=d
ImpostaGiocata 3, k, ruote, poste,clp
k(1)=b
k(2)=e
ImpostaGiocata 4, k, ruote, poste,clp
k(1)=b
k(2)=Fuori90(90+a-1)
ImpostaGiocata 5, k, ruote, poste,clp
k1(1)=c
k1(2)=Fuori90(a+1)
k1(3)=Fuori90(90+a-1)
ImpostaGiocata 6, k1, ruote, postee,clp
k1(1)=c
k1(2)=e
k1(3)=d
ImpostaGiocata 7, k1, ruote, postee,clp
k1(1)=b
k1(2)=c
k1(3)=90
ImpostaGiocata 8, k1, ruotee, postee,clp

Gioca es

End If
Next 
Next : Next  
Next
Scrivi : Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
ColoreTesto 1
Scrivi String(37,32) & "2 nr uguali su 2 ruote x Bubu'",1
Scrivi
Scrivi String(48,32) & "Listato DjNomade",1
ColoreTesto 0
End Sub

Napoli-Venezia Numero isotopo 5-5 estratto al 4° posto

mar 16.10.2012  [8600]
  G  1:  M       72.27      Na Ve       2/12    
     M  72               su Na    2° colpo   [8602/20.10.2012]
     in corso (2° su 12)
  G  2:  A       72.82      Na Ve       2/12    
     in corso (2° su 12)
  G  3:  A       72.87      Na Ve       2/12    
     in corso (2° su 12)
  G  4:  A       72.85      Na Ve       2/12    
     A  72.85            su Na    2° colpo   [8602/20.10.2012]
     in corso (2° su 12)
  G  5:  A       72.80      Na Ve       2/12    
     in corso (2° su 12)
  G  6:  AT      27.82.80   Na Ve       2/12    
     in corso (2° su 12)
  G  7:  AT      27.85.87   Na Ve       2/12    
     in corso (2° su 12)
  G  8:  AT      72.27.90   Na Ve Tu    2/12    
     A  27.72            su Tu (Ro)    1° colpo   [8601/18.10.2012]
     in corso (2° su 12)