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
    giovedì 23 ottobre 2025
    Bari
    81
    19
    12
    57
    40
    Cagliari
    20
    69
    66
    49
    48
    Firenze
    39
    15
    41
    70
    69
    Genova
    59
    83
    42
    07
    08
    Milano
    42
    25
    02
    14
    68
    Napoli
    29
    28
    38
    56
    82
    Palermo
    08
    28
    32
    90
    74
    Roma
    48
    07
    32
    55
    34
    Torino
    31
    85
    24
    54
    87
    Venezia
    86
    72
    67
    69
    34
    Nazionale
    67
    32
    58
    81
    34
    Estrazione Simbolotto
    43
    22
    12
    01
    33
Indietro
Alto