Novità

aiuto x script tecnica lunare

nicotina

Super Member >PLATINUM<
CHIEDO CORTESEMENTE A CHI E' CAPACE DI FARE SCRIPT DI SVILUPPARMI QUESTA TECNICA, RINGRAZIO DI CUORE CHIUNQUE SI PRESTI NELLA COLLABORAZIONE PER IL MOTTO " BATTIAMO GOLIA ".
la tecnica lunare del'ambo uguale
All'uscita di un ambo uguale in una qualsiasi estrazione su due ruote diverse si
faranno i seguente calcoli per mettere in gioco un ambo secco e due terni secchi
sortito l'ambo ripetuto si sommerano i due elemente che lo compongono ( con il fuori
90 se il risultato dovesse essere superiore a 90) e successivamente si calcola il
suo diametrale.I due capigiochi si giocheranno per ambo secco.
Per la formazione del primo terno si sommeranno per si stessi gli elementi dell'ambo
uguale e gli si abbina il primo capogioco che costruisci dalla somma tra questi due.
L'altro terno sara formato invece dai diametrale dei due elementi e gli si abbina
il secondo capogioco che costruisce come numero diametrale della somma
ESEMPIO: 20/01/09
FIRENZE-TORINO si verifeca l'ambo uguale 44-79
- Sommiamo i numeri che formano l'ambo repetuto
44+79= 33
- Calcoliamo il diametrale del risultato ottenuto, ovvero dell'33
33+45 = 78
il 33 e il 78 formeranno l'ambo principale
-CALCOLO PRIMO TERNO:
Sommeremo per si stessi gli elementi dell'ambo abbinandoli alla somma dei due
44 + 44 = 88
79 + 79 = 68
- primo terno
capogioco e i suoi due abbinamenti: 33/ + 68-88
-CALCOLO SECONDO TERNO:
Calcoliamo i diametrali dei due elementi dell'ambo abbinandoli al diametrali
della loro somma
44 + 45 = 89
79 - 45 = 34
-secondo terno
capogioco e i suoi due abbinamenti: 78/+34-89
PREVISIONE
AMBO SECCO: 33-78
TERNI:
33/+68-88
78/+34-89
AL primo colpo ambo 33-68 su firenze
A PRESTO NICOTINA
 
ciao nicotina

spero sia corretto

Codice:
Sub main()
Dim rt(3)
Dim ruot(1)
Dim nu(2)
Dim nu1(6)
Dim nu2(6)
Dim nu3(10)
Dim posta(1)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
poste(4)=1

clp=12

ini=EstrazioneFin -200
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 10
rt(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,pp)
For rr=r+1 To 11
If rr=11 Then rr=12
rt(2)=rr
rt(3)=12
For q=1 To 4
For qq=q+1 To 5
c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
If (a=c And b=d) Or (a=d And b=c) Then
co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&" Ambo "&a&"-"&b&" in pos. "&p&"^ e "&pp&"^"
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)&" Ambo "&a&"-"&b&" in pos. "&q&"^ e "&qq&"^"
If p=q And pp=qq Then ColoreTesto 2 : txx=" Condizione  ISOTOPA " Else ColoreTesto 1 : txx=" Condizione non Isotopa"
'ColoreTesto 2
Scrivi "Gli Ambi sono in  "& txx
ColoreTesto 0
s1=Fuori90(a+b)
s2=Diametrale(s1)
nu(1)=s1
nu(2)=s2
ImpostaGiocata 1,nu,rt,posta,clp,0
nu1(1)=s1
nu1(2)=s2
nu1(3)=Fuori90(a*2)
nu1(4)=Fuori90(b*2)
ImpostaGiocata 2,nu1,rt,poste,clp,0
ruot(1)=11
ImpostaGiocata 3,nu1,ruot,poste,clp,0
nu2(1)=s1
nu2(2)=s2
nu2(3)=Diametrale(a)
nu2(4)=Diametrale(b)
ImpostaGiocata 4,nu2,rt,poste,clp,0
ruot(1)=11
ImpostaGiocata 5,nu2,ruot,poste,clp,0
nu3(1)=s1
nu3(2)=s2
nu3(3)=nu1(3)
nu3(4)=nu1(4)
nu3(5)=nu2(3)
nu3(6)=nu2(4)
ImpostaGiocata 6,nu3,ruot,poste,clp,0

Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto

End Sub

buona giornata
 
salve Franca46, hai eseguito molto bene il testo ma nello script vi sono delle ripetizioni che io non riesco a spiegarmi essendo zero negli script, magari puoi rivedere l'elaborato e se puoi eliminare i numeri ripetuti Grazie di cuore
Nicotina
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 ottobre 2025
    Bari
    89
    74
    27
    47
    37
    Cagliari
    78
    13
    22
    83
    44
    Firenze
    56
    79
    68
    59
    75
    Genova
    74
    40
    71
    57
    18
    Milano
    88
    11
    33
    07
    84
    Napoli
    53
    25
    49
    83
    85
    Palermo
    49
    25
    85
    20
    11
    Roma
    14
    50
    75
    10
    13
    Torino
    43
    67
    36
    72
    73
    Venezia
    88
    55
    26
    59
    37
    Nazionale
    15
    49
    18
    21
    20
    Estrazione Simbolotto
    18
    24
    21
    32
    33
Indietro
Alto