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
    sabato 08 marzo 2025
    Bari
    60
    39
    23
    28
    17
    Cagliari
    02
    69
    40
    50
    65
    Firenze
    29
    64
    30
    71
    31
    Genova
    72
    02
    77
    73
    15
    Milano
    61
    29
    21
    08
    36
    Napoli
    60
    36
    53
    05
    66
    Palermo
    74
    58
    68
    15
    20
    Roma
    87
    10
    08
    52
    84
    Torino
    46
    08
    62
    59
    77
    Venezia
    24
    78
    65
    70
    21
    Nazionale
    28
    82
    76
    30
    14
    Estrazione Simbolotto
    Firenze
    20
    13
    37
    24
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto