ENPLEIN

[Alien.]

grazie......acc...non mi ricordo molto prima facevo il basic......si può sommare i 4 numeri le due coppie diagonali e le due verticali ? da darmi 4 numeri da giocare su tutte? E relative vincite ? grazie-










'

Ciao,Enplein ha.........hai visto il razzo sparato da zetrix....meno male....adesso te ne lancio uno io........nel tuo script puoi fare questa variazione ? grazie.....

sperando che zetrix non mi butti fuori orbita hahahahahah





bhe mi ci vuole un bazzuka hahahahahha



http://forum.lottoced.com/f8/metodo-ambi-triplicati-119170/index7.html

 

[Alien.]

 

[Alien.]

 

[Enplein]

Ciao Alien modificato lo script "Ambi Triplicati" con somme Verticali e Diagonali.

Ciao, Enplein.

Sub Main()
Scrivi "Forum LottoCed - Ambi Triplicati in diagonale con somme vert. e diag. X Alien_by Enplein",1
Dim ruote(3),lg(4),posta(2)
posta(2) = 1
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?",,100)
cl = InputBox("Quanti colpi?",,14)
For es = EstrazioneFin - rs To EstrazioneFin
	For r1 = 1 To 10
		For p1 = 1 To 4
		a1 = Estratto(es,r1,p1)
			For p2 = p1 + 1 To 5
			a2 = Estratto(es,r1,p2)
				For r2 = r1 + 1 To 11
				If r2 = 11 Then r2 = 12
				a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)
						If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then
lg(1)=Fuori90 (a1+a4) : lg(2)=Fuori90 (a2+a3) : lg(3)=Fuori90 (a1+a3) : lg(4)=Fuori90 (a2+a4)
ruote(1) = r1 : ruote(2) = r2 : ruote(3)=11
		
t = t + 1
ColoreTesto 1
Scrivi "------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & _
"  [ " & Format2(a1) & " " & Format2(a2) & " ]  Pos. " & p1 & "^ " & p2 & "^ "  & Chr(10) & _
DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & _
"  [ " & Format2(a3) & " " & Format2(a4) & " ]  Pos. " & p1 & "^ " & p2 & "^ ",1
Scrivi "------------------------------------------------------------------------------",1
ColoreTesto 0
ImpostaGiocata 1,lg,ruote,posta,cl,2

Gioca es

									
					End If
				Next
			Next
		Next
	Next
Next
ScriviResoconto
End Sub

 

[Alien.]

GRAZIE INFINITE ENPLEIN ma vedo che ci sono troppe proposte di gioco---- sarebbe possibile inserire a piacere l'estrazione di gioco ,1°,2° ecc del mese?
vediamo se si riesce a diminuire le giocate ..........quando vuoi......

 

[Alien.]

ci sono delle proposte di gioco tipo:::

Estrazione generatrice del pronostico 08979 [ 34 - 19/03/2015]
G 0001 Numeri in gioco : 32.32.32.32 su PA TO TT per Ambo
N. [32.32.32.32 ] [PA] [.. .. .. .. ..] C. 1 08980 [ 35 - 21/03/2015]
N. [32.32.32.32 ] [TO] [.. .. .. .. ..] C. 1 08980 [ 35 - 21/03/2015]
N. [32.32.32.32 ] [TT] [VE][32 .. .. .. ..] C. 1 Estratto 08980 [ 35 - 21/03/2015]




Estrazione generatrice del pronostico 08979 [ 34 - 19/03/2015]
G 0001 Numeri in gioco : 12.12.12.12 su NA RO TT per Ambo
N. [12.12.12.12 ] [NA] [.. .. .. .. ..] C. 1 08980 [ 35 - 21/03/2015]
N. [12.12.12.12 ] [RO] [.. .. .. .. ..] C. 1 08980 [ 35 - 21/03/2015]
N. [12.12.12.12 ] [TT] [ ][.. .. .. .. ..] C. 1 08980 [ 35 - 21/03/2015]





14.03.2015 TO 87.77.82.07.29 [ 87 87 ] Pos. 1^ 1^
14.03.2015 NZ 29.54.33.76.07 [ 29 29 ] Pos. 1^ 1^
------------------------------------------------------------------------------
Estrazione generatrice del pronostico 08977 [ 32 - 14/03/2015]
G 0001 Numeri in gioco : 26.26.26.26 su TO TT NZ per Ambo
N. [26.26.26.26 ] [TO] [.. .. .. .. ..] C. 1 08978 [ 33 - 17/03/2015]
N. [26.26.26.26 ] [TT] [BA][.. 26 .. .. ..] C. 1 Estratto 08978 [ 33 - 17/03/2015]
N. [26.26.26.26 ] [NZ] [.. .. .. .. ..] C. 1 08978 [ 33 - 17/03/2015]
N. [26.26.26.26 ] [TO] [.. .. .. .. ..] C. 2 08979 [ 34 - 19/03/2015]
N. [26.26.26.26 ] [TT] [MI][.. .. 26 .. ..] C. 2 Estratto 08979 [ 34 - 19/03/2015]
N. [26.26.26.26 ] [NZ] [.. .. .. .. ..] C. 2 08979 [ 34 - 19/03/2015]
N. [26.26.26.26 ] [TO] [.. .. .. .. ..] C. 3 08980 [ 35 - 21/03/2015]
N. [26.26.26.26 ] [TT] [ ][.. .. .. .. ..] C. 3 08980 [ 35 - 21/03/2015]
N. [26.26.26.26 ] [NZ] [.. .. .. .. ..] C. 3 08980 [ 35 - 21/03/2015]

ecc....

 

[Enplein]

Ciao Alien, dal tuo output noto che hai fatto delle modifiche allo script originale...
comunque per avere le riduzioni richieste, basta usare il codice IndiceMensile(estrazione)=1 o 2, ecc.

Ciao, Enplein.

 

[Alien.]

acc...Enplein.....ho fatto circa 10 anni fà il Basic ma non mi ricordo un tubo......ad intuizione o inserito il * per vedere se poteva andar meglio ed niente altro..

mi puoi indicare dove inserire il codice e tutta la stringa...grazie....

 

[Enplein]

Ciao Alien, leggendo gli scripts potresti tornare a programmare..ecco lo script
corretto...

Ciao, Enplein.

Sub Main()
Scrivi "Forum LottoCed - Ambi Triplicati in diagonale con somme vert. e diag. X Alien_by Enplein",1
Dim ruote(3),lg(4),posta(2)
posta(2) = 1
t = 0
rs = CInt (InputBox("Quante estrazioni vuoi controllare?",,100))
im = CInt (InputBox("Quale Indice Mensile vuoi controllare?",,1))
cl = CInt (InputBox("Quanti colpi?",,14))
For es = EstrazioneFin - rs To EstrazioneFin
If IndiceMensile(es)=im Then 
	For r1 = 1 To 10
		For p1 = 1 To 4
		a1 = Estratto(es,r1,p1)
			For p2 = p1 + 1 To 5
			a2 = Estratto(es,r1,p2)
				For r2 = r1 + 1 To 11
				If r2 = 11 Then r2 = 12
				a3 = Estratto(es,r2,p1) : a4 = Estratto(es,r2,p2)
						If(a1*3) = a4 Or(a2*3) = a3 Or(a3*3) = a2 Or(a4*3) = a1 Then
lg(1)=Fuori90 (a1+a4) : lg(2)=Fuori90 (a2+a3) : lg(3)=Fuori90 (a1+a3) : lg(4)=Fuori90 (a2+a4)
ruote(1) = r1 : ruote(2) = r2 : ruote(3)=11
		
t = t + 1
ColoreTesto 1
Scrivi "------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & "  " & SiglaRuota(r1) & "  " & StringaEstratti(es,r1) & _
"  [ " & Format2(a1) & " " & Format2(a2) & " ]  Pos. " & p1 & "^ " & p2 & "^ "  & Chr(10) & _
DataEstrazione(es) & "  " & SiglaRuota(r2) & "  " & StringaEstratti(es,r2) & _
"  [ " & Format2(a3) & " " & Format2(a4) & " ]  Pos. " & p1 & "^ " & p2 & "^ ",1
Scrivi "------------------------------------------------------------------------------",1
ColoreTesto 0
ImpostaGiocata 1,lg,ruote,posta,cl,2

Gioca es

									
					End If
				Next
			Next
		Next
	Next
	End If 
Next
ScriviResoconto
End Sub

 

[Alien.]

ho....èro sicuro di averti risposto.......credo che hai ragione ,passo dopo passo,,,,,,ma questo modo di programmare come si chiama ,ho wind 7 a 64 bit.....devo scaricarlo su excel ? Grazie.

 

[rodrigo]

Scusa Enplein se approfitto di questo spazio a te dedicato ma volevo chiederti se potevi postare lo script del Byron versione "Latrippa" di Violino.
Ti ringrazio e ti saluto cordialmente

 

[Alien.]

dove si trova questo ristorante ?

 

[rodrigo]

Lo sa Enplein

 

[Alien.]

acc.....troppi segreti---vi mando le SS

 

[Enplein]

Ciao Alien, non c'è nessun segreto...il Byron LATRIPPA è stato divulgato
da Violino; per informazioni puoi tranquillamente rivolgerti all'Autore.

Ciao, Enplein.

 

[rodrigo]

Alien non ti faccio perdere tempo...la spiegazione del Byron LATRIPPA venne divulgato tempo fa, ma poi fu rimossa tempo dopo da un sito di lotto del quale non mi è permesso fare il nome, chi riuscì a conoscere il procedimento allora ne ha anche lo script...mi capistiiiiiii!!!!