Novità

ENPLEIN

Alien.

Alien.

Advanced Premium Member
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
 
Ciao Alien modificato lo script "Ambi Triplicati" con somme Verticali e Diagonali.

Ciao, Enplein.
Codice: 
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
 
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......:p
 
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....
 
Ultima modifica:
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.
 
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....
 
Ciao Alien, leggendo gli scripts potresti tornare a programmare..ecco lo script
corretto...

Ciao, Enplein.

Codice: 
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
 
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.
 
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
 
Ciao Alien, non c'è nessun segreto...il Byron LATRIPPA è stato divulgato
da Violino; per informazioni puoi tranquillamente rivolgerti all'Autore.

Ciao, Enplein.
 
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!!!! ;)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 aprile 2026
    Bari
    31
    34
    54
    63
    51
    Cagliari
    54
    15
    14
    25
    40
    Firenze
    75
    79
    42
    26
    19
    Genova
    02
    67
    09
    42
    41
    Milano
    34
    68
    73
    79
    03
    Napoli
    47
    26
    31
    23
    63
    Palermo
    74
    64
    03
    75
    63
    Roma
    82
    60
    28
    73
    11
    Torino
    27
    30
    51
    75
    05
    Venezia
    21
    65
    43
    15
    87
    Nazionale
    48
    09
    72
    88
    29
    Estrazione Simbolotto
    Genova
    45
    15
    22
    05
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto