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
    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