Novità

X rubino e luig10elotto per tutti Ultima richiesta

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
caro rubino ennesima richiesta ti ricordi questo script

Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
ImpostaArchivio10ELotto(2)

Dim num(20)
Dim asom(20)
Dim acolpi(9999)
storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
fin = storia
Ini = storia - z

Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5 minuti "
Scrivi "Somma nr. consecutività.." & v
Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
Scrivi "______________________________________________________________________________________________________________________________________________________"


For x = 1 To z
idestr = storia - x
riga = ""
For t = 1 To 20
asom(t) = ""
Next

For yy = 1 To 20
riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
num(yy) = Format2(EstrattoDL(idestr,yy))
Next

If v = 2 Then
For b = 1 To 19
c = Fuori90(Int(num(b)) + Int(num(b + 1)))
asom(b) = asom(b) & CLng(c)
Next
lim = 19
End If

If v = 3 Then
For b = 1 To 18
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
asom(b) = asom(b) & CLng(c)
Next
lim = 18
End If

If v = 4 Then
For b = 1 To 17
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
asom(b) = asom(b) & CLng(c)
Next
lim = 17
End If
If v = 5 Then
For b = 1 To 16
c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
asom(b) = asom(b) & CLng(c)
Next
lim = 16
End If
rsomme = ""
For f = 1 To Int(lim)
rsomme = rsomme & Format2(asom(f)) & " "
Next
Scrivi "___________________________________________________________________________________________________________________________________________________________"
ColoreTesto(0):Scrivi idestr & " " & riga & "......................." & rsomme

''''riepilogo terni con somme uguali
For r = 1 To lim
For r2 = r + 1 To lim + 1
If asom(r) = asom(r2) Then
t1 = Format2(EstrattoDL(idestr,r))
t2 = Format2(EstrattoDL(idestr,r + 1))
If v = 3 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
End If
If v = 4 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
End If
If v = 5 Then
t3 = Format2(EstrattoDL(idestr,r + 2))
t4 = Format2(EstrattoDL(idestr,r + 3))
t5 = Format2(EstrattoDL(idestr,r + 4))
End If

u1 = Format2(EstrattoDL(idestr,r2))
u2 = Format2(EstrattoDL(idestr,r2 + 1))
If v = 3 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
End If
If v = 4 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
End If
If v = 5 Then
u3 = Format2(EstrattoDL(idestr,r2 + 2))
u4 = Format2(EstrattoDL(idestr,r2 + 3))
u5 = Format2(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1) : Scrivi "------ somma.." & Format2(asom(r)) & " .." & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(5)
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
If VerificaEsitoDL(tnm,idestr + 1,lis,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
ColoreTesto 2
Call Scrivi(GetInfoEstrazioneDL(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
acolpi(RetColpi) = acolpi(RetColpi) + 1
ColoreTesto 0
If RetEsito = "Cinquina" Then
Cinquitotali = Cinqui
 
ciao Kepper

ho provato ad inserire il controllo retroattivo delle combinazioni da mettere in gioco, prova vedere se funziona.

comunque, solo una osservazione da giocatore, perchè vuoi escludere al 10 e lotto le combinazioni uscite di 3,4,5 numeri?

vengono sempre estratti 20 numeri e c'è gente che vorrebbe giocare i frequenti quartine e cinquine,sestine??

comunque ecco lo script:




Codice: 
Sub Main()
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	'-------------------------------------------------------------------------------------------------------------------------------
	ImpostaArchivio10ELotto(2)
	Dim num(20)
	Dim asom(20)
	Dim acolpi(9999)
	Dim n(20)
	storia = InputBox("Statistica Ult.Estrazione da Considerare ",,EstrazioniArchivioDL)
	z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
	v = InputBox("nr.Garanzia somma 2,3,4,5",,3)
	lis = InputBox("ambo=2, Terno=3, Quarterna=4, Cinquina=5",,3)
	co2 = InputBox("Verifica se già usciti in n.colpi precedenti..",,100)
	lis2 = InputBox("Verifica quanti punti già sortiti in precedenza..",,3)
	fin = storia
	Ini = storia - z
	Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " Per il 10 E LOTTO 5 minuti "
	Scrivi "Somma nr. consecutività.." & v
	Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
	Scrivi "______________________________________________________________________________________________________________________________________________________"
	For x = 1 To z
		idestr = storia - x
		riga = ""
		For t = 1 To 20
			asom(t) = ""
		Next
		For yy = 1 To 20
			riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
			num(yy) = Format2(EstrattoDL(idestr,yy))
		Next
		If v = 2 Then
			For b = 1 To 19
				c = Fuori90(Int(num(b)) + Int(num(b + 1)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 19
		End If
		If v = 3 Then
			For b = 1 To 18
				c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 18
		End If
		If v = 4 Then
			For b = 1 To 17
				c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 17
		End If
		If v = 5 Then
			For b = 1 To 16
				c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 16
		End If
		rsomme = ""
		For f = 1 To Int(lim)
			rsomme = rsomme & Format2(asom(f)) & " "
		Next
		Scrivi "___________________________________________________________________________________________________________________________________________________________"
		ColoreTesto(0)
		Scrivi idestr & "   " & riga & "......................." & rsomme
		''''riepilogo terni con somme uguali
		For r = 1 To lim
			For r2 = r + 1 To lim + 1
				If asom(r) = asom(r2) Then
					t1 = Format2(EstrattoDL(idestr,r))
					t2 = Format2(EstrattoDL(idestr,r + 1))
					If v = 3 Then
						t3 = Format2(EstrattoDL(idestr,r + 2))
					End If
					If v = 4 Then
						t3 = Format2(EstrattoDL(idestr,r + 2))
						t4 = Format2(EstrattoDL(idestr,r + 3))
					End If
					If v = 5 Then
						t3 = Format2(EstrattoDL(idestr,r + 2))
						t4 = Format2(EstrattoDL(idestr,r + 3))
						t5 = Format2(EstrattoDL(idestr,r + 4))
					End If
					u1 = Format2(EstrattoDL(idestr,r2))
					u2 = Format2(EstrattoDL(idestr,r2 + 1))
					If v = 3 Then
						u3 = Format2(EstrattoDL(idestr,r2 + 2))
					End If
					If v = 4 Then
						u3 = Format2(EstrattoDL(idestr,r2 + 2))
						u4 = Format2(EstrattoDL(idestr,r2 + 3))
					End If
					If v = 5 Then
						u3 = Format2(EstrattoDL(idestr,r2 + 2))
						u4 = Format2(EstrattoDL(idestr,r2 + 3))
						u5 = Format2(EstrattoDL(idestr,r2 + 4))
					End If
					''''verifica 1 combinazione nel passato
					ReDim tnm(5)
					tnm(1) = Format2
 
MI ERO FATTO ANCHE IO QUESTA DOMANDA
OGGI NELLA SEZIONE GIOCHI NUMERICI
HO DATO UNA SESTINA E 4 TERNIE PENSA CHE AL PRIMO COLPO HO VITO UNA QUATERNA IN SESTINA E DUE TERIZNE VINCITA 110 € CON 5 EURO SPESI
QUINDO VORREI EFFETTUARE DEI TEST PER RIDERRE LE GIOCATE
SENTI RUBINO MA TU CONOSCI ANCHE EXECEL
IO VORREI REALIZZARE UN PICCO FILE EXECEL SULLA RUOTA DI BARI
HO PROVATO AD ESEUIRE LA FUNZIONE IN QUESTO MODO
=(CONTA.SE($B2:$B100;B2)=2)
 
excel lo conosco poco, le funzioni basilari.



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
no te lo chiedevo solo per un confronto non voglio disturbarti più sei stato già troppo disponibile.
appena ho esiti certi ti avverto del risutlato dello scritp
 
allora rubino
questo script funziona può essere un punto di partenza per la tua ricerca per il gioco del 10 e lotto 5M anche se tu giochi il 10 e lotto serale perchè seguo il tuo post
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 aprile 2026
    Bari
    42
    44
    87
    52
    39
    Cagliari
    20
    58
    64
    90
    31
    Firenze
    37
    23
    45
    36
    62
    Genova
    34
    11
    75
    81
    10
    Milano
    46
    44
    71
    59
    85
    Napoli
    69
    24
    75
    86
    20
    Palermo
    85
    60
    81
    28
    09
    Roma
    56
    71
    06
    31
    49
    Torino
    05
    15
    32
    31
    82
    Venezia
    01
    32
    27
    12
    50
    Nazionale
    59
    06
    77
    09
    18
    Estrazione Simbolotto
    Genova
    34
    30
    04
    45
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto