Aiuto x spia decina

[rossduca]

Salve a tutti
ho modificato questo sript di Rosanna per trovare dieci estratti in decinanaturale uciti dopo il verifcarsi della spia
di appartenenza

abbiamo l'output senza spia conteggiata

"dec no spia ril: 8.2.4.7.10.7.5.5.10.9"

sia con spia

"dec si spia ril: 1.8.2.4.7.10.7.5.5.8"

L'output con la spia di rilevamento inclusa è esatto, mentre quello senza spia ha un errore che non riesco a correggere.


dovrebbe essere

"8.2.4.7.10.7.5.5.8.10"

invece è

"8.2.4.7.10.7.5.5.10.9"

Se Rosanna passa da queste parti........

allego script e parametri della prova fatta da me

barra estrazioni 8900-16/09/2014
periodo di analisi",,27
ruota di ricerca",,1
numero spia",,1
UN SALUTO a TUTTI
Ross

Sub Main()
	Dim d(10),c(10),f(10),gen(90,10)
	ci = 0
	x = InputBox("Inserire i periodo di analisi",,27)
	r = InputBox("Inserire la ruota di ricerca",,1)
	Do While kk = True
		ci = ci + 1
		' = InputBox("Inserire i periodo di analisi",,27)
		' = InputBox("Inserire la ruota di ricerca",,1)
		n = InputBox("Inserire il numero spia",,1)
		Scrivi Space(9) & "SPIA " & N & " su " & SiglaRuota(R),1
		Scrivi " Ricerca sortita primi 10 numeri della stessa: ",1
		Scrivi " Decina Nat.  - Decina Nat.",1
		Scrivi " dal " & DataEstrazione(EstrazioneFin - x) & " al " & DataEstrazione(EstrazioneFin) & Chr(10),1
		Scrivi " " &(es)
		For i = 1 To 10
			For y = 1 To 10
				gen(i,y) = 0
			Next
		Next
		For i = 1 To 90
			If DecinaNaturale(i) = DecinaNaturale(CInt(n)) Then cod = cod + 1 : gen(cod,1) = i
			If DecinaNaturale(i) = DecinaNaturale(CInt(n)) Then coc = coc + 1 :gen(coc,3) = i
		      'If DecinaNaturale(i) = DecinaNaturale(CInt(n)) Then cof = cof + 1 :gen(cof,5) = i
		Next
		For es = EstrazioneFin - x To EstrazioneFin
			If Posizione(es,r,n) <> 0 Then
				Scrivi " " & DataEstrazione(es)
				Scrivi " " &(es)
				Erase d : Erase c : Erase f :	cd = 0 : cc = 0 :cf = 0
				If cd < 10 Or cc < 10 Or cf < 10 Then
					For es1 = es To es + 100
						For p = 1 To 5
							'For pp =p+p  To 4
							If cd < 10 And Estratto(es1,r,p) <> CInt(n) And DecinaNaturale(Estratto(es1,r,p)) = DecinaNaturale(CInt(n)) Then
								If Estratto(es1,r,p) <> d(1) Then
									cd = cd + 1
									d(cd) = Estratto(es1,r,p)
									For i = 1 To 90
										If Estratto(es1,r,p) = gen(i,1)Then gen(i,2) = gen(i,2) + 1
									Next
								End If
							End If
							If cc < 10 And DecinaNaturale(Estratto(es1,r,p)) = DecinaNaturale(CInt(n)) Then
								If Estratto(es1,r,p) <> c(1) Then
									cc = cc + 1
									c(cc) = Estratto(es1,r,p)
									For i = 1 To 90
										If Estratto(es1,r,p) = gen(i,3)Then gen(i,4) = gen(i,4) + 1
									Next
								End If
							End If
							'If cf < 10 And DecinaNaturale(Estratto(es1,r,p)) = DecinaNaturale(CInt(n)) Then
								'If Estratto(es1,r,p) <> f(1) Then
									'cf = cf + 1
									'f(cf) = Estratto(es1,r,p)
									'For i = 1 To 90
										'If Estratto(es1,r,p) = gen(i,5)Then gen(i,6) = gen(i,6) + 1
									'Next
								'End If
							'End If
						Next
					Next
					'Next
					Scrivi Space(11) & "dec no spia ril: " & StringaNumeri(d)
					Scrivi Space(11) & "dec si spia ril: " & StringaNumeri(c)
					'Scrivi Space(11) & "dec: " & StringaNumeri(f) & Chr(10)
				End If
			End If
		Next
		Scrivi
		Scrivi Space(7) & "STATISTICA RIEPILOGATIVA " & Chr(10),1
		Scrivi Space(8)& " Decina Nat." & DecinaNaturale(n) & " - Decina Nat." & DecinaNaturale(n),1
		ScriviMatrice gen
		Erase gen
		If ci = 1 Then
			Exit Do
		End If
	Loop
End Sub
Function kk
	For p = 1 To 5
		If p = 5 Then
			kk = True
			Exit Function
		End If
	Next
	kk = False
End Function