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 22 novembre 2025
    Bari
    82
    08
    24
    45
    37
    Cagliari
    07
    16
    67
    74
    35
    Firenze
    76
    32
    44
    06
    51
    Genova
    22
    77
    19
    27
    89
    Milano
    46
    81
    56
    29
    85
    Napoli
    68
    90
    80
    06
    47
    Palermo
    31
    07
    43
    83
    19
    Roma
    08
    68
    17
    12
    57
    Torino
    87
    17
    61
    60
    58
    Venezia
    27
    05
    17
    72
    50
    Nazionale
    70
    76
    56
    81
    15
    Estrazione Simbolotto
    Torino
    26
    34
    10
    42
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto