Novità

Dove stò sbagliando?

salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Con questo script,
ho sbagliato a premere ed è partito il post, comunque volevo solo sapere perchè in scriviresocondo da tutti zero
Grazie!
Codice: 
Option Explicit

Sub Main()
Dim ruota(1),posta(5)
Dim num(4),dec(6),cad(6),p1r2(5),p1r3(4),p1r4(3),p1r5(2)
Dim fig(1),xfig(1)
Dim k1,r1,a(6),es,fin,riga
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 0.1




fin = EstrazioneFin

r1 = FI_
es = fin - 100

Scrivi(" Estrazione n." & Format2(es) &     " del " & DataEstrazione(es)),0,0
'Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi
Scrivi
For es = es To fin

a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)



For k1 = 1 To 10
If k1 = 1 Then : num(1) = a(1) : num(3) = a(2): End If
If k1 = 2 Then : num(1) = a(2) : num(3) = a(3): End If
If k1 = 3 Then : num(1) = a(3) : num(3) = a(4): End If
If k1 = 4 Then : num(1) = a(4) : num(3) = a(5): End If
If k1 = 5 Then : num(1) = a(5) : num(3) = a(1): End If
If k1 = 6 Then : num(1) = a(1) : num(3) = a(3): End If
If k1 = 7 Then : num(1) = a(1) : num(3) = a(4): End If
If k1 = 8 Then : num(1) = a(2) : num(3) = a(4): End If
If k1 = 9 Then : num(1) = a(2) : num(3) = a(5): End If
If k1 = 10 Then : num(1) = a(3) : num(3) = a(5): End If



dec(1) = Decina(num(1))
cad(1) = Cadenza(num(1))
dec(3) = Decina(num(3))
cad(3) = Cadenza(num(3))
'-----------------------------------------
xfig(1) = dec(1) + cad(1) + dec(3) + cad(3)
fig(1) = FuoriX(((xfig(1)) + 9),9)

If fig(1) = 1 Then num(2) = 52
If fig(1) = 2 Then num(2) = 85
If fig(1) = 3 Then num(2) = 28
If fig(1) = 4 Then num(2) = 82
If fig(1) = 5 Then num(2) = 25
If fig(1) = 6 Then num(2) = 58
If fig(1) = 7 Then num(2) = 22
If fig(1) = 8 Then num(2) = 55
If fig(1) = 9 Then num(2) = 88

dec(2) = Decina(num(2))
cad(2) = Cadenza(num(2))



'calcoli  piramide
'seconda riga
p1r2(1) = dec(1) + cad(1)
p1r2(2) = cad(1) + dec(2)
p1r2(3) = dec(2) + cad(2)
p1r2(4) = cad(2) + dec(3)
p1r2(5) = dec(3) + cad(3)

If p1r2(1) > 9 Then p1r2(1) = p1r2(1) - 9
If p1r2(2) > 9 Then p1r2(2) = p1r2(2) - 9
If p1r2(3) > 9 Then p1r2(3) = p1r2(3) - 9
If p1r2(4) > 9 Then p1r2(4) = p1r2(4) - 9
If p1r2(5) > 9 Then p1r2(5) = p1r2(5) - 9
'terza riga
p1r3(1) = p1r2(1) + p1r2(2)
p1r3(2) = p1r2(2) + p1r2(3)
p1r3(3) = p1r2(3) + p1r2(4)
p1r3(4) = p1r2(4) + p1r2(5)

If p1r3(1) > 9 Then p1r3(1) = p1r3(1) - 9
If p1r3(2) > 9 Then p1r3(2) = p1r3(2) - 9
If p1r3(3) > 9 Then p1r3(3) = p1r3(3) - 9
If p1r3(4) > 9 Then p1r3(4) = p1r3(4) - 9
'quarta riga
p1r4(1) = p1r3(1) + p1r3(2)
p1r4(2) = p1r3(2) + p1r3(3)
p1r4(3) = p1r3(3) + p1r3(4)

If p1r4(1) > 9 Then p1r4(1) = p1r4(1) - 9
If p1r4(2) > 9 Then p1r4(2) = p1r4(2) - 9
If p1r4(3) > 9 Then p1r4(3) = p1r4(3) - 9
'quinta riga
p1r5(1) = p1r4(1) + p1r4(2)
p1r5(2) = p1r4(2) + p1r4(3)

If p1r5(1) > 9 Then p1r5(1) = p1r5(1) - 9
If p1r5(2) > 9 Then p1r5(2) = p1r5(2) - 9
'fine calcoli piramide

a(6) =(p1r5(1) & p1r5(2))

riga = riga & Format2(a(6)) & " "

Next
Scrivi "  " & Left(NomeRuota(r1),2) & " " & riga ' " " & StringaEstratti(es,r1) & ""& riga

riga = Null

ImpostaGiocata 1,a(6),r1,posta,3',1

Gioca es

Next
ScriviResoconto
End Sub
 
Ciao Salvo,

sperando che nello script non ci siano altri errori ...

Ho interfacciato numeri e ruota (quelli che m'è parso dovessero essere)

con quelli richiesti dall'istruzione "Gioca".

Codice: 
Option Explicit
Sub Main()
Dim ruota(1),posta(5)
Dim num(4),dec(6),cad(6),p1r2(5),p1r3(4),p1r4(3),p1r5(2)
Dim fig(1),xfig(1)
Dim k1,r1,a(6),ini,fin,es,riga
Dim nu
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 0.1
fin = EstrazioneFin
r1 = FI_
ruota(1) = r1
ini = fin - 100
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
'Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi
Scrivi
For es = ini To fin
a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)
For k1 = 1 To 10
If k1 = 1 Then : num(1) = a(1) : num(3) = a(2): End If
If k1 = 2 Then : num(1) = a(2) : num(3) = a(3): End If
If k1 = 3 Then : num(1) = a(3) : num(3) = a(4): End If
If k1 = 4 Then : num(1) = a(4) : num(3) = a(5): End If
If k1 = 5 Then : num(1) = a(5) : num(3) = a(1): End If
If k1 = 6 Then : num(1) = a(1) : num(3) = a(3): End If
If k1 = 7 Then : num(1) = a(1) : num(3) = a(4): End If
If k1 = 8 Then : num(1) = a(2) : num(3) = a(4): End If
If k1 = 9 Then : num(1) = a(2) : num(3) = a(5): End If
If k1 = 10 Then : num(1) = a(3) : num(3) = a(5): End If
dec(1) = Decina(num(1))
cad(1) = Cadenza(num(1))
dec(3) = Decina(num(3))
cad(3) = Cadenza(num(3))
'-----------------------------------------
xfig(1) = dec(1) + cad(1) + dec(3) + cad(3)
fig(1) = FuoriX(((xfig(1)) + 9),9)
If fig(1) = 1 Then num(2) = 52
If fig(1) = 2 Then num(2) = 85
If fig(1) = 3 Then num(2) = 28
If fig(1) = 4 Then num(2) = 82
If fig(1) = 5 Then num(2) = 25
If fig(1) = 6 Then num(2) = 58
If fig(1) = 7 Then num(2) = 22
If fig(1) = 8 Then num(2) = 55
If fig(1) = 9 Then num(2) = 88
dec(2) = Decina(num(2))
cad(2) = Cadenza(num(2))
'calcoli  piramide
'seconda riga
p1r2(1) = dec(1) + cad(1)
p1r2(2) = cad(1) + dec(2)
p1r2(3) = dec(2) + cad(2)
p1r2(4) = cad(2) + dec(3)
p1r2(5) = dec(3) + cad(3)
If p1r2(1) > 9 Then p1r2(1) = p1r2(1) - 9
If p1r2(2) > 9 Then p1r2(2) = p1r2(2) - 9
If p1r2(3) > 9 Then p1r2(3) = p1r2(3) - 9
If p1r2(4) > 9 Then p1r2(4) = p1r2(4) - 9
If p1r2(5) > 9 Then p1r2(5) = p1r2(5) - 9
'terza riga
p1r3(1) = p1r2(1) + p1r2(2)
p1r3(2) = p1r2(2) + p1r2(3)
p1r3(3) = p1r2(3) + p1r2(4)
p1r3(4) = p1r2(4) + p1r2(5)
If p1r3(1) > 9 Then p1r3(1) = p1r3(1) - 9
If p1r3(2) > 9 Then p1r3(2) = p1r3(2) - 9
If p1r3(3) > 9 Then p1r3(3) = p1r3(3) - 9
If p1r3(4) > 9 Then p1r3(4) = p1r3(4) - 9
'quarta riga
p1r4(1) = p1r3(1) + p1r3(2)
p1r4(2) = p1r3(2) + p1r3(3)
p1r4(3) = p1r3(3) + p1r3(4)
If p1r4(1) > 9 Then p1r4(1) = p1r4(1) - 9
If p1r4(2) > 9 Then p1r4(2) = p1r4(2) - 9
If p1r4(3) > 9 Then p1r4(3) = p1r4(3) - 9
'quinta riga
p1r5(1) = p1r4(1) + p1r4(2)
p1r5(2) = p1r4(2) + p1r4(3)
If p1r5(1) > 9 Then p1r5(1) = p1r5(1) - 9
If p1r5(2) > 9 Then p1r5(2) = p1r5(2) - 9
'fine calcoli piramide
a(6) =(p1r5(1) & p1r5(2))
riga = riga & " " & Format2(a(6))
Next
'Scrivi Left(NomeRuota(r1),2) & " " & riga,True ' " " & StringaEstratti(es,r1) & ""& riga
nu = Split(Trim(riga)," ")
riga = Null
Scrivi SiglaRuota(r1) & " " & StringaNumeri(nu),True
ImpostaGiocata 1,nu,ruota,posta,3',1
Gioca es
Next
ScriviResoconto
End Sub

:)
 
Ciao joe!

Grazie infinite, adesso va bene.

Se qualcuno volesse usare questo script, volevo precisare che questi numeri, 52 85 28 82 25 58 22 55 88 si possono cambiare a piacere, per esempio si possono inserire i numeri del - Quadrato Intellettuale - di Pico Della Mirandola, ecc.
Codice: 
If fig(1) = 1 Then num(2) = 52
If fig(1) = 2 Then num(2) = 85
If fig(1) = 3 Then num(2) = 28
If fig(1) = 4 Then num(2) = 82
If fig(1) = 5 Then num(2) = 25
If fig(1) = 6 Then num(2) = 58
If fig(1) = 7 Then num(2) = 22
If fig(1) = 8 Then num(2) = 55
If fig(1) = 9 Then num(2) = 88
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 giugno 2026
    Bari
    25
    62
    86
    19
    37
    Cagliari
    03
    65
    84
    69
    63
    Firenze
    84
    34
    83
    08
    26
    Genova
    19
    29
    90
    53
    32
    Milano
    75
    70
    86
    51
    35
    Napoli
    46
    48
    68
    37
    19
    Palermo
    16
    39
    87
    84
    74
    Roma
    29
    42
    65
    54
    80
    Torino
    77
    67
    68
    57
    45
    Venezia
    05
    82
    85
    42
    19
    Nazionale
    75
    27
    45
    33
    39
    Estrazione Simbolotto
    Napoli
    42
    15
    27
    08
    41
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto