Il 3° di Palermo

[ernesto 60]

Ogni fine mese sommare la propria figura al terzo n° estratto a Palermo
si ricava il 1° capo gioco, 2° capo gioco vertibile,
abbinamenti : +1 -1 +10 -10 del n° diametrale terzo estratto Palermo
esempio in corso 30 01 2014 terzo di Palermo 86 figura 5 86+5= 91-90= 1 1°capo gioco
vertibile 10 2°capo gioco abbinamenti 86-45=41 +1-1 +10-10 = 42 40 31 51
giocare gli 8 ambi a Palermo
P.S. se va come gli ultimi due mesi basta giocarli per 2 estrazioni
Saluti

 

[Roby]

Buonanotte,
spero fare cosa gradita, allego il listato del metodo.
Controllare sempre,salvo errori.

Sub Main()
	Scrivi "Il 3° di Palermo di ernesto60 ",1 ' - http://forum.lottoced.com/f8/il-3%B0-di-palermo-110862/ -
	Scrivi
	Dim n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),ru(1),pta(2)
	pta(2) = 1
	ru(1) = PA_
	k = 8
	Ini = EstrazioneIni + 8477
	fin = EstrazioneFin
	For es = Ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		If IsUltimaDelMese(es) Then
			a = Estratto(es,PA_,3)
			casi = casi + 1
			Scrivi String(90,"°") & " Caso n°" & casi,1
			Scrivi DataEstrazione(es) & " - " & SiglaRuota(PA_) & " - " & StringaEstratti(es,PA_) & " - numero estratto in 3° posizione [" & Format2(a) & "]",1
			ColoreTesto 2
			Scrivi String(90,"-")
			Scrivi "IL terzo estratto è [" & Format2(a) & " ] + la sua Figura [" & Format2(Figura(a)) & "] = " & Format2(Fuori90(a + Figura(a))) & " PRIMO CAPOGIOCO ",1
			Scrivi "Il Vertibile di [" & Format2(Fuori90(a + Figura(a))) & "] = " & Format2(Vert(Fuori90(a + Figura(a)))) & "                        SECONDO CAPOGIOCO ",1
			Scrivi "Il Diametrale di [" & Format2(a) & "] = " & Format2(Diametrale(a)),1
			Scrivi "Sommare + 1 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) + 1) & "                         PRIMO ABBINAMENTO",1
			Scrivi "Sotfrarre - 1 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) - 1) & "                       SECONDO ABBINAMENTO",1
			Scrivi "Sommare + 10 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) + 10) & "                        TERZO ABBINAMENTO",1
			Scrivi "Sottrarre + 10 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) - 10) & "                      QUARTO ABBINAMENTO",1
			Scrivi String(90,"-")
			ColoreTesto 0
			n1(1) = Fuori90(a + Figura(a))
			n1(2) = Fuori90(Diametrale(a) + 1)
			ImpostaGiocata 1,n1,ru,pta,k,2
			n2(1) = Fuori90(a + Figura(a))
			n2(2) = Fuori90(Diametrale(a) - 1)
			ImpostaGiocata 2,n2,ru,pta,k,2
			n3(1) = Fuori90(a + Figura(a))
			n3(2) = Fuori90(Diametrale(a) + 10)
			ImpostaGiocata 3,n3,ru,pta,k,2
			n4(1) = Fuori90(a + Figura(a))
			n4(2) = Fuori90(Diametrale(a) - 10)
			ImpostaGiocata 4,n4,ru,pta,k,2
			n5(1) = Vert(Fuori90(a + Figura(a)))
			n5(2) = Fuori90(Diametrale(a) + 1)
			ImpostaGiocata 5,n5,ru,pta,k,2
			n6(1) = Vert(Fuori90(a + Figura(a)))
			n6(2) = Fuori90(Diametrale(a) - 1)
			ImpostaGiocata 6,n6,ru,pta,k,2
			n7(1) = Vert(Fuori90(a + Figura(a)))
			n7(2) = Fuori90(Diametrale(a) + 10)
			ImpostaGiocata 7,n7,ru,pta,k,2
			n8(1) = Vert(Fuori90(a + Figura(a)))
			n8(2) = Fuori90(Diametrale(a) - 10)
			ImpostaGiocata 8,n8,ru,pta,k,2
			Gioca es,True,,1
		End If
	Next
	ScriviResoconto
End Sub

 

[mastrogino]

CIAO A TUTTI
COMPLIMENTI X IL METODO , E VOòEVO CHIEDERE A DI SARONNO
SE POTEVA MODIFICARE LO SCRIPT IN TAL MODO DI INSERIRE
SIA LA RUOTA E LA POSIZIONE A PIACERE
GRAZIE

 

[Roby]

Buonanotte,
allego il listato modificato.
Controllare sempre,salvo errori.

Sub Main()
	Scrivi "Il 3° di Palermo di ernesto60 modificato x Schirò Gioacchino",1 ' - http://forum.lottoced.com/f8/il-3%B0-di-palermo-110862/ -
	Scrivi
	Dim n1(2),n2(2),n3(2),n4(2),n5(2),n6(2),n7(2),n8(2),ru(1),pta(2)
	r = InputBox("Ruota da controllare ?"," 1=BA -2=CA - 10=VE - 11=NZ ",1)
	p = InputBox("Posizione da controllare ?"," 1°- 2°- 3°- 4°- 5° ",1)
	pta(2) = 1
	k = 8
	Ini = EstrazioneIni + 8477
	fin = EstrazioneFin
	For es = Ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		If IsUltimaDelMese(es) Then
			If r = 11 Then r = 12
			a = Estratto(es,r,p)
			ru(1) = r
			casi = casi + 1
			Scrivi String(90,"°") & " Caso n°" & casi,1
			Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " - numero estratto in " & Format2(p) & "° Posizione [" & Format2(a) & "]",1
			ColoreTesto 2
			Scrivi String(90,"-")
			Scrivi "IL " & Format2(p) & " Estratto è [" & Format2(a) & "] + la sua Figura [" & Format2(Figura(a)) & "] = " & Format2(Fuori90(a + Figura(a))) & "  PRIMO CAPOGIOCO ",1
			Scrivi "Il Vertibile di [" & Format2(Fuori90(a + Figura(a))) & "] = " & Format2(Vert(Fuori90(a + Figura(a)))) & "                        SECONDO CAPOGIOCO ",1
			Scrivi "Il Diametrale di [" & Format2(a) & "] = " & Format2(Diametrale(a)),1
			Scrivi "Sommare + 1 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) + 1) & "                         PRIMO ABBINAMENTO",1
			Scrivi "Sotfrarre - 1 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) - 1) & "                       SECONDO ABBINAMENTO",1
			Scrivi "Sommare + 10 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) + 10) & "                        TERZO ABBINAMENTO",1
			Scrivi "Sottrarre + 10 a  [" & Format2(Diametrale(a)) & "] = " & Format2(Diametrale(a) - 10) & "                      QUARTO ABBINAMENTO",1
			Scrivi String(90,"-")
			ColoreTesto 0
			n1(1) = Fuori90(a + Figura(a))
			n1(2) = Fuori90(Diametrale(a) + 1)
			ImpostaGiocata 1,n1,ru,pta,k,2
			n2(1) = Fuori90(a + Figura(a))
			n2(2) = Fuori90(Diametrale(a) - 1)
			ImpostaGiocata 2,n2,ru,pta,k,2
			n3(1) = Fuori90(a + Figura(a))
			n3(2) = Fuori90(Diametrale(a) + 10)
			ImpostaGiocata 3,n3,ru,pta,k,2
			n4(1) = Fuori90(a + Figura(a))
			n4(2) = Fuori90(Diametrale(a) - 10)
			ImpostaGiocata 4,n4,ru,pta,k,2
			n5(1) = Vert(Fuori90(a + Figura(a)))
			n5(2) = Fuori90(Diametrale(a) + 1)
			ImpostaGiocata 5,n5,ru,pta,k,2
			n6(1) = Vert(Fuori90(a + Figura(a)))
			n6(2) = Fuori90(Diametrale(a) - 1)
			ImpostaGiocata 6,n6,ru,pta,k,2
			n7(1) = Vert(Fuori90(a + Figura(a)))
			n7(2) = Fuori90(Diametrale(a) + 10)
			ImpostaGiocata 7,n7,ru,pta,k,2
			n8(1) = Vert(Fuori90(a + Figura(a)))
			n8(2) = Fuori90(Diametrale(a) - 10)
			ImpostaGiocata 8,n8,ru,pta,k,2
			Gioca es,True,,1
		End If
	Next
	ScriviResoconto
End Sub

 

[rosce14]

BUONA NOTTE E GRAZIE PER IL METODO, E GRAZIE A DISARONNO PER LO SCRIPT.

 

[ernesto 60]

Purtroppo sabato in abbinamento all'1 invece del 42 è sortito il 43.
In compenso è sortito il 60
che oltre ad essere il mio anno di nascita ( nel gioco del lotto non centra) era uno dei 4 n°
che ho estrapolato per tentare il terno,
per tentare il terno bisognerebbe sommare sempre l'ultima estrazione il 1° estratto con il 2° estratto
il 4° con il 5° dei due n° ricavare i diametrali in decina giocare i diametrale in decina ed i vertibili
esempio
34-57=1 66+55=31
1+5=6 vertibile 60 31-5=36 vertibile 63
ricapitolando capigioco 1 10
abbinamenti per ambo 40 42 31 51
abbinamenti per terno 6 60 36 63
saluti