x joe91 Mike58 o chi può

[solare]

Ciao, chiedo cortesemente la realizzazione di uno script di ricerca che faccia quanto segue:
Analizzare tutte le ruote considerando le ultime dieci estrazioni e visualizzare per ogni ruota la presenza dei soli numeri Zerati.
Es. Bari .......10-20-80 cagliari 50-70-90-50 ecc. ecc
Grazie agli amici che vorranno realizzare questo listato

 

[Joe91]

Ciao Solare,

ne ho scritto 2 versioni ... scegli tu.

Option Explicit
Sub Main
	Dim Ini,Fin,R,N,Nu(1),Ru(1),SF
	Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
	Scrivi Space(5) & "ZERATI (nelle ultime 10 estrazioni).",True : Scrivi
	For R = BA_ To NZ_ : If R = TT_ Then R = NZ_
		Scrivi SiglaRuota(R) & Space(3),True,False
		Ru(1) = R
		For N = 10 To 90 Step 10
			Nu(1) = N
			SF = SerieFreq(Ini,Fin,Nu,Ru,1)
			If SF > 0 Then
				Scrivi N & "(" & SF & ")" & Space(3),False,False
			Else 
			Scrivi String (5,"-") & Space(3),False,False
			End If
		Next
		Scrivi : Scrivi 
	Next
End Sub

Option Explicit
Sub Main
	Dim Ini,Fin,R,N,Nu(1),Ru(1),SF,Riga
	Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
	Scrivi "ZERATI (nelle ultime 10 estrazioni).",True : Scrivi
	For R = BA_ To NZ_ : If R = TT_ Then R = NZ_
		Riga = SiglaRuota(R) & Space(1)
		Ru(1) = R
		For N = 10 To 90 Step 10
			Nu(1) = N
			SF = SerieFreq(Ini,Fin,Nu,Ru,1)
			If SF > 0 Then Riga = Riga & N & "-" 
		Next
		Riga = Left (Riga,Len(Riga)-1)
		Scrivi Riga
	Next
End Sub

Non ho capito l'ultimo 50. (più piccolo di 90)

Vuol dire che ...

devono essere elencati in ordine di estrazione ?

Buon Ferragosto.

 

[Mike58]

lo stavo scrivendo anch'io, posto la mia versione.

Buon Ferragosto a tutti.

Sub Main
 Dim Nu(5),Ru(1),T,V
 est = CInt(InputBox("Quante Estrazioni",,10))
 Ini = EstrazioneFin - est
 fin = EstrazioneFin
 Tot = CInt(fin - Ini + 1)
 cad = CInt(InputBox("Quale cadenza",,0))
 For r = 1 To 12
  If r = 11 Then r = 12
  T = Array(T,"Ruota","Estraz","Num in Cadenza")
  Call InitTabella(T)
  For es = Ini To fin
   For p = 1 To 5
    Nu(p) = Estratto(es,r,p)
    If Cadenza(Nu(p)) = cad Then k = k + 1
    If Cadenza(Nu(p)) = cad Then riga = riga & Nu(p) & " "
   Next
   V = Array(V,SiglaRuota(r),es,riga)
   Call AddRigaTabella(V)
   riga = ""
  Next
  For x = 1 To 90
   If EstrattoRitardo(r,x,Ini,fin) > est And Cadenza(x) = cad Then rigo = rigo & Format2(x) & " "
  Next
  Scrivi "Numeri mancanti : " & rigo,1,,,1
  Scrivi "Numeri Trovati  = " & k,1
  Call CreaTabella(0,0,0,0,1)
  k = 0
  rigo = ""
 Next
End Sub

 

[solare]

ciao joe91, l'ultimo 50 si riferisce ad una ripetizione dello stesso nelle estrazioni di riferimento.
Comunque ok la prima versione del tuo listato.
Grazie della tua gentilezza
Buon ferragosto anche a te

 

[solare]

Quest'ultimo è ottimissimoooooooo
Grazie ancora

 

[Alien.]

è...ciao solare..ma poi cosa metti in gioco?grazie.

 

[solare]

Ciao alien, dopo metto in gioco i più frequenti....

 

[ppaaoolloo]

lo stavo scrivendo anch'io, posto la mia versione.

Buon Ferragosto a tutti.

Sub Main
Dim Nu(5),Ru(1),T,V
est = CInt(InputBox("Quante Estrazioni",,10))
Ini = EstrazioneFin - est
fin = EstrazioneFin
Tot = CInt(fin - Ini + 1)
cad = CInt(InputBox("Quale cadenza",,0))
For r = 1 To 12
If r = 11 Then r = 12
T = Array(T,"Ruota","Estraz","Num in Cadenza")
Call InitTabella(T)
For es = Ini To fin
For p = 1 To 5
Nu(p) = Estratto(es,r,p)
If Cadenza(Nu(p)) = cad Then k = k + 1
If Cadenza(Nu(p)) = cad Then riga = riga & Nu(p) & " "
Next
V = Array(V,SiglaRuota(r),es,riga)
Call AddRigaTabella(V)
riga = ""
Next
For x = 1 To 90
If EstrattoRitardo(r,x,Ini,fin) > est And Cadenza(x) = cad Then rigo = rigo & Format2(x) & " "
Next
Scrivi "Numeri mancanti : " & rigo,1,,,1
Scrivi "Numeri Trovati = " & k,1
Call CreaTabella(0,0,0,0,1)
k = 0
rigo = ""
Next
End Sub

ciao Mike

è possibile avevre uno script come questo
ma invece delle cadenze avere le decine

ti ringrazio anticipatamente

ciao

 

[Mike58]

Va bene eccolo, c'era da cambiare solo un codice.

Sub Main
Dim Nu(5),Ru(1),T,V
est = CInt(InputBox("Quante Estrazioni",,10))
Ini = EstrazioneFin - est
fin = EstrazioneFin
Tot = CInt(fin - Ini + 1)
cad = CInt(InputBox("Quale decina",,0))
For r = 1 To 12
If r = 11 Then r = 12
T = Array(T,"Ruota","Estraz","Num in Cadenza")
Call InitTabella(T)
For es = Ini To fin
For p = 1 To 5
Nu(p) = Estratto(es,r,p)
If Decina(Nu(p)) = cad Then k = k + 1
If Decina(Nu(p)) = cad Then riga = riga & Nu(p) & " "
Next
V = Array(V,SiglaRuota(r),es,riga)
Call AddRigaTabella(V)
riga = ""
Next
For x = 1 To 90
If EstrattoRitardo(r,x,Ini,fin) > est And Decina(x) = cad Then rigo = rigo & Format2(x) & " "
Next
Scrivi "Numeri mancanti : " & rigo,1,,,1
Scrivi "Numeri Trovati = " & k,1
Call CreaTabella(0,0,0,0,1)
k = 0
rigo = ""
Next
End Sub

ciao

 

[ppaaoolloo]

grazie Mike

sei sempre disponibile

ciao