Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 x qantonio

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo:
Nome utente:
Password:
Modo formattazione:
Formato: GrassettoCorsivoSottolineatoAttraversato Allinea sinistraCentratoAllinea destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

* HTML è attivo
* Il codice su forum è attivo
Smiles
Smile [:)] Grande Smile [:D] Importante [8D] Arrosisco[:I]
Lingua [:P] Diavolo [}:)] Ammicco[;)] Pagliaccio [:o)]
Occhio nero [B)] Palla N.8 [8] Accigliato[:(] Timido [8)]
Shoccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Baci [:X] Approvo [^] Disapprovo [V] Domanda [?]

 
 
   

R E V I S I O N E      D E L L A      D I S C U S S I O N E
franca46 Posted - 01 marzo 2018 : 07:21:28
citazione:
Inviato in origine da qantonio

spia 17 bari


e.......
1     U L T I M E      R E P L I C H E    (Newest First)
franca46 Posted - 01 marzo 2018 : 09:05:59
ciao , scegli la spia che ti serve e trovi i frequenti

Sub main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
ruote(1)=1
posta(1)=1
colpi=13
r=1
ini=7849
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i 12 colpi"
For sp=1 To 90
	Messaggio " Spia: "&sp
	For i=1 To 90
		num(i,1)=0 : num(i,2)=0
	Next
	co=0
	For es=ini To fin
		If Posizione(es,r,sp)>0 Then
			co=co+1
			ess=es+colpi+1
			If ess>fin Then ess=fin End If 
			For a=es+1 To ess	
				For v=1 To 90
				uscito(v,2)=0
				Next 			
				For e=1 To 5
					n=Estratto(a,r,e)
					num(n,1)=n
					num(n,2)=num(n,2)+1
					uscito(n,1)=n
					uscito(n,2)=uscito(n,2)+1
					If uscito(n,2)>1 Then 
						num(n,2)=num(n,2)-1
						uscito(n,2)=1
					End If 
				Next			
			Next
		End If 
	Next
	OrdinaMatrice num, -1, 2
	per=Int((co/100)*65)
	Scrivi "_________________________________________________________________"
	Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&"   colpi "& colpi
	Scrivi
	riga="Num.  "
	riga1="Freq. "
	For i=1 To 10		
			riga=riga & FormatSpace(num(i,1),4)&" "
			riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" " 		
	Next
	Scrivi riga
	Scrivi riga1
Next    
End Sub



buona giornata

Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000