Novità

X Mike58 aiuto modifica script mio

F

francesco0

Member
Buona sera Mike, una cortesia gentilmente, se possibile, modificare il seguente script mio
per evitare di togliere i numeri doppi in excel,

e averlo simile al suo script che pero e con i cicli a me serve con

If IndiceMensile(n) = 1 Then
e
If Mese(es) = 1 And IndiceMensile(es) = 1 Then

X Mike58

x-mike58-114682

In attesa la ringrazio
FRANCO

Option Explicit
Sub Main()
Dim ruote
Dim fin,Ini,es
ruote = 1
fin = EstrazioneFin
Ini = 7405
Scrivi " - " & Ini & " - " & DataEstrazione(Ini)
Scrivi " su Ruota di " & NomeRuota(ruote)
For es = Ini To fin
If Mese(es) = 1 And IndiceMensile(es) = 1 Then
Scrivi DataEstrazione(es),1
Scrivi StringaEstratti(es,ruote),1
Scrivi StringaEstratti(es + 1,ruote),1
Scrivi StringaEstratti(es + 2,ruote),1
Scrivi StringaEstratti(es + 3,ruote),1
Scrivi StringaEstratti(es + 4,ruote),1
Scrivi StringaEstratti(es + 5,ruote),1
Scrivi StringaEstratti(es + 6,ruote),1
Scrivi StringaEstratti(es + 7,ruote),1
Scrivi StringaEstratti(es + 8,ruote),1
Scrivi StringaEstratti(es + 9,ruote),1
End If
Next
End Sub
 
Ciao Franco, il tuo script cerca tutti gli indici mensili = 1 del mese = 1 e poi evidenzia solo le estrazioni successive a questo dato.
Non saprei cosa cercarci se raggruppare poi le frequenze per conteggiarle, Ok, ma poi che valenza potrebbero avere se ad aprile per esempio non abbiamo dati perché ancora si debbono verificare.

Tuttavia dal mio script è possibile far partire le analisi di gioco dall'indice voluto e per il mese voluto, ma la statistica delle frequenze è fatta a ritroso di 12 estrazioni per prendere le estrazioni già avvenute(frequenze) e rimetterle in gioco dall'indice scelto.

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))
	Ind = CInt(InputBox("Quale indice_mensile",,1))
	mm = CInt(InputBox("Quale mese controllo",,3))
	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
	If IndiceMensile(es) = Ind And Mese(es) = mm Then
		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
	End If
	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
 
Mike58 ha scritto:
Ciao Franco, il tuo script cerca tutti gli indici mensili = 1 del mese = 1 e poi evidenzia solo le estrazioni successive a questo dato.
Non saprei cosa cercarci se raggruppare poi le frequenze per conteggiarle, Ok, ma poi che valenza potrebbero avere se ad aprile per esempio non abbiamo dati perché ancora si debbono verificare.

Tuttavia dal mio script è possibile far partire le analisi di gioco dall'indice voluto e per il mese voluto, ma la statistica delle frequenze è fatta a ritroso di 12 estrazioni per prendere le estrazioni già avvenute(frequenze) e rimetterle in gioco dall'indice scelto.
Clicca per espandere...

in anzi tutto grazie.
mi sono spiegato male,questo gio chè vorrei


02.01.2009
58.41.11.74.12
66.70.63.26.61
24.43.17.60.50
78.87.37.15.05
14.84.09.51.24 questo il mio
44.86.05.85.82
55.30.20.86.04
19.88.13.79.32
52.13.78.34.44
23.01.30.61.45

=========================================================================================================Caso n° 1
Ricerca su BA ciclo di 12 estrazioni (7996-8007) gioco fino...[08019] [ 13] 29.01.2009
Tutti i Numeri con frequenza => 1
3.4.6.7.8.9.10.14.16.23.27.28.29.31.36.39.43.47.49.51.53.65.66.67.70.71.72.77.79.85.87.88 [ 32 ] questo come lo vorrei


02.01.2010
12.31.59.14.35
22.69.39.89.90
22.43.03.58.27
05.42.20.16.71
04.37.81.11.49
67.08.55.75.27
29.01.16.86.69
46.19.87.03.62
73.25.45.36.89
87.43.70.74.29

=========================================================================================================Caso n° 2
Ricerca su BA ciclo di 12 estrazioni (8153-8164) gioco fino...[08176] [ 13] 30.01.2010
Tutti i Numeri con frequenza => 1
1.2.6.11.12.14.15.17.19.22.23.26.27.36.45.46.53.56.58.60.66.68.72.73.76.77.79.80.82.90 [ 30 ]


==================================================================================================
3.4.6.7.8.9.10.14.16.23.27.28.29.31.36.39.43.47.49.51.53.65.66.67.70.71.72.77.79.85.87.88 [ 32 ]
1.2.6.11.12.14.15.17.19.22.23.26.27.36.45.46.53.56.58.60.66.68.72.73.76.77.79.80.82.90 [ 30 ]

poi vedo i più freguenti
il 6 uscito due volte
il 14 uscito due volte
il 23 uscito due volte e cosi via
cosi facendo trovo i dieci numeri più usciti
nei mesi di gennaio x giocarli il gennaio prossimo

e cosi anchè x questo script sotto
per il primo del mese
x giocarli il primo del mese prossimo
Grazie di tutto Franco

Option Explicit
Sub Main()
Dim ruote
Dim fin,Ini,es,co
ruote = 1
fin = EstrazioneFin
Ini = 8900
Scrivi " - " & Ini & " - " & DataEstrazione(Ini)
Scrivi " su Ruota di " & NomeRuota(ruote)
co = 0
For es = Ini To fin
If IndiceMensile(es) = 1 Then
co = co + 1
Scrivi "Indice Mese--------" & DataEstrazione(es) & "-------------Caso n° " & Format2(co),1
Scrivi StringaEstratti(es,ruote),1
Scrivi StringaEstratti(es + 1,ruote),1
Scrivi StringaEstratti(es + 2,ruote),1
Scrivi StringaEstratti(es + 3,ruote),1
Scrivi StringaEstratti(es + 4,ruote),1
Scrivi StringaEstratti(es + 5,ruote),1
Scrivi StringaEstratti(es + 6,ruote),1
Scrivi StringaEstratti(es + 7,ruote),1
Scrivi StringaEstratti(es + 8,ruote),1
Scrivi StringaEstratti(es + 9,ruote),1
Scrivi
End If
Next
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 settembre 2025
    Bari
    26
    29
    18
    10
    69
    Cagliari
    28
    35
    57
    44
    17
    Firenze
    19
    29
    49
    15
    17
    Genova
    23
    37
    13
    90
    58
    Milano
    33
    84
    76
    24
    79
    Napoli
    78
    15
    03
    24
    56
    Palermo
    80
    24
    41
    08
    75
    Roma
    55
    62
    83
    34
    69
    Torino
    27
    80
    69
    51
    84
    Venezia
    89
    74
    72
    82
    21
    Nazionale
    45
    20
    85
    33
    67
    Estrazione Simbolotto
    Palermo
    21
    19
    27
    36
    18
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto