Novità

richiesta x esselotto

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
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
 
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
 
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
 
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
 
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
 
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
 
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
 
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
 
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
 
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
 
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
 
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
 
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
    sabato 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto