X Mike58

solare · 27 Luglio 2014

Ciao, volevo chiederti in merito a questo listato se non erro fatto da te. E' possibile visualizzare il rit att di ogni nr. visualizzato ?
Grazie....
Sub Main
Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii
Dim bEsito
Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1)
Dim RetEsito,RetColpi,RetEstratti,retId
ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8000))
sfa = CInt(InputBox("Quanti superfrequenti ",,1))
clc = CInt(InputBox("Quanti cicli di gioco ",,12))
clp = CInt(InputBox("Quanti colpi di gioco ",,12))
fin = EstrazioneFin
ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
colpi = clp 'colpi di gioco
aPosta(2) = 1
For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
Messaggio es
Call AvanzamentoElab(ini,fin,es)
ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
ktutto = 0' ad ogni nuovo ciclo azzero i contatori
ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
For ii = 1 To 90
tutto(1) = ii
If SerieFreqTurbo(ini1,es,tutto,aRuota,1) >= sfa Then
ktutto = ktutto + 1
ReDim Preserve Atutto(ktutto)
Atutto(ktutto) = ii
End If
Next
kCasi = kCasi + 1
Call ColoreTesto(1)
Call Scrivi
Call Scrivi(String(155,"="))
Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazione(es + colpi),1)
Call Scrivi("Tutti i Numeri con frequenza = " & sfa)
Scrivi StringaNumeri(Atutto) & " [ " & ktutto & " ] ",1
Call Scrivi(String(155,"="))

Call Scrivi
Call ColoreTesto(0)
kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
bEsito = False
kCasiPos = kCasiPos + 1
'
Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
kk = 0
estra = 0
ambo = 0
terno = 0
qua = 0
For idestr = es + 1 To es + colpi
kk = kk + 1
Call VerificaEsitoTurbo(Atutto,aRuota,idestr,1,1,,RetEsito,RetColpi,RetEstratti,retId)
'Next
If RetEsito <> "" Then
ColoreTesto 0
If RetEsito = "Estratto" Then estra = estra + 1
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Ambo" Then ambo = ambo + 1
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Terno" Then terno = terno + 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Quaterna" Then qua = qua + 1
'kk = kk + 1
Call Scrivi(idestr & " - " & Format2(kk) & "° - " & RetEstratti & " - " & RetEsito & " - " & GetInfoEstrazione(retId),1)
ColoreTesto 0
End If
Next
Scrivi
Scrivi" Totali Estratto..." & estra & " ",True,False,0,5,2
Scrivi" Totali Ambi......." & ambo & " ",True,False,2,4,2
Scrivi" Totali Terni......" & terno & " ",True,False,4,2,2
Scrivi"Totali quaterne...." & qua & " ",True,True,7,0,2
Call ColoreTesto(0)
If ScriptInterrotto Then Exit For
Next
Call Scrivi
Call Scrivi(String(60,"="))
Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub

Mike58 · 27 Luglio 2014

ciao Solare,
prova cosi

Codice:

'Option Explicit
Sub Main
	Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii
	Dim bEsito
	Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
	Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1),aaatt(1)
	Dim RetEsito,RetColpi,RetEstratti,retId
	ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
	aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
	ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8000))
	sfa = CInt(InputBox("Quanti superfrequenti ",,1))
	clc = CInt(InputBox("Quanti cicli di gioco ",,12))
	clp = CInt(InputBox("Quanti colpi di gioco ",,12))
	fin = EstrazioneFin
	ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
	colpi = clp 'colpi di gioco
	aPosta(2) = 1
	For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
		cc = cc + 1
		Messaggio es
		Call AvanzamentoElab(ini,fin,es)
		ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
		ktutto = 0' ad ogni nuovo ciclo azzero i contatori
		kktutto = 0
		manca = 0
		riga = ""
		ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
		ReDim aaTT(0)
		ReDim mancanti(0)
		For ii = 1 To 90
			tutto(1) = ii
			If SerieFreqTurbo(ini1,es,tutto,aRuota,1) = sfa Then
				ktutto = ktutto + 1
				ReDim Preserve Atutto(ktutto)
				Atutto(ktutto) = ii
				If SerieFreq(es+1,es + clp,tutto,aRuota,1) > 0 Then
					kktutto = kktutto + 1
					ReDim Preserve aaTT(kktutto)
					aaTT(kktutto) = ii
					perc = kktutto/ktutto*100
				End If
				If SerieFreq(es,es + clp,tutto,aRuota,1) < 1 Then
				manca = manca + 1
				ReDim Preserve mancanti(manca)
				mancanti(manca) = ii
				sr = SerieRitardo(ini,fin,tutto,aRuota,1)
				
				riga = riga & Format2(sr) & " "				
				End If

			End If
			
		Next
		
		kCasi = kCasi + 1
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(155,"=") & " Caso n° " & cc)
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazione(es + colpi),1)
		Call Scrivi("Tutti i Numeri con frequenza =>  " & sfa)
		Scrivi StringaNumeri(Atutto) & "   [ " & ktutto & " ] ",True,True,3,1,2
		Scrivi
		Scrivi "Tutti i numeri trovati usciti dopo il ciclo nei colpi di esito",1
		Scrivi StringaNumeri(aaTT) & "    [ " & kktutto & " ] " & "   Perc% uscite.... " & Int(perc),True,True,4,2,2
		Scrivi "Tutti i numeri non usciti nella Ricerca",True,True,,2,2
		Scrivi StringaNumeri(mancanti,,1) & "    [ " & manca & " ] ",True,True,2,4,2
		Scrivi riga & "  " & " [ Ritardo Relativo ] "
		
		Call Scrivi(String(155,"="))
		Call Scrivi
		Call ColoreTesto(0)
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
		bEsito = False
		kCasiPos = kCasiPos + 1
		'
		Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
		kk = 0
		estra = 0
		ambo = 0
		terno = 0
		quat = 0
		cinq = 0
		riga = ""
		For idestr = es + 1 To es + colpi
			kk = kk + 1
			Call VerificaEsitoTurbo(Atutto,aRuota,idestr,1,1,,RetEsito,RetColpi,RetEstratti,retId)
			'Next
			If RetEsito <> "" Then
				ColoreTesto 0
				If RetEsito = "Estratto" Then estra = estra + 1
				If RetEsito = "Estratto" Then TE = TE + 1
				If RetEsito = "Ambo" Then ColoreTesto 2
				If RetEsito = "Ambo" Then ta = ta + 1
				If RetEsito = "Ambo" Then ambo = ambo + 1
				If RetEsito = "Terno" Then ColoreTesto 1
				If RetEsito = "Terno" Then terno = terno + 1
				If RetEsito = "Terno" Then tte = tte + 1
				If RetEsito = "Quaterna" Then ColoreTesto 7
				If RetEsito = "Quaterna" Then quat = quat + 1
				If RetEsito = "Quaterna" Then tq = tq + 1
				If RetEsito = "Cinqina" Then ColoreTesto 3
				If RetEsito = "Cinqina" Then cinq = cinq + 1
				If RetEsito = "Cinqina" Then tc = tc + 1
				'kk = kk + 1
				Call Scrivi(idestr & " - " & Format2(kk) & "°  - " & RetEstratti & " - " & RetEsito & "  " & vbTab & GetInfoEstrazione(retId),1)
				ColoreTesto 0
			End If
		Next
		Scrivi
		Scrivi" Totali Estratto..." & estra & "  ",True,False,0,5,2
		Scrivi" Totali Ambi......." & ambo & "  ",True,False,2,4,2
		Scrivi" Totali Terni......" & terno & "  ",True,False,4,2,2
		Scrivi" Totali quaterne..." & quat & "  ",True,False,7,0,2
		Scrivi" Totali cinquine..." & cinq	 & "  ",True,True,6,0,2
		Call ColoreTesto(0)
		If ScriptInterrotto Then Exit For
	Next
	Call Scrivi
	Call Scrivi(String(60,"="))
	Scrivi
	Scrivi "Cicli.... " & cc,True,False,2,4,2
	Scrivi " Colpi...." & clp,True,False,3,0,2
	Scrivi " Tot. estrazioni ...." & cc*clp,True,True,4,2,2
	Scrivi
	Scrivi " Totali estratti..." & te,True,False,0,5,3
	Scrivi " Totali Ambi......." & ta,True,False,2,4,3
	Scrivi " Totali terni......" & tte,True,False,4,2,3
	Scrivi " Totali Quaterne..." & tq,True,False,7,0,3
	Scrivi " Totali Cinquine..." & tc,True,True,6,0,3
	Scrivi
	Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub

solare · 27 Luglio 2014

grazie mike58, adesso cerco di capire bene cosa fa il tuo listato.

solare · 27 Luglio 2014

Ciao Mike58, è possibile conoscere il ritardo attuale di ugni singolo numero della riga sottostante ?

Tutti i numeri trovati usciti dopo il ciclo nei colpi di esito
3.4.16.20.21.22.23.34.37.39.45.55.57.65.68.75.79.86 [ 18 ] Perc% uscite.... 52
Grazie della tua gentilezza

Mike58 · 28 Luglio 2014

Ciao Solare ti ho messo tutti i ritardi.

dovrebbe essere cosi.

Codice:

'Option Explicit
Sub Main
	Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii
	Dim bEsito
	Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
	Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1),aaatt(1)
	Dim RetEsito,RetColpi,RetEstratti,retId
	ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
	aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
	ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8000))
	sfa = CInt(InputBox("Quanti superfrequenti ",,1))
	clc = CInt(InputBox("Quanti cicli di gioco ",,12))
	clp = CInt(InputBox("Quanti colpi di gioco ",,12))
	fin = EstrazioneFin
	ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
	colpi = clp 'colpi di gioco
	aPosta(2) = 1
	For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
		cc = cc + 1
		Messaggio es
		Call AvanzamentoElab(ini,fin,es)
		ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
		ktutto = 0' ad ogni nuovo ciclo azzero i contatori
		kktutto = 0
		manca = 0
		riga = ""
		riga1 = ""
		riga3 = ""
		ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
		ReDim aaTT(0)
		ReDim mancanti(0)
		For ii = 1 To 90
			tutto(1) = ii
			If SerieFreqTurbo(ini1,es,tutto,aRuota,1) = sfa Then
				ktutto = ktutto + 1
				sr2 = SerieRitardo(ini,fin,tutto,aRuota,1)
				riga3 = riga3 & Format2(sr2) & " "
				ReDim Preserve Atutto(ktutto)
				Atutto(ktutto) = ii
				If SerieFreq(es + 1,es + clp,tutto,aRuota,1) > 0 Then
					kktutto = kktutto + 1
					ReDim Preserve aaTT(kktutto)
					aaTT(kktutto) = ii
					sr1 = SerieRitardo(ini,fin,tutto,aRuota,1)
					riga1 = riga1 & Format2(sr1) & " "
					perc = kktutto/ktutto*100
				End If
				If SerieFreq(es,es + clp,tutto,aRuota,1) < 1 Then
					manca = manca + 1
					ReDim Preserve mancanti(manca)
					mancanti(manca) = ii
					sr = SerieRitardo(ini,fin,tutto,aRuota,1)
					riga = riga & Format2(sr) & " "
				End If
			End If
		Next
		kCasi = kCasi + 1
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(155,"=") & " Caso n° " & cc)
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazione(es + colpi),1)
		Call Scrivi("Tutti i Numeri con frequenza =>  " & sfa)
		Scrivi StringaNumeri(Atutto,,1) & "   [ " & ktutto & " ] ",True,True,3,1,2
		Scrivi riga3 & "  " & " [ Ritardo Relativo Numeri rilevati ] "

		'Scrivi
		Scrivi "Tutti i numeri trovati usciti dopo il ciclo nei colpi di esito",1
		Scrivi StringaNumeri(aaTT,,1) & "    [ " & kktutto & " ] " & "   Perc% uscite.... " & Int(perc),True,True,4,2,2
		Scrivi riga1 & "  " & " [ Ritardo Relativo usciti ] "
		Scrivi "Tutti i numeri non usciti nella Ricerca",True,True,,2,2
		Scrivi StringaNumeri(mancanti,,1) & "    [ " & manca & " ] ",True,True,2,4,2
		Scrivi riga & "  " & " [ Ritardo Relativo ] "
		Call Scrivi(String(155,"="))
		Call Scrivi
		Call ColoreTesto(0)
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
		bEsito = False
		kCasiPos = kCasiPos + 1
		'
		Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
		kk = 0
		estra = 0
		ambo = 0
		terno = 0
		quat = 0
		cinq = 0
		riga = 0
		riga1 = 0
		riga3 = 0
		For idestr = es + 1 To es + colpi
			kk = kk + 1
			Call VerificaEsitoTurbo(Atutto,aRuota,idestr,1,1,,RetEsito,RetColpi,RetEstratti,retId)
			'Next
			If RetEsito <> "" Then
				ColoreTesto 0
				If RetEsito = "Estratto" Then estra = estra + 1
				If RetEsito = "Estratto" Then TE = TE + 1
				If RetEsito = "Ambo" Then ColoreTesto 2
				If RetEsito = "Ambo" Then ta = ta + 1
				If RetEsito = "Ambo" Then ambo = ambo + 1
				If RetEsito = "Terno" Then ColoreTesto 1
				If RetEsito = "Terno" Then terno = terno + 1
				If RetEsito = "Terno" Then tte = tte + 1
				If RetEsito = "Quaterna" Then ColoreTesto 7
				If RetEsito = "Quaterna" Then quat = quat + 1
				If RetEsito = "Quaterna" Then tq = tq + 1
				If RetEsito = "Cinqina" Then ColoreTesto 3
				If RetEsito = "Cinqina" Then cinq = cinq + 1
				If RetEsito = "Cinqina" Then tc = tc + 1
				'kk = kk + 1
				Call Scrivi(idestr & " - " & Format2(kk) & "°  - " & RetEstratti & " - " & RetEsito & "  " & vbTab & GetInfoEstrazione(retId),1)
				ColoreTesto 0
			End If
		Next
		Scrivi
		Scrivi" Totali Estratto..." & estra & "  ",True,False,0,5,2
		Scrivi" Totali Ambi......." & ambo & "  ",True,False,2,4,2
		Scrivi" Totali Terni......" & terno & "  ",True,False,4,2,2
		Scrivi" Totali quaterne..." & quat & "  ",True,False,7,0,2
		Scrivi" Totali cinquine..." & cinq	 & "  ",True,True,6,0,2
		Call ColoreTesto(0)
		If ScriptInterrotto Then Exit For
	Next
	Call Scrivi
	Call Scrivi(String(60,"="))
	Scrivi
	Scrivi "Cicli.... " & cc,True,False,2,4,2
	Scrivi " Colpi...." & clp,True,False,3,0,2
	Scrivi " Tot. estrazioni ...." & cc*clp,True,True,4,2,2
	Scrivi
	Scrivi " Totali estratti..." & te,True,False,0,5,3
	Scrivi " Totali Ambi......." & ta,True,False,2,4,3
	Scrivi " Totali terni......" & tte,True,False,4,2,3
	Scrivi " Totali Quaterne..." & tq,True,False,7,0,3
	Scrivi " Totali Cinquine..." & tc,True,True,6,0,3
	Scrivi
	Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub

solare · 28 Luglio 2014

Grazie Mike58, gentilissimo come sempre..

solare · 28 Luglio 2014

Scusa Mike58, ma non riesco a capire i dati relativi ai singoli numeri, perchè tutti 1. Non è il ritardo effettivo del singolo numero. a cosa si riferisce ?

Ricerca su BA ciclo di 12 estrazioni (8855-8866) gioco fino...
Tutti i Numeri con frequenza => 1
09.12.13.14.19.20.21.24.37.40.43.46.47.50.51.52.59.61.63.64.69.72.74.75.76.77.78.79.81 [ 29 ]
01 01 00 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 00 01 01 01 01 01 00 01 01 [ Ritardo Relativo Numeri rilevati ]
Tutti i numeri trovati usciti dopo il ciclo nei colpi di esito
09.13.21.24.37.46.47.50.52.59.75.77.79 [ 13 ] Perc% uscite.... 46
01 00 01 01 01 01 01 01 01 01 01 01 01 [ Ritardo Relativo usciti ]
Tutti i numeri non usciti nella Ricerca
12.14.19.20.40.43.51.61.63.64.72.74.76.81 [ 14 ]
01 01 01 01 01 01 01 01 01 01 01 01 01 01 [ Ritardo Relativo ]
===========================================================================================================================================================

-------------------- Verifica esito nelle estrazioni successive --------------------
8868 - 02° - BA .. .. 52 .. .. - Estratto [08868] [ 79] 03.07.2014
8870 - 04° - BA .. 47 59 .. 46 - Terno [08870] [ 81] 08.07.2014
8871 - 05° - BA .. 24 75 .. .. - Ambo [08871] [ 82] 10.07.2014
8872 - 06° - BA 75 .. .. 21 37 - Terno [08872] [ 83] 12.07.2014
8873 - 07° - BA 79 .. .. .. .. - Estratto [08873] [ 84] 15.07.2014
8874 - 08° - BA .. .. 77 59 .. - Ambo [08874] [ 85] 17.07.2014
8875 - 09° - BA .. .. 09 .. .. - Estratto [08875] [ 86] 19.07.2014
8876 - 10° - BA .. .. .. 50 .. - Estratto [08876] [ 87] 22.07.2014
8877 - 11° - BA .. .. 13 .. .. - Estratto [08877] [ 88] 24.07.2014
8878 - 12° - BA .. 50 37 .. .. - Ambo [08878] [ 89] 26.07.2014

Totali Estratto...5 Totali Ambi.......3 Totali Terni......2 Totali quaterne...0 Totali cinquine...0

============================================================

Cicli.... 1 Colpi....13 Tot. estrazioni ....13

Totali estratti...5 Totali Ambi.......3 Totali terni......2 Totali Quaterne... Totali Cinquine...

Script Listed by Mike58

Mike58 · 28 Luglio 2014

=========================================================================================================================================================== Caso n° 74
Ricerca su BA ciclo di 12 estrazioni (8865-8876) gioco fino...
Tutti i Numeri con frequenza => 1
04.09.11.13.16.18.21.22.23.24.25.28.29.31.35.36.37.39.41.44.46.47.48.49.50.52.55.56.60.62.63.69.70.73.74.77.78.79.80.82.83.86.87 [ 43 ]
07 03 00 01 03 07 06 11 13 07 07 08 11 09 11 04 00 05 00 05 08 08 09 03 00 10 06 13 10 03 13 12 11 06 13 04 12 05 02 01 00 11 02 [ Ritardo Relativo Numeri rilevati ]
Tutti i numeri trovati usciti dopo il ciclo nei colpi di esito
11.13.37.41.50.82.83 [ 7 ] Perc% uscite.... 17
00 01 00 00 00 01 00 [ Ritardo Relativo usciti ]
Tutti i numeri non usciti nella Ricerca
04.09.16.18.21.22.23.24.25.28.29.31.35.36.39.44.46.47.48.49.52.55.56.60.62.63.69.70.73.74.77.78.79.86 [ 34 ]
07 03 03 07 06 11 13 07 07 08 11 09 11 04 05 05 08 08 09 03 10 06 13 10 03 13 12 11 06 13 04 12 05 11 [ Ritardo Relativo ]
===========================================================================================================================================================

-------------------- Verifica esito nelle estrazioni successive --------------------
8877 - 01° - BA 82 .. 13 .. .. - Ambo [08877] [ 88] 24.07.2014
8878 - 02° - BA 83 50 37 41 11 - Cinqina [08878] [ 89] 26.07.2014

Totali Estratto...0 Totali Ambi.......1 Totali Terni......0 Totali quaterne...0 Totali cinquine...1

============================================================

Cicli.... 74 Colpi....12 Tot. estrazioni ....888

Totali estratti...273 Totali Ambi.......288 Totali terni......158 Totali Quaterne...42 Totali Cinquine...8

Script Listed by Mike58

Ciao Solare i dati ricavati sono corretti devi solo impostrare meglio la ricerca in + cicli.

Settenario · 28 Luglio 2014

buona sera Mike58, script eccellente, è possibile usarlo per la ricerca sul 1° estratto della ruota scelta? ti ringrazio anticipatamente

Alberto

solare · 28 Luglio 2014

ok Mike58. grazie comunque

Mike58 · 29 Luglio 2014

kondor13

buona sera Mike58, script eccellente, è possibile usarlo per la ricerca sul 1° estratto della ruota scelta? ti ringrazio anticipatamente

Alberto

Prova cosi con il rilevamento dei numeri in posizione, ma la statistica è per forza su tutto.

Codice:

'Option Explicit
Sub Main
	Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii
	Dim bEsito
	Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
	Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1),aaatt(1)
	Dim RetEsito,RetColpi,RetEstratti,retId
	ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
	aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
	ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8000))
	sfa = CInt(InputBox("Quanti superfrequenti ",,1))
	clc = CInt(InputBox("Quanti cicli di gioco ",,12))
	clp = CInt(InputBox("Quanti colpi di gioco ",,12))
	posD = CInt(InputBox("Quale Posizione Determinata ",,1))

	fin = EstrazioneFin
	ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
	colpi = clp 'colpi di gioco
	aPosta(2) = 1
	For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
		cc = cc + 1
		Messaggio es
		Call AvanzamentoElab(ini,fin,es)
		ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
		ktutto = 0' ad ogni nuovo ciclo azzero i contatori
		kktutto = 0
		manca = 0
		riga = ""
		riga1 = ""
		riga3 = ""
		ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
		ReDim aaTT(0)
		ReDim mancanti(0)
		ReDim apos(5)
		apos(posD) = True
		For ii = 1 To 90
			tutto(1) = ii
			If EstrattoFrequenza(aRuota(1),ii,ini1,es,,,apos) = sfa Then
				ktutto = ktutto + 1
				sr2 = SerieRitardo(ini,fin,tutto,aRuota,1)
				riga3 = riga3 & Format2(sr2) & " "
				ReDim Preserve Atutto(ktutto)
				Atutto(ktutto) = ii
				If SerieFreq(es + 1,es + clp,tutto,aRuota,1) > 0 Then
					kktutto = kktutto + 1
					ReDim Preserve aaTT(kktutto)
					aaTT(kktutto) = ii
					sr1 = SerieRitardo(ini,fin,tutto,aRuota,1)
					riga1 = riga1 & Format2(sr1) & " "
					perc = kktutto/ktutto*100
				End If
				If SerieFreq(es,es + clp,tutto,aRuota,1) < 1 Then
					manca = manca + 1
					ReDim Preserve mancanti(manca)
					mancanti(manca) = ii
					sr = SerieRitardo(ini,fin,tutto,aRuota,1)
					riga = riga & Format2(sr) & " "
				End If
			End If
		Next
		kCasi = kCasi + 1
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(155,"=") & " Caso n° " & cc)
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazione(es + colpi),1)
		Call Scrivi("Tutti i Numeri con frequenza =>  " & sfa & "  in Posizione... " & posD)
		Scrivi StringaNumeri(Atutto,,1) & "   [ " & ktutto & " ] ",True,True,3,1,2
		Scrivi riga3 & "  " & " [ Ritardo Relativo Numeri rilevati ] "

		'Scrivi
		Scrivi "Tutti i numeri trovati usciti dopo il ciclo nei colpi di esito",1
		Scrivi StringaNumeri(aaTT,,1) & "    [ " & kktutto & " ] " & "   Perc% uscite.... " & Int(perc),True,True,4,2,2
		Scrivi riga1 & "  " & " [ Ritardo Relativo usciti ] "
		Scrivi "Tutti i numeri non usciti nella Ricerca",True,True,,2,2
		Scrivi StringaNumeri(mancanti,,1) & "    [ " & manca & " ] ",True,True,2,4,2
		Scrivi riga & "  " & " [ Ritardo Relativo ] "
		Call Scrivi(String(155,"="))
		Call Scrivi
		Call ColoreTesto(0)
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
		bEsito = False
		kCasiPos = kCasiPos + 1
		'
		Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
		kk = 0
		estra = 0
		ambo = 0
		terno = 0
		quat = 0
		cinq = 0
		riga = 0
		riga1 = 0
		riga3 = 0
		For idestr = es + 1 To es + colpi
			kk = kk + 1
			Call VerificaEsitoTurbo(Atutto,aRuota,idestr,1,1,,RetEsito,RetColpi,RetEstratti,retId)
			'Next
			If RetEsito <> "" Then
				ColoreTesto 0
				If RetEsito = "Estratto" Then estra = estra + 1
				If RetEsito = "Estratto" Then TE = TE + 1
				If RetEsito = "Ambo" Then ColoreTesto 2
				If RetEsito = "Ambo" Then ta = ta + 1
				If RetEsito = "Ambo" Then ambo = ambo + 1
				If RetEsito = "Terno" Then ColoreTesto 1
				If RetEsito = "Terno" Then terno = terno + 1
				If RetEsito = "Terno" Then tte = tte + 1
				If RetEsito = "Quaterna" Then ColoreTesto 7
				If RetEsito = "Quaterna" Then quat = quat + 1
				If RetEsito = "Quaterna" Then tq = tq + 1
				If RetEsito = "Cinqina" Then ColoreTesto 3
				If RetEsito = "Cinqina" Then cinq = cinq + 1
				If RetEsito = "Cinqina" Then tc = tc + 1
				'kk = kk + 1
				Call Scrivi(idestr & " - " & Format2(kk) & "°  - " & RetEstratti & " - " & RetEsito & "  " & vbTab & GetInfoEstrazione(retId),1)
				ColoreTesto 0
			End If
		Next
		Scrivi
		Scrivi" Totali Estratto..." & estra & "  ",True,False,0,5,2
		Scrivi" Totali Ambi......." & ambo & "  ",True,False,2,4,2
		Scrivi" Totali Terni......" & terno & "  ",True,False,4,2,2
		Scrivi" Totali quaterne..." & quat & "  ",True,False,7,0,2
		Scrivi" Totali cinquine..." & cinq	 & "  ",True,True,6,0,2
		Call ColoreTesto(0)
		If ScriptInterrotto Then Exit For
	Next
	Call Scrivi
	Call Scrivi(String(60,"="))
	Scrivi
	Scrivi "Cicli.... " & cc,True,False,2,4,2
	Scrivi " Colpi...." & clp,True,False,3,0,2
	Scrivi " Tot. estrazioni ...." & cc*clp,True,True,4,2,2
	Scrivi
	Scrivi " Totali estratti..." & te,True,False,0,5,3
	Scrivi " Totali Ambi......." & ta,True,False,2,4,3
	Scrivi " Totali terni......" & tte,True,False,4,2,3
	Scrivi " Totali Quaterne..." & tq,True,False,7,0,3
	Scrivi " Totali Cinquine..." & tc,True,True,6,0,3
	Scrivi
	Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub

Cerca

Cerca

X Mike58

solare

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM<

solare

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM<

solare

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

Settenario

Super Member >PLATINUM<

solare

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi