per chi puo piramide script

[Roby]

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

 

[esselotto]

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

 

[esselotto]

Comunque ti avevo fatto i miei complimenti per la previsione
che ha avuto esito positivo.
a questo indirizzo. Sopratutto per il terno sfiorato in soli 3 colpi


http://forum.lottoced.com/topic.asp?TOPIC_ID=126006&whichpage=2

 

[esselotto]

'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

 

[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

 

[esselotto]

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

 

[esselotto]

ciao oruam

pensi che quei numeri ritornino a ruota ?????????????
ho visto altra tua previsione 12 4 NA PA

ti ho fatto la stessa domanda sull'altro topic
http://forum.lottoced.com/topic.asp?TOPIC_ID=126006&whichpage=2

esselotto

 

[oruam]

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

 

[esselotto]

ancora Bravo

12 a Napoli
75 a Genova

Peccato

 

[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?

 

[esselotto]

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.

 

[esselotto]

il codice richiesto

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

 

[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)dove devo modificare?

 

[esselotto]

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)dove devo modificare?

Prova questo la modifica l'ho segnato in rosso

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