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ì 31 ottobre 2025
    Bari
    43
    31
    77
    89
    85
    Cagliari
    50
    30
    77
    43
    53
    Firenze
    23
    53
    28
    11
    72
    Genova
    14
    86
    37
    22
    68
    Milano
    62
    14
    19
    48
    26
    Napoli
    46
    56
    42
    13
    77
    Palermo
    44
    71
    53
    73
    74
    Roma
    24
    56
    90
    57
    29
    Torino
    72
    02
    29
    12
    21
    Venezia
    10
    64
    37
    65
    22
    Nazionale
    69
    39
    08
    04
    61
    Estrazione Simbolotto
    09
    15
    20
    32
    42
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto