AURORA FORMULE PER AMBATA E AMBO

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 3892
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

AURORA FORMULE PER AMBATA E AMBO

Messaggio da Tatoo64 » 14/02/2014, 20:39

MI SONO MESSO ALLA RICERCA DEI METODI DI MIRCO E IN UN FORUM HO TROVATO QUESTE PRONTE ALL'USO:
=================================
AURORA
FORMULE PER AMBATA E AMBO

Queste sette formule inedite si possono mettere in gioco ogni qual volta si presenti la condizione su due ruote senza ripetizione di numeri di ricerca su altre ruote, una volta formatasi la formazione si possono mettere in gioco gli ambi senza dover fare nessun tipo di retrovisione (tempi di gioco 9 estrazioni)

FORMULA 1
NUMERI DI RICERCA 27/30/87
AMBATA 76
AMBI 76-46/76-1/76-16/76-61
CINQUINA 31-46-1-16-61

FORMULA 2
NUMERI DI RICERCA 13/16/73
AMBATA 64
AMBI 64-34/64-49/64-4/64-19
CINQUINA 79-34-49-4-19

FORMULA 3
NUMERI DI RICERCA 22/25/82
AMBATA 46
AMBI 46-76/46-31/46-1/46-16
CINQUINA 61-76-31-1-16

FORMULA 4
NUMERI DI RICERCA 1/22/79
AMBATA 37
AMBI 37-67/37-22/37-7/37-82
CINQUINA 52-67-22-7-82

FORMULA 5
NUMERI DI RICERCA 20-23-80
AMBATA 70
AMBI 70-10/70-25/70-40/70-85
CINQUINA 55-10-25-40-85

FORMULA 6
NUMERI DI RICERCA 18/21/78
AMBATA 4
AMBI 4-64/4-19/4-34/4-79
CINQUINA 49-64-19-34-79

FORMULA 7
NUMERI DI RICERCA 21-24-81
AMBATA 13
AMBI 13-73/13-28/13-43/13-88
CINQUINA 58-73-28-43-88
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: AURORA FORMULE PER AMBATA E AMBO

Messaggio da luca92 » 14/02/2014, 21:35

Grazie Tatoo! :su:



Possibilmente DjNomade potrebbe fare uno Script di questi metodi? Anche se forse chiedo troppo, sono tanti! :)





Grazie comunque a DjNomade! :su:





Ciao
Luca

:abb:
Immagine




Immagine







Immagine

Avatar utente
DjNomade
Messaggi: 596
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: AURORA FORMULE PER AMBATA E AMBO

Messaggio da DjNomade » 23/02/2014, 0:22

Ho provato a realizzarlo e ho aggiunto anche le formule del GRANDE LIBRO DELLE DATE,ma non c'è la ricerca retroattiva dei numeri da giocare perche' gia' è lento di suo :dent:
Ciauz



Codice: Seleziona tutto

ColoreTesto 1 :Scrivi "---------------AURORA FORMULE PER AMBATA E AMBO + GRANDE LIBRO DELLE DATE  

Ciauzby MIRCO",1
ColoreTesto 1 :Scrivi "------------------- Listato  DjNomade",1
Scrivi : ColoreTesto 0
Sub main()
Dim ruote(10)
Dim numeri1(10),amb(6),numeri4(6)
Dim numeri2(10)
Dim posta(5)
Dim poste(5),postee(5)
posta(1)=1
poste(2)=2
postee(2)=1
postee(3)=1
ric = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",9))
fin = EstrazioneFin
ini = fin - ric
For ex = ini To fin
For s1=1 To 90 '< 
For s2=1 To 90 '< le tre spie, così le puoi cambiare a piacimento
For s3=1 To 90'<
ok=0
 '**************************** prime  7 formule ****************************
If s1=27 And s2=30 And s3=87 Then amb(1)=76:amb(2)=46:amb(3)=01:amb(4)=16:amb(5)=61:amb(6)=31:ok=1
If s1=13 And s2=16 And s3=73 Then amb(1)=64:amb(2)=34:amb(3)=49:amb(4)=04:amb(5)=19:amb(6)=79:ok=1
If s1=22 And s2=25 And s3=82 Then amb(1)=46:amb(2)=76:amb(3)=31:amb(4)=01:amb(5)=16:amb(6)=61:ok=1
If s1=01 And s2=22 And s3=79 Then amb(1)=37:amb(2)=67:amb(3)=22:amb(4)=07:amb(5)=82:amb(6)=52:ok=1
If s1=20 And s2=23 And s3=80 Then amb(1)=70:amb(2)=10:amb(3)=25:amb(4)=40:amb(5)=85:amb(6)=55:ok=1
If s1=18 And s2=21 And s3=78 Then amb(1)=04:amb(2)=64:amb(3)=19:amb(4)=34:amb(5)=79:amb(6)=49:ok=1
If s1=21 And s2=24 And s3=81 Then amb(1)=13:amb(2)=73:amb(3)=28:amb(4)=43:amb(5)=88:amb(6)=58:ok=1
 '****************************dal GRANDE LIBRO DELLE DATE****************************
If s1=14 And s2=01 And s3=14 Then amb(1)=43:amb(2)=19:amb(3)=27:amb(4)=64:amb(5)=72:amb(6)=88:ok=1
If s1=21 And s2=06 And s3=06 Then amb(1)=75:amb(2)=38:amb(3)=14:amb(4)=83:amb(5)=59:amb(6)=30:ok=1
If s1=06 And s2=04 And s3=04 Then amb(1)=36:amb(2)=21:amb(3)=17:amb(4)=66:amb(5)=62:amb(6)=81:ok=1
If s1=04 And s2=10 And s3=04 Then amb(1)=25:amb(2)=31:amb(3)=43:amb(4)=76:amb(5)=88:amb(6)=70:ok=1
If s1=02 And s2=02 And s3=27 Then amb(1)=56:amb(2)=39:amb(3)=10:amb(4)=84:amb(5)=55:amb(6)=11:ok=1
If s1=05 And s2=05 And s3=06 Then amb(1)=47:amb(2)=35:amb(3)=18:amb(4)=80:amb(5)=63:amb(6)=02:ok=1
If s1=11 And s2=11 And s3=53 Then amb(1)=35:amb(2)=22:amb(3)=32:amb(4)=67:amb(5)=77:amb(6)=80:ok=1
If s1=06 And s2=05 And s3=05 Then amb(1)=43:amb(2)=44:amb(3)=21:amb(4)=89:amb(5)=66:amb(6)=88:ok=1
If s1=06 And s2=05 And s3=05 Then amb(1)=29:amb(2)=39:amb(3)=13:amb(4)=84:amb(5)=58:amb(6)=74:ok=1
If s1=25 And s2=03 And s3=70 Then amb(1)=75:amb(2)=40:amb(3)=24:amb(4)=85:amb(5)=69:amb(6)=30:ok=1
If s1=10 And s2=10 And s3=82 Then amb(1)=73:amb(2)=43:amb(3)=38:amb(4)=88:amb(5)=83:amb(6)=28:ok=1
If s1=16 And s2=10 And s3=87 Then amb(1)=61:amb(2)=20:amb(3)=31:amb(4)=65:amb(5)=76:amb(6)=16:ok=1
If s1=10 And s2=04 And s3=10 Then amb(1)=85:amb(2)=26:amb(3)=31:amb(4)=71:amb(5)=76:amb(6)=40:ok=1
If s1=01 And s2=07 And s3=11 Then amb(1)=83:amb(2)=42:amb(3)=34:amb(4)=87:amb(5)=79:amb(6)=38:ok=1
If s1=13 And s2=05 And s3=13 Then amb(1)=51:amb(2)=18:amb(3)=15:amb(4)=63:amb(5)=60:amb(6)=06:ok=1
If s1=18 And s2=11 And s3=14 Then amb(1)=33:amb(2)=26:amb(3)=44:amb(4)=71:amb(5)=89:amb(6)=78:ok=1
If s1=11 And s2=01 And s3=20 Then amb(1)=69:amb(2)=38:amb(3)=43:amb(4)=83:amb(5)=88:amb(6)=24:ok=1
If s1=23 And s2=01 And s3=29 Then amb(1)=81:amb(2)=25:amb(3)=08:amb(4)=70:amb(5)=53:amb(6)=36:ok=1
If s1=10 And s2=05 And s3=37 Then amb(1)=83:amb(2)=05:amb(3)=44:amb(4)=50:amb(5)=89:amb(6)=38:ok=1
If s1=03 And s2=10 And s3=39 Then amb(1)=75:amb(2)=26:amb(3)=19:amb(4)=71:amb(5)=64:amb(6)=30:ok=1




If ok=1 Then

k=9

Messaggio (ex)


	For r=1 To 10
		For p1=1 To 4
			For p2=p1+1 To 5 
				a=Estratto (ex,r,p1)
				b=Estratto (ex,r,p2)
				
					For r1=1 To 10
						For p3=1 To 5
						c=Estratto (ex,r1,p3)						
If r<>r1 And((a=s1 And b=s2 And c=s3) Or (a=s1 And b=s3 And c=s2) Or (a=s2 And b=s3 And c=s1)Or (a=s2 And b=s1 And c=s3)Or (a=s3 And b=s1 And c=s2)Or (a=s3 And b=s2 And c=s1)) Then



								Scrivi "*************************************"
								Scrivi ""&DataEstrazione (ex)&""
								Scrivi "Su "& FormatSpace(NomeRuota (r),10)&"  Spie "&a&" "&b
								Scrivi "Su "& FormatSpace(NomeRuota (r1),10)&"  Spia "&c
								Scrivi
								ruote(1)=r
								ruote(2)=r1
							numeri1(1)=amb(1) 									
								ImpostaGiocata 1,numeri1,ruote,posta,k
							numeri2(1)=amb(1) 
							numeri2(2)=amb(2)								
								ImpostaGiocata 2,numeri2,ruote,poste,k
							numeri2(1)=amb(1) 
							numeri2(2)=amb(3)								
								ImpostaGiocata 3,numeri2,ruote,poste,k
							numeri2(1)=amb(1) 
							numeri2(2)=amb(4)								
								ImpostaGiocata 4,numeri2,ruote,poste,k
							numeri2(1)=amb(1) 
							numeri2(2)=amb(5)								
								ImpostaGiocata 5,numeri2,ruote,poste,k
							numeri4(1)=amb(6) 
							numeri4(2)=amb(2)
							numeri4(3)=amb(3) 
							numeri4(4)=amb(4)	
							numeri4(5)=amb(5)								
								ImpostaGiocata 6,numeri4,ruote,postee,k
								 
								Gioca ex
							End If
						Next 
					Next
			Next
		Next 
	Next 
End If
Next 
Next 
Next 
Next
ScriviResoconto 
End Sub


Avatar utente
Tatoo64
Site Admin
Messaggi: 3892
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: AURORA FORMULE PER AMBATA E AMBO

Messaggio da Tatoo64 » 23/02/2014, 11:53

grazie djnomade sono certo che non ci sarà bisogno di ricerche retroattive.

:appl: :su:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: AURORA FORMULE PER AMBATA E AMBO

Messaggio da luca92 » 23/02/2014, 13:53

Grazie mille DjNomade! :su:





Ciao
Luca

:abb:
Immagine




Immagine







Immagine

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: AURORA FORMULE PER AMBATA E AMBO

Messaggio da luca92 » 23/02/2014, 14:01

PS: Ho visto che lo Script mi dà errore con L8+, perchè?
Immagine




Immagine







Immagine

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: AURORA FORMULE PER AMBATA E AMBO

Messaggio da SeeLe8 » 23/02/2014, 14:39

prova così

Codice: Seleziona tutto

ColoreTesto 1 :Scrivi "---------------AURORA FORMULE PER AMBATA E AMBO + GRANDE LIBRO DELLE DATE - by Mirco"

ColoreTesto 1 :Scrivi "------------------- Listato  DjNomade",1
Scrivi : ColoreTesto 0
Sub Main()
Dim ruote(10)
Dim numeri1(10),amb(6),numeri4(6)
Dim numeri2(10)
Dim posta(5)
Dim poste(5),postee(5)
posta(1) = 1
poste(2) = 2
postee(2) = 1
postee(3) = 1
ric = CInt(InputBox("Quante estrazioni di RICERCA?","estrazioni di RICERCA",9))
fin = EstrazioneFin
ini = fin - ric
For ex = ini To fin
For s1 = 1 To 90 '<
For s2 = 1 To 90 '< le tre spie, così le puoi cambiare a piacimento
For s3 = 1 To 90'<
ok = 0
'**************************** prime  7 formule ****************************
If s1 = 27 And s2 = 30 And s3 = 87 Then amb(1) = 76:amb(2) = 46:amb(3) = 01:amb(4) = 16:amb(5) = 61:amb(6) = 31:ok = 1
If s1 = 13 And s2 = 16 And s3 = 73 Then amb(1) = 64:amb(2) = 34:amb(3) = 49:amb(4) = 04:amb(5) = 19:amb(6) = 79:ok = 1
If s1 = 22 And s2 = 25 And s3 = 82 Then amb(1) = 46:amb(2) = 76:amb(3) = 31:amb(4) = 01:amb(5) = 16:amb(6) = 61:ok = 1
If s1 = 01 And s2 = 22 And s3 = 79 Then amb(1) = 37:amb(2) = 67:amb(3) = 22:amb(4) = 07:amb(5) = 82:amb(6) = 52:ok = 1
If s1 = 20 And s2 = 23 And s3 = 80 Then amb(1) = 70:amb(2) = 10:amb(3) = 25:amb(4) = 40:amb(5) = 85:amb(6) = 55:ok = 1
If s1 = 18 And s2 = 21 And s3 = 78 Then amb(1) = 04:amb(2) = 64:amb(3) = 19:amb(4) = 34:amb(5) = 79:amb(6) = 49:ok = 1
If s1 = 21 And s2 = 24 And s3 = 81 Then amb(1) = 13:amb(2) = 73:amb(3) = 28:amb(4) = 43:amb(5) = 88:amb(6) = 58:ok = 1
'****************************dal GRANDE LIBRO DELLE DATE****************************
If s1 = 14 And s2 = 01 And s3 = 14 Then amb(1) = 43:amb(2) = 19:amb(3) = 27:amb(4) = 64:amb(5) = 72:amb(6) = 88:ok = 1
If s1 = 21 And s2 = 06 And s3 = 06 Then amb(1) = 75:amb(2) = 38:amb(3) = 14:amb(4) = 83:amb(5) = 59:amb(6) = 30:ok = 1
If s1 = 06 And s2 = 04 And s3 = 04 Then amb(1) = 36:amb(2) = 21:amb(3) = 17:amb(4) = 66:amb(5) = 62:amb(6) = 81:ok = 1
If s1 = 04 And s2 = 10 And s3 = 04 Then amb(1) = 25:amb(2) = 31:amb(3) = 43:amb(4) = 76:amb(5) = 88:amb(6) = 70:ok = 1
If s1 = 02 And s2 = 02 And s3 = 27 Then amb(1) = 56:amb(2) = 39:amb(3) = 10:amb(4) = 84:amb(5) = 55:amb(6) = 11:ok = 1
If s1 = 05 And s2 = 05 And s3 = 06 Then amb(1) = 47:amb(2) = 35:amb(3) = 18:amb(4) = 80:amb(5) = 63:amb(6) = 02:ok = 1
If s1 = 11 And s2 = 11 And s3 = 53 Then amb(1) = 35:amb(2) = 22:amb(3) = 32:amb(4) = 67:amb(5) = 77:amb(6) = 80:ok = 1
If s1 = 06 And s2 = 05 And s3 = 05 Then amb(1) = 43:amb(2) = 44:amb(3) = 21:amb(4) = 89:amb(5) = 66:amb(6) = 88:ok = 1
If s1 = 06 And s2 = 05 And s3 = 05 Then amb(1) = 29:amb(2) = 39:amb(3) = 13:amb(4) = 84:amb(5) = 58:amb(6) = 74:ok = 1
If s1 = 25 And s2 = 03 And s3 = 70 Then amb(1) = 75:amb(2) = 40:amb(3) = 24:amb(4) = 85:amb(5) = 69:amb(6) = 30:ok = 1
If s1 = 10 And s2 = 10 And s3 = 82 Then amb(1) = 73:amb(2) = 43:amb(3) = 38:amb(4) = 88:amb(5) = 83:amb(6) = 28:ok = 1
If s1 = 16 And s2 = 10 And s3 = 87 Then amb(1) = 61:amb(2) = 20:amb(3) = 31:amb(4) = 65:amb(5) = 76:amb(6) = 16:ok = 1
If s1 = 10 And s2 = 04 And s3 = 10 Then amb(1) = 85:amb(2) = 26:amb(3) = 31:amb(4) = 71:amb(5) = 76:amb(6) = 40:ok = 1
If s1 = 01 And s2 = 07 And s3 = 11 Then amb(1) = 83:amb(2) = 42:amb(3) = 34:amb(4) = 87:amb(5) = 79:amb(6) = 38:ok = 1
If s1 = 13 And s2 = 05 And s3 = 13 Then amb(1) = 51:amb(2) = 18:amb(3) = 15:amb(4) = 63:amb(5) = 60:amb(6) = 06:ok = 1
If s1 = 18 And s2 = 11 And s3 = 14 Then amb(1) = 33:amb(2) = 26:amb(3) = 44:amb(4) = 71:amb(5) = 89:amb(6) = 78:ok = 1
If s1 = 11 And s2 = 01 And s3 = 20 Then amb(1) = 69:amb(2) = 38:amb(3) = 43:amb(4) = 83:amb(5) = 88:amb(6) = 24:ok = 1
If s1 = 23 And s2 = 01 And s3 = 29 Then amb(1) = 81:amb(2) = 25:amb(3) = 08:amb(4) = 70:amb(5) = 53:amb(6) = 36:ok = 1
If s1 = 10 And s2 = 05 And s3 = 37 Then amb(1) = 83:amb(2) = 05:amb(3) = 44:amb(4) = 50:amb(5) = 89:amb(6) = 38:ok = 1
If s1 = 03 And s2 = 10 And s3 = 39 Then amb(1) = 75:amb(2) = 26:amb(3) = 19:amb(4) = 71:amb(5) = 64:amb(6) = 30:ok = 1




If ok = 1 Then

k = 9

Messaggio(ex)


For r = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(ex,r,p1)
b = Estratto(ex,r,p2)

For r1 = 1 To 10
For p3 = 1 To 5
c = Estratto(ex,r1,p3)
If r <> r1 And((a = s1 And b = s2 And c = s3) Or(a = s1 And b = s3 And c = s2) Or(a = s2 And b = s3 And c = s1)Or(a = s2 And b = s1 And c = s3)Or(a = s3 And b = s1 And c = s2)Or(a = s3 And b = s2 And c = s1)) Then



Scrivi "*************************************"
Scrivi "" & DataEstrazione(ex) & ""
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & "  Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & "  Spia " & c
Scrivi
ruote(1) = r
ruote(2) = r1
numeri1(1) = amb(1)
ImpostaGiocata 1,numeri1,ruote,posta,k
numeri2(1) = amb(1)
numeri2(2) = amb(2)
ImpostaGiocata 2,numeri2,ruote,poste,k
numeri2(1) = amb(1)
numeri2(2) = amb(3)
ImpostaGiocata 3,numeri2,ruote,poste,k
numeri2(1) = amb(1)
numeri2(2) = amb(4)
ImpostaGiocata 4,numeri2,ruote,poste,k
numeri2(1) = amb(1)
numeri2(2) = amb(5)
ImpostaGiocata 5,numeri2,ruote,poste,k
numeri4(1) = amb(6)
numeri4(2) = amb(2)
numeri4(3) = amb(3)
numeri4(4) = amb(4)
numeri4(5) = amb(5)
ImpostaGiocata 6,numeri4,ruote,postee,k

Gioca ex
End If
Next
Next
Next
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Immagine

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: AURORA FORMULE PER AMBATA E AMBO

Messaggio da luca92 » 23/02/2014, 14:53

FUNZIONA SEELE!!! :su:



Grazie! :su:




E' lentissimo, ma lì non ci si può far niente, però và! :su:






Ciao
Luca

:abb:
Ultima modifica di luca92 il 23/02/2014, 14:54, modificato 1 volta in totale.
Immagine




Immagine







Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti