Novità

Se qualcuno.........

Z

Zagor

Advanced Member >PLATINUM<
...volesse dilettarsi a scriptare questo metodo sarebbe cosa gradita.

Ringrazio anticipatamente.:):):)


Per applicare questo metodo, bisogna ricercare un ambo simmetrico, che occupa le seguenti posizioni
1° e 3°
2° e 4°
3° e 5°
1° e 5°
questa è la base del triangolo, per cercare il vertice

sommare i due numeri dell’ambo,
dividere la somma per 2
ricercare su altra ruota il risultato o il suo diametrale
anche il risultato deve rispettare le posizioni
se l’ambo occupa il
1° e 3° posto sarà in 2°
se in 2° e 4° in 3°
se in 3° e 5° in 4°
se in 1° e 5° in 3°

a condizione rispettata, calcolare il pronostico
il vertice + diametrale = ambata
gli abbinamenti x ambo sono il vertice e il suo diametrale

esempio 6/12/’07
PA x x 76 x 16 76 3° posto 16 5° posto

76 + 16 = 92
92 : 2 = 46
ricercare 46 o il suo diametrale 1 su altra ruota al 4° posto

TO x x x 46 x 46 4° posto

pronostico
46 + 1 = 47 ambata
46 e 1 abbinamenti



Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
Da quanto leggo, ci saranno una cifra di casi mese.
E' troppo ampia la ricerca e darebbe risultato-esiti non validi.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
Ciao Claudio , infatti è anche il mio dubbio ,
la condizione che potrebbe "scremare" è quella delle posizioni.
Intanto , grazie per aver risposto.:):):)

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
Ciauz dai una controllatina per eventuali errori...

Codice: 
' da [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=137677[/url]
Sub Main()
	Dim ruota(2)
	Dim numeri(5),numeri1(5),numeri2(5),amb(5)
	Dim posta(2)
	Dim poste(5),postee(5)
	posta(1) = 1
	poste(2) = 1
	k = 13
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",60))
	ds1 = 30
	casi = 0
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by DjNomade ]"
		For r = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If(p1 = 1 And p2 = 3)Or(p1 = 2 And p2 = 4)Or(p1 = 3 And p2 = 5) Or(p1 = 1 And p2 = 5) Then
						For r1 = r + 1 To 12
							If r1 = 11 Then r1 = 12
							If p1 = 1 And p2 = 3 Then p3 = 2
							If p1 = 2 And p2 = 4 Then p3 = 3
							If p1 = 3 And p2 = 5 Then p3 = 4
							If p1 = 1 And p2 = 5 Then p3 = 3
							aa = Estratto(es,r1,p3)
							c =(a + b)/2
							d = Diametrale(c)
							If Distanza(a,b) = ds1 And(aa = c Or aa = d) Then
								casi = casi + 1
								Scrivi
								Scrivi String(49,"=") & "  by DjNomade----- caso n° " &(casi),1
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
								" ] [ " & Format2(a) & "." & Format2(b) & " ] Dist.Orizz. " & ds1 & "..Posiz." & p1 & "°..Posiz." & p2 & "°"
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
								" ] [ " & Format2(aa) & " ] Numero trovato in...Posiz." & p3 & "°"
								amb(1) = Fuori90(c + d)'ambata
								ruota(1) = r
								ruota(2) = r1
								co = 0
								numeri(1) = amb(1)
								ImpostaGiocata 1,numeri,ruota,posta,k
								numeri1(1) = amb(1)
								numeri1(2) = c
								ImpostaGiocata 2,numeri1,ruota,poste,k
								numeri1(1) = amb(1)
								numeri1(2) = d
								ImpostaGiocata 3,numeri1,ruota,poste,k
								Gioca es
							End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
quote:Originally posted by DjNomade

Ciauz dai una controllatina per eventuali errori...

Codice: 
' da [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=137677[/url]
Sub Main()
	Dim ruota(2)
	Dim numeri(5),numeri1(5),numeri2(5),amb(5)
	Dim posta(2)
	Dim poste(5),postee(5)
	posta(1) = 1
	poste(2) = 1
	k = 13
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",60))
	ds1 = 30
	casi = 0
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by DjNomade ]"
		For r = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If(p1 = 1 And p2 = 3)Or(p1 = 2 And p2 = 4)Or(p1 = 3 And p2 = 5) Or(p1 = 1 And p2 = 5) Then
						For r1 = r + 1 To 12
							If r1 = 11 Then r1 = 12
							If p1 = 1 And p2 = 3 Then p3 = 2
							If p1 = 2 And p2 = 4 Then p3 = 3
							If p1 = 3 And p2 = 5 Then p3 = 4
							If p1 = 1 And p2 = 5 Then p3 = 3
							aa = Estratto(es,r1,p3)
							c =(a + b)/2
							d = Diametrale(c)
							If Distanza(a,b) = ds1 And(aa = c Or aa = d) Then
								casi = casi + 1
								Scrivi
								Scrivi String(49,"=") & "  by DjNomade----- caso n° " &(casi),1
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
								" ] [ " & Format2(a) & "." & Format2(b) & " ] Dist.Orizz. " & ds1 & "..Posiz." & p1 & "°..Posiz." & p2 & "°"
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
								" ] [ " & Format2(aa) & " ] Numero trovato in...Posiz." & p3 & "°"
								amb(1) = Fuori90(c + d)'ambata
								ruota(1) = r
								ruota(2) = r1
								co = 0
								numeri(1) = amb(1)
								ImpostaGiocata 1,numeri,ruota,posta,k
								numeri1(1) = amb(1)
								numeri1(2) = c
								ImpostaGiocata 2,numeri1,ruota,poste,k
								numeri1(1) = amb(1)
								numeri1(2) = d
								ImpostaGiocata 3,numeri1,ruota,poste,k
								Gioca es
							End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
Clicca per espandere...

Ciao DjNomade,

quando eseguo questo script (con spaziometria 1.2.90) mi da quest'errore:

33l1fub.jpg
 
Ho appena provato ma funziona benissimo anche su Spaziometria
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
 
quote:Originally posted by DjNomade

Ho appena provato ma funziona benissimo anche su Spaziometria
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
Clicca per espandere...

Ciao DjNomade,

ho provato e riprovato...ma niente...sempre lo stesso errore.
Non capisco cosa sia successo?
Leggevo che alcuni di voi posseggono l8+...io ho la versione 4117...solo che è demo...cioè si deve registrare. Mica sai qualche modo per renderlo funzionante?

Grazie
 
quote:Originally posted by barattolo
Leggevo che alcuni di voi posseggono l8+...io ho la versione 4117...solo che è demo...cioè si deve registrare (quindi pagare). Mica sai qualche modo per renderlo funzionante?
Grazie
Clicca per espandere...
non è legale rispondere a questa domanda.


Anche a me lo script funziona perfettamente su Spaziometria.

Abbiamo a disposizione un programma gratis che secondo me supera negli script abbondantemente L8+ e continaute a voler usare L8+ ?????

Amici cari, non sono i programmi o gli script che danno gli esiti, essi sono solo degli strumenti, se non vi sforzate ad usare vs. idee non arriverete a nessun traguardo.
 
quote:Originally posted by Zagor

Ciao Claudio , volevo chiederti una cosa , se vuoi , scrivimi a

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
Clicca per espandere...

Potresti accennarmi di che trattasi?
 
quote:Originally posted by claudio8

quote:Originally posted by barattolo
Leggevo che alcuni di voi posseggono l8+...io ho la versione 4117...solo che è demo...cioè si deve registrare (quindi pagare). Mica sai qualche modo per renderlo funzionante?
Grazie
Clicca per espandere...
non è legale rispondere a questa domanda.


Anche a me lo script funziona perfettamente su Spaziometria.

Abbiamo a disposizione un programma gratis che secondo me supera negli script abbondantemente L8+ e continaute a voler usare L8+ ?????

Amici cari, non sono i programmi o gli script che danno gli esiti, essi sono solo degli strumenti, se non vi sforzate ad usare vs. idee non arriverete a nessun traguardo.
Clicca per espandere...

Ciao claudio8,

e grazie per la risposta...anche se non ti conoscevo e nemmeno menzionato...ma comunque va bene lo stesso...grazie.
Mi parlavi "NON E'LEGALE...BISOGNA PAGARE"

Una domanda che va al di la del lotto...ma qua sul forum...lo sai cosa è legale e cosa non lo è?
Forse tu fai confusione...e dai dei cattivi consigli...ops...spero suggerimenti alle persone...che tra l'altro non conosci nemmeno!

Prima di scrivere delle cose che potrebbero trasformare...un argomento che nemmeno tu conosci la risposta...attenzione...riflettiamoci un poco in più sopra!
E non parlo di metodi, statistiche...quindi ovvio...non parlo di lotto. Meditiamo...prima di scrivere...meditiamo...

In ogni modo...visto che la tua forza spirituale ti ha portato a rispondere a questo post...senza essere chiamato...sicuramente ti sei sentito parte lesa...e quindi se ciò ti ha turbato...ti chiedo SCUSA!

Ciao
 
quote:Originally posted by barattolo

Originally posted by claudio8

In ogni modo...visto che la tua forza spirituale ti ha portato a rispondere a questo post...senza essere chiamato...sicuramente ti sei sentito parte lesa...e quindi se ciò ti ha turbato...ti chiedo SCUSA!
Ciao
Clicca per espandere...
Non mi sono sentito parte lesa, e non devi scusarti con me.
Sei libero di fare qualsiasi richiesta.
Clicca per espandere...
 
quote:Originally posted by barattolo

quote:Originally posted by DjNomade

Ciauz dai una controllatina per eventuali errori...

Codice: 
' da [url]http://forum.lottoced.com/topic.asp?TOPIC_ID=137677[/url]
Sub Main()
	Dim ruota(2)
	Dim numeri(5),numeri1(5),numeri2(5),amb(5)
	Dim posta(2)
	Dim poste(5),postee(5)
	posta(1) = 1
	poste(2) = 1
	k = 13
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",60))
	ds1 = 30
	casi = 0
	fin = EstrazioneFin
	ini = fin - ee
	For es = ini To fin
		Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by DjNomade ]"
		For r = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r,p1)
					b = Estratto(es,r,p2)
					If(p1 = 1 And p2 = 3)Or(p1 = 2 And p2 = 4)Or(p1 = 3 And p2 = 5) Or(p1 = 1 And p2 = 5) Then
						For r1 = r + 1 To 12
							If r1 = 11 Then r1 = 12
							If p1 = 1 And p2 = 3 Then p3 = 2
							If p1 = 2 And p2 = 4 Then p3 = 3
							If p1 = 3 And p2 = 5 Then p3 = 4
							If p1 = 1 And p2 = 5 Then p3 = 3
							aa = Estratto(es,r1,p3)
							c =(a + b)/2
							d = Diametrale(c)
							If Distanza(a,b) = ds1 And(aa = c Or aa = d) Then
								casi = casi + 1
								Scrivi
								Scrivi String(49,"=") & "  by DjNomade----- caso n° " &(casi),1
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
								" ] [ " & Format2(a) & "." & Format2(b) & " ] Dist.Orizz. " & ds1 & "..Posiz." & p1 & "°..Posiz." & p2 & "°"
								Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
								" ] [ " & Format2(aa) & " ] Numero trovato in...Posiz." & p3 & "°"
								amb(1) = Fuori90(c + d)'ambata
								ruota(1) = r
								ruota(2) = r1
								co = 0
								numeri(1) = amb(1)
								ImpostaGiocata 1,numeri,ruota,posta,k
								numeri1(1) = amb(1)
								numeri1(2) = c
								ImpostaGiocata 2,numeri1,ruota,poste,k
								numeri1(1) = amb(1)
								numeri1(2) = d
								ImpostaGiocata 3,numeri1,ruota,poste,k
								Gioca es
							End If
						Next
					End If
				Next
			Next
		Next
	Next
	ScriviResoconto
	ColoreTesto 1
	Scrivi "                            Ambo Simmetrico..Zagor",1
	Scrivi
	Scrivi "                                   List DjNomade",1
	Scrivi
	ColoreTesto 0
End Sub

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin
Clicca per espandere...

Ciao DjNomade,

quando eseguo questo script (con spaziometria 1.2.90) mi da quest'errore:

33l1fub.jpg
Clicca per espandere...





Quell'errore lo dà perche devi dichiarare la variabile k
normalmente si fà
dim k
all'inizio dello script dopo sub main
per non avere quello e alti errori del genere se usi Spaziometria basta cancellare OPTION EXPLICIT e non ci sarà più bisogno di dichiarare le variabili
Per quanto riguarda l8 funziona non dà errori.

°°°esselotto°°°
 
Ciao Claudio , problema risolto.

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
Cia Dj , grazie per il listato , e un grazie ancora più sentito , in quanto spesso Vi si fà perdere tempo per listati , come questo, che non dimostrano essere affato proficui.:(:(

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 12 febbraio 2026
    Bari
    59
    27
    52
    63
    12
    Cagliari
    51
    02
    87
    11
    25
    Firenze
    71
    20
    87
    65
    25
    Genova
    87
    07
    90
    32
    18
    Milano
    81
    89
    49
    03
    51
    Napoli
    56
    79
    80
    14
    81
    Palermo
    59
    77
    61
    42
    67
    Roma
    26
    76
    54
    42
    55
    Torino
    73
    52
    26
    44
    50
    Venezia
    09
    29
    43
    63
    39
    Nazionale
    14
    49
    53
    71
    28
    Estrazione Simbolotto
    Cagliari
    40
    14
    26
    04
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto