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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39

Ultimi Messaggi

Indietro
Alto