Novità

AIUTO MODIFICA SCRIPT

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
B

Blackmore

Guest
Questo script calcola i 7 numeri più frequenti per tutti i 90 numeri
io vorrei modificarlo in modo che:

DOPO L'USCITA DI UN AMBO SPIA MI CALCOLA I 7 NUMERI PIU' FREQUENTI,
E OLTRE ALLA FREQUENZA...AGGIUNGERE ANCHE LA PERCENTUALE, E LA RUOTA NAZIONALE


ESEMPIO DELL'OUTPUT DEL LISTATO CHE DOVREBBE USCIRE:

AMBO SPIA: 23-30 su Venezia - Uscito 4 Volte - Numeri Più frequenti In Gioco Per Colpi: 6

Num. 01 - 40 - 37 - 02 - 31 - 06 - 12

Freq.08 - 08 - 07 - 07 - 06 - 06 - 06

Perc.100% 80% 80% 80% 75% 70% 60%



Sub Main()

Scrivi : Scrivi "QUESTO SCRIPT RICAVA I 7 NUMERI PIù FREQUENTI DOPO L'USCITA DI UN QUALSIASI NUMERO (CON InputBox Per Ruota e Colpi)"

Dim ruote(1)

Dim posta(1)

Dim num(90,2)

Dim uscito(90,2)

r = InputBox("Su quale ruota?",,10)

colpi = InputBox("Quanti colpi?",,6)

ruote(1) = r

ini = 8300

fin = EstrazioneFin

Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"

Scrivi "I Primi 5 Numeri più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1

For sp = 1 To 90

Messaggio " Spia: " & sp

For i = 1 To 90

num(i,1) = 0 : num(i,2) = 0

Next

co = 0

For es = ini To fin

If Posizione(es,r,sp) > 0 Then

co = co + 1

ess = es + colpi + 1

If ess > fin Then ess = fin End If

For a = es + 1 To ess

For v = 1 To 90

uscito(v,2) = 0

Next

For e = 1 To 7

n = Estratto(a,r,e)

num(n,1) = n

num(n,2) = num(n,2) + 1

uscito(n,1) = n

uscito(n,2) = uscito(n,2) + 1

If uscito(n,2) > 1 Then

num(n,2) = num(n,2) - 1

uscito(n,2) = 1

End If

Next

Next

End If

Next

OrdinaMatrice num,- 1,2

per = Int((co/100)*65)

Scrivi "__________________________________________________________________________________________"

Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10)& "- Uscito " & co & " Volte - Numeri Più frequenti In Gioco Per Colpi: " &colpi

Scrivi

riga = "Num. "

riga1 = "Freq. "

For i = 1 To 7

riga = riga & FormatSpace(num(i,1),3) & " "

riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "

Next

Scrivi riga,1

ColoreTesto 2

Scrivi riga1

ColoreTesto 0

Next

End Sub


GRAZIE A CHI MI AIUTERA'

PS: NON SO IL PERCHE', MA IL LISTATO FUNZIONA SOLO SU L8

Blackmore
 
..corretto adesso funge ancke su Spaziometria!

N.B.
vedi note

Codice: 
Sub Main()
	Scrivi
	Scrivi "QUESTO SCRIPT RICAVA I 7 NUMERI PIù FREQUENTI DOPO L'USCITA DI UN QUALSIASI NUMERO (CON InputBox Per Ruota e Colpi)"
	Dim ruote(1)
	Dim posta(1)
	Dim num(90,2)
	Dim uscito(90,2)
	r = CInt(InputBox("Su quale ruota?",,12))
	colpi = CInt(InputBox("Quanti colpi?",,6))
	ruote(1) = r
	ini = 8300
	fin = EstrazioneFin
	Scrivi " Analisi dal " & DataEstrazione(ini) & " ad oggi"
	Scrivi "I Primi 5 Numeri più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
	For sp = 1 To 90
		Messaggio " Spia: " & sp
		For i = 1 To 90
			num(i,1) = 0
			num(i,2) = 0
		Next
		co = 0
		For es = ini To fin
			If Posizione(es,r,sp) > 0 Then
				co = co + 1
				ess = es + colpi + 1
				If ess > fin Then ess = fin End If
				For a = es + 1 To ess
					For v = 1 To 90
						uscito(v,2) = 0
					Next
					For e = 1 To 5 '<< le pos son 5 e nn 7
						n = Estratto(a,r,e)
						num(n,1) = n
						num(n,2) = num(n,2) + 1
						uscito(n,1) = n
						uscito(n,2) = uscito(n,2) + 1
						If uscito(n,2) > 1 Then
							num(n,2) = num(n,2) - 1
							uscito(n,2) = 1
						End If
					Next
				Next
			End If
		Next
		OrdinaMatrice num,- 1,2
		per = Int((co/100)*65) 'per% 65...100%
		Scrivi "__________________________________________________________________________________________"
		Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & "- Uscito " & co & " Volte - Numeri Più frequenti In Gioco Per Colpi: " & colpi
		Scrivi
		riga = " Num. "
		riga1 = "Freq. "
		For i = 1 To 7 'qta numeri
			riga = riga & FormatSpace(num(i,1),3) & " "
			riga1 = riga1 & FormatSpace(Eval(num(i,2)),3) & " "
		Next
		Scrivi riga,1
		ColoreTesto 2
		Scrivi riga1
		ColoreTesto 0
	Next
End Sub

<center>
10gmnnd.png
</center>
 
Ciao Genlotto, ti ringrazio, ma non è cambiato nulla, il risultato è sempre lo stesso
E su spazio continua a non funzionare

Blackmore
 
quote:Originally posted by Blackmore

Ciao Genlotto, ti ringrazio, ma non è cambiato nulla, il risultato è sempre lo stesso
E su spazio continua a non funzionare

Blackmore
Clicca per espandere...
testato su spaziometria ver. 1.2.84 e funziona
:)

<center>
10gmnnd.png
</center>
 
Provato sulla 1.2.85 e non funziona, mah!
Comunque no problem, su L8 funge, per cui ti chiedo se riesci a modificarlo per l'ambo spia come da me richiesto
Vedi output sopra
Ciao e grazie

Blackmore
 
Mi scuso con l'autore che non posso citare perchè non ricordo chi fosse, l'ho trovato tra i tanti sul web.

Codice: 
'Trova ,dopo la sortita di un Ambo Spia,gli Ambi piu' frequenti su 1 Ruota o tutte
Sub Main()
	Dim mt(4005,6),n(2),ru(2)
	r = 1'               ruota della spia
	a = 9 '            spia
	b = 90   '          2a spia
	cl = 10           'colpi
	rr = 7 '1° ruota ,qui' Palermo
	rr1 = 11 '2° ruota,qui' Tutte
	ru(1) = rr    
	ru(2) = rr1
	Scrivi
	For es = 6000 To EstrazioneFin - cl              ' è l' estrazione di partenza
	
	Messaggio " Ambo spia " &  a  & " - " & b
		If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
			co = 0
			For i = 1 To 89
				n(1) = i
				For j = i + 1 To 90
					n(2) = j
					co = co + 1
					mt(co,1) = co
					mt(co,2) = n(1)
					mt(co,3) = n(2)
					mt(co,4) = SiglaRuota(rr)
					'mt(co,5) = SiglaRuota(rr1)
					fr = SerieFreq(es + 1,es + cl,n,ru,2)
					mt(co,6) = mt(co,6) + fr
				Next
			Next
			'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
			'----------------------------------------------------
			'ColoreTesto 2
			'Scrivi es&" "&SiglaRuota(r)&" "& StringaEstratti (es,r)
			'For z=es+1 To es+cl
			'ColoreTesto 1
			'Scrivi z&" "&SiglaRuota(rr)&" "& StringaEstratti (z,rr)&" "&SiglaRuota(rr1)&" "& StringaEstratti (z,rr1)
			'next
			'----------------------------------------------------
			ColoreTesto 0
		End If
	Next
	OrdinaMatrice mt,- 1,6
	Scrivi "Dopo l'ambo spia  " & Format2(a) & "-" & Format2(b) & " sulla ruota di " & NomeRuota(r) & " si rileva :"
	For xx = 1 To 8
		Scrivi Format2(mt(xx,2)) & " . " & Format2(mt(xx,3)) & " " & mt(xx,4) & " " & mt(xx,5) & " " & FormatSpace(mt(xx,6),4,1)
	Next
End Sub

Prova a fargli le modifiche per quanto ti serve.
Ciao

Sia quello di genlotto che questo girano perfettamente su spazio. v.1.2.86

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

Modifica: L'autore è Ramcolotto
 
Grazie Claudio, è una settimana che cercavo sul web, però non riesco a modificarlo, io vorrei i 7 numeri più frequenti e non gli 8 ambi, chi mi da una mano?

Blackmore
 
quote:Originally posted by Blackmore

Grazie Claudio, è una settimana che cercavo sul web, però non riesco a modificarlo, io vorrei i 7 numeri più frequenti e non gli 8 ambi, chi mi da una mano?

Blackmore
Clicca per espandere...

Questo script calcola i 7 numeri più frequenti per tutti i 90 numeri
io vorrei modificarlo in modo che:

DOPO L'USCITA DI UN AMBO SPIA MI CALCOLA I 7 NUMERI PIU' FREQUENTI, dove?
E OLTRE ALLA FREQUENZA(Presenza) ...AGGIUNGERE ANCHE LA PERCENTUALE di cosa? uscite su casi?, E LA RUOTA NAZIONALE in che senso


Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
Codice: 
'Trova ,dopo la sortita di un Ambo Spia,i numeri piu' frequenti su 1 Ruota 
Sub Main()
	Dim mt(90,4),n(1),ru(1)
	r = CInt(InputBox("RUOTA DI SORTITA AMBO SPIA ","Blackmore",1)) ' BARI
	a = CInt(InputBox(" 1° Numero  ","Blackmore",9))
	b = CInt(InputBox(" 2° Numero  ","Blakmore",90))
	rr = CInt(InputBox("RUOTA DI CONTROLLO ","Blackmore",12)) ' tutte
	cl = CInt(InputBox("COLPI DI RICERCA ","Blackmore",2))
	testo = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI? ( 1=si altro=no ) ","Blackmore",1))
	ru(1) = rr
	'Scrivi
	caso = 0
	For es = 8000 To EstrazioneFin - cl ' è l' estrazione di partenza
		Messaggio " Ambo spia " & a & " - " & b
		If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
			caso = caso + 1
			co = 0
			For i = 1 To 90
				n(1) = i
				co = co + 1
				mt(co,1) = co
				mt(co,2) = n(1)
				mt(co,3) = SiglaRuota(rr)
				fr = SerieFreq(es + 1,es + cl,n,ru,1)
				mt(co,4) = mt(co,4) + fr
			Next
			If testo = 1 Then
				ColoreTesto 2
				Scrivi es & " " & SiglaRuota(r) & " " & StringaEstratti(es,r)
				For z = es + 1 To es + cl
					ColoreTesto 1
					Scrivi z & " " & SiglaRuota(rr) & " " & StringaEstratti(z,rr)
				Next
				Scrivi" '------------------- caso n° " & caso
				ColoreTesto 0
			End If
		End If
	Next
	OrdinaMatrice mt,- 1,4
	Scrivi "Dopo l'ambo spia " & Format2(a) & "-" & Format2(b) & " di " & NomeRuota(r) 
	Scrivi" '-----------------------------------"
		For co = 1 To 20 '<-----------------
		Scrivi "il n° " & Format2(mt(co,2)) & " è uscito su " & mt(co,3) & " " & FormatSpace(mt(co,4) & " volte",4,1)
	Next
End Sub

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
Codice: 
'Trova ,dopo la sortita di un Ambo Spia, i numeri piu' frequenti con %  su 1 Ruota a scelta
Sub Main()
	Dim mt(90,4),n(1),ru(1),caso,rr,cl,r,a,b,testo
	r = CInt(InputBox("RUOTA DI SORTITA AMBO SPIA ","Blackmore",1)) ' BARI
	a = CInt(InputBox(" 1° Numero  ","Blackmore",9))
	b = CInt(InputBox(" 2° Numero  ","Blakmore",90))
	rr = CInt(InputBox("RUOTA DI CONTROLLO ","Blackmore",12)) ' tutte
	cl = CInt(InputBox("COLPI DI RICERCA ","Blackmore",1))
	testo = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI? ( 1=si altro=no ) ","Blackmore",1))
	
	ru(1) = rr
	caso = 0
	For es = 6000 To EstrazioneFin - cl ' è l' estrazione di partenza
		Messaggio " Ambo spia " & a & " - " & b
		If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 Then
			caso = caso + 1
			co = 0
			For i = 1 To 90
				n(1) = i
				co = co + 1
				mt(co,1) = co
				mt(co,2) = n(1)
				mt(co,3) = SiglaRuota(rr)
				fr = SerieFreq(es + 1,es + cl,n,ru,1)
				mt(co,4) = mt(co,4) + fr
			Next
			If testo = 1 Then
				ColoreTesto 2
				Scrivi es & " " & SiglaRuota(r) & " " & StringaEstratti(es,r)
				For z = es + 1 To es + cl
					ColoreTesto 1
					Scrivi z & " " & SiglaRuota(rr) & " " & StringaEstratti(z,rr)
				Next
				Scrivi" '------------------- caso n° " & caso
				ColoreTesto 0
			End If
		End If
	Next
	OrdinaMatrice mt,- 1,4
	Scrivi "Ambo spia " & Format2(a) & "-" & Format2(b) & " su " & NomeRuota(r) & " - uscito " & caso & " volte" 
	Scrivi "Numeri più Frequenti in gioco per colpi: " & cl &" sulla ruota " & NomeRuota(rr) 
	Scrivi "--------------------------------------------------"
		For co = 1 To 20 '<----------------- numeri in elenco
		Scrivi "il n° " & Format2(mt(co,2)) & " è uscito " & FormatSpace(mt(co,4) & " volte su "& caso & " con % del " & CInt(mt(co,4)/caso*100),4,1)
	Next
End Sub

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
Grazie infinite Claudio, lo script è perfetto
Avrei da chiederti una piccola cosa, è possibile in VUOI VEDERE LE ESTRAZIONI? Nell'output i numeri più frequenti farli apparire evidenziati in rosso (o in nero) come nell'immagine qui sotto?

spiaimage.jpg



Su spazio continua a non andare, domani provo ad installare l'ultima versione

Blackmore
 
Domanda, come mai mettendo l'ambo 11 - 17 sulla Nazionale sia come ricerca che controllo non mi da l'ultimo ambo 11 - 17 uscito 1 estrazione fa?

Blackmore
 
X i colori non ti posso aiutare perche occorrerebbe che studi l'elp, pe questa seconda, lo script si giustamente (cosa rara perchè in genere fanno tutti questo errore) ferma nella ricerca alla estrazione finale meno i colpi di ricerca in modo chetu possa verificare visivamente se i numeri+ freq. continuano a funzionare.

Ciao.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
Ok, Va benissimo così, lo script è proprio quello che cercavo
GRAZIE ANCORA
Ciao :)

Blackmore
 
Ciao Claudio8 e' quello che cercavo,si potrebbe fare la ricerca solo per un numero spia,escludendo la ricerca degli ambi, ovviamente con l'autorizzazione degli autori.Grazie

Antonio1
 
quote:Originally posted by antonio1

Ciao Claudio8 e' quello che cercavo,si potrebbe fare la ricerca solo per un numero spia,escludendo la ricerca degli ambi, ovviamente con l'autorizzazione degli autori.Grazie

Antonio1
Clicca per espandere...
ciao Antonio, è il primo listato del topic, quello che cerchi tu

Blackmore
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto