Novità

aiuto x questo script

T

trivellatomariotretre33

Super Member >PLATINUM<
SALVE BUONASERA SE E POSSIBILE AVERE LO SCRIPT PER QUESTO METODO---
RICERCARE SU UNA RUOTA UN AMBO VERTIBILE USCITO IN DUE ESTRAZIONI CHE DEVE AVERE QUESTA CARATTERISTICA ...( DEVE ESSERE UNITO MA NON ISOTOPO ) ATTENZIONE A QUESTA CARATERISTICA .

ESEMPI REALI

19 09 2013 CA ---47-
21 09 2013 CA ----74
IL FUTURO AMBO SECCO SARA DATO DAI DUE GEMELLI CHE FORMANO I DUE VERTIBILI DI ESEMPIO
AL 6 COLPO AMBO SECCO A CA 44 77

10 10 2013 BA ---87-
12 10 2013 BA --78--
AMBO SECCO A BARI 6 COLPO 88 77

24 10 2013 TO -38---
26 10 2013 TO --83--
AMBO SECCO TO 1 COLPO 33 88

E COSI DI SEGUITO GRAZIE
 
Ciao Trivellato, eccoti lo script, verifica da solo gli esiti come tutti i metodi con tante condizioni di giocate " Perdenti della Metà "

Codice: 
Sub Main()
	Scrivi
	ColoreTesto 1
	Scrivi " Cerca Numeri Vertibili in 2 estrazioni consecutivi Uniti e non isotopi *** Metodo Trivellato *** forum LottoCed *** script By Mike58 ",1,1,2,4,2
	Scrivi
	ColoreTesto 0
	Dim ruote(12)
	Dim number(2)
	
	Dim posta(10)
	
	posta(1) = 1
	posta(2) = 1
	etr = CInt(InputBox("ESTRAZIONE DI PARTENZA?","Mike58",8000))
	cc = CInt(InputBox("PER QUANTI COLPI?","Mike58",10))
	co = 0
	ini = etr
	fin = EstrazioneFin
	For es = ini To fin
	Call Messaggio("Elabora estrazioni . . . . " & es & " .... A T T E N D E R E .... " )
	Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 12
			If r1 = 11 Then r1 = 12
			For p1 = 1 To 5
				For p2 = 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es - 1,r1,p2)
					If b = Vert(a) Then
						If p1 = p2 + 1 Or p1 = p2 - 1 Then
							ruote(1) = r1 : ruote(2) = r2
							co = co + 1
							Scrivi String(100,"*") & " Caso n°: " & CInt(co),1
							ColoreTesto 1:Scrivi: Scrivi DataEstrazione(es) & " | " & StringaEstratti(es,r1) & " | " & FormatSpace(NomeRuota(r1),10) & " NUMERO " & b & " in " & p1 & "° Posizione"
							ColoreTesto 1:Scrivi DataEstrazione(es - 1) & " | " & StringaEstratti(es - 1,r1) & " | " & FormatSpace(NomeRuota(r1),10) & " NUMERO " & a & " in " & p2 & "° Posizione"
							ColoreTesto 0
							'---------------------------------------------------- METODO
							number(1) = Trasposizione(a,b)
							number(2) = Trasposizione(b,a)
							Scrivi: ColoreTesto 0
							ImpostaGiocata 1,number,ruote,posta,cc,2
							Gioca es
						End If
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub
 
grazie mike58 sei sempre gentile e rapido
ma scusami non mi trovo qua come mai
IL 3 MAGGIO A MILANO PRIMO ESTRATTO 82
IL 6 MAGGIO A MILANO QUINTO ESTRATTO 28
PREVIS MILANO IN GIOCO 22 88
CE QUALCHE ANOMALIA NEI CALCOLI
NON E NELLO SCRIPT SCUSA MIKE
DEVONO ESSERE SOLO VERTIBILI UGUALI
COSI 72- 27 O 23-32 O 17-71
E NON COSI 33-39 O 1 10 O 22 29
OK GRAZIE VEDRAI CHE I RISULTATI SARANNO MIGLIORI

sono stato io a non esprimermi meglio spero che me lo puoi correggere mike58 grazie
 
Ultima modifica:
Devo escludere i casi del vertibile Gemello ossia esempio 33.39.
Adesso mi manca il tempo ci ritorno e vedo quello che si può fare.

ciao
 
GRAZIE MIKE58 GENTILISSIMO COME SEMPRE
ATTENDO UN TUO ESITO APPENA PUOI
UNA STRETTA DI MANO
CIAO

PS
SCUSA MIKE58 NEI TUOI SCRIPT TI TROVERESTI UN AMBO IN TERZINA A RUOTA SECCA
ABBASTANZA CON BUON ESITI POSITIVI
O ANCORA QUALCOSA SU AMBI SPIA A SCELTA
o qualcosa su un ambo secco a tutte
vedi te Mike qualsiasi script anche a tuo piacere basta che non vado in perdita
mi trovo un po in crisi e senza lavoro da 5 mesi posso spendere pochino
CIAO BUON PROSEGUIMENTO GRAZIE ANCORA DI CUORE
 
Ultima modifica:
Ciao Trivellato, arrivo ora dal mio lavoro e non ho ancora messo mano allo script della 1^ richiesta.
Lo farò anche se io ritengo che cambierà poco.

Mi chiedi uno script che possa dare dei buoni esiti, si !!! è possibile crearne qualcuno ad ok ma attenzione è sempre lo specchio del passato e non è detto che possa essere positivo anche in futuro.

Ad ogni modo ne avevo creato uno per me sulla spia 90 a bari e visto che è in super Frequenza qualche previsione può venir a buon fine.

Codice: 
Sub Main
	Dim ru(1)
	Dim ambata(10),ambo(10),terno(10),luna(10),lute(10)
	Ini = EstrazioneFin - 200
	fin = EstrazioneFin
	r = 1
	ru(1) = r
	Scrivi " ***** Metodo algoritmico su Bari per ambata - ambo - terno - Spia 90 ***** ",1,1,,1,3
	Scrivi
	ReDim T(14)
	T(1) = " Casi "
	T(2) = " Ruota "
	T(3) = " Ambata "
	T(4) = " Esito "
	T(5) = " Colpo "
	T(6) = " data ID "
	T(7) = " Ambo "
	T(8) = " Esito "
	T(9) = " Colpo "
	T(10) = " data ID "
	T(11) = " Terno "
	T(12) = " Esito "
	T(13) = " Colpo "
	T(14) = " data ID "
	Call InitTabella(T,2,,3,5)
	For es = Ini To fin
		If Posizione(es,r,90) > 0 Then
			co = co + 1
			ambata(1) = Fuori90(Estratto(es,NA_,1) + 42)
			ambo(1) = Fuori90(Estratto(es,PA_,3) + 75)
			ambo(2) = Fuori90(Estratto(es,PA_,2) + 21)
			'ambo(3) = Fuori90(Estratto(es,NA_,4) + 3)
			'ambo(4) = Fuori90(Estratto(es,NZ_,4) + 23)
			luna(1) = ambata(1)
			luna(2) = ambo(1)
			luna(3) = ambo(2)
			'luna(4) = ambo(3)
			'luna(5) = ambo(4)
			terno(1) = Fuori90(Estratto(es,MI_,3) + 11)
			terno(2) = Fuori90(Estratto(es,TO_,5) + 59)
			terno(3) = Fuori90(Estratto(es,CA_,1) + 29)
			'terno(4) = Fuori90(Estratto(es,PA_,3) + 22)
			lute(1) = ambata(1)
			lute(2) = ambo(1)
			lute(3) = ambo(2)
			'lute(4) = ambo(3)
			'lute(5) = ambo(4)
			lute(6) = terno(1)
			lute(7) = terno(2)
			lute(8) = terno(3)
			'lute(9) = terno(4)
			Call VerificaEsito(ambata,ru,es + 1,1,13,,esito1,colpi1,estratti1,id1)
			Call VerificaEsito(luna,ru,es + 1,2,13,,esito2,colpi2,estratti2,id2)
			Call VerificaEsito(lute,ru,es + 1,3,13,,esito3,colpi3,estratti3,id3)
			ReDim v(14)
			v(1) = co & " - " & DataEstrazione(es)
			v(2) = NomeRuota(r) & " - " & StringaEstratti(es,r)
			v(3) = StringaNumeri(ambata,,1)
			v(4) = estratti1
			v(5) = colpi1
			If esito1 <> "" Then v(6) = DataEstrazione(id1)
			v(7) = StringaNumeri(ambo,,1)
			v(8) = estratti2
			v(9) = colpi2
			If esito2 <> "" Then v(10) = DataEstrazione(id2)
			v(11) = StringaNumeri(terno,,1)
			v(12) = estratti3
			v(13) = colpi3
			If esito3 <> "" Then v(14) = DataEstrazione(id3)
			Call AddRigaTabella(v,,,3,,"lucida")
			Call SetColoreCella(3,7,5)
			Call SetColoreCella(7,7,5)
			Call SetColoreCella(11,7,5)
			If esito1 = "Estratto" Then abb = abb + 1
			If esito2 = "Ambo" Then amb = amb + 1
			If esito3 = "Terno" Then Ter = Ter + 1
		End If
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi String(100,"="),1
	Scrivi "Lunghetta : " & StringaNumeri(lute),1,1,,1,3
	Scrivi String(100,"-")
	exx = IndiceMensile(fin)
	'Scrivi "indice attuale " & exx
	For ex = fin To fin - es
		k = k + 1
		Call VerificaEsitoConGuadagno(lute,ru,ex,1,1,,esito,colpi,estratti,id,,guad)
		If esito = "Ambo" Or esito = "Terno" Then
			ColoreTesto 2
			Scrivi Format2(IndiceMensile(ex)) & " " & estratti & "  " & vbTab & GetInfoEstrazione(id) & vbTab,0,0
			Scrivi esito '& vbTab & guad
		Else
			ColoreTesto 0
			Scrivi Format2(IndiceMensile(ex)) & " " & estratti & "  " & vbTab & GetInfoEstrazione(id) & vbTab,0,0
			Scrivi esito '& vbTab & guad
		End If
	Next
	For x = 1 To UBound(lute)
		If EstrattoFrequenza(r,lute(x),fin - exx,fin) > 0 Then lute(x) = 0 ' numeri rimasti
		'End If
	Next
	Scrivi "Numeri Rimasti..." & StringaNumeri(lute),1
	Scrivi String(100,"-")
	Scrivi "Casi positivi di Ambata : " & abb,1,1,,1,3
	Scrivi "casi positivi di Ambo   : " & amb,1,1,,2,3
	Scrivi "casi positivi di Terno  : " & Ter,1,1,,7,3
	Scrivi
	Scrivi " ********** Metodo & Script in Tabella By Mike58 ******** ",1,1,2,4,3
End Sub
 
grazie mike58 mi piacciono molto i tuoi script sono sempre pieni di sorprese e completi di tabbelle ti ringrazio di averlo condiviso grazie ancora di cuore sei meraviglioso x tutti con la disponibila che ci doni grazie
 
Ti ringrazio per l'apprezzamento ti metto anche questo che sto seguendo su palermo ahimè stasera ha dato solo Ambata.

Codice: 
Sub Main
	Dim ru(1)
	Dim ambata(10),ambo(10),terno(10),luna(10),lute(10)
	Ini = EstrazioneFin - 150
	fin = EstrazioneFin
	r = 7
	ru(1) = r
	Scrivi " ***** Metodo algoritmico su Palermo per ambata - ambo - terno - dalla 1* estrazione del mese ***** ",1,1,,1,3
	Scrivi
	ReDim T(14)
	T(1) = " Casi "
	T(2) = " Ruota "
	T(3) = " Ambata "
	T(4) = " Esito "
	T(5) = " Colpo "
	T(6) = " data ID "
	T(7) = " Ambo "
	T(8) = " Esito "
	T(9) = " Colpo "
	T(10) = " data ID "
	T(11) = " Terno "
	T(12) = " Esito "
	T(13) = " Colpo "
	T(14) = " data ID "
	Call InitTabella(T,2,,3,5)
	For es = Ini To fin
		If IndiceMensile(es) = 1 Then
			co = co + 1
			ambata(1) = Fuori90(Estratto(es,CA_,3) + 2)
			ambo(1) = Fuori90(Estratto(es,CA_,2) + 5)
			ambo(2) = Fuori90(Estratto(es,NZ_,1) + 22)
			ambo(3) = Fuori90(Estratto(es,NA_,4) + 3)
			ambo(4) = Fuori90(Estratto(es,NZ_,4) + 23)
			luna(1) = ambata(1)
			luna(2) = ambo(1)
			luna(3) = ambo(2)
			luna(4) = ambo(3)
			luna(5) = ambo(4)
			terno(1) = Fuori90(Estratto(es,CA_,4) + 28)
			terno(2) = Fuori90(Estratto(es,PA_,5) + 54)
			terno(3) = Fuori90(Estratto(es,GE_,3) + 4)
			terno(4) = Fuori90(Estratto(es,PA_,3) + 22)
			lute(1) = ambata(1)
			lute(2) = ambo(1)
			lute(3) = ambo(2)
			lute(4) = ambo(3)
			lute(5) = ambo(4)
			lute(6) = terno(1)
			lute(7) = terno(2)
			lute(8) = terno(3)
			lute(9) = terno(4)
			Call VerificaEsito(ambata,ru,es + 1,1,13,,esito1,colpi1,estratti1,id1)
			Call VerificaEsito(luna,ru,es + 1,2,13,,esito2,colpi2,estratti2,id2)
			Call VerificaEsito(lute,ru,es + 1,3,13,,esito3,colpi3,estratti3,id3)
			ReDim v(14)
			v(1) = co
			v(2) = NomeRuota(r)
			v(3) = StringaNumeri(ambata,,1)
			v(4) = estratti1
			v(5) = colpi1
			If esito1 <> "" Then v(6) = DataEstrazione(id1)
			v(7) = StringaNumeri(ambo,,1)
			v(8) = estratti2
			v(9) = colpi2
			If esito2 <> "" Then v(10) = DataEstrazione(id2)
			v(11) = StringaNumeri(terno,,1)
			v(12) = estratti3
			v(13) = colpi3
			If esito3 <> "" Then v(14) = DataEstrazione(id3)
			Call AddRigaTabella(v,,,3,,"lucida")
			Call SetColoreCella(3,7,5)
			Call SetColoreCella(7,7,5)
			Call SetColoreCella(11,7,5)
			If esito1 = "Estratto" Then abb = abb + 1
			If esito2 = "Ambo" Then amb = amb + 1
			If esito3 = "Terno" Then Ter = Ter + 1
		End If
	Next
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi String(100,"="),1
	Scrivi "Lunghetta : " & StringaNumeri(lute),1,1,,1,3
	Scrivi String(100,"-")
	exx = IndiceMensile(fin)
	Scrivi "indice attuale " & exx
	For ex = fin To fin - exx + 1 Step - 1
		k = k + 1
		Call VerificaEsitoConGuadagno(lute,ru,ex,1,1,,esito,colpi,estratti,id,,guad)
		If esito = "Ambo" Or esito = "Terno" Then
			ColoreTesto 2
			Scrivi Format2(IndiceMensile(ex)) & " " & estratti & "  " & vbTab & GetInfoEstrazione(id) & vbTab,0,0
			Scrivi esito '& vbTab & guad
		Else
			ColoreTesto 0
			Scrivi Format2(IndiceMensile(ex)) & " " & estratti & "  " & vbTab & GetInfoEstrazione(id) & vbTab,0,0
			Scrivi esito '& vbTab & guad
		End If
	Next
	For x = 1 To UBound(lute)
		If EstrattoFrequenza(r,lute(x),fin - exx,fin) > 0 Then lute(x) = 0 ' numeri rimasti
		'End If
	Next
	Scrivi "Numeri Rimasti..." & StringaNumeri(lute),1
	Scrivi String(100,"-")
	Scrivi "Casi positivi di Ambata : " & abb,1,1,,1,3
	Scrivi "casi positivi di Ambo   : " & amb,1,1,,2,3
	Scrivi "casi positivi di Terno  : " & Ter,1,1,,7,3
	Scrivi
	Scrivi " ********** Metodo & Script in Tabella By Mike58 ******** ",1,1,2,4,3
End Sub

vediamo se paga ancora !!!
 
non ce che dire mi stupisci sempre di piu che Dio te lo renda grazie e poco sei un fenomeno e con i tuoi doni ci regali una speranza a cui sperare per sorridere in momenti dificili come stiamo vivendo.
 
Io ci spero Ma come ti ho detto Usare sempre la dovuta cautela nel gioco.

Ti ho eliminato i casi che non vuoi vedere nel primo script di richiesta.
Purtroppo ho dovuto fare alcuni casi incrociati volti ad eliminare i gemelli e gli zerati pena la pesantezza dello script.

prova a vedere se ci sono tutti i casi validi.

Codice: 
Sub Main()
	Scrivi
	ColoreTesto 1
	Scrivi " Cerca Numeri Vertibili in 2 estrazioni consecutivi Uniti e non isotopi *** Metodo Trivellato *** forum LottoCed *** script By Mike58 ",1,1,2,4,2
	Scrivi
	ColoreTesto 0
	Dim ruote(12)
	Dim number(2)
	
	Dim posta(10)
	
	posta(1) = 1
	posta(2) = 1
	etr = CInt(InputBox("ESTRAZIONE DI PARTENZA?","Mike58",8000))
	cc = CInt(InputBox("PER QUANTI COLPI?","Mike58",10))
	co = 0
	ini = etr
	fin = EstrazioneFin
	For es = ini To fin
	Call Messaggio("Elabora estrazioni . . . . " & es & " .... A T T E N D E R E .... ")
	Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 12
			If r1 = 11 Then r1 = 12
			For p1 = 1 To 5
				For p2 = 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es - 1,r1,p2)
					If Decina(a) <> Cadenza(a) Then
					If Decina(b) <> Cadenza(b) Then
					If Decina(a) > 0 Then 					
					If Decina(b) > 0 Then
					If b = Vert(a) Or a = Vert(b) Then
					
						If p1 = p2 + 1 Or p1 = p2 - 1 Then
						If p2 = p1 + 1 Or p2 = p1 - 1 Then
							ruote(1) = r1 : ruote(2) = r2
							co = co + 1
							Scrivi String(100,"*") & " Caso n°: " & CInt(co),1
							ColoreTesto 1:Scrivi: Scrivi DataEstrazione(es) & " | " & StringaEstratti(es,r1) & " | " & FormatSpace(NomeRuota(r1),10) & " NUMERO " & Format2(a) & " in " & p1 & "° Posizione"
							ColoreTesto 1:Scrivi DataEstrazione(es - 1) & " | " & StringaEstratti(es - 1,r1) & " | " & FormatSpace(NomeRuota(r1),10) & " NUMERO " & Format2(b) & " in " & p2 & "° Posizione"
							ColoreTesto 0
							'---------------------------------------------------- METODO
							number(1) = Trasposizione(a,b)
							number(2) = Trasposizione(b,a)
							Scrivi: ColoreTesto 0
							ImpostaGiocata 1,number,ruote,posta,cc,2
							Gioca es
						End If
						End If
						End If
						End If
						End If
						End If
						End If
					'End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub


ciao adesso stacco

Buona notte
 
ciao buongiorno Mike58 come dettoti sopra manca sempre il caso della previsione in corso
IL 3 MAGGIO A MILANO PRIMO ESTRATTO 82
IL 6 MAGGIO A MILANO QUINTO ESTRATTO 28
PREVIS MILANO IN GIOCO 22 88
NON E NELLO SCRIPT
se per come manca questo certamente ne potrebbero mancare altri non credi?
scusa se torno sempre sullo stesso passo ok
grazie mike58

PS
scusa mike58 mi ci puoi aggiungere apparte la ruota di gioco anche la giocata a tutte.
 
Ultima modifica:
Buona giornata,
Ciao Trivellato, ho aggiunto le posizioni mancanti 1-5 e 5-1 e la giocata dell'ambo a tutte.

Codice: 
Sub Main()
	Scrivi
	ColoreTesto 1
	Scrivi " Cerca Numeri Vertibili in 2 estrazioni consecutivi Uniti e non isotopi *** Metodo Trivellato *** forum LottoCed *** script By Mike58 ",1,1,2,4,2
	Scrivi
	ColoreTesto 0
	Dim ruote(12),rutt(1)
	Dim number(2)
	Dim posta(10),postat(2)
	posta(1) = 1
	posta(2) = 1
	postat(2) = 1
	etr = CInt(InputBox("ESTRAZIONE DI PARTENZA?","Mike58",8000))
	cc = CInt(InputBox("PER QUANTI COLPI?","Mike58",10))
	co = 0
	ini = etr
	fin = EstrazioneFin
	For es = ini To fin
		Call Messaggio("Elabora estrazioni . . . . " & es & " .... A T T E N D E R E .... ")
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 12
			If r1 = 11 Then r1 = 12
			For p1 = 1 To 5
				For p2 = 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es - 1,r1,p2)
					If Decina(a) <> Cadenza(a) Then
						If Decina(b) <> Cadenza(b) Then
							If Decina(a) > 0 Then
								If Decina(b) > 0 Then
									If b = Vert(a) Or a = Vert(b) Then
										If p1 = p2 + 1 Or p1 = p2 - 1 Or p1 = p2 + 4 Or p1 = p2 - 4 Then
											If p2 = p1 + 1 Or p2 = p1 - 1 Or p2 = p1 + 4 Or p2 = p1 - 4 Then
												ruote(1) = r1 : ruote(2) = r2 : rutt(1) = 11
												co = co + 1
												Scrivi String(100,"*") & " Caso n°: " & CInt(co),1
												ColoreTesto 1:Scrivi: Scrivi DataEstrazione(es) & " | " & StringaEstratti(es,r1) & " | " & FormatSpace(NomeRuota(r1),10) & " NUMERO " & Format2(a) & " in " & p1 & "° Posizione"
												ColoreTesto 1:Scrivi DataEstrazione(es - 1) & " | " & StringaEstratti(es - 1,r1) & " | " & FormatSpace(NomeRuota(r1),10) & " NUMERO " & Format2(b) & " in " & p2 & "° Posizione"
												ColoreTesto 0
												'---------------------------------------------------- METODO
												number(1) = Trasposizione(a,b)
												number(2) = Trasposizione(b,a)
												Scrivi: ColoreTesto 0
												ImpostaGiocata 1,number,ruote,posta,cc,2
												ImpostaGiocata 2,number,rutt,postat,cc,2
												Gioca es
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 13 marzo 2025
    Bari
    22
    40
    83
    72
    86
    Cagliari
    02
    29
    20
    90
    16
    Firenze
    84
    37
    86
    12
    71
    Genova
    70
    76
    20
    65
    25
    Milano
    10
    90
    86
    63
    70
    Napoli
    12
    23
    89
    49
    54
    Palermo
    40
    11
    35
    61
    66
    Roma
    17
    36
    61
    08
    65
    Torino
    54
    49
    64
    61
    25
    Venezia
    77
    63
    06
    29
    18
    Nazionale
    48
    56
    90
    14
    23
    Estrazione Simbolotto
    Firenze
    11
    21
    43
    22
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto