Per mike58

[stefanonet35]

Ho trovato questo script nella sezione "Metodi" ma sinceramente non riesco a capire alcune cose .PER ESEMPIO :For ex=es To es+2 ;ReDim Preserve ambo(cc) .
Se non ti dispiace potresti inserire accanto a ogni riga le relative spiegazioni? Scusa la mia ignoranza e forse qualche banalità, ma ho tanta voglia di imparare.


Ti ringrazio anticipatamente.


STEFANONET35



Sub Main()
Dim nmr(90), ru(1), poste(2)
poste(1)=1
poste(2)=1
ru (1)=NA_
ini = EstrazioneFin - EstrazioneIni -100
fin = EstrazioneFin
'co =1
For es=Ini To fin
Messaggio es
co=co+1
If co=1 Then
For r=1 To 10
Erase nmr
For ex=es To es+2
riga=""
For x=0 To 1
r1=r1+x
If r1>10 Then r1=r1-10
riga=riga & SiglaRuota(r1) &" "
For p=1 To 5
nmr(Estratto(ex,r1,p))=nmr(Estratto(ex,r1,p))+1
Next : Next : Next
cc=0
For x=1 To 90
If nmr(x)>1 Then
cc=cc+1
ReDim Preserve ambo(cc)
ambo(cc)=x
End If
Next
If cc>0 Then
If UBound (ambo)=2 Then
Scrivi "Periodo dal "& es &" al "& es+9 &" "& riga &" "& StringaNumeri (ambo),1
ImpostaGiocata 1,ambo,ru,poste,6,2
Gioca es
Scrivi
End If
End If : Next
co=0
End If : Next
ScriviResoconto
End Sub