PER TUTTI I SCRIPTISTI

[trivellatomariotretre33]

SALVE A TUTTI E UN BEL PO CHE SU QUESTO FORUM O CHIESTO UNO SCRIPT COSTRUTTORE PER AMBO
MA ANCORA SENZA RISPOSTA FORSE NON MI SONO SAPUTO ESPRIMERE MA ADESSO MI RISPIEGO CORDIALMENTE MI SERVIREBBE UN COSTRUTTORE METODO PER AMBO SCRIPT
VI SALUTO ANTICIPATAMENTE CON UNA STRETTA DI MANO GRAZIE.
DI CUORE CIAO,SPERO IN UN MIRACOLO DI SCRIPT
mi basta anche fac simile ancora grazie.

 

[vengio]

Scusa trivellato, ma hai già guardato qui? http://forum.lottoced.com/f12/mega-raccolta-%22script%22-315/

 

[trivellatomariotretre33]

si vengio gli o dato un occhiata non ce quello che cerco grazie di cuore spero che qualcuno lo metti. uno SCRIPT COSTRUTTORE PER AMBO
metto esempio script questo funziona solo ambate e cosi dovrebbe funzionare, ma per ambo.



Sub Main()
ColoreTesto 1: Scrivi String(51," ") & "LISTATO DI DANILO - Modificato Da Blackmore",1
Scrivi
Scrivi String(38,"*") & " TROVA AMBATE SOMMATIVE SU INDICE MENSILE " & String(41,"*"),1
Scrivi
ColoreTesto 0
Scrivi
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
es = InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,10)
nmc = InputBox("NUMERO DI MESI?",,7)
perc = InputBox("PERCENTUALE ESITI? (50-100)",,90)
ncg = InputBox("COLPI DI GIOCO?",,7)
ultest = EstrazioneFin
n = EstrazioneFin
z = 0
trovato = False
While z < eval(nmc)
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
z = z + 1
End If
n = n - 1
Wend
nn = n + 1
For r2 = 1 To 12
If r2 = 11 Then r2 = 12
Scrivi
Scrivi String(110,"*"),1
Scrivi String(110,"*"),1
Scrivi
For i = 1 To 90
amb(i) = 0
Next
If eval(es) = 0 Then
s = "All'ultima"
Else
s = "Alla " + es
End If
s = s + "° estrazione del mese per "
If eval(ncg) = 0 Then
s = s + "un mese:"
Else
If eval(ncg) = 1 Then
s = s + ncg + " colpo"
Else
s = s + ncg + " colpi"
End If
End If
ColoreTesto 0
Scrivi s
ColoreTesto 1
Scrivi "Quantità mesi Impostati: " & nmc & "",1
ColoreTesto 0
Scrivi "Statistica dal: " + DataEstrazione(nn) + " al: " + DataEstrazione(EstrazioneFin),1
ColoreTesto 2
Scrivi "Percentuale Impostata: " & perc & "%",1
Scrivi
Scrivi "RUOTA DI " & NomeRuota(r2),1
Scrivi
For r = 1 To 12
If r = 11 Then r = 12
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = nn To EstrazioneFin
If eval(es) = 0 Then m = n + 1 Else m = n End If
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
z = z + 1
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
k2 = eval(ncg)
k3 = n + k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
For nv = n + 1 To k3
For i = 1 To 5
For j = 1 To 5
k = Estratto(nv,r2,j) - estr(i)
While k <= 0
k = k + 90
Wend
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
Val(i,k) = False
End If
Next
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*perc)
s = CStr(eval(i)) + "° di " + FormatSpace(NomeRuota(r),13) + " + " + Format2(CStr(eval(j))) + " su "
s = s + FormatSpace(NomeRuota(r2),12) + " è uscito " + CStr(som(i,j)) + " Volte Su " + CStr(eval(z))
s = s + " : Previsione: " + FormatSpace(CStr(Fuori90(eval(estr(i) + j))),3)
If(Val(i,j) = True) Then s = s + " " & ColoreTesto(0) & " In Gioco " Else s = s + " " & ColoreTesto(2) & " Già Uscito " End If
If som(i,j) >= zz Then
Scrivi s
amb(Fuori90(eval(estr(i) + j))) = amb(Fuori90(eval(estr(i) + j))) + 1
ColoreTesto 0
End If
Next
Next
Next
ColoreTesto 2
Scrivi
Scrivi "********** NUMERI - CONVERGENTI **********",1
ColoreTesto 0
For i = 1 To 90
If(amb(i) > 1) Then
Scrivi Format2(CStr(eval(i))) + ": CONVERGENTE IN " + Format2(CStr(eval(amb(i)))) + " SISTEMI"
End If
Next
If ScriptInterrotto Then Exit For
Next
End Sub



grazie a chi mi aiuta .

 

[vengio]

Non so se qualcuno abbia uno script come tu chiedi, ma comunque in Spaziometria nella sezione metodi c'è un'apposita applicazione che fa cio che chiedi.

 

[trivellatomariotretre33]

si vengio pero a me serve uno script e no nella sezione metodi in spaziometria poiche non so usarlo e il mio pc non e tanto forte
ma con uno script riesco a vedere cio che cerco
ancora grazie per chi collabborera' in questo script.

 

[vengio]

Secondo me è meglio che impari ad usare spaziomemtria, se il programma gira non c'entra niente che il pc non sia tanto forte. In caso contrario armati di buona pazienza per i prossimi anni.

 

[trivellatomariotretre33]

 

[claudio8]

Caro trivellato, ciò che tu richiedi è uno script che sostituisce un programma vero e proprio.
Per ottenere il risultato richiesto, ci sono numerosissime possibilità di ricercache vanno daisommativi, ai moltiplicativi ed alle combinazioni degli stessi ecc.ecc.
Ti allego uno dei tanti script presenti in rete a cui sono state fatte delle modifiche per ottenere 3 numeri x il gioco di ambo.
Come potrai vedere facento le prove del caso, le rese che si possono ottenere sono basse, questo vuol significare che occorre ulteriormente incrementare gli algoritmi di ricerca, cosa che implica un lavoro notevole ed in + credo che operare questo lavoro con gli script significherebbe appesantire l'elaborazione con tempi di calcolo di svariati minuti.

''Estratto + fisso su ruota e tutte sommativo su ogni posizione 'Ramco 20/08/2010
''Ramco 20/08/2010 per Mike58 Forum  ricerca 1 numero x ambata modificato a x ricerca di 3 numeri x ambo.
Sub Main()
	Dim nru1,num_estr,b5(5),b4(5),b3(5),bb(5),b(5)
	nru1 = CInt(InputBox("Ruota Scelta : ","RUOTA RICERCA",1))
	num_estr = InputBox("Numero estrazioni:","ESTRAZIONI",70)
	ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",9))
	rg = CInt(InputBox("Ruota di gioco Scelta : ","RUOTA DI GIOCO ",1))
	num = 150
	Dim nam(117480,10),nn(1),ruota(1),rr(1),nt(117480,10),n3(117480,10),n4(117480,10),n5(117480,10),ped(90)
	ruota(1) = rg
	rr(1) = 11
	For x = 1 To 117480
		For y = 1 To 10
			nam(x,y) = 0
			nt(x,y) = 0
			n3(x,y) = 0
			n4(x,y) = 0
			n5(x,y) = 0
		Next
	Next
	p1 = 1
	p2 = 2
	p3 = 3
	p4 = 4
	p5 = 5
	casi = 0
	ini = EstrazioneFin - num_estr
	fin = EstrazioneFin
	For es = ini To fin
		If IndiceMensile(es) = 1 Then ' < < < - - indicato l'indice mensile
			Messaggio(es)
			casi = casi + 1
			'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
			Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
			co = 0
			For fisso1 = 1 To 88
				For fisso2 = fisso1 + 1 To 89
					For fisso3 = fisso2 + 1 To 90
						co = co + 1
						a = Estratto(es,nru1,p1)
						b(1) = Fuori90(a + fisso1)
						b(2) = Fuori90(a + fisso2)
						b(3) = Fuori90(a + fisso3)
						aa = Estratto(es,nru1,p2)
						bb(1) = Fuori90(aa + fisso1)
						bb(2) = Fuori90(aa + fisso2)
						bb(3) = Fuori90(aa + fisso3)
						a3 = Estratto(es,nru1,p3)
						b3(1) = Fuori90(a3 + fisso1)
						b3(2) = Fuori90(a3 + fisso2)
						b3(3) = Fuori90(a3 + fisso3)
						a4 = Estratto(es,nru1,p4)
						b4(1) = Fuori90(a4 + fisso1)
						b4(2) = Fuori90(a4 + fisso2)
						b4(3) = Fuori90(a4 + fisso4)
						a5 = Estratto(es,nru1,p5)
						b5(1) = Fuori90(a5 + fisso1)
						b5(2) = Fuori90(a5 + fisso2)
						b5(3) = Fuori90(a5 + fisso3)
						nam(co,1) = co
						nt(co,1) = co
						n3(co,1) = co
						n4(co,1) = co
						n5(co,1) = co
						nam(co,2) = nru1
						nt(co,2) = nru1
						n3(co,2) = nru1
						n4(co,2) = nru1
						n5(co,2) = nru1
						nam(co,3) = p1 'posiz. Estratto
						nt(co,3) = p2
						n3(co,3) = p3
						n4(co,3) = p4
						n5(co,3) = p5
						nam(co,4) = fisso1
						nt(co,4) = fisso1
						n3(co,4) = fisso1
						n4(co,4) = fisso1
						n5(co,4) = fisso1
						nam(co,8) = fisso2
						nt(co,8) = fisso2
						n3(co,8) = fisso2
						n4(co,8) = fisso2
						n5(co,8) = fisso2
						nam(co,9) = fisso3
						nt(co,9) = fisso3
						n3(co,9) = fisso3
						n4(co,9) = fisso3
						n5(co,9) = fisso3
						nam(co,6) = b(1) 'Nunero previsto
						nt(co,6) = bb(1)
						n3(co,6) = b3(1)
						n4(co,6) = b4(1)
						n5(co,6) = b5(1)
						nam(co,7) = 0
						nt(co,7) = 0
						n3(co,7) = 0
						n4(co,7) = 0
						n5(co,7) = 0
						esncg = es + ncg
						If esncg > EstrazioneFin Then esncg = EstrazioneFin 	End If
						fr1 = SerieFreq(es + 1,esncg,b,ruota,3)
						If fr1 > 0 Then nam(co,5) = nam(co,5) + 1

						nam(co,7) = retcolpi
						fr2 = SerieFreq(es + 1,esncg,bb,ruota,3)
						If fr2 > 0 Then nt(co,5) = nt(co,5) + 1

						nt(co,7) = retcolpi
						fr3 = SerieFreq(es + 1,esncg,b3,ruota,3)
						If fr3 > 0 Then n3(co,5) = n3(co,5) + 1

						n3(co,7) = retcolpi
						fr4 = SerieFreq(es + 1,esncg,b4,ruota,3) ' 1 nelle estrazione di controllo = b = Fuori90(a + fisso1)
						If fr4 > 0 Then n4(co,5) = n4(co,5) + 1

						n4(co,7) = retcolpi
						fr5 = SerieFreq(es + 1,esncg,b5,ruota,3)
						If fr5 > 0 Then n5(co,5) = n5(co,5) + 1

						n5(co,7) = retcolpi
						'''''''''''''''''''''''''''''''''''''''''''''''
					Next
				Next
			Next
		End If
	Next
	ColoreTesto 1
	Scrivi "  ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
	Scrivi "RUOTE DI Partenza : " & NomeRuota(nru1),1,0
	Scrivi "RUOTE DI GIOCO : " & NomeRuota(ruota(1)),1,0
	Scrivi " CLP DI GIOCO : " & ncg,1,0
	Scrivi " CASI: " & casi,1
	Scrivi
	Scrivi "  ATTENZIONE ANALISI ESTRATTI IN POS. " & p1
	Scrivi
	ColoreTesto 0
	OrdinaMatrice nam,- 1,5
	'ScriviMatrice
	For ca = 1 To num
		'-----------------------------------------------'
		ee =(eval(nam(ca,7)))
		cc =(eval(nam(ca,6)))
		'rit = EstrattoRitardo(ruota,ca,EstrazioneFin-200,EstrazioneFin)
		'cc1 = (eval(nam(ca,7))) + rit
		'---------------------------------------------------'
		Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
		Format2(nam(ca,4)) & " + " & Format2(nam(ca,8)) & " e + " & Format2(nam(ca,9)) & " su " & NomeRuota(ruota(1)) & _
		" è uscito " & FormatSpace(nam(ca,5),3) & "/" & FormatSpace(casi,3) & " casi - AMBI AZZECCATI: " & _
		FormatSpace(nam(ca,5),3) & " Num. [" & Format2(eval(nam(ca,6))) & "]"'dell'ultimo Caso valido" & " sfaldato al colpo " & ee
	Next
	Scrivi
	ColoreTesto 1
	Scrivi "ATTENZIONE ANALISI ESTRATTI IN  POS. " & p2
	Scrivi
	ColoreTesto 0
	OrdinaMatrice nt,- 1,5
	For ca = 1 To num
		nam(co,7) = retcolpi
		ee =(eval(nt(ca,7)))
		Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
		Format2(nt(ca,4)) & "  + " & Format2(nt(ca,8)) & " e + " & Format2(nt(ca,9)) & " su " & NomeRuota(ruota(1)) & _
		" è uscito " & FormatSpace(nt(ca,5),3) & "/" & FormatSpace(casi,3) & " casi - AMBI AZZECCATI: " & _
		FormatSpace(nt(ca,5),3) & " Num. [" & Format2(eval(nt(ca,6))) & "]"' dell'ultimo Caso valido" & " sfaldato al colpo " & ee
	Next
	Scrivi
	ColoreTesto 1
	Scrivi "ATTENZIONE ANALISI ESTRATTI IN  POS. " & p3
	Scrivi
	ColoreTesto 0
	OrdinaMatrice n3,- 1,5
	For ca = 1 To num
		ee =(eval(n3(ca,7)))
		Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
		Format2(n3(ca,4)) & " + " & Format2(n3(ca,8)) & " e + " & Format2(n3(ca,9)) & " su " & NomeRuota(ruota(1)) & _
		" è uscito " & FormatSpace(n3(ca,5),3) & "/" & FormatSpace(casi,3) & " casi - AMBI AZZECCATI: " & _
		FormatSpace(n3(ca,5),3) & " Num. [" & Format2(eval(n3(ca,6))) & "]"' dell'ultimo Caso valido" & " sfaldato al colpo " & ee
	Next
	Scrivi
	ColoreTesto 1
	Scrivi "ATTENZIONE ANALISI ESTRATTI IN  POS. " & p4
	Scrivi
	ColoreTesto 0
	OrdinaMatrice n4,- 1,5
	For ca = 1 To num
		ee =(eval(n4(ca,7)))
		Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
		Format2(n4(ca,4)) & " + " & Format2(n4(ca,8)) & " e + " & Format2(n4(ca,9)) & " su " & NomeRuota(ruota(1)) & _
		" è uscito " & FormatSpace(n4(ca,5),3) & "/" & FormatSpace(casi,3) & " casi - AMBI AZZECCATI: " & _
		FormatSpace(n4(ca,5),3) & " Num. [" & Format2(eval(n4(ca,6))) & "]"' dell'ultimo Caso valido " & " sfaldato al colpo " & ee
	Next
	Scrivi
	ColoreTesto 1
	Scrivi "ATTENZIONE ANALISI ESTRATTI IN  POS. " & p5
	Scrivi
	ColoreTesto 0
	OrdinaMatrice n5,- 1,5
	For ca = 1 To num
		ee =(eval(n5(ca,7)))
		Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
		Format2(n5(ca,4)) & " + " & Format2(n5(ca,8)) & " e + " & Format2(n5(ca,9)) & " su " & NomeRuota(ruota(1)) & _
		" è uscito " & FormatSpace(n5(ca,5),3) & "/" & FormatSpace(casi,3) & " casi - AMBI AZZECCATI: " & _
		FormatSpace(n5(ca,5),3) & " Num. [" & Format2(eval(n5(ca,6))) & "]"' dell'ultimo Caso valido" & " sfaldato al colpo " & ee
	Next
End Sub

Ps: nel caso riesco a trovare altro materiale, te lo invio, ma non pensare che abbai maggiori rese.

 

[trivellatomariotretre33]

GRAZIE CLAUDIO8 PER IL TUO MAGNIFICO INTERVENTO GIA E MOLTO LA TUA DISPONIBILITA TI RINGRAZIO DI CUORE E RESTO IN ATTESA NEL CASO TROVI ALTRO MATERIALE , NELL'ATTESA SI POTREBBE FARE I CALCOLI SENZA INDIVIDUARE LE POSIZIONI
PER LA PREVIS DELL'AMBO GRAZIE ...