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!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 x qantonio
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

franca46
Amministratore

Italy
22809 invii

Spedito - 01 marzo 2018 :  07:21:28  Mostra profilo  Rispondi con citazione
citazione:
Inviato in origine da qantonio

spia 17 bari


e.......

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico

franca46
Amministratore

Italy
22809 invii

Spedito - 01 marzo 2018 :  09:05:59  Mostra profilo  Rispondi con citazione
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

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000