xmaxlotto ,joe91 e mike58 listato da fare

Zetrix · 1 Giugno 2014

ciao chiedo se si puo realizzare il listato in formato script ..
come da annotazioni della figura ... la tecnica e ancora da definire
per questo vorrei vedere come si comporta nelle est precedenti
inoltre se si puo aggiug anche la ruota diametrale ...
grazie

p.s ho inserito uno script che tratta num pari e dispari
se si puo modificare da questo listato

Zetrix · 1 Giugno 2014

Codice:

                           Sub Main()
Dim num(5)
Dim ruote(10)
Dim poste(5)
poste(2) = 1
poste(3) = 1
poste(4) = 1
poste(5) = 1

r = 8 'roma
Ini = EstrazioneFin - 2
fin = EstrazioneFin
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
a1 = Estratto(es,r,1)
a2 = Estratto(es,r,2)
a3 = Estratto(es,r,3)
a4 = Estratto(es,r,4)
a5 = Estratto(es,r,5)
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),3) & " " & StringaEstratti(es,r)
b1 = Fuori90(a1*2)
If pari(a1) Then b1 = Fuori90(a1/2)
b2 = Fuori90(a2*2)
If pari(a2) Then b2 = Fuori90(a2/2)
b3 = Fuori90(a3*2)
If pari(a3) Then b3 = Fuori90(a3/2)
b4 = Fuori90(a4*2)
If pari(a4) Then b4 = Fuori90(a4/2)
b5 = Fuori90(a5*2)
If pari(a5) Then b5 = Fuori90(a5/2)
Scrivi"    " & Format2(b1) & "." & Format2(b2) & "." & Format2(b3) & "." & Format2(b4) & "." & Format2(b5)
ruote(1) = r
ruote(2) = 11
num(1) = b1
num(2) = b2
num(3) = b3
num(4) = b4
num(5) = b5
ImpostaGiocata 1,num,ruote,poste,10
Gioca es
Scrivi"**********************************************"
Next
'ScriviResoconto
End Sub

Mike58 · 1 Giugno 2014

Ciao Zetrix, il listato sembra semplice da fare, magari domani mi cimento nella costruzione.
Intanto ti faccio i complimenti per la chiara e bella esposizione e presentazione.

Ciao

Zetrix · 2 Giugno 2014

grazie mike58 ho provato a modificare lo script corrente ma ho combinato un pasticcio con i num pari e dispari ..
so che sei molto bravo con gli script ho piu di 200 listati presi dal web e ci sono alcuni realizzati da te
ti faccio anch io i miei complimenti per come esponi la grafica e i colori con la tabella .. diciamo che ho imparato
qualcosa ma solo per modificare alcune stringhe dello script per esempio come si cambiano i colori nella
tabella .. va bene resto in attesa di vedere lo script magari imparo qualcosa ho messo un altro esempio pratico su firenze
buona notte

Mike58 · 2 Giugno 2014

Ciao Zetrix, eccoti lo script in tabella per una visione + immediata.
Gli esiti mi sembrano buoni anche se sono sicuro che potrai migliorarlo, magari anche per sorti superiori.

Ciao fammi sapere.

Codice:

Sub Main
	Dim nD(5),nP(2),ru(1),ambata(1)
	Scrivi "Ricerca By Zetrix su estrazioni con 1-3-5 estratti Dispari e 2-4 estratti Pari ***** script By Mike58 **** ",1,1,3,1,3
	Scrivi
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	ReDim T(11)
	T(1) = " Caso "
	T(2) = " Info Estrazione "
	T(3) = " Ruota "
	T(4) = " Stringa Es "
	T(5) = " Num Disp "
	T(6) = " Num Pari "
	T(7) = " Pronostico "
	T(8) = " Esito "
	T(9) = " Estratti "
	T(10) = " Colpo "
	T(11) = " id esito "
	Call InitTabella(T,2,,3,5)
	For es = Ini To fin
		For r = 1 To 12
			If r = 11 Then r = 12
			ds1 = Estratto(es,r,1)
			ds2 = Estratto(es,r,3)
			ds3 = Estratto(es,r,5)
			pr1 = Estratto(es,r,2)
			pr2 = Estratto(es,r,4)
			If dispari(ds1) And dispari(ds2) And dispari(ds3) And pari(pr1) And pari(pr2) Then
				k = k + 1
				nD(1) = ds1
				nD(2) = ds2
				nD(3) = ds3
				nP(1) = pr1
				nP(2) = pr2
				ru(1) = r
				sommaD = Fuori90(nD(1) + nD(2) + nD(3))
				sommaP = Fuori90(nP(1) + nP(2))
				diff = Differenza(sommaD,sommaP)
				ambata(1) = Fuori90(diff + 30)
				Call VerificaEsito(ambata,ru,es + 1,1,11,Nothing,esito,colpi,estratti,id)
				ReDim v(11)
				v(1) = k
				v(2) = GetInfoEstrazione(es)
				v(3) = SiglaRuota(r)
				v(4) = StringaEstratti(es,r)
				v(5) = StringaNumeri(nD,,1)
				v(6) = StringaNumeri(nP,,1)
				v(7) = StringaNumeri(ambata)
				v(8) = esito
				v(9) = estratti
				v(10) = colpi
				If esito <> "" Then v(11) = DataEstrazione(id)
				If esito = "" And colpi <= 10 Then v(11) = " In corso "
				If esito = "" And colpi >= 11 Then v(11) = " Negativo "
				Call AddRigaTabella(v,,,3)
				Call SetColoreCella(7,7,5)
				If v(11) = " Negativo " Then Call SetColoreCella(11,0,5)
				If v(11) = " In corso " Then Call SetColoreCella(11,2,4)
				If esito = "" And colpi <= 10 Then kn = kn + 1
				If esito = "" And colpi >= 11 Then neg = neg + 1
				pos = k -(kn + neg)
			End If
		Next
	Next
	Call AddRigaTabella(T,2,,3,5)
	Call SetTableWidth("100%")
	Call CreaTabella()
	Scrivi " Casi in corso " & kn
	Scrivi " casi Negativi " & neg
	Scrivi " casi Positivi " & pos,1,1,,2,2
End Sub

Zetrix · 2 Giugno 2014

grazie mike ho visto lo script e ben fatto complimenti ... ho visto i risultati della tecnica ci sono molti casi negativi pero ho provato
ad inserire la 2 ambata con diff -30 e i risultati negativi da 16 sono diventati solo 4.. comunque devo migliorare ancora la
tecnica soprattutto per raggiungere l ambo secco che per altro e quello che mi interessa di piu ma per ora per iniziare va bene cosi ..
se trovo dell altro poi ti faro sapere se dovessimo implementare la tecnica per l ambo secco su ruota... ciao e grazie di nuovo

in corso 2
casi Negativi 4
casi Positivi 29

Mike58 · 2 Giugno 2014

Si mi sembra buono anche cosi, trova l'accorgimento per migliorarlo sulle sorti di ambo e se c'è bisogno di aiuto non ci sono problemi sulle correzioni da apportare allo script.

Ciao

Zetrix · 2 Giugno 2014

ciao mike58 puoi implementare questa funzione x ambo in pratica si deve
sommare al 5 est il num fisso 1 e fare il vert ..proviamo cosi vediamo come si comporta la tecnica ...

Mike58 · 2 Giugno 2014

Purtroppo No solo 3 ambi

Codice:

Sub Main
	Dim nD(5),nP(2),ru(1),ambata(3)
	Scrivi "Ricerca By Zetrix su estrazioni con 1-3-5 estratti Dispari e 2-4 estratti Pari ***** script By Mike58 **** ",1,1,3,1,3
	Scrivi
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	ReDim T(11)
	T(1) = " Caso "
	T(2) = " Info Estrazione "
	T(3) = " Ruota "
	T(4) = " Stringa Es "
	T(5) = " Num Disp "
	T(6) = " Num Pari "
	T(7) = " Pronostico "
	T(8) = " Esito "
	T(9) = " Estratti "
	T(10) = " Colpo "
	T(11) = " id esito "
	Call InitTabella(T,2,,3,5)
	For es = Ini To fin
		For r = 1 To 12
			If r = 11 Then r = 12
			ds1 = Estratto(es,r,1)
			ds2 = Estratto(es,r,3)
			ds3 = Estratto(es,r,5)
			pr1 = Estratto(es,r,2)
			pr2 = Estratto(es,r,4)
			If dispari(ds1) And dispari(ds2) And dispari(ds3) And pari(pr1) And pari(pr2) Then
				k = k + 1
				nD(1) = ds1
				nD(2) = ds2
				nD(3) = ds3
				nP(1) = pr1
				nP(2) = pr2
				ru(1) = r
				sommaD = Fuori90(nD(1) + nD(2) + nD(3))
				sommaP = Fuori90(nP(1) + nP(2))
				diff = Differenza(sommaD,sommaP)
				ambo = Vert (nD(3)+1)
				ambata(1) = Fuori90(diff + 30)
				ambata(2) = ambo
				'ambata(3) = Fuori90(diff - 30)

				Call VerificaEsito(ambata,ru,es + 1,2,11,Nothing,esito,colpi,estratti,id)
				ReDim v(11)
				v(1) = k
				v(2) = GetInfoEstrazione(es)
				v(3) = SiglaRuota(r)
				v(4) = StringaEstratti(es,r)
				v(5) = StringaNumeri(nD,,1)
				v(6) = StringaNumeri(nP,,1)
				v(7) = StringaNumeri(ambata)
				v(8) = esito
				v(9) = estratti
				v(10) = colpi
				If esito <> "" Then v(11) = DataEstrazione(id)
				If esito = "" And colpi <= 10 Then v(11) = " In corso "
				If esito = "" And colpi >= 11 Then v(11) = " Negativo "
				Call AddRigaTabella(v,,,3)
				Call SetColoreCella(7,7,5)
				If v(11) = " Negativo " Then Call SetColoreCella(11,0,5)
				If v(11) = " In corso " Then Call SetColoreCella(11,2,4)
				If esito = "" And colpi <= 10 Then kn = kn + 1
				If esito = "" And colpi >= 11 Then neg = neg + 1
				pos = k -(kn + neg)
			End If
		Next
	Next
	Call AddRigaTabella(T,2,,3,5)
	Call SetTableWidth("100%")
	Call CreaTabella()
	Scrivi " Casi in corso " & kn
	Scrivi " casi Negativi " & neg
	Scrivi " casi Positivi " & pos,1,1,,2,2
End Sub

Zetrix · 2 Giugno 2014

Si ho visto Mike solo le ultime est ha dato esito positivo ... peccato devo trovare un altra tecnica x ambo

Zetrix · 3 Giugno 2014

Codice:

                         Sub Main
	Dim nD(5),nP(2),ru(1),ambata(5)
	Scrivi "Ricerca By Zetrix su estrazioni con 1-3-5 estratti Dispari e 2-4 estratti Pari ***** script By Mike58 **** ",1,1,3,1,3
	Scrivi
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	ReDim T(11)
	T(1) = " Caso "
	T(2) = " Info Estrazione "
	T(3) = " Ruota "
	T(4) = " Stringa Es "
	T(5) = " Num Disp "
	T(6) = " Num Pari "
	T(7) = " Pronostico "
	T(8) = " Esito "
	T(9) = " Estratti "
	T(10) = " Colpo "
	T(11) = " id esito "
	Call InitTabella(T,2,,3,5)
	For es = Ini To fin
		For r = 1 To 12
			If r = 11 Then r = 12
			ds1 = Estratto(es,r,1)
			ds2 = Estratto(es,r,3)
			ds3 = Estratto(es,r,5)
			pr1 = Estratto(es,r,2)
			pr2 = Estratto(es,r,4)
			If dispari(ds1) And dispari(ds2) And dispari(ds3) And pari(pr1) And pari(pr2) Then
				k = k + 1
				nD(1) = ds1
				nD(2) = ds2
				nD(3) = ds3
				nP(1) = pr1
				nP(2) = pr2
				ru(1) = r
				sommaD = Fuori90(nD(1) + nD(2) + nD(3))
				sommaP = Fuori90(nP(1) + nP(2))
				diff = Differenza(sommaD,sommaP)
				ambo1 = Vert (nD(3) + 5)
				ambo2 = Vert (nD(3) +28)

				ambata(1) = Fuori90(diff + 30)
				ambata(2) = ambo1
				ambata(3) = ambo2
	
				ambata(4) = Fuori90(diff - 30)

				Call VerificaEsito(ambata,ru,es + 1,2,11,Nothing,esito,colpi,estratti,id)
				ReDim v(11)
				v(1) = k
				v(2) = GetInfoEstrazione(es)
				v(3) = SiglaRuota(r)
				v(4) = StringaEstratti(es,r)
				v(5) = StringaNumeri(nD,,1)
				v(6) = StringaNumeri(nP,,1)
				v(7) = StringaNumeri(ambata)
				v(8) = esito
				v(9) = estratti
				v(10) = colpi
				If esito <> "" Then v(11) = DataEstrazione(id)
				If esito = "" And colpi <= 10 Then v(11) = " In corso "
				If esito = "" And colpi >= 11 Then v(11) = " Negativo "
				Call AddRigaTabella(v,,,3)
				Call SetColoreCella(7,7,5)
				If v(11) = " Negativo " Then Call SetColoreCella(11,0,5)
				If v(11) = " In corso " Then Call SetColoreCella(11,2,4)
				If esito = "" And colpi <= 10 Then kn = kn + 1
				If esito = "" And colpi >= 11 Then neg = neg + 1
				pos = k -(kn + neg)
			End If
		Next
	Next
	Call AddRigaTabella(T,2,,3,5)
	Call SetTableWidth("100%")
	Call CreaTabella()
	Scrivi " Casi in corso " & kn
	Scrivi " casi Negativi " & neg
	Scrivi " casi Positivi " & pos,1,1,,2,2
End Sub

Ciao Mike58 ho provato a migliorare un po la tecnica vedi se cosi puo andar bene ..

Mike58 · 3 Giugno 2014

Ciao Zetrix, grazie per il ritorno in termine di studio.
Si per Ambo mi sembra buono, ma penso che si possono fare ancora migliorie al fine di maggiori esiti positivi anche arrivando a 5-6 numeri per ambo.

Studiaci e comunque sono ottime convergenze.

Mike58 · 3 Giugno 2014

Ciao Zetrix, è solo un ulteriore esempio per verificarne meglio gli esiti.
Resta inteso che c'è da studiare.

Codice:

Sub Main
	Dim nD(5),nP(2),ru(1),ambata(6),posta(5)
	posta(2) = 10
	posta(3) = 2
	Scrivi "Ricerca By Zetrix su estrazioni con 1-3-5 estratti Dispari e 2-4 estratti Pari ***** script By Mike58 **** ",1,1,3,1,3
	Scrivi
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	ReDim T(14)
	T(1) = " Caso "
	T(2) = " Info Estrazione "
	T(3) = " Ruota "
	T(4) = " Stringa Es "
	T(5) = " Num Disp "
	T(6) = " Num Pari "
	T(7) = " Pronostico "
	T(8) = " Esito "
	T(9) = " Estratti "
	T(10) = " Colpo "
	T(11) = " id esito "
	T(12) = " Giocato "
	T(13) = " Vincita "
	T(14) = " Utile "
	Call InitTabella(T,2,,3,5)
	For es = Ini To fin
		For r = 1 To 12
			If r = 11 Then r = 12
			ds1 = Estratto(es,r,1)
			ds2 = Estratto(es,r,3)
			ds3 = Estratto(es,r,5)
			pr1 = Estratto(es,r,2)
			pr2 = Estratto(es,r,4)
			If dispari(ds1) And dispari(ds2) And dispari(ds3) And pari(pr1) And pari(pr2) Then
				k = k + 1
				nD(1) = ds1
				nD(2) = ds2
				nD(3) = ds3
				nP(1) = pr1
				nP(2) = pr2
				ru(1) = r
				sommaD = Fuori90(nD(1) + nD(2) + nD(3))
				sommaP = Fuori90(nP(1) + nP(2))
				diff = Differenza(sommaD,sommaP)
				ambo1 = Vert(nD(3) + 5)
				ambo2 = Vert(nD(3) + 28)
				ambo3 = Vert(nD(3) + 1)
				ambo4 = ComplAdX(diff,90)


				ambata(1) = Fuori90(diff + 30)
				ambata(2) = ambo1
				ambata(3) = ambo2
	
				ambata(4) = Fuori90(diff - 30)
				ambata(5) = ambo3
				ambata(6) = ambo4
				Call VerificaEsitoConGuadagno(ambata,ru,es + 1,2,16,Nothing,esito,colpi,estratti,id,Nothing,guad)
				Call VerificaEsitoConGuadagno(ambata,ru,es + 1,3,16,Nothing,esitoT,colpiT,estrattiT,idT,Nothing,guadT)
				ReDim v(14)
				v(1) = k
				v(2) = GetInfoEstrazione(es)
				v(3) = SiglaRuota(r)
				v(4) = StringaEstratti(es,r)
				v(5) = StringaNumeri(nD,,1)
				v(6) = StringaNumeri(nP,,1)
				v(7) = StringaNumeri(ambata,,1)
				v(8) = esito
				v(9) = estratti
				v(10) = colpi
				If esito <> "" Then v(11) = DataEstrazione(id)
				If esito = "" And colpi <= 15 Then v(11) = " In corso "
				If esito = "" And colpi >= 16 Then v(11) = " Negativo "
				v(12) =((posta(2) + posta(3))*colpi)
				vinc = Round(guad,0)*posta(2)
				vinT = Round(guadT,0)*posta(3)
				v(13) = vinc+vinT
				utp = utp - v(12) + v(13)
				v(14) = utp
				Call AddRigaTabella(v,,,3)
				Call SetColoreCella(7,7,5)
				If v(11) = " Negativo " Then Call SetColoreCella(11,0,5)
				If v(11) = " In corso " Then Call SetColoreCella(11,2,4)
				If esito = "" And colpi <= 10 Then kn = kn + 1
				If esito = "" And colpi >= 11 Then neg = neg + 1
				pos = k -(kn + neg)
				If esito = "Ambo" Then amb = amb + 1
				If esito = "Ambo" Then Call SetColoreCella(8,2,4)
				If esitoT = "Terno" Then Ter = Ter + 1
				If esitoT = "Terno" Then Call SetColoreCella(8,3,1)
				If v(14) < 0 Then Call SetColoreCella(14,,2)
			End If
		Next
	Next
	Call AddRigaTabella(T,2,,3,5)
	Call SetTableWidth("100%")
	Call CreaTabella()
	Scrivi " Casi in corso " & kn
	Scrivi " casi Negativi " & neg
	Scrivi " casi Positivi " & pos,1,1,,2,2
	Scrivi " Casi di Ambo  " & amb,1,1,,1,2
	Scrivi " Casi di Terni " & Ter,1,1,,1,2
End Sub

Zetrix · 3 Giugno 2014

Ciao Mike58 ho visto lo script che hai messo lo so che ce ancora molto da studiare sembra che i risultati sono migliorati rispetto a prima anche se ce da dire che adesso la lunghetta e in sestina , mi puoi dire cose il compladx.... scusa ho visto stamattina e il compl della diff ... va bene Mike58 continueremo a trovare migliorie pero nn vorrei mettere lunghette troppo lunghe se no la posta x ambo diventa molto poco
grazie

Mike58 · 4 Giugno 2014

Ciao Zetrix,si io di solito studio e gioco ambo in sestina con possibilità terno in quanto trovo che le probabilità siano attendibili.
Poi nulla ci vieta che possiamo scegliere ed individuare le casistiche migliori per restringere il tutto.
Il mio era solo un esempio per valutarne anche il procedimento in fase di impostazione scriptica.

Il codice compladx(diff,90) altro non è che il completamento a 90 della variabile "Diff"

Ciao è comunque un buon lavoro sia Metodologico che scriptico.

Ciao alla prossima.

aldino · 11 Giugno 2014

un buon pomeriggio a voi

e complimenti ad entrambi ,zetrix e mike58, per l'ottimo listato e grazie per averlo condiviso.

ho fatto qualche tentativo per migliorare la resa concentrandomi sull'elemento :

ambo4 = ComplAdX(diff,90)

dove al posto del 90 ho fatto qualche prova sostituendo di volta in volta "SOMMAD" // "SOMMAP" // "sommae "

come si puo' notare dal sottostante usando "SOMMAP" i terni diventano 5.....

mi rimarrebbe da testare il complemento all'estratto piu' grande dei 5 estratti rilevati

ma e' fuori dalla mia portata ...se ci volete provare ..vediamo che succede.

n.b. sommae= SommaEstratti(ES,r)

range 100 ex

Casi in corso 3
casi Negativi 12
casi Positivi 20
Casi di Ambo 16
Casi di Terni 4
ambo4 = ComplAdX(diff,90) 'originale

Casi in corso 3
casi Negativi 13
casi Positivi 19
Casi di Ambo 15
Casi di Terni 4
ambo4 = ComplAdX(diff,SOMMAD) 'prova 1

Casi in corso 3
casi Negativi 14
casi Positivi 18
Casi di Ambo 13
Casi di Terni 5
ambo4 = ComplAdX(diff,SOMMAP)'prova 2

Casi in corso 3
casi Negativi 16
casi Positivi 16
Casi di Ambo 12
Casi di Terni 4
ambo4 = ComplAdX(diff,SOMMAe)'prova 3

scusate per l'intromissione e

buon proseguimento.

Mike58 · 11 Giugno 2014

Ciao Aldino come tu sai visto che capisci di script, in uno script c'è la ricerca di un qualcosa con relativo test di esito, nessuno ci impedisce poi di evolvere e ricercarci i migliori algoritmi che maggiormente danno esiti favorevoli,

Io mi diletto nel costruirli poi le ricerche + redditizie sta ad ognuno di noi dare il proprio contributo.

Ciao e sempre apprezzati sono gli interventi costruttivi.

LuigiB · 11 Giugno 2014

ciao , non so se ho capito bene il problema di trovare il numero piu alto .. è banalissimo c'è na funzione che lo fa ...potete scegliere tra i modi presentati nell'esepio sotto

Codice:

Option Explicit
Sub Main
	Dim nEstr
	
	' Primo modo  chiede con l'aspposita funzione quale numero piu alto sulla tale ruota
	nEstr = EstrazioniArchivio
	MsgBox MassimoE (nEstr ,1)
	
	' secondo modo prende l'array dei 5 numeri delal ruota e trova il amssimo
	ReDim aN(0)
	Call GetArrayNumeriRuota( nEstr , BA_ ,aN )
	
	Scrivi "Il numero piu grade è " & MassimoV( aN  )
	
	
	' verifica visiva
	Call ScriviEstrazione ( nEstr )
End Sub

Mike58 · 11 Giugno 2014

Ciao Luigi, forse non è questo il trend dei numeri massimi.
Si !!! io conosco il codice del masiimoV - E - ma il problema era capire e ordinare 4 numeri di ambi su 2 ruote e quali scegliere, ecco perché avevo scelta il codice ordinaMatrice .
il trend e questo.

http://http://forum.lottoced.com/f12/chiedo-aiuto-per-un-script-metodo-bari-cagliari-113871/

Zetrix · 11 Giugno 2014

Ciao Mike58, l ultim est sulla ruota di milano si verificato la condz pari e dispari, se vuoi provare 55.88 su milano
per ora nn sto studiando sullo script , vedro piu avanti di migliorare la tecnica

xmaxlotto ,joe91 e mike58 listato da fare

Banned

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Banned