Funzione FOR - NEXT - Quadrato Intellettuale

i legend · 3 Marzo 2017

Ciao le piramidi potrebbero restituire valori superiori a 90 va bene oppure bisogna inserire il fuori90?
Fatemi sapere altrimenti lo script è da corregere

avio · 3 Marzo 2017

ciao legend

secondo la guida che ho seguito ci sono valori superi a 90

credevo che facendo il for next da 1 a 90 fossero degli errori ma non credo certi ambi non hanno i tre numeri uguali

adesso lo sto corregendo " solo estetico" Tu che se bravo puoi renderlo più bello e veloce "

avio · 3 Marzo 2017

spero che sia utile

Codice:

'Option Explicit
Sub Main
    Dim g(9),num(3),k(9),fi(3),num2(2),rr(6),dd(6),yy(3),num3(6),va(3)
    g(1) = 35
    g(2) = 57
    g(3) = 79
    g(4) = 92
    g(5) = 24
    g(6) = 46
    g(7) = 68
    g(8) = 81
    g(9) = 13
    N1 = InputBox("Primo numero ")
    N2 = InputBox("Secondo numero ")
    Scrivi n1 & "  " & n2
    Scrivi
    z3 = n1
    z6 = n2
    Scrivi " PIRAMIDE N 1 "
    Call SOMDECA(z3,z6,num,g,c)
    k(1) = c
    s1 = n1
    s2 = n2
    B1 = 1
    Scrivi " PIRAMIDE N 2 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    S1 = Z3
    S2 = Z6
    Call SOMDECA(z3,z6,num,g,c)
    k(2) = c
    s1 = z3
    s2 = z6
    B1 = 1
    Scrivi " PIRAMIDE N 3 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(3) = c
    s1 = n1
    s2 = n2
    B1 = 3
    Scrivi " PIRAMIDE N 4 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(4) = c
    s1 = z3
    s2 = z6
    B1 = 3
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Scrivi " PIRAMIDE N 5 "
    Call SOMDECA(z3,z6,num,g,c)
    k(5) = c
    s1 = z3
    s2 = z6
    B1 = 7
    Scrivi " PIRAMIDE N 6 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(6) = c
    s1 = z3
    s2 = z6
    B1 = 3
    Scrivi " PIRAMIDE N 7 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(7) = c
    s1 = z3
    s2 = z6
    B1 = 7
    Scrivi " PIRAMIDE N 8 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(8) = c
    s1 = z3
    s2 = z6
    B1 = 3
    Scrivi " PIRAMIDE N 9 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(9) = c
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    fi(1) = Figura(k(1))
    fi(2) = Figura(k(4))
    fi(3) = Figura(k(5))
    'Scrivi fi(1) &  " " & fi(2) & " " & fi(3)
    num2(1) = fi(1)
    num2(2) = n1
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(1) = c
    num2(1) = fi(1)
    num2(2) = n2
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(2) = c
    num2(1) = fi(2)
    num2(2) = n1
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(3) = c
    num2(1) = fi(2)
    num2(2) = n2
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(4) = c
    num2(1) = fi(3)
    num2(2) = n1
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(5) = c
    num2(1) = fi(3)
    num2(2) = n2
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(6) = c
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''
    num2(1) = k(1)
    num2(2) = rr(1)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(1) = c
    num2(1) = k(1)
    num2(2) = rr(2)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(2) = c
    num2(1) = k(4)
    num2(2) = rr(3)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(3) = c
    num2(1) = k(4)
    num2(2) = rr(4)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(4) = c
    num2(1) = k(5)
    num2(2) = rr(5)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(5) = c
    num2(1) = k(5)
    num2(2) = rr(6)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(6) = c
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''
    num(1) = dd(1)
    num(2) = g(7)
    num(3) = dd(2)
    a = StringaNumeri(num,"",False)
    Call Test_Piramide(A,c)
    yy(1) = c
    num(1) = dd(3)
    num(2) = g(1)
    num(3) = dd(4)
    a = StringaNumeri(num,"",False)
    Call Test_Piramide(A,c)
    yy(2) = c
    num(1) = dd(5)
    num(2) = g(4)
    num(3) = dd(6)
    a = StringaNumeri(num,"",False)
    Call Test_Piramide(A,c)
    yy(3) = c
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    num3(1) = yy(1)
    num3(2) = k(1)
    num3(3) = yy(2)
    num3(4) = k(1)
    num3(5) = yy(3)
    a = StringaNumeri(num3,"",False)
    Call Test_Piramide(A,c)
    va(1) = Fuori90(c)
    'Scrivi c
    num3(1) = yy(1)
    num3(2) = k(4)
    num3(3) = yy(2)
    num3(4) = k(4)
    num3(5) = yy(3)
    a = StringaNumeri(num3,"",False)
    Call Test_Piramide(A,c)
    va(2) = Fuori90(c)
    'Scrivi c
    num3(1) = yy(1)
    num3(2) = k(5)
    num3(3) = yy(2)
    num3(4) = k(5)
    num3(5) = yy(3)
    a = StringaNumeri(num3,"",False)
    Call Test_Piramide(A,c)
    va(3) = Fuori90(c)
    'Scrivi c
    Scrivi" oooooooooooooooooooooooooooooooooooooo "
    Scrivi " NUMERI " & n1 & "  " & n2 & "   " & va(1) & " " & va(2) & " " & va(3)
    Scrivi
End Sub
Sub Test_Piramide(A,c)
    Scrivi A
    For X = 1 To Len(A) - 1
        Scrivi Piramide(A,x)
        If Piramide(A,x) < 100 Then c = Piramide(A,X):x = 11:Scrivi
    Next
End Sub
Function DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    z1 =(Decina(s1) + B1)
    If z1 > 9 Then z1 = z1 Mod 9
    z2 =(Cadenza(s1) + B1)
    If z2 > 9 Then z2 = z2 Mod 9
    z3 =(z1*10) + z2
    z4 =(Decina(s2) + B1)
    If z4 > 9 Then z4 = z4 Mod 9
    z5 =(Cadenza(s2) + B1)
    If z5 > 9 Then z5 = z5 Mod 9
    z6 =(z4*10) + z5
End Function
Function SOMDECA(z3,z6,num,g,c)
    x1 =(Decina(z3) + Decina(z6) + Cadenza(z3) + Cadenza(z6)) Mod 9
    If x1 = 0 Then x1 = 9
    num(1) = z3
    num(2) = g(x1)
    num(3) = z6
    a = StringaNumeri(num,"",False)
    Call Test_Piramide(a,c)
End Function

i legend · 3 Marzo 2017

Ciao Avio
grazie per il bravo ma sei troppo gentile
appena ho un attimo guardo il tuo script, mi concentro sempre su una cosa per volta . non sono multitasking

allora lo script sopra si puo lasciare cosi salvo altre indicazioni
ciao

avio · 3 Marzo 2017

i legend;n2050240 ha scritto:
Ciao Avio
grazie per il bravo ma sei troppo gentile
appena ho un attimo guardo il tuo script, mi concentro sempre su una cosa per volta . non sono multitasking
allora lo script sopra si puo lasciare cosi salvo altre indicazioni
ciao

ciao

lo script che chiedeva salvo per i 90 numeri e questo

poi c'è da fare quello per ruota che qui manca

hxxps://cosmogono.files.wordpress.com/2010/03/pico-della-mirandola.pdf " mettere tt al posto delle xx "

joe · 3 Marzo 2017

Buona Sera tutte/i.

Si diceva intellettuale ... ed al messaggio #15,

dell'opportunità in alcuni casi di lavorare con le stringhe.

Ripropongo ... lo stesso script con cui,

verificare come con "intellettuale" abbia dimostrato

che un numeretto senza lo zero ... porti ad errore,

oppure si debba procedere senza Fuori90 con 91.92.93.94

per ottenere un risultato "equivalente".

Cioè lavorando "in figura" anzicchè "in cadenza" o quantità.

Per inserire lo script si usa l' "Editor avanzato" del Forum.

Si accede ad esso partendo dalla berra dei titoli,

della finestra dove inseriamo i messaggi.

In alto a destra con il bottone centrale che ha una "A sottolineata".

Aperta la nuova finestra sempre nei titoli di essa,

c'è al centro il pulsante cancelletto "#".

Esso premuto inserisce [ c o d e ] [ / c o d e ]

e poi ancora in essa in alto a sinistra un pulsante a forma di foglio

con 2 parentesi triangolari < > serve per togliere la formattazione dello script

che si vuole incollare tra i tag "code" ovvero tra le 2 parentesi quadre centrali.

Codice:

Sub Main
Dim A,N

A  = Array (0,464614,791347,1234,01020304,"01020304",91929394)

For N = 1 To UBound (A)
Scrivi A(N),True
Pico (A(N))
Scrivi
Next

End Sub

Function  Pico (A)
Dim X
'ColoreTesto 2
For X = 1 To Len(A) - 2
Scrivi Piramide(A,X)
Next
'ColoreTesto 0
End Function

salvo50 · 3 Marzo 2017

Io l'ho finito, naturalmente alla mia maniera da dilettante, nel modo come l'ho fatto io il problema del numeretto con lo zero oppure no, non esiste, perche i vari passaggi sono tutti risultati di piramidi ed in queste piramidi lo zero non esiste perche è sostituito dal 9 per quanto riguarda l'inserimento del numeretto basta inserire un 9 al posto dello zero, essempio per il numero 5 si inserisce 95, il problema ci sarà quando, (ed in seguito lo farò) si farà un inserimento diretto da una qualsiasi ruota,

posto il mio

Codice:

Option Explicit
Sub Main
    Dim g1p1,g1p4,g1p5,g2p2,g3p3,g2p6,g2p7,g3p8,g3p9,fig(12),decnum(3),cadnum(3)
    Dim ap1(20),ap2(20),ap3(20),bp1,cp1,dp1,ep1,fp1,gp1,a,fisso1,fisso2
    Dim ag2num,bg2num,aag2num,bbg2num,ag3num,bg3num,aag3num,bbg3num
    Dim g1p10,g1p11,g2p12,g2p13,g3p14,g3p15,g1p16,g2p17,g3p18,g1p19,g2p20,g3p21
    ReDim g1Num(3),g1Num2(3),g1Num3(5)
    ReDim g2Num(3),g2Num2(3),g2Num3(5)
    ReDim g3num(3),g3num2(3),g3num3(5)
    Scrivi
    g1Num(1) = 24
    g1Num(3) = 32
    fig(1) = FuoriX(((g1Num(1) + g1Num(3)) + 9),9)
    If fig(1) = 1 Then g1Num(2) = 35
    If fig(1) = 2 Then g1Num(2) = 57
    If fig(1) = 3 Then g1Num(2) = 79
    If fig(1) = 4 Then g1Num(2) = 92
    If fig(1) = 5 Then g1Num(2) = 24
    If fig(1) = 6 Then g1Num(2) = 46
    If fig(1) = 7 Then g1Num(2) = 68
    If fig(1) = 8 Then g1Num(2) = 81
    If fig(1) = 9 Then g1Num(2) = 13
    g1p1 = StringaNumeri(g1Num,"",True)
    ap1(1) = Piramide(g1p1,1)
    ap1(2) = Piramide(g1p1,2)
    ap1(3) = Piramide(g1p1,3)
    ap1(4) = Piramide(g1p1,4)
    'calcoli gruppo 2 seconda piramide
    fisso1 = 33
    ag2num = FuoriX(Decina(g1Num(1)) + Decina(fisso1),9)
    bg2num = FuoriX(Cadenza(g1Num(1)) + Cadenza(fisso1),9)
    g2Num(1) = ag2num & bg2num
    aag2num = FuoriX(Decina(g1Num(3)) + Decina(fisso1),9)
    bbg2num = FuoriX(Cadenza(g1Num(3)) + Cadenza(fisso1),9)
    g2Num(3) = aag2num & bbg2num
    fig(2) = FuoriX(((g2Num(1) + g2Num(3)) + 9),9)
    If fig(2) = 1 Then g2Num(2) = 35
    If fig(2) = 2 Then g2Num(2) = 57
    If fig(2) = 3 Then g2Num(2) = 79
    If fig(2) = 4 Then g2Num(2) = 92
    If fig(2) = 5 Then g2Num(2) = 24
    If fig(2) = 6 Then g2Num(2) = 46
    If fig(2) = 7 Then g2Num(2) = 68
    If fig(2) = 8 Then g2Num(2) = 81
    If fig(2) = 9 Then g2Num(2) = 13
    g2p2 = StringaNumeri(g2Num,"",True)
    ap2(1) = Piramide(g2p2,1)
    ap2(2) = Piramide(g2p2,2)
    ap2(3) = Piramide(g2p2,3)
    ap2(4) = Piramide(g2p2,4)
    'calcoli gruppo 3 terza piramide
    ag3num = FuoriX(Decina(g2Num(1)) + Decina(fisso1),9)
    bg3num = FuoriX(Cadenza(g2Num(1)) + Cadenza(fisso1),9)
    g3num(1) = ag3num & bg3num
    aag3num = FuoriX(Decina(g2Num(3)) + Decina(fisso1),9)
    bbg3num = FuoriX(Cadenza(g2Num(3)) + Cadenza(fisso1),9)
    g3num(3) = aag3num & bbg3num
    fig(3) = FuoriX(((g3num(1) + g3num(3)) + 9),9)
    If fig(3) = 1 Then g3num(2) = 35
    If fig(3) = 2 Then g3num(2) = 57
    If fig(3) = 3 Then g3num(2) = 79
    If fig(3) = 4 Then g3Num(2) = 92
    If fig(3) = 5 Then g3num(2) = 24
    If fig(3) = 6 Then g3num(2) = 46
    If fig(3) = 7 Then g3num(2) = 68
    If fig(3) = 8 Then g3num(2) = 81
    If fig(3) = 9 Then g3num(2) = 13
    g3p3 = StringaNumeri(g3num,"",True)
    ap3(1) = Piramide(g3p3,1)
    ap3(2) = Piramide(g3p3,2)
    ap3(3) = Piramide(g3p3,3)
    ap3(4) = Piramide(g3p3,4)
    ' visualizzazione piramidi 1-2-3
    ColoreTesto 1
    Scrivi "     Gruppo:1                   Gruppo:2                  Gruppo:3  ",1
    Scrivi "    Piramide:1                 Piramide:2                Piramide:3 ",1
    ColoreTesto 0
    Scrivi
    Scrivi "     " & g1p1 & "                     " & g2p2 & "                     " & g3p3,1
    Scrivi "     " & ap1(1) & "                      " & ap2(1) & "                      " & ap3(1),1
    Scrivi "     " & ap1(2) & "                       " & ap2(2) & "                       " & ap3(2),1
    Scrivi "     " & ap1(3) & "                        " & ap2(3) & "                        " & ap3(3),1
    Scrivi "     " & ap1(4) & "                         " & ap2(4) & "                         " & ap3(4),1
    'calcoli piramidi 4 e 5
    fig(4) = FuoriX(Decina(ap1(4)) + Cadenza(ap1(4)),9)
    g1p4 = fig(4)*100 + g1Num(1)
    bp1 = Piramide(g1p4,1)
    g1p5 = fig(4)*100 + g1Num(3)
    cp1 = Piramide(g1p5,1)
    'calcoli piramidi 6 e 7
    fig(5) = FuoriX(Decina(ap2(4)) + Cadenza(ap2(4)),9)
    g2p6 = fig(5)*100 + g1Num(1)
    dp1 = Piramide(g2p6,1)
    g2p7 = fig(5)*100 + g1Num(3)
    ep1 = Piramide(g2p7,1)
    'calcoli piramidi 8 e 9
    fig(6) = FuoriX(Decina(ap3(4)) + Cadenza(ap3(4)),9)
    g3p8 = fig(6)*100 + g1Num(1)
    fp1 = Piramide(g3p8,1)
    g3p9 = fig(6)*100 + g1Num(3)
    gp1 = Piramide(g3p9,1)
    'visualizzazione piramidi 4-5-6-7-8-9
    Scrivi
    ColoreTesto 2
    Scrivi "Pir:4   Pir:5            Pir:6      Pir:7            Pir:8      Pir:9 "
    ColoreTesto 0
    Scrivi "" & g1p4 & "     " & g1p5 & "              " & g2p6 & "        " & g2p7 & "              " & g3p8 & "        " & g3p9,1
    Scrivi "" & bp1 & "      " & cp1 & "               " & dp1 & "         " & ep1 & "               " & fp1 & "         " & gp1,1
    ' calcoli piramidi 10 e 11
    g1p10 = ap1(4)*100 + bp1
    ap1(5) = Piramide(g1p10,1)
    ap1(6) = Piramide(g1p10,2)
    g1p11 = ap1(4)*100 + cp1
    ap1(7) = Piramide(g1p11,1)
    ap1(8) = Piramide(g1p11,2)
    ' calcoli piramidi 12 e 13
    g2p12 = ap2(4)*100 + dp1
    ap2(5) = Piramide(g2p12,1)
    ap2(6) = Piramide(g2p12,2)
    g2p13 = ap2(4)*100 + ep1
    ap2(7) = Piramide(g2p13,1)
    ap2(8) = Piramide(g2p13,2)
    ' calcoli piramidi 14 e 15
    g3p14 = ap3(4)*100 + fp1
    ap3(5) = Piramide(g3p14,1)
    ap3(6) = Piramide(g3p14,2)
    g3p15 = ap3(4)*100 + gp1
    ap3(7) = Piramide(g3p15,1)
    ap3(8) = Piramide(g3p15,2)
    Scrivi
    'visualizzazione piramidi 10-11-12-13-14-15
    ColoreTesto 1
    Scrivi "Pir:10  Pir:11           Pir:12     Pir:13           Pir:14     Pir:15 "
    ColoreTesto 0
    Scrivi "" & g1p10 & "    " & g1p11 & "             " & g2p12 & "       " & g2p13 & "             " & g3p14 & "       " & g3p15,1
    Scrivi "" & ap1(5) & "     " & ap1(7) & "              " & ap2(5) & "        " & ap2(7) & "              " & ap3(5) & "        " & ap3(7),1
    Scrivi "" & ap1(6) & "      " & ap1(8) & "               " & ap2(6) & "         " & ap2(8) & "               " & ap3(6) & "         " & ap3(8),1
    'calcoli piramide 16
    g1Num2(1) = ap1(6)
    g1Num2(3) = ap1(8)
    fig(7) = FuoriX(((g1Num2(1) + g1Num2(3)) + 9),9)
    If fig(7) = 1 Then g1Num2(2) = 35
    If fig(7) = 2 Then g1Num2(2) = 57
    If fig(7) = 3 Then g1Num2(2) = 79
    If fig(7) = 4 Then g1Num2(2) = 92
    If fig(7) = 5 Then g1Num2(2) = 24
    If fig(7) = 6 Then g1Num2(2) = 46
    If fig(7) = 7 Then g1Num2(2) = 68
    If fig(7) = 8 Then g1Num2(2) = 81
    If fig(7) = 9 Then g1Num2(2) = 13
    g1p16 = StringaNumeri(g1Num2,"",True)
    ap1(9) = Piramide(g1p16,1)
    ap1(10) = Piramide(g1p16,2)
    ap1(11) = Piramide(g1p16,3)
    ap1(12) = Piramide(g1p16,4)
    ' calcoli piramide 17
    g2Num2(1) = ap2(6)
    g2Num2(3) = ap2(8)
    fig(8) = FuoriX(((g2Num2(1) + g2Num2(3)) + 9),9)
    If fig(8) = 1 Then g2Num2(2) = 35
    If fig(8) = 2 Then g2Num2(2) = 57
    If fig(8) = 3 Then g2Num2(2) = 79
    If fig(8) = 4 Then g2Num2(2) = 92
    If fig(8) = 5 Then g2Num2(2) = 24
    If fig(8) = 6 Then g2Num2(2) = 46
    If fig(8) = 7 Then g2Num2(2) = 68
    If fig(8) = 8 Then g2Num2(2) = 81
    If fig(8) = 9 Then g2Num2(2) = 13
    g2p17 = StringaNumeri(g2Num2,"",True)
    ap2(9) = Piramide(g2p17,1)
    ap2(10) = Piramide(g2p17,2)
    ap2(11) = Piramide(g2p17,3)
    ap2(12) = Piramide(g2p17,4)
    ' calcoli piramide 18
    g3num2(1) = ap3(6)
    g3num2(3) = ap3(8)
    fig(9) = FuoriX(((g3num2(1) + g3num2(3)) + 9),9)
    If fig(9) = 1 Then g3num2(2) = 35
    If fig(9) = 2 Then g3num2(2) = 57
    If fig(9) = 3 Then g3num2(2) = 79
    If fig(9) = 4 Then g3num2(2) = 92
    If fig(9) = 5 Then g3num2(2) = 24
    If fig(9) = 6 Then g3num2(2) = 46
    If fig(9) = 7 Then g3num2(2) = 68
    If fig(9) = 8 Then g3num2(2) = 81
    If fig(9) = 9 Then g3num2(2) = 13
    g3p18 = StringaNumeri(g3num2,"",True)
    ap3(9) = Piramide(g3p18,1)
    ap3(10) = Piramide(g3p18,2)
    ap3(11) = Piramide(g3p18,3)
    ap3(12) = Piramide(g3p18,4)
    Scrivi
    ColoreTesto 2
    Scrivi "    Pir:16                    Pir:17                     Pir:18"
    ColoreTesto 0
    Scrivi "    " & g1p16 & "                    " & g2p17 & "                     " & g3p18,1
    Scrivi "    " & ap1(9) & "                     " & ap2(9) & "                      " & ap3(9),1
    Scrivi "    " & ap1(10) & "                      " & ap2(10) & "                       " & ap3(10),1
    Scrivi "    " & ap1(11) & "                       " & ap2(11) & "                        " & ap3(11),1
    Scrivi "    " & ap1(12) & "                        " & ap2(12) & "                         " & ap3(12),1
    'calcoli piramide 19
    g1Num3(1) = ap1(12)
    g1Num3(2) = ap1(4)
    g1Num3(3) = ap2(12)
    g1Num3(4) = ap1(4)
    g1Num3(5) = ap3(12)
    g1p19 = StringaNumeri(g1Num3,"",True)
    ap1(13) = Piramide(g1p19,1)
    ap1(14) = Piramide(g1p19,2)
    ap1(15) = Piramide(g1p19,3)
    ap1(16) = Piramide(g1p19,4)
    ap1(17) = Piramide(g1p19,5)
    ap1(18) = Piramide(g1p19,6)
    ap1(19) = Piramide(g1p19,7)
    ap1(20) = Piramide(g1p19,8)
    'calcoli piramide 20
    g2Num3(1) = ap1(12)
    g2Num3(2) = ap2(4)
    g2Num3(3) = ap2(12)
    g2Num3(4) = ap2(4)
    g2Num3(5) = ap3(12)
    g2p20 = StringaNumeri(g2Num3,"",True)
    ap2(13) = Piramide(g2p20,1)
    ap2(14) = Piramide(g2p20,2)
    ap2(15) = Piramide(g2p20,3)
    ap2(16) = Piramide(g2p20,4)
    ap2(17) = Piramide(g2p20,5)
    ap2(18) = Piramide(g2p20,6)
    ap2(19) = Piramide(g2p20,7)
    ap2(20) = Piramide(g2p20,8)
    'calcoli piramide 21
    g3num3(1) = ap1(12)
    g3num3(2) = ap3(4)
    g3num3(3) = ap2(12)
    g3num3(4) = ap3(4)
    g3num3(5) = ap3(12)
    g3p21 = StringaNumeri(g3num3,"",True)
    ap3(13) = Piramide(g3p21,1)
    ap3(14) = Piramide(g3p21,2)
    ap3(15) = Piramide(g3p21,3)
    ap3(16) = Piramide(g3p21,4)
    ap3(17) = Piramide(g3p21,5)
    ap3(18) = Piramide(g3p21,6)
    ap3(19) = Piramide(g3p21,7)
    ap3(20) = Piramide(g3p21,8)
    Scrivi
    ColoreTesto 1
    Scrivi "    Pir:19                    Pir:20                     Pir:21"
    ColoreTesto 0
    Scrivi "  " & g1p19 & "                " & g2p20 & "                 " & g3p21,1
    Scrivi "  " & ap1(13) & "                 " & ap2(13) & "                  " & ap3(13),1
    Scrivi "  " & ap1(14) & "                  " & ap2(14) & "                   " & ap3(14),1
    Scrivi "  " & ap1(15) & "                   " & ap2(15) & "                    " & ap3(15),1
    Scrivi "  " & ap1(16) & "                    " & ap2(16) & "                     " & ap3(16),1
    Scrivi "  " & ap1(17) & "                     " & ap2(17) & "                      " & ap3(17),1
    Scrivi "  " & ap1(18) & "                      " & ap2(18) & "                       " & ap3(18),1
    Scrivi "  " & ap1(19) & "                       " & ap2(19) & "                        " & ap3(19),1
    Scrivi "  " & ap1(20) & "                        " & ap2(20) & "                         " & ap3(20),1
    Scrivi
    Scrivi
End Sub

salvo50 · 3 Marzo 2017

Ho fatto delle prove con quello di Avio e quello che ho fatto io cambiando gli ambi ed i risultati sono stati sempre uguali, per il fatto che possono venire i tre risultati finali diversi, io sono convinto che se non si è sbagliato niente dovrebbero venire sempre uguali, se vengono diversi è perche si sono sbagliati i calcoli, questo è come la penso io, ma mi posso anche sbagliare, ma se fosse veramente così non ci sarebbe bisogno di fare tutti questi passaggi, basterebbe fare i calcoli solo per una piramide finale invece di tre

i legend · 4 Marzo 2017

Bravo salvo
personalmente mi sarei perso...
Ora che ho capito il tutto provo a riscriverne uno seguendo la falsa riga di quello che avevo postato..
quello che ho fatto è da buttare in quanto non avevo calcolato piu di una coppia per volta..
a Domani
quando finisco Avio do uno sguardo anche al tuo...

joe · 4 Marzo 2017

Giusto quanto scrive Salvo

e quanto suggerisce l'autore,

meglio 91.92.93.94 che si sa cosa siano. Sono.

Alternativi a qualche "Fuori90" di cui, non si sa da dove arrivi.

Meglio anche andarci con calma ed avvedutezza.

Quindi questo nostro apparente remar-contro ... non lo è.

Piuttosto rappresenta una forma quasi trilaterale di tesi/antitesi/sintesi.

Ripropongo nuovamente la stessa coppia di Script/Main/Function.

Ove l'Array si compone di stringhe ed i rislutati paiono doppi ed anche tripli.

Coerenti ed allineati.

Sottolineo come nella Function ho aggiunto:

Pico = Piramide (...

Questo, fa si, che la funzione faccia il suo reale dovere:

Restituisca dei risultati (possibilmente esatti)

Cio detto faccio punto fermo a questo passaggio

ancora intermedio di ottimizzazione.

Codice:

Sub Main
Dim A,N

A  = Array ("0","464614","791347","01020304","91929394")

For N = 1 To UBound (A)
Scrivi A(N),True
Pico (A(N))
Scrivi
ColoreTesto 2
Scrivi Pico (A(N)),True
ColoreTesto 0
Scrivi
Next

End Sub

Function  Pico (A)

Dim X
For X = 1 To Len(A) - 2
Scrivi Piramide(A,X)
Next

Pico = Piramide(A,,2)

End Function

joe · 4 Marzo 2017

Buon giorno a tutte/i.

In questa nuova versione si nota come nella "Function"

vi fosse UNA istruzione / UN parametro / UN risultato.

In altre parole ... "pochino".

Una inconsistenza tale da "non giustificarla".

Codice:

Sub Main
Dim A,N
A = Array("0","464614","791347","01020304","91929394","745790","172433","418166")
For N = 1 To UBound(A)
Scrivi A(N) & " ",True,False
'Pico (A(N))
'Scrivi
ColoreTesto 2
Scrivi Pico(A(N)) & " ",True,False
ColoreTesto 0
ColoreTesto 1
Scrivi Piramide(A(N),,2) & " ",True
ColoreTesto 0
Scrivi
Next
End Sub
Function Pico(A)
'Dim X
'For X = 1 To Len(A) - 2
'Scrivi Piramide(A,X)
'Next
Pico = Piramide(A,,2)
End Function

Quindi si evidenzia (in Blu)

che è possibile ottenere il risultato

senza ricorrere al uso di "function"

Sfruttando bene l'istruzione dedicata,

come aveva l'aveva fatta Luigi,

e come l'aveva proposta ilegend.

Codice:

Sub Main
Dim A,N
A = Array("0","464614","791347","01020304","91929394","745790","172433","418166")
For N = 1 To UBound(A)
Scrivi A(N) & " ",True,False
Scrivi Piramide(A(N),,2) & " ",True,,,2
Scrivi
Next
End Sub

PS : Ho aggiunto all' Array

anche "la terna / test" che ilegend aveva proposto al messaggio #41.

salvo50 · 4 Marzo 2017

Ciao!

Perchè non me l'accetta, dove sto sbagliando?

If Decina(k1) = 0 Then : Decina(k1) = 9 : End If

joe · 4 Marzo 2017

salvo50;n2050362 ha scritto:
Ciao!

Perchè non me l'accetta, dove sto sbagliando?

If Decina(k1) = 0 Then : Decina(k1) = 9 : End If

I 2 punti dopo then ... non ci vanno ... ma non è quello.

Non si può imporre che la "decina zero" sia "=9"

semmai devi utilizzare UNA VARIABILE per contenere il risultato

e NON UNA ISTRUZIONE.

D = Decina (k1) : If D = 0 then D = 9

Anche End if se rimani un una sola linea è possibile meglio utile ometterlo.

avio · 4 Marzo 2017

ciao

seguito il consiglio di joe coretto l'errore adesso sono tutti i tre numeri uguali

il problema rimane sempre i numeretti non si sa come trattarli con 05 o 95 o 5

Codice:

'Option Explicit
Sub Main
    Dim g(9),num(3),k(9),fi(3),num2(2),rr(6),dd(6),yy(3),num3(6),va(3)
    g(1) = 35
    g(2) = 57
    g(3) = 79
    g(4) = 92
    g(5) = 24
    g(6) = 46
    g(7) = 68
    g(8) = 81
    g(9) = 13
    N1 = InputBox("Primo numero ")
    N2 = InputBox("Secondo numero ")
    Scrivi n1 & "  " & n2
    Scrivi
    z3 = n1
    z6 = n2
    Scrivi " PIRAMIDE N 1 "
    Call SOMDECA(z3,z6,num,g,c)
    k(1) = c
    s1 = n1
    s2 = n2
    B1 = 1
    Scrivi " PIRAMIDE N 2 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    S1 = Z3
    S2 = Z6
    Call SOMDECA(z3,z6,num,g,c)
    k(2) = c
    s1 = z3
    s2 = z6
    B1 = 1
    Scrivi " PIRAMIDE N 3 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(3) = c
    s1 = n1
    s2 = n2
    B1 = 3
    Scrivi " PIRAMIDE N 4 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(4) = c
    s1 = z3
    s2 = z6
    B1 = 3
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Scrivi " PIRAMIDE N 5 "
    Call SOMDECA(z3,z6,num,g,c)
    k(5) = c
    s1 = z3
    s2 = z6
    B1 = 7
    Scrivi " PIRAMIDE N 6 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(6) = c
    s1 = z3
    s2 = z6
    B1 = 3
    Scrivi " PIRAMIDE N 7 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(7) = c
    s1 = z3
    s2 = z6
    B1 = 7
    Scrivi " PIRAMIDE N 8 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(8) = c
    s1 = z3
    s2 = z6
    B1 = 3
    Scrivi " PIRAMIDE N 9 "
    Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    Call SOMDECA(z3,z6,num,g,c)
    k(9) = c
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    fi(1) = Figura(k(1))
    fi(2) = Figura(k(4))
    fi(3) = Figura(k(5))
    'Scrivi fi(1) &  " " & fi(2) & " " & fi(3)
    num2(1) = fi(1)
    num2(2) = n1
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(1) = c
    num2(1) = fi(1)
    num2(2) = n2
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(2) = c
    num2(1) = fi(2)
    num2(2) = n1
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(3) = c
    num2(1) = fi(2)
    num2(2) = n2
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(4) = c
    num2(1) = fi(3)
    num2(2) = n1
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(5) = c
    num2(1) = fi(3)
    num2(2) = n2
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    rr(6) = c
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''
    num2(1) = k(1)
    num2(2) = rr(1)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(1) = c
    num2(1) = k(1)
    num2(2) = rr(2)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(2) = c
    num2(1) = k(4)
    num2(2) = rr(3)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(3) = c
    num2(1) = k(4)
    num2(2) = rr(4)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(4) = c
    num2(1) = k(5)
    num2(2) = rr(5)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(5) = c
    num2(1) = k(5)
    num2(2) = rr(6)
    a = StringaNumeri(num2,"",False)
    Call Test_Piramide(A,c)
    dd(6) = c
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''
    num(1) = dd(1)
    num(2) = g(7)
    num(3) = dd(2)
    a = StringaNumeri(num,"",False)
    Call Test_Piramide(A,c)
    yy(1) = c
    num(1) = dd(3)
    num(2) = g(1)
    num(3) = dd(4)
    a = StringaNumeri(num,"",False)
    Call Test_Piramide(A,c)
    yy(2) = c
    num(1) = dd(5)
    num(2) = g(4)
    num(3) = dd(6)
    a = StringaNumeri(num,"",False)
    Call Test_Piramide(A,c)
    yy(3) = c
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    num3(1) = yy(1)
    num3(2) = k(1)
    num3(3) = yy(2)
    num3(4) = k(1)
    num3(5) = yy(3)
    a = StringaNumeri(num3,"",False)
    Call Test_Piramide(A,c)
    va(1) = Fuori90(c)
    'Scrivi c
    num3(1) = yy(1)
    num3(2) = k(4)
    num3(3) = yy(2)
    num3(4) = k(4)
    num3(5) = yy(3)
    a = StringaNumeri(num3,"",False)
    Call Test_Piramide(A,c)
    va(2) = Fuori90(c)
    'Scrivi c
    num3(1) = yy(1)
    num3(2) = k(5)
    num3(3) = yy(2)
    num3(4) = k(5)
    num3(5) = yy(3)
    a = StringaNumeri(num3,"",False)
    Call Test_Piramide(A,c)
    va(3) = Fuori90(c)
    'Scrivi c
    Scrivi" oooooooooooooooooooooooooooooooooooooo "
    Scrivi " NUMERI " & n1 & "  " & n2 & "   " & va(1) & " " & va(2) & " " & va(3)
    Scrivi
End Sub
Sub Test_Piramide(A,c)
    Scrivi A
    For X = 1 To Len(A) - 1
        Scrivi Piramide(A,x)
        If Piramide(A,x) < 100 Then c = Piramide(A,X):x = 11:Scrivi
    Next
End Sub
Function DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
    z1 =(Decina(s1) + B1)
    If z1 > 9 Then z1 = z1 Mod 9
    z2 =(Cadenza(s1) + B1)
    If z2 > 9 Then z2 = z2 Mod 9
    z3 =(z1*10) + z2
    z4 =(Decina(s2) + B1)
    If z4 > 9 Then z4 = z4 Mod 9
    z5 =(Cadenza(s2) + B1)
    If z5 > 9 Then z5 = z5 Mod 9
    z6 =(z4*10) + z5
End Function
Function SOMDECA(z3,z6,num,g,c)
    x1 =(Decina(z3) + Decina(z6) + Cadenza(z3) + Cadenza(z6)) Mod 9
    If x1 = 0 Then x1 = 9
    num(1) = z3
    num(2) = g(x1)
    num(3) = z6
    If num(1)<10 Then num(1)=90+num(1)
    If num(3)<10 Then num(3)=90+num(3)

    a = StringaNumeri(num,"",False)
    Call Test_Piramide(a,c)
End Function

salvo50 · 4 Marzo 2017

Grazie Joe

Ho modificato il mio script, e l'ho fatto per tutti i 4005 ambi, e controllando ho notato che non sempre i tre numeri finali sono tutte e tre uguali, quindi mi ero sbagliato a pensare che erano tutti uguali, per questo volevo all'inizio dare l'istruzione di cambiare la decina dei numeri da 0 a 9, comunque mi sono convinto che non cambia niente, quindi non l'ho cambiato, posto il codice

Codice:

Option Explicit
Sub Main
    Dim g1p1,g1p4,g1p5,g2p2,g3p3,g2p6,g2p7,g3p8,g3p9,fig(12),decnum(3),cadnum(3)
    Dim ap1(20),ap2(20),ap3(20),bp1,cp1,dp1,ep1,fp1,gp1,a,fisso1,k,k1,ri
    Dim ag2num,bg2num,aag2num,bbg2num,ag3num,bg3num,aag3num,bbg3num,riga,x
    Dim g1p10,g1p11,g2p12,g2p13,g3p14,g3p15,g1p16,g2p17,g3p18,g1p19,g2p20,g3p21
    ReDim g1Num(3),g1Num2(3),g1Num3(5)
    ReDim g2Num(3),g2Num2(3),g2Num3(5)
    ReDim g3num(3),g3num2(3),g3num3(5)
    Scrivi
    Scrivi " Nm Prog.           Ambo                Esito1                 esito2                 esito3"
    Scrivi
    For k1 = 1 To 89
        g1Num(1) = k1
        For k = k1 + 1 To 90
            ri = ri + 1

            g1Num(3) = k
            fig(1) = FuoriX(((g1Num(1) + g1Num(3)) + 9),9)
            If fig(1) = 1 Then g1Num(2) = 35
            If fig(1) = 2 Then g1Num(2) = 57
            If fig(1) = 3 Then g1Num(2) = 79
            If fig(1) = 4 Then g1Num(2) = 92
            If fig(1) = 5 Then g1Num(2) = 24
            If fig(1) = 6 Then g1Num(2) = 46
            If fig(1) = 7 Then g1Num(2) = 68
            If fig(1) = 8 Then g1Num(2) = 81
            If fig(1) = 9 Then g1Num(2) = 13
            g1p1 = StringaNumeri(g1Num,"",True)
            ap1(4) = Piramide(g1p1,4)
            'calcoli gruppo 2 seconda piramide
            fisso1 = 33
            ag2num = FuoriX(Decina(g1Num(1)) + Decina(fisso1),9)
            bg2num = FuoriX(Cadenza(g1Num(1)) + Cadenza(fisso1),9)
            g2Num(1) = ag2num & bg2num
            aag2num = FuoriX(Decina(g1Num(3)) + Decina(fisso1),9)
            bbg2num = FuoriX(Cadenza(g1Num(3)) + Cadenza(fisso1),9)
            g2Num(3) = aag2num & bbg2num
            fig(2) = FuoriX(((g2Num(1) + g2Num(3)) + 9),9)
            If fig(2) = 1 Then g2Num(2) = 35
            If fig(2) = 2 Then g2Num(2) = 57
            If fig(2) = 3 Then g2Num(2) = 79
            If fig(2) = 4 Then g2Num(2) = 92
            If fig(2) = 5 Then g2Num(2) = 24
            If fig(2) = 6 Then g2Num(2) = 46
            If fig(2) = 7 Then g2Num(2) = 68
            If fig(2) = 8 Then g2Num(2) = 81
            If fig(2) = 9 Then g2Num(2) = 13
            g2p2 = StringaNumeri(g2Num,"",True)
            ap2(4) = Piramide(g2p2,4)
            'calcoli gruppo 3 terza piramide
            ag3num = FuoriX(Decina(g2Num(1)) + Decina(fisso1),9)
            bg3num = FuoriX(Cadenza(g2Num(1)) + Cadenza(fisso1),9)
            g3num(1) = ag3num & bg3num
            aag3num = FuoriX(Decina(g2Num(3)) + Decina(fisso1),9)
            bbg3num = FuoriX(Cadenza(g2Num(3)) + Cadenza(fisso1),9)
            g3num(3) = aag3num & bbg3num
            fig(3) = FuoriX(((g3num(1) + g3num(3)) + 9),9)
            If fig(3) = 1 Then g3num(2) = 35
            If fig(3) = 2 Then g3num(2) = 57
            If fig(3) = 3 Then g3num(2) = 79
            If fig(3) = 4 Then g3Num(2) = 92
            If fig(3) = 5 Then g3num(2) = 24
            If fig(3) = 6 Then g3num(2) = 46
            If fig(3) = 7 Then g3num(2) = 68
            If fig(3) = 8 Then g3num(2) = 81
            If fig(3) = 9 Then g3num(2) = 13
            g3p3 = StringaNumeri(g3num,"",True)
            ap3(4) = Piramide(g3p3,4)
            'calcoli piramidi 4 e 5
            fig(4) = FuoriX(Decina(ap1(4)) + Cadenza(ap1(4)),9)
            g1p4 = fig(4)*100 + g1Num(1)
            bp1 = Piramide(g1p4,1)
            g1p5 = fig(4)*100 + g1Num(3)
            cp1 = Piramide(g1p5,1)
            'calcoli piramidi 6 e 7
            fig(5) = FuoriX(Decina(ap2(4)) + Cadenza(ap2(4)),9)
            g2p6 = fig(5)*100 + g1Num(1)
            dp1 = Piramide(g2p6,1)
            g2p7 = fig(5)*100 + g1Num(3)
            ep1 = Piramide(g2p7,1)
            'calcoli piramidi 8 e 9
            fig(6) = FuoriX(Decina(ap3(4)) + Cadenza(ap3(4)),9)
            g3p8 = fig(6)*100 + g1Num(1)
            fp1 = Piramide(g3p8,1)
            g3p9 = fig(6)*100 + g1Num(3)
            gp1 = Piramide(g3p9,1)
            'visualizzazione piramidi 4-5-6-7-8-9
            ' calcoli piramidi 10 e 11
            g1p10 = ap1(4)*100 + bp1
            ap1(6) = Piramide(g1p10,2)
            g1p11 = ap1(4)*100 + cp1
            ap1(8) = Piramide(g1p11,2)
            ' calcoli piramidi 12 e 13
            g2p12 = ap2(4)*100 + dp1
            ap2(6) = Piramide(g2p12,2)
            g2p13 = ap2(4)*100 + ep1
            ap2(8) = Piramide(g2p13,2)
            ' calcoli piramidi 14 e 15
            g3p14 = ap3(4)*100 + fp1
            ap3(6) = Piramide(g3p14,2)
            g3p15 = ap3(4)*100 + gp1
            ap3(8) = Piramide(g3p15,2)
            Scrivi
            'calcoli piramide 16
            g1Num2(1) = ap1(6)
            g1Num2(3) = ap1(8)
            fig(7) = FuoriX(((g1Num2(1) + g1Num2(3)) + 9),9)
            If fig(7) = 1 Then g1Num2(2) = 35
            If fig(7) = 2 Then g1Num2(2) = 57
            If fig(7) = 3 Then g1Num2(2) = 79
            If fig(7) = 4 Then g1Num2(2) = 92
            If fig(7) = 5 Then g1Num2(2) = 24
            If fig(7) = 6 Then g1Num2(2) = 46
            If fig(7) = 7 Then g1Num2(2) = 68
            If fig(7) = 8 Then g1Num2(2) = 81
            If fig(7) = 9 Then g1Num2(2) = 13
            g1p16 = StringaNumeri(g1Num2,"",True)
            ap1(12) = Piramide(g1p16,4)
            ' calcoli piramide 17
            g2Num2(1) = ap2(6)
            g2Num2(3) = ap2(8)
            fig(8) = FuoriX(((g2Num2(1) + g2Num2(3)) + 9),9)
            If fig(8) = 1 Then g2Num2(2) = 35
            If fig(8) = 2 Then g2Num2(2) = 57
            If fig(8) = 3 Then g2Num2(2) = 79
            If fig(8) = 4 Then g2Num2(2) = 92
            If fig(8) = 5 Then g2Num2(2) = 24
            If fig(8) = 6 Then g2Num2(2) = 46
            If fig(8) = 7 Then g2Num2(2) = 68
            If fig(8) = 8 Then g2Num2(2) = 81
            If fig(8) = 9 Then g2Num2(2) = 13
            g2p17 = StringaNumeri(g2Num2,"",True)
            ap2(12) = Piramide(g2p17,4)
            ' calcoli piramide 18
            g3num2(1) = ap3(6)
            g3num2(3) = ap3(8)
            fig(9) = FuoriX(((g3num2(1) + g3num2(3)) + 9),9)
            If fig(9) = 1 Then g3num2(2) = 35
            If fig(9) = 2 Then g3num2(2) = 57
            If fig(9) = 3 Then g3num2(2) = 79
            If fig(9) = 4 Then g3num2(2) = 92
            If fig(9) = 5 Then g3num2(2) = 24
            If fig(9) = 6 Then g3num2(2) = 46
            If fig(9) = 7 Then g3num2(2) = 68
            If fig(9) = 8 Then g3num2(2) = 81
            If fig(9) = 9 Then g3num2(2) = 13
            g3p18 = StringaNumeri(g3num2,"",True)
            ap3(12) = Piramide(g3p18,4)
            'calcoli piramide 19
            g1Num3(1) = ap1(12)
            g1Num3(2) = ap1(4)
            g1Num3(3) = ap2(12)
            g1Num3(4) = ap1(4)
            g1Num3(5) = ap3(12)
            g1p19 = StringaNumeri(g1Num3,"",True)
            ap1(13) = Piramide(g1p19,1)
            ap1(20) = Piramide(g1p19,8)
            'calcoli piramide 20
            g2Num3(1) = ap1(12)
            g2Num3(2) = ap2(4)
            g2Num3(3) = ap2(12)
            g2Num3(4) = ap2(4)
            g2Num3(5) = ap3(12)
            g2p20 = StringaNumeri(g2Num3,"",True)
            ap2(20) = Piramide(g2p20,8)
            'calcoli piramide 21
            g3num3(1) = ap1(12)
            g3num3(2) = ap3(4)
            g3num3(3) = ap2(12)
            g3num3(4) = ap3(4)
            g3num3(5) = ap3(12)
            g3p21 = StringaNumeri(g3num3,"",True)
            ap3(20) = Piramide(g3p21,8)
            Scrivi
            riga = riga & "     " & Format2(ri) & "            " & Format2(k1) & " " & Format2(k) & "                 " & ap1(20) & "                      " & ap2(20) & "                     " &(ap3(20))
            Scrivi riga
            riga = Null
        Next
    Next
End Sub

salvo50 · 4 Marzo 2017

Ritorno a pensarla come prima, se i tre risultati finali sono diversi è perche i calcoli sono sbagliati, infatti c'era un piccolissimo errore (che ho già corretto in tutti e due i codici) ed adesso lanciando questo script i tre risultati finali sono uguali, almeno a vista, dovrei fare una modifica di controllo, una specie di filtro, se c'è una terna disuguale far apparire nell'output l'ambo e la terna. A riguardo dei numeretti secondo me lo zero ci deve essere, c'è solo il problema che lo script ti dà come risposta il 9, finchè si fa una previone e si guarda a vista noi sappiamo che quel 9 corrisponde a zero, ma se si deve fare una ricerca in automatico, basta dirgli prima che quando la decina di un numero corrisponde a 9, quel 9 e uno 0

avio · 4 Marzo 2017

Fatto script per ruota secondo le regole di PICO fatta ricerca da 4000 a 9250 con cinquina a rotazione non ho trovato una sola estrazione

valdita con i 5 risultati uguali ...... mi sa che questi GRANDI estimatori dell'otto trovano una cinquina o altro e ci fanno un teorema

provero a modificarlo a modo mio vediamo cosa succede

i legend · 4 Marzo 2017

Ciao Confermo che anche a me i tre risultati finali coincidono in un unico numero.
Ho formattato i numeretti con lo zero
Ho Notato che quando si costruisce la stringa con le figure si usa semplicemente il numeretto .è corretto oppure bisognerebbe formattare anche la figura?

i legend · 4 Marzo 2017

X Avio
ho lanciato il tuo script
l ambo 22.82 restituisce 77 mentre il mio e quello di salvo 11
io ho implementato seguendo le istruzioni non conoscendo il metodo.
Forse bisognerebbe verificare.
ciao

avio · 4 Marzo 2017

ciao

ho un problema che NON capisco

dove sbaglio?

If ya(1) = ya(2) Then -----' qui i due numeri solo uguali e passa
Scrivi ya(1) & " gggggggggg " & ya(2)
Scrivi ya(1) & " bbbbbb " & va(1) -- qui controllo prima i due numeri e sono UGUALI
If ya(1) = va(1) Then ---- QUI NON PASSA ANCHE SE PRIMA HO CONTROLLATO CHE SONO UGUALI
cu = cu + 1
Scrivi" oooooooooooooooooooooooooooooooooooooo "
Scrivi " NUMERI rrtttttttttt " & n1 & " " & n2 & " " & va(1) & " " & va(2) & " " & va(3)
Scrivi
Scrivi ya(1) & " " & ya(2) & " hh " & si & " " & cu
Scrivi
Scrivi
End If
End If

Funzione FOR - NEXT - Quadrato Intellettuale

Premium Member

Senior Member

Senior Member

Premium Member

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Senior Member

Premium Member

Premium Member

Senior Member