Help.

[genios]

Mi aiutate ad adattarlo per il gioco del lotto.

Ciao Eugenio

Sub Main
Dim nu(90,3)
Dim ru(1)
Dim nx(1)
Dim nr(50)
Dim posta(1)
posta(1) = 1
periodo = 15 '<-------------------------durata periodo
'ru(1) = 12 '<----------------------------ruota
colpi = 12 '<----------------------------per quanti colpi gioco
dopo = 0 '<-----------------------------dopo quante estr. inizio la giocata
fin = 4000
ini = fin - 3000'<-----------------------Tot estr. esaminate
For es = fin To ini Step - periodo
Messaggio es'AvanzamentoElab fin,ini,es
For x = 1 To 90
nx(1) = x
nu(x,1) = x
nu(x,2) = SerieFreqSE(es - periodo,es,nx,1)
nu(x,3) = SerieFreqSE(es - 30,es - 15,nx,1)
Next
OrdinaMatrice nu,- 1,2
co = 0
For x = 1 To 90
If nu(x,3) = 0 Then
co = co + 1
If co >= 16 Then Exit For
nr(co) = nu(x,1)
rig1 = rig1 + Format2(nu(x,1)) & " "
rig2 = rig2 + Format2(nu(x,2)) & " "
rig3 = rig3 + Format2(nu(x,3)) & " "
End If
Next
Scrivi
Scrivi(DataEstrazioneSE(es))
'Scrivi " ruota " & ru(1)
Scrivi "Dalla " & es - periodo & " alla " & es & " Num: " & rig1,1
Scrivi Space(20) & "Pres: " & rig2 & " nelle " & periodo & " precedenti"
Scrivi Space(20) & "Pres: " & rig3 & " nelle 15 prima le " & periodo
Scrivi
'VerificaEsitoSE nr,es+1,3,Colpi,0,0,Colpo,Estratti,id
For ess = es + 1 To es + colpi
Call VerificaEsitoSE(nr,ess,TERNO_,1,esito,colpo,estratti,id)
'VerificaEsito nr,es+ 1,AMBO_ ,Colpi,,,Colpo,Estratti,id
k = k + 1
If esito <> "" Then
ColoreTesto 1
Scrivi id & " " & Format2(k) & "° Colpo " & " " & estratti & " " & esito
End If
Next
k = 0
ColoreTesto 0
Scrivi
Scrivi
ReDim nu(90,3)
'
'
rig1 = ""
rig2 = ""
rig3 = ""
Next
End Sub

 

[claudio8]

limite = 16 '<-------------------------- numeri in elenco mi sembrano troppi da giocare, variali e fai i tuoi test

Sub Main
	Dim nu(90,3)
	Dim ru(1)
	Dim nx(1)
	Dim nr(50)
	Dim posta(1)
	posta(1) = 1
	 
	limite = 16 '<-------------------------- numeri in elenco? 
	periodo = 10 '<------------------------- durata periodo
	ru(1) = 12 '<--------------------------- ruota
	colpi = 12 '<--------------------------- per quanti colpi gioco
	vaderetro = 12'<------------------------ estrazioni da escludere rispetto all'ultima in archivio (valore colpi)
	dopo = 0 '<----------------------------- dopo quante estr. inizio la giocata
	sorte = 1'<----------------------------- esito minimo da verificare
	fin = EstrazioneFin - vaderetro
	ini = fin - 3000'<-----------------------Tot estr. esaminate
	For es = fin To ini Step - periodo
		Messaggio es'AvanzamentoElab fin,ini,es
		For x = 1 To 90
			nx(1) = x
			nu(x,1) = x
			nu(x,2) = SerieFreq (es - periodo,es,nx,ru,1) ' le precedenti 15
			nu(x,3) = SerieFreq(es - 30,es - 15,nx,ru,1)  ' le ulteriori antecedenti le prime 15
		Next
		OrdinaMatrice nu,- 1,2
		co = 0
		For x = 1 To 90
			If nu(x,3) = 0 Then
				co = co + 1
				If co >= limite Then Exit For   'limite di numeri in elenco (16)
				nr(co) = nu(x,1)
				rig1 = rig1 + Format2(nu(x,1)) & " "
				rig2 = rig2 + Format2(nu(x,2)) & " "
				rig3 = rig3 + Format2(nu(x,3)) & " "
			End If
		Next
		Scrivi
		Scrivi(DataEstrazione(es))
		Scrivi " ruota " & ru(1) & " nome " & NomeRuota(ru(1))

		Scrivi "Dalla " & es - periodo & " alla " & es & " Num: " & rig1,1
		Scrivi Space(20) & "Pres: " & rig2 & " nelle " & periodo & " precedenti l'estrazione in analisi"
		Scrivi Space(20) & "Pres: " & rig3 & " ulteriori " & periodo & " antecedenti le prime " & periodo 
				Scrivi
		'VerificaEsitoSE nr,es+1,3,Colpi,0,0,Colpo,Estratti,id
		For ess = es + 1 To es + colpi
			Call VerificaEsito (nr,ru,ess,sorte,1,,esito,colpo,estratti,id)
			'VerificaEsito nr,es+ 1,AMBO_ ,Colpi,,,Colpo,Estratti,id
			k = k + 1
			If esito <> "" Then
				ColoreTesto 1
				Scrivi id & " " & Format2(k) & "° Colpo " & " " & estratti & " " & esito
			End If
		Next
		k = 0
		ColoreTesto 0
		Scrivi
		Scrivi
		ReDim nu(90,3)
		'
		'
		rig1 = ""
		rig2 = ""
		rig3 = ""
	Next
End Sub

a me basterebbe un /decimo delle tue future vincite... buon lavoro

Ps: nella modificati ho inserito altri parametri

 

[genios]

Grazie claudio8


Meglio pescare su 15 numeri che su 90.

Ciao Grazie di nuovo Eugenio

 

[genios]

claudio8 controllando l' uscita del tuo script non vedo pero' i numeri della giocata in corso . Si puo fare qualcosa?

Ciao Eugenio

 

[claudio8]

claudio8 controllando l' uscita del tuo script non vedo pero' i numeri della giocata in corso . Si puo fare qualcosa?

Ciao Eugenio

Riduci il valore di " vaderetro" sino a zero ed otterrai la giocata dell'ultima estrazione in archivio
della quale chiaramente non avrai nessun colpo controllato (non è ancora iniziata la giocata).
In sostanza questo valore è stato ,nello script, eguagliato a colpi in modo che tu abbia
la resa in temini di esito della ultima giocata completa dei colpi di esito.
Se poni questo valore a 6, lo scrpt ricerca i numeri che sarebbero potuti andare in gioco 6 estrazioni fa e quindi negli esiti ti manchebbero ancora 6 colpi.
Spero di essere stato chiaro.

 

[genios]

Recepito . Ciao Grazie .

Eugenio

 

[genios]

L' out cosi' va bene . Sarebbe possibile aggiungere ed ordinare i numeri da mettere in gioco in ordine crescente ?
Se hai tempo e voglia .

ciao Eugenio

 

[claudio8]

Attento all'errore:

nu(x,2) = SerieFreq(es - periodo,es,nx,ru,1) ' le precedenti 15 ----> derivante dal valore impostato per "periodo=15"
nu(x,3) = SerieFreq(es - 30,es - 15,nx,ru,1) ' le ulteriori antecedenti le prime 15 ----> condizione vera se il periodo è di 15, (15x2= 30) ma non vera se periodo = 10.... il 30 deve diventare 20.

per far si che il calcolo venga fatto autonomamente dallo script, devi sostituire questa riga:

nu(x,3) = SerieFreq(es - 30,es - 15,nx,ru,1) con
nu(x,3) = SerieFreq(es - 2*periodo,es - periodo,nx,ru,1)

 

[genios]

Claudio qualcosa non quadra . Ho modificato la riga che hai detto ma mette in gioco solo 5 numeri .

 

[genios]

Risolto avevo saltato *2.