PER I MIGLIORI CREATORI SCRIPT

[trivellatomariotretre33]

SALVE PIU VOLTE O FATTO RICHIESTA DI UNO -SCRIPT COSTRUTTORE AMBI- MA SEMPRE CON ESITI NEGATIVI
O AVUTO MODO DI COSTATARE IN QUESTO FORUM CHE CI SONO PIU CHE MAI I MIGLIORI PER POTER REALIZZARE UNO SCRIPT SIMILE SOPRATUTTO CON AIUTO TRA VOI PER POTERLO RENDERE REALE A QUESTO FORUM MERAVIGLIOSO E TUTTI PRESENTI CHE SI ASPETTANO UNO SCRIPT SIMILE AUGURANDOVI BUONE FESTE UNITAMENTE A CHI ORA LEGGE E FELICE ANNO NUOVO CON UN AUSPICIO DI VEDER REALIZZATO QUANTO SCRITTO , ORMAI LA CRISI CI MANGIA PIAN PIANO LE NOSTRE RISERVE ED'E SEMPRE PIU DIFFICILE TIRARE AVANTI PER ARRIVARE A FINE MESE
QUINDI REALIZZANDO QUANDO RICHIESTO SARA IL PIU BEL REGALO DA POTER RICEVERE PER SPERARE IN UNA SPESA MINORE E A PROPIA SCELTA DI GIOCO PERCHE IN TUTTO ESISTE LA SPERANZA ................
PER QUESTO RAGAZZI UNITEVI E ELOGGIATE UNO SCRIPT COSTRUTTORE PER TANTI COME ME E QUESTO STUPENDO FORUM SOLO COSI IL LOTTO AVRA MINORE INCASSI E MAGGIORE VINCITE.
BUON ANNO A TUTTI ... SPERANDO IN UN GRANDE REGALO A FINE ANNO AUGURISSIMI.

 

[Mike58]

Ciao Trivellato, forse in passato ti ho risposto a questo interrogativo o forse No, non ricordo bene, ma comunque ti espongo il mio pensiero.
Ogni metodo sommativo o meno è costruito sulle estrazioni del passato e comunque trova delle convergenze o casi che rispondono a quel dato input.
Poi è facile trovare dei numeri che rispondono positivamente per AMBATA, ma trovare dei numeri che nella fattispecie della casistica rispondono positivamente per Ambo è alquanto difficile.

Tuttavia in passato avevo creato (Quando ci credevo) un costruttore Terne per sorte di Ambo con delle buone rispondenze, vedi se fa al caso tuo e comunque ricordiamoci sempre che sono le risultanze del passato.

Volentieri per te lo metto a disposizione.

Ciao è che sia per noi tutti un buon Anno (crisi permettendo)

Sub Main()
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
	Scrivi : ColoreTesto 2: Scrivi String(54," ") & "  SCRIPT DI MIKE58 ",1
	Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
	Dim cin(10),ruote(10)
	casi = 0
	x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
	r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
	pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
	colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
	visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO

	ruote(1) = r
	fin = EstrazioneFin
	Ini = fin - 140
	fine = EstrazioneFin
	ReDim atitoli(11)
	atitoli(1) = " ESTRATTO "
	atitoli(2) = " SOMMATIVO "
	atitoli(3) = " PRESENZA SU CASI "
	atitoli(4) = " NUMERO IN GIOCO "
	atitoli(5) = " ESITO "
	atitoli(6) = " RET_ESTRATTI "
	atitoli(7) = " DATA ESTRAZIONE "
	atitoli(8) = " COLPO ESITO "
	atitoli(9) = " NUM. 1 "
	atitoli(10) = " NUM. 2 "
	atitoli(11) = " NUM. 3 "
	Call InitTabella(atitoli,1,,3,5)
	For es = Ini To Fin
		If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
			idd = GetInfoEstrazione(es)
			Call Messaggio("Costruttore Sommativo per Ambi      " & " casi trovati...." & casi)
			Call AvanzamentoElab(Ini,fin,es)
			Inco = fine - es
			casi = casi + 1
			co = 0
			es1 = es + 1
			es2 = es1 + colpi
			e = Estratto(es,r,pos)
			For s1 = 1 To 88
				For s2 = s1 + 1 To 89
					For s3 = s2 + 1 To 90
						co = co + 1
						cin(1) = Fuori90(e + s1)
						cin(2) = Fuori90(e + s2)
						cin(3) = Fuori90(e + s3)
						ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
						num(co,1) = s1
						num(co,2) = s2
						num(co,3) = s3
						num(co,4) = num(co,4)
						If ea > 0 Then
							num(co,4) = num(co,4) + 1
						End If
					Next
				Next
			Next
		End If
	Next
	Scrivi : ColoreTesto 0: Scrivi,1
	Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
	Scrivi "Combinazioni analizzate: " & co,1
	Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
	Scrivi " -> Colpo in corso..." & Inco,1
	Scrivi
	ColoreTesto 0
	For i = 1 To visual
		Call OrdinaMatrice(num,- 1,4)
		If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
			ColoreTesto 0
			aa(1) = Fuori90(cin(1) + num(i,1) + 2)
			aa(2) = Fuori90(cin(2) + num(i,2) + 1)
			aa(3) = Fuori90(cin(3) + num(i,3))
			Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
			n1(1) = aa(1)
			n2(1) = aa(2)
			n3(1) = aa(3)
			
			ReDim avalori(11)
			avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
			avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
			avalori(3) = Format2(num(i,4)) & "  su  " & casi & "  Casi "
			avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
			avalori(5) = retesito
			avalori(6) = Retestratti
			If retesito = "Ambo" Or retesito = "Terno" Then
				avalori(7) = DataEstrazione(id)
			Else
				avalori(7) = " In corso "
			End If
			If retesito = "Ambo" Or retesito = "Terno" Then
				avalori(8) = retcolpi & "°"
			Else
				avalori(8) = Inco & "° in corso "
			End If
			sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
			sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
			sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
			If sf11 > 0 Then
				avalori(9) = n1(1)
			Else
				avalori(9) = ""
			End If
			If sf12 > 0 Then
				avalori(10) = n2(1)
			Else
				avalori(10) = ""
			End If
			If sf13 > 0 Then
				avalori(11) = n3(1)
			Else
				avalori(11) = ""
			End If
			'End If
			Call AddRigaTabella(avalori,,,3)
		End If
		Call SetColoreCella(2,,1)
		Call SetColoreCella(4,,2)
		Call SetColoreCella(6,,7)
		If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
		If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
		If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella()
	

End Sub

 

[farfalla2]

CIAOOO MIKE, CONDIVIDO QUELLO CHE HAI SCRITTO, E TI RINGRAZIO PER IL BELLISSIMO REGALO CHE CI HAI DONATO. TI AUGURO UN 2015 FELICE,PIENO DI SERENITA' E SALUTE. GRAZIE DI CUORE.

 

[trivellatomariotretre33]

mike58 sei stupendo ti ringrazio di cuore per lo script sopratutto per la tua bravura e sicuramente tanti saranno felici per
questo tuo regalo ti auguro ogni bene del mondo e tanti auguroni per le feste. (e vero mike58 in passato mi ai risposto a questo interrogativo)

 

[Alien.]

Ciao,benissimo sembra ottimo ma per favore Mike58 puoi inserire anche queste,quando visualizza i risultati?

x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO


ovvio solo quelli in blu con il risultato.... grazie.




ma poi come funziona in pratica questo tuo cerca vittoria?


grazie.

 

[Mike58]

Alien penso che ci sono elencate tutte queste scritture, scriverle si, si può fare ma non è cosi importante e poi sarebbe utile per voi usufruenti di script cominciare almeno a personalizzare le scritture almeno quelle.

ma poi come funziona in pratica questo tuo cerca vittoria?

questa non l'ho capita.

 

[francesco0]

x Mike58
innanzi tutto complimenti x i suoi script,
le volevo chiedere informazione del suo script costruttore d'ambi,
cioè xche da una estrazione all'altra cambiano terzine,
bari 7° del mese

44 17 21-----44 17 21
44 84 21-----55 81 23
44 15 21-----36 48 4
44 65 21-----44 65 21
37 47 84-----25 9 21
37 44 84-----36 48 4
25 9 21-----55 81 23
27 14 16-----25 9 21
55 81 23-----44 65 21
25 4 9-----27 75 88
oltre doppie
Saluti Franco

 

[Mike58]

Ciao Francesco, ho sempre detto che i costruttori che verificano le presenze dopo un evento che sia spia o indice mensile possono dare risultati diversi con passare e cambio estrazione.
lo script trova i migliori frequenti a quella data estrazione, 10 estrazioni + avanti la situazione frequenze può e sicuramente cambia.

Lo so è una delusione ma è cosi.
basta che un numero esce più volte nelle ultime estrazioni cosi da scalare la classifica dei numeri trovati.

ciao

 

[francesco0]

Ciao Mike58
Che deve cambiare estrazione x estrazione lo so,
bari 7° del mese Bari 7° del mese ,cosi pensavo che le terzine dovessero restare invariate,comunque grazie della risposta e sempre bravo
Saluti Franco