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
    martedì 20 ottobre 2026
    Bari
    54
    19
    90
    65
    23
    Cagliari
    07
    78
    44
    23
    64
    Firenze
    85
    52
    78
    37
    21
    Genova
    14
    88
    68
    18
    29
    Milano
    69
    16
    29
    53
    22
    Napoli
    01
    76
    64
    21
    31
    Palermo
    14
    18
    47
    37
    51
    Roma
    86
    88
    64
    26
    34
    Torino
    21
    64
    52
    62
    40
    Venezia
    29
    87
    64
    40
    50
    Nazionale
    03
    52
    85
    23
    42
    Estrazione Simbolotto
    25
    16
    13
    20
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto