Novità

per chi puo piramide script

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
vi volevo chiedere se esiste una soluzione allo script sulla piramide
che vi vado a mostrare,il mini script è stato estrapolato da un listato senza autore,probabile che sia di esselotto,ma è mia intenzione che lo script si ferma alla fine dove vi sono 4 numeri
è di questi si vuole il valore.
nu1=n16&n17&n18&n19&n20'<<<--- unione numeri
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide

For fine = Len(nu1) To 2 step-1
x = fine : r=""
For a= 1 To x : c(a)= Mid (nu1,a,1) : Next
For a = 1 To x -1
t= c(a) + 0+ c(a+1) + 0
If t>=10 Then
t= Int (t/10) + t - Int (t/10)*10

End If
r=r & t
Next
nu1=CStr(r)
If r>90 Then r=r-90
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide

Next
------------------------
ammettendo che questa è la piramide
597847478
57632226
3495448
745983
29582
2541<<<--come fermarla in questo punto
795
75
3

facendo si che mi restituisca 25-41
vi ringrazio se su questa formula vi è una soluzione
 
quote:Originally posted by oruam

vi volevo chiedere se esiste una soluzione allo script sulla piramide
che vi vado a mostrare,il mini script è stato estrapolato da un listato senza autore,probabile che sia di esselotto,ma è mia intenzione che lo script si ferma alla fine dove vi sono 4 numeri
è di questi si vuole il valore.
nu1=n16&n17&n18&n19&n20'<<<--- unione numeri
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide

For fine = Len(nu1) To 2 step-1
x = fine : r=""
For a= 1 To x : c(a)= Mid (nu1,a,1) : Next
For a = 1 To x -1
t= c(a) + 0+ c(a+1) + 0
If t>=10 Then
t= Int (t/10) + t - Int (t/10)*10

End If
r=r & t
Next
nu1=CStr(r)
If r>90 Then r=r-90
Scrivi FormatSpace(nu1,1,1) 'metti un' apice per non vedere la piramide

Next
------------------------
ammettendo che questa è la piramide
597847478
57632226
3495448
745983
29582
2541<<<--come fermarla in questo punto
795
75
3

facendo si che mi restituisca 25-41
vi ringrazio se su questa formula vi è una soluzione



ciao oruam lo script in questione non è mio oppure e simile
ma non si puo dare, merito. Sugli script basta togliere e cambiare un paio di lettere
e il gioco e fatto. Comunque io sul mio ho usato il do loop invece qui hanno usato il for next che poi sarebbe quasi la stessa cosa
ti ho portato sù, la pagina della mia piramide, se vuoi ti spiego come fare sul mio script

[8D]

http://forum.lottoced.com/topic.asp?TOPIC_ID=122086
 
Codice:
'Functio Aggiuntiva 
Dim  pir   
Function Piramidiza9 (piramide)
s=0
lun = Len(Pir)
Piramide=pir
Scrivi "Piramide a - 9" ' visuallizare a video la piramide
Scrivi Piramide,1  ' visuallizare a video la piramide
Do Until lun < 3'' cambia un po il numero 3 e ti puoi fermare su qualsiasi numero
For i = 1 To Len(Piramide) - 1 
vt1 = CInt(Mid(Piramide, i, 1)) + CInt(Mid(Piramide, i + 1, 1))
If vt1 > 9 Then vt1 = vt1 - 9
vatmp = vatmp & vt1 
Next
Piramide = vatmp
s=s+1
Scrivi String (s," ") & piramide,1 ' visuallizare a video la piramide
lun = Len(vatmp)
vatmp = ""
Loop
pir=Fuori90 (piramide)
End Function


basta cambiare il numero nella riga segnata in rosso.

esselotto
 
di nuovo grazie,esse
ma senza il copia e incolla sarei in alto mare.
Obiettivo raggiunto grazie alle tue spiegazioni da come puoi ben vedere
Piramide a - 9
50318166
5349973
874971
62478
8626
Risulatato---> 8626
8626 scomposizione : 86 - 26
 
quote:Originally posted by oruam

di nuovo grazie,esse
ma senza il copia e incolla sarei in alto mare.
Obiettivo raggiunto grazie alle tue spiegazioni da come puoi ben vedere
Piramide a - 9
50318166
5349973
874971
62478
8626
Risulatato---> 8626
8626 scomposizione : 86 - 26



bene oruam mi fa piacere esserti stato d'aiuto
esselotto
 
scusami se ti rispondo con un po di ritardo, è mia supposizione ma l'ambo 4-12 potrebbe(dovrebbe[B)]) ripetersi su na-pa,l'altra previsione sulle stesse ruote è dovuta dal susseguirsi dei numeri
della settantina,sembrano si rincorrono ,speriamo che si chiudono con l'ambo 75-78;)
 
grazie Esse,ma è poco cosa ,da spettatori non ci resta che seguire
le sorti dell'ambo 75-78 ,anzi su napoli aggiungerei un bel 46 per tentare il terno natalizio 75-78-46
ne approfitto per chiederti delucidazioni se su una stringa di numeri piramidati è possibile la restituzione dei singoli numeri.
io ho usato questo funzione "maccheronica"

If nu1>999 Then nu1=nu1

x1=1
x2=2
x3=3
x4=4
nr(1) = CInt(Mid(nu1,x1,1))
nr(2) = CInt(Mid(nu1,x2,1))
nr(3) = CInt(Mid(nu1,x3,1))
nr(4) = CInt(Mid(nu1,x4,1))
ma nel caso che è sconosciuta la sua lungezza,come procedere ,si puo
utilizzare un altra variante tipo
For fine = Len(nu1) To 1 step-1 ,ma poi come terminarla????
in realta voglio interrompere una piramide ad un punto ,è da
questa interruione ho una stringa di numeri che non conosco la lunghezza,come posso farmi restituire i numeri della sttringa singolarmemte?
 
quote:Originally posted by oruam

grazie Esse,ma è poco cosa ,da spettatori non ci resta che seguire
le sorti dell'ambo 75-78 ,anzi su napoli aggiungerei un bel 46 per tentare il terno natalizio 75-78-46
ne approfitto per chiederti delucidazioni se su una stringa di numeri piramidati è possibile la restituzione dei singoli numeri.
io ho usato questo funzione "maccheronica"

If nu1>999 Then nu1=nu1

x1=1
x2=2
x3=3
x4=4
nr(1) = CInt(Mid(nu1,x1,1))
nr(2) = CInt(Mid(nu1,x2,1))
nr(3) = CInt(Mid(nu1,x3,1))
nr(4) = CInt(Mid(nu1,x4,1))
ma nel caso che è sconosciuta la sua lungezza,come procedere ,si puo
utilizzare un altra variante tipo
For fine = Len(nu1) To 1 step-1 ,ma poi come terminarla????
in realta voglio interrompere una piramide ad un punto ,è da
questa interruione ho una stringa di numeri che non conosco la lunghezza,come posso farmi restituire i numeri della sttringa singolarmemte?

Leggo offline e ti rispondo non appena posso.
comunque ho capito che sei un'ottimo previsionista.
 
il codice richiesto

Codice:
Sub main()
nu1 = 23456127
fine = Len(nu1)' prendo la lunghezza della stringa
ReDim nr(fine)' dichiaro la variabile 
For i = 1 To fine ' dall'inizio 1 fino alla fine della lunghezza
nr(i) = CInt(Mid(nu1, i, 1)) ' prendo le singole cifre
Next  ''chiudo for
''''''' scrivo tutto il codice che voglio 
'''''''
'''''''quando voglio richiamare i numeri dell'array nr()
'''''' lo richiamo in questo modo
For a = 1 To UBound(nr)'' da 1 alla fine della lunghezza dell'array
Scrivi nr(a) '''' scrivo a video
Next ''''' chiudo for
End Sub
 
ottimo e grazie,ultima curiosita
5010425285
511467714
62514585
8765944
642548
6
4
2
5
4
8
ti potra' sembrare ridicolo ,ma <<Scrivi nr(a)>> ho cercato di farla apparirire in orizzontale anziche in verticale,(non è il cruciverbia:D)dove devo modificare?
 
quote:Originally posted by oruam

ottimo e grazie,ultima curiosita
5010425285
511467714
62514585
8765944
642548
6
4
2
5
4
8
ti potra' sembrare ridicolo ,ma <<Scrivi nr(a)>> ho cercato di farla apparirire in orizzontale anziche in verticale,(non è il cruciverbia:D)dove devo modificare?


Prova questo la modifica l'ho segnato in rosso


Codice:
Sub main()
nu1 = 23456127
fine = Len(nu1)' prendo la lunghezza della stringa
ReDim nr(fine)' dichiaro la variabile 
For i = 1 To fine ' dall'inizio 1 fino alla fine della lunghezza
nr(i) = CInt(Mid(nu1, i, 1)) ' prendo le singole cifre
Next  ''chiudo for
''''''' scrivo tutto il codice che voglio 
'''''''
'''''''quando voglio richiamare i numeri dell'array nr()
'''''' lo richiamo in questo modo

Strnumeri=""''' pulisco stringa
For a = 1 To UBound(nr)'' da 1 alla fine della lunghezza dell'array
Strnumeri= strnumeri & " "& nr(a) '''' Aggiungo numeri alla stringa
Next ''''' chiudo for

Scrivi strnumeri ' visualizza stringa

End Sub
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto