S.O.S. Listato!!!

[rob.]

Gentilmente qualcuno puo' modificare questo script??

MODIFICA
Allora attualmente lo Script analizza tutte le estrazioni in modo consecutivo,io invece avrei bisogno che lo Script segnalasse SOLO quelle estrazioni dove si verifica una parita' tra i numeri Pari e i numeri Dispari,se qualche volenteroso vorra' fare questa modifica lo ringrazio in anticipo!!

 

[*blacklotto*]

ciao un amico comune aveva fatto questi due listati, provali ! 1° LISTATO PER CINQUINE PARI Sub Main() Scrivi "VISUALIZZA CINQUINE ESTRATTE PARI TRA LE 11 RUOTE " Dim rt(2),ptt(3),n1(5),lg(5),lg2(3) ptt(2)=1.50tt(3)=.50 clp=14 ini=EstrazioneFin -10 fin=EstrazioneFin co=0 For es=ini To fin Messaggio es For r=1 To 11 If r=11 Then r=12 dr1=0 For p=1 To 5 n1(p)=Estratto (es,r,p) If pari(n1(p))= True Then dr1=dr1+1 Next If dr1=5 Then For i=1 To 5 lg(i)=n1(i)/2 Next rt(1)=r : rt(2)=11 co=co+1 Scrivi String (65,"=")&" Caso n°"& co Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r),1 ImpostaGiocata 1,lg,rt,ptt,clp End If Next Next End Sub 2° LISTATO PER CINQUINE DISPARI Sub Main() Scrivi "VISUALIZZA CINQUINE ESTRATTE DISPARI TRA LE 11 RUOTE " Dim rt(2),ptt(3),n1(5),lg(5),lg2(3) ptt(2)=1.50tt(3)=.50 clp=14 ini=EstrazioneFin -100 fin=EstrazioneFin co=0 For es=ini To fin Messaggio es For r=1 To 11 If r=11 Then r=12 dr1=0 For p=1 To 5 n1(p)=Estratto (es,r,p) If pari(n1(p))= False Then dr1=dr1+1 Next If dr1=5 Then For i=1 To 5 lg(i)=Fuori90 (180-n1(i)) Next rt(1)=r : rt(2)=11 co=co+1 Scrivi String (65,"=")&" Caso n°"& co Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r),1 ImpostaGiocata 1,lg,rt,ptt,clp End If Next Next End Sub

 

[Alien.]

Ciao, ti è possibile fare i pari e dispari al superenalotto è 10elotto serale ? grazie.