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 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto