Aiuto x listati spia.

[rossduca]

Salve a tutti
Il primo list. per ogni numero della decina naturale impostata cerca a ritroso il numero per 27 volte e conteggia
il primo uscito della stessa decina di appartenenza nella estazione successiva .
Se fosse possibile vorrei che trovasse anche il secondo numero uscito, sarebbe ancora meglio se con un imputbox si
potesse decidere quanti trovarne.

Il secondo script non gira in spaziometria
Se qualcuno ha tempo e voglia un grazie mille.

UN SALUTO
AUGURI A TUTTI
Ross

primo list

Sub Main()
Scrivi "Spia - con 27 presenze X ambata con il numero + freq." & Chr(10)
Dim ru1(1),nr(10),nu(10),ex(27),sf(10),amb(1),posta(1)
posta(1) = 1
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?",Florindi,0))
If ee = "" Then Exit Sub
'cl = CInt(InputBox("Quanti colpi ?",Florindi,18))
'If cl = "" Then Exit Sub
r1 = CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",Florindi,1))
If r1 = "" Then Exit Sub
es = EstrazioneFin - ee
For nn = 1 To 10
	g = 0
	For i = 0 To 3000
	If Posizione(es - i,r1,nn) > 0 Then g = g + 1:ex(g) = es - i
	If g = 27 Then Exit For
	Next
	es2 = ex(27)
	Erase nu : Erase nr
	ru1(1) = r1:h = 0
	de = DecinaNaturale(nn)
		For j = 1 To 10
		nu(j) = CInt(de & j)
		If j = 10 Then nu(j) = CInt((de + 1) & "0")
		Next
			For i = 1 To 10
			nm = nu(i):k = 0:sf(i) = 0
				For z = 27 To 1 Step - 1
				ok = 0
					For y = 1 To 100
					If SerieFreq((ex(z) + y),(ex(z) + y),nu,ru1,1) > 0 Then ok = 1:es1 = ex(z) + y
					If ok = 1 Then Exit For
					Next
					If Posizione(es1,r1,nm) > 0 Then k = k + 1
				Next
			sf(i) = sf(i) + k
			Next
				w = 0
				For x = 1 To 10
				If sf(x)=>0 Then w=1 : amb(1)=nu(x)
				Next
				If w = 1 Then 'Cerca le 10 presenze

ColoreTesto 0
Scrivi :Scrivi
Scrivi" Dal " & DataEstrazione(es2) & "(" & es2 & ") al " & DataEstrazione(es) & " (" & es & ")" & Chr(10)
Scrivi "Spia : " &(nn) & "  N° Presenze su Ruota di ---->" & NomeRuota(r1),1
Scrivi

For i = 1 To 10


Format2(nu(i)) & "  "
Next
Scrivi
Scrivi "Num  Freq" & Num & Freq

For i = 1 To 10
If(sf(i)) > 6 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(nu(i)) & "   " & Format2(sf(i))
Next
Scrivi

				End If
Next
Scrivi
ColoreTesto 0
Scrivi String(50,"=") & Chr(10)
Scrivi "°°°Enplein°°°",1
End Sub

secondo list

Sub Main()
	Dim mt(90,90),n(90),ru(1),ex(90),nr(90)
	r = CInt(InputBox(" Ruota di ricerca?","RUOTA",9))
	p = CInt(InputBox(" POSIZIONE SPIA","POSIZONE 1 a 5 ",1))
	rs = CInt(InputBox("Quale estrazioni vuoi iniziare a controllare?","Estrazione n° ",8800))
	cl = CInt(InputBox("Ciclo retoattivo di estrazioni ","CICLO",9))
	ru(1) = r
	t = 0
	ini = rs : fine = EstrazioneFin - cl
	For es = ini To fine
		casi = 0
		sp = Estratto(es,r,p)'Spia 1° estratto
		g = 0: Erase ex
		For er = 0 To 1000
			a = Posizione(es - er,r,sp)
			If a > 0 And a = p Then g = g + 1: ex(g) = es - er : nr(g) = a
			If g = 8 Then Exit For
		Next
		If g = 8 Then
			t = t + 1
			Scrivi
			Scrivi "-----------------------------------------------------------------------------------N° " & Format2(t),1
			For i = 1 To 8
				casi = casi + 1
				Scrivi DataEstrazione(ex(i)) & " " & StringaEstratti(ex(i),r) & " SPIA ->" & Format2(sp) & " posizione ->" & p & "° caso ->" & casi & " sulla ruota di " & SiglaRuota(r)
				For z = 1 To cl
					ColoreTesto 3 : Scrivi DataEstrazione(ex(i) + z) & " " & StringaEstratti((ex(i) + z),r): ColoreTesto 0
				Next
				Erase mt
				co = 0
				For j = 1 To 90
					n(1) = j
					co = co + 1
					mt(co,2) = n(1)
					fr = SerieFreq(ex(i),ex(i) + cl,n,ru,1)
					mt(co,4) = mt(co,4) + fr
				
			Next
			OrdinaMatrice mt,- 1,4
			For xx = 1 To 10
				ColoreTesto 2: Scrivi " N° " & Format2(mt(xx,2)) & " Pres. " & Format2(mt(xx,4)):ColoreTesto 0
			Next
		Next
	End If
Next
End Sub