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 12 settembre 2026
    Bari
    05
    11
    16
    14
    71
    Cagliari
    45
    40
    73
    01
    53
    Firenze
    48
    50
    34
    45
    63
    Genova
    20
    72
    52
    75
    56
    Milano
    44
    59
    07
    49
    69
    Napoli
    38
    05
    68
    03
    87
    Palermo
    52
    14
    58
    90
    37
    Roma
    66
    06
    31
    10
    77
    Torino
    60
    70
    32
    10
    62
    Venezia
    26
    88
    64
    14
    04
    Nazionale
    62
    70
    01
    80
    55
    Estrazione Simbolotto
    Palermo
    06
    20
    41
    37
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto