Novità

richiesta x esselotto

Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
ciao esse........voglio farti una richiesta se possibile....
ma i risultati dei script si possono pure stampare????????
eventualmente???????'se si sarei interessato a farlo con un tuo listato .....che sarebbe da modificare..ti ringrazio .un abbraccio con stima da ninetto555:):):)


jl_021506_7505.jpg"


La mente umana è come un paracadute.......se gli dai l'IMPUT giusto .....si apre........completamente
 
E

esselotto

Advanced Member >GOLD<
Certo che si possono stampare sia su l8 che su spaziometria
c'è l'icona della stampante. io personalmento non ho mai stampato
un un risultato.
Oppure fai il copia del risultato, e incolla su un'editor di testo e stampa.


esselotto
 
N

ninetto555

Junior Member
ciao Esse.....come ti dicevo se possibile vorrei modificare questo tuo script in questo modo.........
la stuttura della piramide farla in sù
sommare i nn non in figura ma normali
agganciare all'archivio
come da esempio.......

<center> 10

10 20

10 20 30

10 20 30 40

10 20 30 40 50</center>penso che sia una cosa fattibile...ti allego cmq il tuo listato
ti ringrazio per la cortesia ...e ti saluto cordialmente...ninetto555

Sub main()

ColoreTesto 2
Scrivi String (75,"*")
ColoreTesto 1
Scrivi String(30," ")& "<<< Piramide >>>"& String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0
nr=InputBox ("Inserisci il numero da Piramidare","Piramide °°°esselotto°°",1234456078)
If nr=False Then Exit Sub
pir=nr ' Assegnamo a pir il numero
Piramidiza9 (pir) '<------------ richiamo la Funzione
ColoreTesto 2
Scrivi "Risulatato---> "& pir,1
ColoreTesto 1
Scrivi String(75,"_"),1
Scrivi
Scrivi "°°°esselotto°°°",1
End Sub


'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
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



jl_021506_7505.jpg"


La mente umana è come un paracadute.......se gli dai l'IMPUT giusto .....si apre........completamente
 
E

esselotto

Advanced Member >GOLD<
Codice: 
      10

     10 20

   10 20 30

 10 20 30 40

10 20 30 40 50

non capisco questa tua piramide
parte da giù ok ci siamo...
Ma
10 + 20= 30 che facciamo ?? 30-10= 20 o cosa?
allora perchè sulla seconda riga partendo da fondo
hai riscritto 10 20 30 40 ?????????


esselotto
 
N

ninetto555

Junior Member
ciao Esse ....e vero hai ragione ho saltato un passaggio!!!!!!!!

<center> 30

20 10

80 30 70

30 50 70 90

10 20 30 40 50</center>


credo adesso che sia giusto....scusami della disattenzione
ciao da ninetto555

img]http://www.fotosearch.it/bthumb/BLD/BLD117/jl_021506_7505.jpg"[/img]

La mente umana è come un paracadute.......se gli dai l'IMPUT giusto .....si apre........completamente
 
E

esselotto

Advanced Member >GOLD<
Codice: 
script modificato fa la piramide sui numeri non sulle cifre

somma singolarmente i numeri con evenuale fuori 90


come già scritto all'interno dello script 

 ALL'INSERIMENTO DEI NUMERI NELL'INPUTBOX INSERIRE SENZA SPAZIO
 PER NUMERETTI ANTEPORRE LO ZERO 1   01  2   02   
 ES  12  34  4  56  78      1234045678
 
E

esselotto

Advanced Member >GOLD<
Codice: 
Sub main()
'ATTENZIONE ALL'INSERIMENTO DEI NUMERI NELL'INPUTBOX INSERIRE SENZA SPAZIO
' PER NUMERETTI ANTEPORRE LO ZERO 1   01  2   02   
' ES  12  34  4  56  78      1234045678     

ColoreTesto 2
Scrivi String (75,"*")
ColoreTesto 1
Scrivi String(30," ")& "<<< Piramide >>>"& String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0
nr=InputBox ("Inserisci il numero da Piramidare","Piramide °°°esselotto°°",1234456078)
If nr=False Then Exit Sub
pir=nr ' Assegnamo a pir il numero
Piramidiza9 (pir) '<------------ richiamo la Funzione 
ColoreTesto 2
Scrivi "Risulatato---> "& pir,1
ColoreTesto 1
Scrivi String(75,"_"),1
Scrivi
Scrivi "°°°esselotto°°°",1
End Sub


'Functio Aggiuntiva 
Dim pir 
Function Piramidiza9 (piramide)
s=0
lun = Len(Pir)
Piramide=pir
Scrivi "Piramide a - 90" ' visuallizare a video la piramide
Scrivi Piramide,1 ' visuallizare a video la piramide
Do Until lun < 3
For i = 1 To Len(Piramide) - 2  STEP 2
vt1 = CInt(Mid(Piramide, i, 2)) + CInt(Mid(Piramide,i +2, 2))
If vt1 > 90 Then vt1 = vt1 - 90
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
 
N

ninetto555

Junior Member
ciao Esse.....ti ringrazio x avermi modificato lo script ......
l'ho appena provato e funziona molto bene .....però avrei preferito che la piramide venisse all'inverso nella maniera che avevo fatto io..cioe questa
<center> 30

20 10

80 30 70

30 50 70 90

10 20 30 40 50</center>
x motivi di praticità nell'inserire ulteriori note all'interno......
con questi spazi fra i numeri??????????
se ti è possibile. se hai tempo e si può fare ...te ne sarei grato
grazie di nuovo ....a risentirci da ninetto555:):):)

La mente umana è come un paracadute.......se gli dai l'IMPUT giusto .....si apre........completamente
 
N

ninetto555

Junior Member
quote:Originally posted by esselotto

vertice in sù o vertice in giù[?]
in sostanza cosa cambia?
è il risultato quello che conta.......

esselotto
Clicca per espandere...

infatti caro Esse....il risultato non cambia.....
ma cambia il formato in cui poter inserire spunti e e riferimenti
al testo sviluppatp su carta e mi spiego...

<center>30

20 10

80 30 70

30 50 70 90

10 20 30 40 50</center>


<center>1020304050
30507090
803070
2010
30</center>
questo e l'effetto finale su carta!!!!!!!!
ti ripeto se puoi.se hai tempo ........
cmq credo che siano solo alcune righe dello script da cambiare
ti ringrazio e ti saluto con stima .......ninetto555:):)

La mente umana è come un paracadute.......se gli dai l'IMPUT giusto .....si apre........completamente
 
E

esselotto

Advanced Member >GOLD<
Codice: 
Sub main()
'ATTENZIONE ALL'INSERIMENTO DEI NUMERI NELL'INPUTBOX INSERIRE SENZA SPAZIO
' PER NUMERETTI ANTEPORRE LO ZERO 1   01  2   02   
' ES  12  34  4  56  78      1234045678     
Dim tmp(5,5)
ColoreTesto 2
Scrivi String (75,"*")
ColoreTesto 1
Scrivi String(30," ")& "<<< Piramide Egiziana >>>"& String(15," "),1
Scrivi String(30," ")& "<<< by esselotto LottoCed>>>"& String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0
nr=InputBox ("Inserisci il numero da Piramidare","Piramide °°°esselotto°°",1234456078)
l=Len (nr): If l>10 Then MsgBox ("Inserire meno numeri"):exit sub 
If nr=False Then Exit Sub


s = 0
lun = Len(nr)
h = 1: s = 0
For i = 1 To lun
s = s + 1
tmp(h, s) = CInt(Mid(nr, i, 2)) ' preleva i num
i = i + 1
Next
s = 0: h = 1: j = 4
Do Until h = 5
h = h + 1
s = 0
For y = 1 To j
s = s + 1
tmp(h, s) = CInt((tmp(h - 1, s)) + (tmp(h - 1, s + 1)))
If tmp(h, s) > 90 Then tmp(h, s) = (tmp(h, s) - 90)
Next
j = j - 1
Loop
sp = 20
jj = 1
For k = 5 To 1 Step -1
stri = ""
For k1 = 1 To jj
stri =  Format2(tmp(k, k1))& space(1)& stri 
Next
stri=Trim (stri)
scrivi Space(sp) & stri
sp = sp - 2
jj = jj + 1

Next
Scrivi String(75,"_"),1
Scrivi
Scrivi "°°°esselotto°°°",1
End Sub
 
E

esselotto

Advanced Member >GOLD<
come vedi ho duvuto un po cambiare lo script

anche se la Piramide Egiziana all'apparenza risulta un po inclinata
non è colpa mia ma della formattazione.

se vedi ho anche limato il testo prima di scriverlo a video
stri=Trim (stri)

comunque per stampare usa la guida di l8
usa il carattere courier new per avere una formattazione
del testo migliore.

esselotto
 
N

ninetto555

Junior Member
GRAZIE......infinite....GRAZIEsei veramente ECCEZZIUNALE a buon rendere...........
ciao ESSE.....grazie di nuovo
ninetto555:):):)



La mente umana è come un paracadute.......se gli dai l'IMPUT giusto .....si apre........completamente
 
O

oruam

Super Member >PLATINUM<
quote:Originally posted by esselotto

Codice: 
Sub main()
'ATTENZIONE ALL'INSERIMENTO DEI NUMERI NELL'INPUTBOX INSERIRE SENZA SPAZIO
' PER NUMERETTI ANTEPORRE LO ZERO 1   01  2   02   
' ES  12  34  4  56  78      1234045678     
Dim tmp(5,5)
ColoreTesto 2
Scrivi String (75,"*")
ColoreTesto 1
Scrivi String(30," ")& "<<< Piramide Egiziana >>>"& String(15," "),1
Scrivi String(30," ")& "<<< by esselotto LottoCed>>>"& String(15," "),1
ColoreTesto 2
Scrivi String(75,"*")
ColoreTesto 0
nr=InputBox ("Inserisci il numero da Piramidare","Piramide °°°esselotto°°",1234456078)
l=Len (nr): If l>10 Then MsgBox ("Inserire meno numeri"):exit sub 
If nr=False Then Exit Sub


s = 0
lun = Len(nr)
h = 1: s = 0
For i = 1 To lun
s = s + 1
tmp(h, s) = CInt(Mid(nr, i, 2)) ' preleva i num
i = i + 1
Next
s = 0: h = 1: j = 4
Do Until h = 5
h = h + 1
s = 0
For y = 1 To j
s = s + 1
tmp(h, s) = CInt((tmp(h - 1, s)) + (tmp(h - 1, s + 1)))
If tmp(h, s) > 90 Then tmp(h, s) = (tmp(h, s) - 90)
Next
j = j - 1
Loop
sp = 20
jj = 1
For k = 5 To 1 Step -1
stri = ""
For k1 = 1 To jj
stri =  Format2(tmp(k, k1))& space(1)& stri 
Next
stri=Trim (stri)
scrivi Space(sp) & stri
sp = sp - 2
jj = jj + 1

Next
Scrivi String(75,"_"),1
Scrivi
Scrivi "°°°esselotto°°°",1
End Sub
Clicca per espandere...
ciao,Esse
questo è un tuo listato ti è possibile modificarlo,si potrebbe farlo piramidare nella maniera classica e togliere il vincolo della lunghezza dei numeri?
non conoscendo la lunghezza della stringa numeri non mi piramidizza
correttamente,se puoi intervenire ti ringrazio anticipatamente.
<<nr=InputBox ("Inserisci il numero da Piramidare","Piramide °°°esselotto°°",1234456078)
l=Len (nr): If l>10 Then MsgBox ("Inserire meno numeri"):exit sub
If nr=False Then Exit Sub>>
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 maggio 2024
    Bari
    63
    35
    59
    12
    69
    Cagliari
    13
    07
    23
    24
    38
    Firenze
    35
    80
    90
    76
    73
    Genova
    11
    54
    27
    06
    20
    Milano
    07
    72
    48
    37
    15
    Napoli
    65
    87
    82
    50
    35
    Palermo
    13
    88
    44
    67
    24
    Roma
    31
    05
    47
    33
    46
    Torino
    39
    57
    84
    82
    09
    Venezia
    09
    23
    49
    53
    63
    Nazionale
    37
    43
    26
    48
    81
    Estrazione Simbolotto
    Milano
    26
    07
    17
    44
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto