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ì 25 settembre 2026
    Bari
    75
    14
    11
    34
    26
    Cagliari
    08
    59
    38
    54
    49
    Firenze
    30
    15
    37
    24
    17
    Genova
    08
    19
    51
    74
    72
    Milano
    18
    06
    57
    54
    87
    Napoli
    25
    16
    85
    56
    78
    Palermo
    15
    90
    28
    88
    57
    Roma
    53
    18
    40
    04
    64
    Torino
    21
    10
    59
    18
    35
    Venezia
    86
    66
    18
    87
    32
    Nazionale
    18
    36
    79
    49
    16
    Estrazione Simbolotto
    Palermo
    11
    35
    31
    12
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto