Novità

correzione script

Settenario

Super Member >PLATINUM<
.. è possibile rendere funzionante lo script seguente , di enplein, su spaziometria


Sub Main()
Dim ruote(10)
Dim a(5)
Dim a2(5)
Dim ab(5)
Dim a1(4)
Dim aa(4)
Dim xx(4)
Dim xz(4)
Dim xc(4)
Dim nr(4)
Dim poste(2)
Dim poste1(3)
poste1(2)=1.50
poste1(3)=.50
t=0
ini=InputBox("Estrazione iniziale: ",,EstrazioneFin-100)
fin=InputBox("Estrazione finale: ",,EstrazioneFin)

'--------------------------------------------------------------------------------
Scrivi
Scrivi
ColoreTesto 3
Scrivi String(40," ")&"****** DOMENICO MANNA ****** ",1
Scrivi String(42," ")&" CON IL METODO",1
Scrivi String(40," ")&"****** L'EQUAZIONE MANDOM ****** ",1
Scrivi
ColoreTesto 0
Scrivi String(40," ")&"****** Rendiconto ****** ",1

Scrivi String(40," ")& DataEstrazione(ini)&" - "& DataEstrazione(fin)
Scrivi
'------------------------------------------------------------
For es = ini To fin
For rt=1 To 10
For p=1 To 5
a(p)=Estratto(es,rt,p): a2(p)=Fuori90(a(p)*2)
Next
For k=1 To 5
l=0
For pp= 1 To 5
ab(pp)=Estratto(es,rt,pp)
If k<>pp Then
l=l+1
a1(l)=90-ab(pp)
aa(l)=Fuori90(a2(k)+a1(l))
End If
Next
For m=1 To 10
If m<>rt Then
s=0
For i=1 To 5
For y=1 To 4
If Estratto(es,m,i)=aa(y) Then
s=s+1
xx(s)=aa(y)
xz(s)=a1(y)
xc(s)=Fuori90((90-a1(y))*2)
End If
Next
Next
If s=2 Then
nz=Fuori90(xz(1)+xc(2))
nc=Fuori90(xz(2)+xc(1))
d1=Distanza(nz,nc)
If nz<>nc Then
If d1=3 Or d1=9 Or d1=15 Or d1=21 Or d1=33 Or d1=39 Then
nr(1)=Fuori90((nz+90)-xx(1))
nr(2)=Fuori90((nc+90)-xx(1))
nr(3)=Fuori90((nz+90)-xx(2))
nr(4)=Fuori90((nc+90)-xx(2))
ruote(1)=rt
ruote(2)=m
'Controllo della presenza dell'ambo sulle due ruote di ricerca, o di un numero sulle ruote basi di estrazione.
ex=es-34
sf1=SerieFreq(es,es,nr,ruote,1)
sf=SerieFreq(ex,es,nr,ruote,2)
If sf=0 And sf1=0 Then
t=t+1
Scrivi
Scrivi"-------------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(rt),2)&" "& StringaNumeri(a)&" ** "& StringaNumeri(aa)&" Quart.Cicl.:"& " " &_
Left(NomeRuota(m),2)& " " & StringaEstratti(es,m) & " " &" Numeri Gener. "& Format2(xx(1))&"."& Format2(xx(2))&"-"& Format2(nz)&_
"."& Format2(nc)
Scrivi"-------------------------------------------------------------------------------------------------------"
Scrivi String(80," ")&"Giocata n°"& Format2(t)
ImpostaGiocata 1,nr,ruote,poste1,34,3
ImpostaInterruzioni 1,1,2
'esegue la giocata
If es>(fin-34) Then
Gioca es,,True
Else
Gioca es,True,True
End If
For zz=1 To 1
If Esito(zz)=False Then
ce=ce+1
End If
If ce=1 And es<(fin-34) Then
ColoreTesto 2
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(rt),2)&" - "& Left(NomeRuota(m),2)&" "& StringaNumeri(nr) &String(49," ")&"ESITO NEGATIVO al "& DataEstrazione(es+34),1
ColoreTesto 0
Scrivi ""
End If
Next
ce=0
'------------------
End If
End If
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=")&"listato da franco florindi",1
ColoreTesto 0
End Sub

grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34

Ultimi Messaggi

Indietro
Alto