Ciao a tutti. Posto lo script gentilmente richiesto da 80Sete. Controllate per cortesia che sia corretto.
'Per 80Sete: N. più frequenti dopo la sortita di un numero spia in Posizione determinaa ( Cinzia27)
'Per 80Sete: N. più frequenti dopo la sortita di un numero spia in Posizione determinaa ( Cinzia27)
Codice:
Sub main()
Dim num(90,2)
r=eval(InputBox("Ruota?",,1))
sp=eval(InputBox("Numero Spia?",,34))
pos=eval(InputBox("Posizione?",,1))
colpi=eval(InputBox("colpi di gioco?",,9))
ini=EstrazioneFin-1000
fin=EstrazioneFin-colpi
Scrivi " Dal "& DataEstrazione(ini)&" "&ini&" al "& DataEstrazione(EstrazioneFin)&" "&fin
Scrivi " Numeri più frequenti usciti dopo il numero Spia in posizione "&pos
casi=0
For es=ini To fin
Messaggio " Spia: "&sp&" Estrazione : "&es
If Posizione(es,r,sp)=pos Then
casi=casi+1
ess=es+1+colpi
If ess>fin Then ess=fin End If
For a=es+1 To ess
For k=1 To 90
n1=Estratto(a,r,1)
n2=Estratto(a,r,2)
n3=Estratto(a,r,3)
n4=Estratto(a,r,4)
n5=Estratto(a,r,5)
If n1=k Or n2=k Or n3=k Or n4=k Or n5=k Then
num(k,1)=k
num(k,2)=num(k,2)+1
End If
Next
Next
End If
Next
OrdinaMatrice num, -1, 2
ColoreTesto 1
Scrivi String(70,"*")
Scrivi
Scrivi "Numero spia: "&sp&" su "& NomeRuota(r)&" casi "&casi&" - numeri più frequenti entro "&colpi&" colpi",1
Scrivi : Scrivi : ColoreTesto 2
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(num(i,2),3)&" "
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1
End Sub