Novità

Aiuto per script o file excel metodo di 5 ambi

nicotina

Super Member >PLATINUM<
AIUTO PER SCRIPT O FILE EXCEL METODO DI 5 AMBI SU' DUE RUOTE
1) SI RICERCA PER OGNI ESTRAZIONE AMBI SIMMETRICI DISTANZA 30 O 60.
2) TROVATI GLI AMBI SI GUaRDA L'ESTRAZIONE ANTECEDENTE E SI PRENDONO IN CONSIDERAZIONE SOLO GLI AMBI CHE SONO CONSECUTIVI ISOTOPI CIOE' NELLA STESSA POSIZIONE.A QUESTO PUNTO ANDIAMO A VEDERE NELL'ESTRAZIONE PRECEDENTE SE TROVIAMO UN AMBO NELLE STESSE POSIZIONI CON DISTANZA 30 O 60 . SE NON SI TROVA ASPETTIAMO LA SUCCESSIVA.
FACCIAMO UN ESEMPIO A CASO PER ELABORARE ITER OPERATIVO TROVO SU':
CAGLIARI ( AMBO 7. 37) IL NUMERO MANCANTE E' 67
NELL'ESTRAZIONE PRECEDENTE TROVO SU':
TORINO ( AMBO 18. 78) IL MUNERO MANCANTE E' 48
A QUESTO PUNTO SI PUO' ESEGUIRE LA PREVISIONE.
FACCIAMO LA SOTTRAZIONE FRA I NUMERETTI MANCANTI ( 67 - 48 = 19 SARA' L'AMBATA PRINCIPALE DA GIOCARE X 9 COLPI ) POI SOMMIAMO GLI AMBI TROVATI CON IL NUMERO MANCANTE :
7+37+67=111-90= 21
18+78+48= 54
A QUESTI NUMERETTI FACCIAMO IL DIAMETRALE :
21+45= 66
54-45=9
DA QUESTI QUATTRO NEMERETTI PRENDIAMO I PIU' GRANDI E FACCIAMO LA SOTTRAZIONE :
66-54= 12
I 5 AMBI DA GIOCARE SU CAGLIARI E TORINO SONO:
19. 21
19. 54
19.66
19.09
19.12
A presto Nicotina.
 
Ultima modifica:
salve a tutti voi
vedo che non mi aiuta nessuno con questo benedetto script o file excel questo a scelta di chi può darmi una mano per computerizzare. Fare sempre tutti i calcoli è molto dispendioso di tempo e tantissime volte si arriva al giorno dell'estrazione con un sacco di convergenze ancora da eseguire e non si riesce a concludere nulla.
A presto Nicotina
 
Ciao Gian_Attila,
seresti molto gentile, sai io non ci capisco proprio NIENTE in script o fogli Excel, fatico tante volte a collegarmi figurati.
Attendo Cortesemente un tuo AIUTO, GRAZIE di CUORE
Nicotina
 
CIAO Gian_Attila, Grazie per esserti messo ad aiutarmi, ricordati che per eseguire questo metodo dobbiamo trovare le Ternine Simmetriche distanza 30 o 60, la ricerca deve e essere fatta isotopa e consecutiva, cioè se troviamo l'ambo oggi 30 Marzo 2013 possiamo guardare l'estrazione prima o pure aspettiamo quella successiva, mai sulla stessa ruota ma con ruote diverse, penso di essere stato chiaro fino a qui.
Ora ti posto quello che ho elaborato io questo mese, non è facile ma con un pò di concentrazione viene molto bene :
RINTRACCIATO L'AMBO IN DISTANZA 30 = 57 87 SU' GENOVA DEL 05 MARZO 2013 ED UNO SU' BARI DEL 07 MARZO 2013, 14 74 DISTANZA 60. CON DISTANZA 60 ISOTOPI ( CIOE' NELLA STESSA POSIZIONE 2° E 4° ). SI POTEVA TROVARE ANCHE DI 30 ANDAVA BENE UGUALE, SEMPRE ISOTOPI E' REGOLA, LE RUOTE DI RICERCA SONO TUTTE. ESTRAZIONE DEL 05 MARZO 2013
GENOVA 39 57 80 87 48 (57 E 87) DISTANZA 30
ESTRAZIONE DEL 07 MARZO 2013
BARI 18 14 50 74 11( 14 E 74) DISTANZA 60
SI PROCEDE CON L'ANALISI CABALISTICO MATEMATICA.
GLI AMBI SONO:
GE 57 87 ELEMENTO MANCANTE 27
BA 14 74 ELEMENTO MANCANTE 44
ORA SI PROCEDE CON LA SOTTRAZIONE DEI 2 VALORI 27 E 44 RINTRACCIATI CIOE':
44 - 27 = 17 CAPOGIOCO PER AMBATA X 9 ESTRAZIONI
ORA CALCOLO GLI ABBINAMENTI AMBI SECONDARI SOMMANDO IL NUMERO MANCANTE ALLA SOMMA DELL'AMBO DELLA TERZINA, CIOE':
BA 14 + 74 = 88 + 44 = 132 - 90 = 42
GE 57 + 87 = 144- 90 = 54 + 27 = 81
NUMERI RICAVATI SONO: 42 E 81
ORA DEVO TROVARE IL DIAMETRALE 45, SE SUPERIORE A 45 SOTTRAGGO SE INFERIORE A 45 ADDIZIONO.
42 + 45 = 87
81 - 45 = 36
RIEPILOGANDO I 4 VALORI NUMERICI SONO: 42 81 87 36 PRENDENDO IN CONSIDERAZIONE I VALORI PIU' ALTI 81 E 87 DA ABBINARE ALLA NOSTRA AMBATA PRINCIPALE 17
IL QUINTO ABBINAMENTO VERRA' CALCOLATO DALLA SOTTRAZIONE DEI PRIMI DUE ABBINAMENTI E CIOE' :
81 - 42 = 39 QUINTO ABBINAMENTO AL 17 CAPOGIOCO.
COSI' I 5 ABBINAMENTI AL 17 SONO : 39. 36. 87. 81. 42

SPERO DI ESSERE STATO CHIARO SAI QUANDO SI CERCA DI FAR CAPIRE UNA PROCEDURA TANTISSIME VOLTE SI SCRIVE TANTO PER RICAVARE POCO.
DI NUOVO GRAZIE PER IL TUO IMPEGNO Nicotina

 
Ultima modifica:
Scusate l'intromissione ,ma vedo solo ora.
Senza nulla toglire alla buona volonta di Gian_Attila ho fatto lo script del metodo, Prima di postare commenti in merito ai risultati vorrei che verificassi più esiti.


Sub Main()
Dim am(2),am1(6)
Dim ruote(2)
Dim ruot(1)
Dim posta(5)
Dim poste(5)
posta(1) = 1
poste(2) = 1
poste(3) = 1

casi = 0
fin = EstrazioneFin
ini = EstrazioneIni + 8550
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p = 1 To 4
For p1 = p + 1 To 5
For r1 = 1 To 10
For p2 = 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r,p1)
c = Estratto(es-1,r1,p2)
d = Estratto(es-1,r1,p3)
If Distanza(a,b) = 30 Or Distanza(a,b) = 60 Then
If Distanza(c,d) = 30 Or Distanza(c,d) = 60 Then
If r <> r1 Then
If p = p2 Or p = p3 Then
If p1 = p2 Or p1 = p3 Then

ColoreTesto 1
Scrivi "-----------------------------------------------------------------------------------"
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & StringaEstratti(es,r) & " ---> " & Format2(a) & " " & Format2(b)
ColoreTesto 2
Scrivi DataEstrazione(es-1) & " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es-1,r1) & " ---> " & Format2(c) & " " & Format2(d)

ruote(1) = r
ruote(2) = r1
ColoreTesto 0

el1 = Fuori90(a+30)
el2 = Fuori90(a+60)
em1 = el1
If el1 = b Then
em1 = el2
End If
el3 = Fuori90(c+30)
el4 = Fuori90(c+60)
em2 = el3
If el3 = d Then
em2 = el4
End If

am(1) = Differenza(em1,em2)
ImpostaGiocata 1,am,ruote,posta,12,1
am1(1) = am(1)
am1(2) = Fuori90(a+el1+el2)
am1(3) = Fuori90(c+el3+el4)
am1(4) = Diametrale(am1(2))
am1(5) = Diametrale(am1(3))
am1(6) = Differenza(am1(2),am1(3))
ImpostaGiocata 2,am1,ruote,poste,12,2
Gioca es
casi = casi + 1
If ScriptInterrotto Then Exit Sub
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: " & CInt(casi)
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 settembre 2025
    Bari
    24
    27
    08
    70
    68
    Cagliari
    75
    27
    64
    20
    17
    Firenze
    53
    20
    46
    14
    39
    Genova
    38
    72
    71
    36
    65
    Milano
    24
    43
    76
    19
    26
    Napoli
    32
    70
    51
    23
    48
    Palermo
    23
    73
    55
    64
    62
    Roma
    66
    58
    15
    49
    55
    Torino
    84
    22
    38
    29
    64
    Venezia
    47
    52
    56
    35
    89
    Nazionale
    04
    49
    67
    57
    05
    Estrazione Simbolotto
    Palermo
    07
    18
    33
    28
    19
Indietro
Alto