Novità

Listato Vertibili......SPAZIOMETRIA

  • Creatore Discussione Creatore Discussione Blackmore
  • Data di inizio Data di inizio
B

Blackmore

Guest
Ciao, mi sono divertito a fare questo Listato/Metodo
con Spaziometria
Vediamo se alla prossima condizione ci regalerà una vincita..... :)


Codice: 
Sub Main()
	ColoreTesto 2
	Scrivi "--------------------------------------------------------------",1
	ColoreTesto 2
	Scrivi "********************* B L A C K M O R E  *********************",1
	ColoreTesto 2
	Scrivi "--------------------------------------------------------------",1
	ColoreTesto 2
	Scrivi "********************** C A G L I A R I ***********************",1
	ColoreTesto 2
	Scrivi "--------------------------------------------------------------",1
	ColoreTesto 2
	Scrivi "* QUANDO ESCE UN QUALSIASI AMBO VERTIBILE GIOCHIAMO 5 NUMERI *",1
	ColoreTesto 2
	Scrivi "--------------------------------------------------------------",1
	Scrivi
	ColoreTesto 0
	Dim ruota(10),amb(5),nu3(5),nu1(1),pt1(5),ruote(1)
	pt1(2) = 1
	pt1(3) = 0.80
	pt1(4) = 0.10
	pt1(5) = 0.10
	clp = 8
	ini = EstrazioneFin - 80
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		ruote(1) = 2
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,2,p)
				b = Estratto(es,2,p1)
				ok = 0
				If a = 12 And b = 21 Or a = 21 And b = 12 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 13 And b = 31 Or a = 31 And b = 13 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 14 And b = 41 Or a = 41 And b = 14 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 15 And b = 51 Or a = 51 And b = 15 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 16 And b = 61 Or a = 61 And b = 16 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 17 And b = 71 Or a = 71 And b = 17 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 18 And b = 81 Or a = 81 And b = 18 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 23 And b = 32 Or a = 32 And b = 23 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 24 And b = 42 Or a = 42 And b = 24 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 25 And b = 52 Or a = 52 And b = 25 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 26 And b = 62 Or a = 62 And b = 26 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 27 And b = 72 Or a = 72 And b = 27 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 28 And b = 82 Or a = 82 And b = 28 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 34 And b = 43 Or a = 43 And b = 34 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 35 And b = 53 Or a = 53 And b = 35 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 36 And b = 63 Or a = 63 And b = 36 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 37 And b = 73 Or a = 73 And b = 37 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 38 And b = 83 Or a = 83 And b = 38 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 45 And b = 54 Or a = 54 And b = 45 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 46 And b = 64 Or a = 64 And b = 46 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 47 And b = 74 Or a = 74 And b = 47 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 48 And b = 84 Or a = 84 And b = 48 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 56 And b = 65 Or a = 65 And b = 56 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 57 And b = 75 Or a = 75 And b = 57 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 58 And b = 85 Or a = 85 And b = 58 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 67 And b = 76 Or a = 76 And b = 67 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 68 And b = 86 Or a = 86 And b = 68 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If a = 78 And b = 87 Or a = 87 And b = 78 Then
					amb(1) = Fuori90(Estratto(es,2,1) + 18)
					amb(2) = Fuori90(Estratto(es,2,1) + 27)
					amb(3) = Fuori90(Estratto(es,2,1) + 47)
					amb(4) = Fuori90(Estratto(es,2,1) + 55)
					amb(5) = Fuori90(Estratto(es,2,1) + 56)
					ok = 1
				End If
				If ok = 1 Then
					co = co + 1
					Scrivi String(70,"*") & " Caso n°" & co,1
					Scrivi DataEstrazione(es) & " " & SiglaRuota(2) & " " & StringaEstratti(es,2) & "   * VERTIBILI BY BLACK *   " & a & " - " & b,1
					Scrivi String(70,"*"),1
					ruota(1) = 2
					cg = 0
					nu3(1) = amb(1)
					nu3(2) = amb(2)
					nu3(3) = amb(3)
					nu3(4) = amb(4)
					nu3(5) = amb(5)
					cg = cg + 1
					ImpostaGiocata cg,nu3,ruote,pt1,clp,2
					Gioca es
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub
 
Ultima modifica:
Mille grazie Black.:):):)

Un saluto e buona giornata/serata/notte.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
ciao ho reinstallato spaziometria e ho perduto tutti gli script che avevo. mi puoi rimandare il link dello script ambo gemellare a genova?

ti posso contattare per e-mail?

grazie
:)
 
Ciao Blackmore, finalmente dopo tanto tempo è uscito a Cagliari ambi vertibili.
In data 11 Febbraio è uscito a cagliari l'ambo 53-35 ma lo script non ha dato previsione
mentre ieri sera è uscito il 47-74 che è stato riconosciuto correttamente dando i numeri da giocare.
Come mai è un problema mio perchè ho la versione 1.2.90 oppure c'è qualcosa che non va nello script?
Inoltre facendo girare retroattivamente in data 7/5/11 e in data 4/6/11 mi riconosce come ambo vertibile
a cagliari il 37-74.
Ti ringrazio se puoi fare un controllino, saluti
 
vinci ha scritto:
Ciao Blackmore, finalmente dopo tanto tempo è uscito a Cagliari ambi vertibili.
In data 11 Febbraio è uscito a cagliari l'ambo 53-35 ma lo script non ha dato previsione
mentre ieri sera è uscito il 47-74 che è stato riconosciuto correttamente dando i numeri da giocare.
Come mai è un problema mio perchè ho la versione 1.2.90 oppure c'è qualcosa che non va nello script?
Inoltre facendo girare retroattivamente in data 7/5/11 e in data 4/6/11 mi riconosce come ambo vertibile
a cagliari il 37-74.
Ti ringrazio se puoi fare un controllino, saluti
Clicca per espandere...

Si, lo script per trovare anche gli ambi diametrali mancanti necessita di correzioni.

Il mio consiglio è di eliminare tutta la parte centrale (tutti gli Or che andrebbero, pure, raddoppiati)

e scrivere semplicemente

If A = Diametrale (B) Then

:) Buona Sera a tutti.
 
Eh si, questo script è vecchio, non ti trova alcuni ambi perchè dovrebbe essere
if a = 12 and b = 21 or a = 21 and b= 12, invece c'è solo... if a = 12 and b = 21, quindi se esce 21 - 12 il listato non lo legge
Ma a parte questo, è un metodo che a mio avviso non pagherà mai più, l'ho fatto con una vecchia versione di spaziometria ed i sommativi sono stati modificati (in meglio) da Luigi
Non ne vale la pena Vinci, questi script tra l'altro li ho accantonati.......

PS: SCARICATI L'ULTIMA VERSIONE DEL PROGRAMMA (v.1.3.39) QUELLA CHE HAI E' VECCHIAAAAAAAAAA
Ciao :D

HO REINSERITO LO SCRIPT FORMATTATO, MA E' VECCHIA STORIA
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 dicembre 2025
    Bari
    78
    53
    62
    77
    16
    Cagliari
    15
    58
    32
    39
    24
    Firenze
    85
    20
    39
    32
    29
    Genova
    17
    60
    15
    33
    43
    Milano
    13
    39
    14
    15
    34
    Napoli
    82
    76
    15
    24
    73
    Palermo
    40
    55
    78
    26
    08
    Roma
    23
    41
    17
    53
    76
    Torino
    52
    20
    70
    59
    65
    Venezia
    43
    58
    19
    08
    09
    Nazionale
    71
    55
    60
    04
    35
    Estrazione Simbolotto
    Venezia
    28
    37
    27
    40
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto