Aiuto Script

[vitale]

Ciao a tutti!
Sono nuovo di questo bellissimo forum.
E' possibile sviluppare un listato per Spaziometria del seguente procedimento?
Vi ringrazio e saluti.
Vitale
Ecco il metodo:
Rintracciare un ambo unito uscito in prima e seconda posizione (importante che ambo rilevato sia di distanza 2). Ricavo ambata. Somma dell'ambo se è necessario con fuori 90, dopo la somma si rileva il suo diametrale in decina e poi si rileva il suo diametrale , solo a questo punto abbiamo rilevato l'ambata. L'abbinamento per ambo, saranno sempre i diametrali in decina dell'ambo di partenza.
Prima di mettere in gioco la previsione, assicurarsi che l'ambata non sia presente nella estrazione di calcolo e/o nelle ultime 2 precedenti.Si gioca sulla ruota di partenza e nella sua ruota gemella e si sospende alla prima vincita sia di ambata e ambo a tutte.
Esempio reale:
Bari.24.26.ambata .24+26 fa 50 diametrale in decina fa 55 il suo diametrale è 10 questa è la l'ambata.
Gli abbinamenti sono i diametrali in decina dell'ambo rilevato, 24.26. saranno 24+5 fa 2926 meno 5 fa 21.
Previsioni: Bari ruota principale, Venezia ruota gemella 10 ambata+10.21+10.262 colpo ba. 10+10.21.ve. 10 Ambata.

 

[Mike58]

Prova cosi e controlla possibili errori.

ciao

Sub Main
	Dim nu(5),ru(3),ab(1),posta(1),poste(2),rt(1)
	posta(1) = 1
	poste(2) = 1
	Ini = EstrazioneFin-100
	fin = EstrazioneFin
	For es = Ini To fin
	For r1 = 1 To 10
	r2 = RuotaGemella(r1)
	a = Estratto(es,r1,1)
	b = Estratto(es,r1,2)
	If Differenza(a,b) = 2 Then
	k = k + 1
	n1 = Fuori90(a+b)
	aa = DiametraleD(n1)
	bb = Diametrale(aa)
	ab(1) = (bb)
	nu(1) = DiametraleD(a)
	nu(2) = DiametraleD(b)
	nu(3) = ab(1)
	ru(1) = r1
	ru(2) = r2
	rt(1) = 11
	rit = SerieRitardo(Ini,es,ab,ru,1)
	If rit > 2 Then
	Scrivi String(130,"=") & " Caso N." & k,1
	Scrivi GetInfoEstrazione(es) & "  ",0,0
	Scrivi SiglaRuota(r1) & "  ",0,0
	Scrivi StringaEstratti(es,r1) & "  ",0,0
	Scrivi a & "." & b 
	Scrivi "Ruota Gemella : " & NomeRuota(r2)

	Scrivi "Ambata :       " & ab(1) & "     - Ritarda da... " & rit,1
	Scrivi "Abbinamenti... " & StringaNumeri(nu)
	Scrivi String(130,"-")
	ambo1 = Array(ab(1),nu(1))
	ambo2 = Array(ab(1),nu(2))
	ambo3 = Array(ab(1),nu(1),nu(2))
	ImpostaGiocata 1,ab,ru,posta,10,1
	ImpostaGiocata 2,ambo1,ru,poste,10,2
	ImpostaGiocata 3,ambo2,ru,poste,10,2
	ImpostaGiocata 4,ambo3,rt,poste,10,2
	Gioca es,1
	End If
	End If
	Next
	Next
	ScriviResoconto
	Scrivi " **** List By Mike58  ****** Richiesta Vitale ***** Forum LottoCed ***** ",1,1,,1,2
	End Sub

 

[vitale]

Grazie, Mike. Controllerò più tardi e ti farò sapere.
Ciao.

 

[vitale]

Ok Mike, ho controllato e funziona bene. Potresti fare in modo da farmi scegliere il periodo da cui partire a ritroso con la statistica?
Non so, tipo: Imposta ricerca ...
Grazie e buona serata.
Ciao.

 

[Mike58]

ciao vitale, c'è una riga di inizio estrazioni
Ini = EstrazioneFin-100
basta mettere - quello che vuoi e calcola dalla estrazionefin- il numero immesso
oppure crearti un input box cosi

ritroso = inputbox("QUANTE ESTRAZIONI ANALIZZO",,1000)
ini = estrazionefin-ritroso

prova e vedi che è semplice

ciao

 

[vitale]

Ciao Mike, non capisco dove inserire l'inputbox.
Grazie.

 

[vitale]

Scusa, Mike, ho risolto.
Grazie ancora.
Ciao.

 

[Mike58]

chiaramente la riga prima di
ini = ...........................

Sub Main
	Dim nu(5),ru(3),ab(1),posta(1),poste(2),rt(1)
	posta(1) = 1
	poste(2) = 1
	Scrivi "Metodo Vitale",1,1,3,1,3
	Scrivi
	ritroso = InputBox("QUANTE ESTRAZIONI ANALIZZO",,1000)
	Ini = EstrazioneFin - ritroso
	fin = EstrazioneFin
	For es = Ini To fin
	For r1 = 1 To 10
	r2 = RuotaGemella(r1)
	a = Estratto(es,r1,1)
	b = Estratto(es,r1,2)
	If Differenza(a,b) = 2 Then
	Call Messaggio("Elaboto estrazioni . . . . . . . " & es & "         Metodo Vitale  . . . . . . List By Mike58 ")
	Call AvanzamentoElab(Ini,fin,es)
	k = k + 1
	n1 = Fuori90(a + b)
	aa = DiametraleD(n1)
	bb = Diametrale(aa)
	ab(1) =(bb)
	nu(1) = DiametraleD(a)
	nu(2) = DiametraleD(b)
	nu(3) = ab(1)
	ru(1) = r1
	ru(2) = r2
	rt(1) = 11
	rit = SerieRitardo(Ini,es,ab,ru,1)
	If rit > 2 Then
	
	Scrivi String(130,"=") & " Caso N." & k,1
	Scrivi GetInfoEstrazione(es) & "  ",0,0
	Scrivi SiglaRuota(r1) & "  ",0,0
	Scrivi StringaEstratti(es,r1) & "  ",0,0
	Scrivi a & "." & b
	Scrivi "Ruota Gemella : " & NomeRuota(r2)

	Scrivi "Ambata :       " & ab(1) & "     - Ritarda da... " & rit,1
	Scrivi "Abbinamenti... " & StringaNumeri(nu)
	Scrivi String(130,"-")
	ambo1 = Array(ab(1),nu(1))
	ambo2 = Array(ab(1),nu(2))
	ambo3 = Array(ab(1),nu(1),nu(2))
	ImpostaGiocata 1,ab,ru,posta,10,1
	ImpostaGiocata 2,ambo1,ru,poste,10,2
	ImpostaGiocata 3,ambo2,ru,poste,10,2
	ImpostaGiocata 4,ambo3,rt,poste,10,2
	Gioca es,1
	End If
	End If
	Next
	If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
	Scrivi " **** List By Mike58  ****** Richiesta Vitale ***** Forum LottoCed ***** ",1,1,,1,2
	End Sub