Novità

x LuigiB

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

Roby

Guest
Buonasera e complimenti x il programma

Chiedevo se era possibile aggiungere nel programma
la funzione che esiste gia' in Evidenzlotto (Ricerca)
la dove si possono cercare le varie combinazioni
e magari che si possa cercare anche per posizione
e che si possa anche fare il copia e incolla da poter
lavorare anche in Excel
grazie
e saluti
 
ciao LuigiB
e possibile avere uno script, dalla prima estrazione del mese mette in gioco le ultime 5 estazioni e verifica quanti ambi ci sono nel mese successivo e che somma sono,possibilmente per tutte le ruote. grazie ciaooo
 
quote:Originally posted by dario25

ciao LuigiB
e possibile avere uno script, dalla prima estrazione del mese mette in gioco le ultime 5 estazioni e verifica quanti ambi ci sono nel mese successivo e che somma sono,possibilmente per tutte le ruote. grazie ciaooo
Clicca per espandere...

Vuoi che si usino le cinquine delle 5 estrazioni (10 ambi = 23,5volte la posta) i 25 numeri contemporaneamente (300 ambi se non vi sono ripetuti) ?

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
x dario25
comincia a vedere se può fare al caso tuo.
Per le somme, dovrei, se è il caso, chiedere a Luigi come eventualnente estrapolarle.

( :D:D avanzo un cappuccino :D:D)
ciao

Codice: 
Sub Main()
	Dim ruote(10)
	Dim numeri1(5)
	Dim posta(2)
	posta(2) = 1
	ruote(1) = r
	'r = 2 'ruota modificabile
	est_mens = 1	'<<<<<<< indice mensile 1 modificabile 
	colpi = 13
	esito = 2
	ng = 0
	Scrivi " Procedura : Dalla "& est_mens& "^ estrazione Mese gioca le ultime 5 estazioni e verifica quali ambi ci sono nelle "& colpi & " successive"
	Scrivi " Per dario25  script by claudio8 - 01/05/2011 "

	For r = 1 To 10
	ColoreTesto 2
		Scrivi "- - - - - - - - - - - - - - - - - - - - - - - - " & NomeRuota(r) &" - - - - - - - - - - - - - - - - - - - - - - - -"
		Scrivi
	For n = 8000 To EstrazioneFin
	
		If IndiceMensile(n) = est_mens Then 
		ng = ng +1
		ColoreTesto 1
		Scrivi IndiceMensile(n) & "^ mese"&DataEstrazione(n)&"  "&SiglaRuota(r)&" | "&StringaEstratti(n,r)&" | x colpi: " & colpi &" caso n° " & ng 
		ColoreTesto 0
		ruote(1) = r
		numeri1(1) = Estratto(n-5,r,1)
		numeri1(2) = Estratto(n-5,r,2)
		numeri1(3) = Estratto(n-5,r,3)
		numeri1(4) = Estratto(n-5,r,4)
		numeri1(5) = Estratto(n-5,r,5)
		If VerificaEsito(numeri1,ruote,n,2,colpi,,retesito,retcolpi,retestratti,retruote)Then
			Scrivi "" & StringaEstratti(n-5,r) & " " & retesito & " |sortito al " & retColpi & "° colpo| con questi estratti: " & Retestratti
		Else
			Scrivi "" & StringaEstratti(n-5,r) & " esito negativo "
		End If
		
		ruote(1) = r
		numeri1(1) = Estratto(n-4,r,1)
		numeri1(2) = Estratto(n-4,r,2)
		numeri1(3) = Estratto(n-4,r,3)
		numeri1(4) = Estratto(n-4,r,4)
		numeri1(5) = Estratto(n-4,r,5)
		If VerificaEsito(numeri1,ruote,n,2,colpi,,retesito,retcolpi,retestratti,retruote)Then
			Scrivi "" & StringaEstratti(n-4,r) & " " & retesito & " |sortito al " & retColpi & "° colpo| con questi estratti: " & Retestratti
		Else
			Scrivi "" & StringaEstratti(n-4,r) & " esito negativo "
		End If
		
		ruote(1) = r
		numeri1(1) = Estratto(n-3,r,1)
		numeri1(2) = Estratto(n-3,r,2)
		numeri1(3) = Estratto(n-3,r,3)
		numeri1(4) = Estratto(n-3,r,4)
		numeri1(5) = Estratto(n-3,r,5)
		If VerificaEsito(numeri1,ruote,n,2,colpi,,retesito,retcolpi,retestratti,retruote)Then
			Scrivi "" & StringaEstratti(n-3,r) & " " & retesito & " |sortito al " & retColpi & "° colpo| con questi estratti: " & Retestratti
		Else
			Scrivi "" & StringaEstratti(n-3,r) & " esito negativo "
		End If
		
		ruote(1) = r
		numeri1(1) = Estratto(n-2,r,1)
		numeri1(2) = Estratto(n-2,r,2)
		numeri1(3) = Estratto(n-2,r,3)
		numeri1(4) = Estratto(n-2,r,4)
		numeri1(5) = Estratto(n-2,r,5)
		If VerificaEsito(numeri1,ruote,n,2,colpi,,retesito,retcolpi,retestratti,retruote)Then
			Scrivi "" & StringaEstratti(n-2,r) & " " & retesito & " |sortito al " & retColpi & "° colpo| con questi estratti: " & Retestratti
		Else
			Scrivi "" & StringaEstratti(n-2,r) & " esito negativo "
		End If
						
		ruote(1) = r
		numeri1(1) = Estratto(n-1,r,1)
		numeri1(2) = Estratto(n-1,r,2)
		numeri1(3) = Estratto(n-1,r,3)
		numeri1(4) = Estratto(n-1,r,4)
		numeri1(5) = Estratto(n-1,r,5)
		If VerificaEsito(numeri1,ruote,n,2,colpi,,retesito,retcolpi,retestratti,retruote)Then
			Scrivi "" & StringaEstratti(n-1,r) & " " & retesito & " |sortito al " & retColpi & "° colpo| con questi estratti: " & Retestratti
		Else
			Scrivi "" & StringaEstratti(n-1,r) & " esito negativo "
		End If
		
		Scrivi "-------------------------------------------------------------------"

	End If
Next
Next
		ColoreTesto 2 
		Scrivi " 								Per dario25  script by claudio8 - 01/05/2011 "

End Sub

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
si claudio8 prima di tutto ti ringrazio per il tempo dedicato per me se e possibile inserire la ruota nazionale e aggiungere la somma degli ambi sortiti.

cosi ci metto anche il cornetto insieme al cappucino :D:D:D
 
sostituisci questo
Codice: 
For r = 1 To 10
con
Codice: 
For r = 1 To 12
if r = 11 then
r = 12
end if

per le somme, prima verifica se hai riscontri con carta e penna, poi vediamo come fare.

notte

PS: :D:D aspetto il cappuccino per domani sul presto :D :D
 
Anche a me non funziona sulla nazionale, pare che essa non sia presente in VerificaEsito.
Per le somme occorre che Luigi ci dica se è possibile estrapolare i singoli numeri (non come testo) da VerificaEsito per poi poterli sommare.
ciao

il seguente codice è quello inserito da Luigi x il test.. anche esso non da esiti
Codice: 
Sub Main
	ReDim aNum(4) ' array contenente il pronostico
	ReDim aRt(2) ' array contenente le ruote
	Dim idEstrInizio ' estrazione da dove comincia la verifica dell'esito
	Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
	Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
	Dim RetEstratti ' torna i numeri estratti
	Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
		
		
		
	'imposto il pronostico da verificare ( estratto il terno su Nazionale all'estrazione 8356 e su Bari all'estraz. 8363)
	aNum(1) = 1
	aNum(2) = 9
	aNum(3) = 74
	'aNum(4) = 16
	' imposto le ruote su cui giocare
	aRt(1) = NZ_
	aRt(2) = BA_
	' imposto l'estrazione da dove parte la verifica
	idEstrInizio = 8300
		
	
	'gioco per AMBO  senza un numero di colpi limite
	If VerificaEsito(aNum,aRt,idEstrInizio,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr) Then
	
		Call Scrivi(DataEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
	Else
		Call Scrivi("Esito negativo")
	End If
End Sub

ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
x dario25
:D prepara cappuccino e cornetto :D doppio, c'è anche Luigi :D
x la Nazionale devi aspettare che venga aggiornato il programma, per i terni (molto rari), le somme le devi fare a mano.

ciao
Codice: 
Sub Main()
	Dim ruote(10)
	Dim numeri1(5)
	Dim posta(2)
	Dim k 
	Dim somma
	Dim colpi
	Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
	Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
	Dim RetEstratti ' torna i numeri estratti
	Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
	posta(2) = 1
	ruote(1) = r
	'r = 2 'ruota modificabile
	est_mens = 1	'<<<<<<< indice mensile 1 modificabile
	colpi = 13		'<<<<<<< numero colpi  modificabile

	esito = 2
	
	Scrivi " Procedura : Dalla " & est_mens & "^ estrazione Mese gioca le ultime 5 estazioni, verifica gli ambi nelle " & colpi & " successive e ne da la somma"
	Scrivi " 									Per dario25  script by claudio8 - 02/05/2011 "
	
	For r = 1 To 12
	If r = 11 Then
	r=12
	End If
	ng = 0
	ColoreTesto 2
		Scrivi "- - - - - - - - - - - - - - - - - - - - - - - - " & NomeRuota(r) & " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"
		Scrivi "- - - - - - - - - - - - - - - - - - - - - - - - " & NomeRuota(r) & " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"

	For n = 8000 To EstrazioneFin		'<<<<<<< n°estrazione iniziale modificabile

	
		If IndiceMensile(n) = est_mens Then
		ng = ng + 1
		ColoreTesto 1
		Scrivi IndiceMensile(n) & "^ mese  " & DataEstrazione(n) & "  " & SiglaRuota(r) & "  | " & StringaEstratti(n,r) & " | x colpi: " & colpi & " caso n° " & ng
		Scrivi
		ColoreTesto 0
		ruote(1) = r
		numeri1(1) = Estratto(n - 5,r,1)
		numeri1(2) = Estratto(n - 5,r,2)
		numeri1(3) = Estratto(n - 5,r,3)
		numeri1(4) = Estratto(n - 5,r,4)
		numeri1(5) = Estratto(n - 5,r,5)
		If VerificaEsito(numeri1,ruote,n,esito,colpi,,RetEsito,RetColpi,RetEstratti,RetIdEstr)Then	
			
			ReDim aV(0)
		Call SplitByChar(RetEstratti," ",aV)
		
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				somma = somma + CInt(aV(k))
			End If
		Next
		Scrivi "" & StringaEstratti(n - 5,r) & "  " &FormatSpace(RetEsito,8) & " |sortito al " & Format2(RetColpi) &"° colpo| con questi estratti: "& RetEstratti &" di somma = "& Format2(Fuori90(somma))
			somma = 0 
		Else
			Scrivi "" & StringaEstratti(n - 5,r) & "           | esito negativo "
		End If
		
		ruote(1) = r
		numeri1(1) = Estratto(n - 4,r,1)
		numeri1(2) = Estratto(n - 4,r,2)
		numeri1(3) = Estratto(n - 4,r,3)
		numeri1(4) = Estratto(n - 4,r,4)
		numeri1(5) = Estratto(n - 4,r,5)
		If VerificaEsito(numeri1,ruote,n,esito,colpi,,RetEsito,RetColpi,RetEstratti,retruote)Then
			ReDim aV(0)
		Call SplitByChar(RetEstratti," ",aV)
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				somma = somma + CInt(aV(k))
			End If
		Next
		Scrivi "" & StringaEstratti(n - 4,r) & "  " & FormatSpace(RetEsito,8) & " |sortito al " & Format2(RetColpi) &"° colpo| con questi estratti: "& RetEstratti &" di somma = "& Format2(Fuori90(somma))
		somma = 0 
		Else
			Scrivi "" & StringaEstratti(n - 4,r) & "           | esito negativo "
		End If
		
		ruote(1) = r
		numeri1(1) = Estratto(n - 3,r,1)
		numeri1(2) = Estratto(n - 3,r,2)
		numeri1(3) = Estratto(n - 3,r,3)
		numeri1(4) = Estratto(n - 3,r,4)
		numeri1(5) = Estratto(n - 3,r,5)
		If VerificaEsito(numeri1,ruote,n,esito,colpi,,RetEsito,RetColpi,RetEstratti,retruote)Then
			ReDim aV(0)
		Call SplitByChar(RetEstratti," ",aV)
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				somma = somma + CInt(aV(k))
			End If
		Next
		Scrivi "" & StringaEstratti(n - 3,r) & "  " & FormatSpace(RetEsito,8) & " |sortito al " & Format2(RetColpi) &"° colpo| con questi estratti: "& RetEstratti &" di somma = "& Format2(Fuori90(somma))
		somma = 0 
		Else
			Scrivi "" & StringaEstratti(n - 3,r) & "           | esito negativo "
		End If
		
		ruote(1) = r
 
Questa versione controlla tutte le ruote x tutte singolarmente

Codice: 
Sub Main()
	Dim ruote(10)
	Dim numeri1(5)
	Dim posta(2)
	Dim k
	Dim somma
	Dim colpi
	Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
	Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
	Dim RetEstratti ' torna i numeri estratti
	Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
	posta(2) = 1
	ruote(1) = r
	'r = 2 'ruota modificabile
	est_mens = 1	'<<<<<<< indice mensile 1 modificabile
	colpi = 15		'<<<<<<< numero colpi  modificabile
	esito = 2
	Scrivi " Procedura : Dalla " & est_mens & "^ estrazione Mese gioca le ultime 5 estazioni, verifica gli ambi nelle " & colpi & " successive e ne da la somma"
	Scrivi " 									Per dario25  script by claudio8 - 02/05/2011 "
	For r = 1 To 12
		If r = 11 Then
			r = 12
		End If
		For r2 = 1 To 12
			If r2 = 11 Then
				r2 = 12
			End If
			ng = 0
			ColoreTesto 2
			Scrivi "- - - - - - - - - - - - - - - - - - - - - - - - " & NomeRuota(r) & " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"
			Scrivi "- - - - - - - - - - - - - - - - - - - - - - - - " & NomeRuota(r2) & " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -"
			For n = 8000 To EstrazioneFin		'<<<<<<< n°estrazione iniziale modificabile
				Messaggio " Estrazione n° " & n
				If IndiceMensile(n) = est_mens Then
					ng = ng + 1
					ColoreTesto 1
					Scrivi IndiceMensile(n) & "^ mese  " & DataEstrazione(n) & " da " & SiglaRuota(r) & "  | " & StringaEstratti(n,r) & " | a " & NomeRuota(r2) & " x  colpi: " & colpi & " caso n° " & ng
					Scrivi
					ColoreTesto 0
					ruote(1) = r2
					numeri1(1) = Estratto(n - 5,r,1)
					numeri1(2) = Estratto(n - 5,r,2)
					numeri1(3) = Estratto(n - 5,r,3)
					numeri1(4) = Estratto(n - 5,r,4)
					numeri1(5) = Estratto(n - 5,r,5)
					If VerificaEsito(numeri1,ruote,n,esito,colpi,,RetEsito,RetColpi,RetEstratti)Then
						ReDim aV(0)
						Call SplitByChar(RetEstratti," ",aV)
						For k = 0 To UBound(aV)
							If IsNumeric(aV(k)) Then
								somma = somma + CInt(aV(k))
							End If
						Next
						Scrivi "" & StringaEstratti(n - 5,r) & "  " & FormatSpace(RetEsito,8) & " |sortito al " & Format2(RetColpi) & "° colpo| con questi estratti: " & RetEstratti & " di somma = " & Format2(Fuori90(somma))
						somma = 0
					Else
						Scrivi "" & StringaEstratti(n - 5,r) & "           | esito negativo "
					End If
					ruote(1) = r2
					numeri1(1) = Estratto(n - 4,r,1)
					numeri1(2) = Estratto(n - 4,r,2)
					numeri1(3) = Estratto(n - 4,r,3)
					numeri1(4) = Estratto(n - 4,r,4)
					numeri1(5) = Estratto(n - 4,r,5)
					If VerificaEsito(numeri1,ruote,n,esito,colpi,,RetEsito,RetColpi,RetEstratti)Then
						ReDim aV(0)
						Call SplitByChar(RetEstratti," ",aV)
						For k = 0 To UBound(aV)
							If IsNumeric(aV(k)) Then
								somma = somma + CInt(aV(k))
							End If
						Next
						Scrivi "" & StringaEstratti(n - 4,r) & "  " & FormatSpace(RetEsito,8) & " |sortito al " & Format2(RetColpi) & "° colpo| con questi estratti: " & RetEstratti & " di somma = " & Format2(Fuori90(somma))
						somma = 0
					Else
						Scrivi "" & StringaEstratti(n - 4,r) & "           | esito negativo "
					End If
					ruote(1) = r2
					numeri1(1) = Estratto(n - 3,r,1)
					numeri1(2) = Estratto(n - 3,r,2)
					numeri1(3) = Estratto(n - 3,r,3)
					numeri1(4) = Estratto(n - 3,r,4)
					numeri1(5) = Estratto(n - 3,r,5)
					If VerificaEsito(numeri1,ruote,n,esito,colpi,,RetEsito,RetColpi,RetEstratti)Then
						ReDim aV(0)
						Call SplitByChar(RetEstratti," ",aV)
						For k = 0 To UBound(aV)
							If IsNumeric(aV(k)) Then
								somma = somma + CInt(aV(k))
							End If
						Next
						Scrivi "" & StringaEstratti(n - 3,r) & "  " & FormatSpace(RetEsito,8) & " |sortito al " & Format2(RetColpi) & "° colpo| con questi estratti: " & RetEstratti & " di somma = " & Format2(
 
vi ringrazio tantissimo e lunico forum che seguo perche ho visto che siete persone bravissimi e vi impegnate molto per aiutare gli altri ci sono poche persone in giro vi ringrazio con tutto il cuore.

per il terno secco sara difficile spero di becare solo qualche ambetto
anche per sdebitarmi :D:D:D:D:D:D
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto