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
    giovedì 21 maggio 2026
    Bari
    88
    65
    11
    87
    59
    Cagliari
    05
    64
    45
    80
    74
    Firenze
    37
    56
    25
    19
    36
    Genova
    29
    31
    90
    15
    17
    Milano
    73
    61
    45
    85
    48
    Napoli
    21
    85
    29
    48
    77
    Palermo
    40
    02
    66
    87
    51
    Roma
    23
    68
    57
    60
    26
    Torino
    44
    04
    76
    05
    57
    Venezia
    79
    86
    19
    29
    40
    Nazionale
    33
    54
    75
    39
    63
    Estrazione Simbolotto
    Milano
    27
    16
    30
    21
    26
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto