Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim S
Dim K
S = "RIGA EVIDENZIATA COL COLORE "
For K = 1 To 7
Call Scrivi(S & K,,,K, NumeroCasuale(1,7))
Next
End Sub
quote:Originally posted by elephantbig
X RUBINO E CLAUDIO
Dopo avere provato con vari metodi quali :
-Corteggiamenti vari alla Escort bendata
-Riti Vudu etcc....
Mi affido a madre natura con i suoi strumenti:
Il MAGNETISMO
Che ne dite ? Funzionerà ?
Ciao Luigi,
appena ho scontato la pena di 3 mesi,mi puoi inserire una funzione
"ATTRAZIONE MAGNETICA" ??
Graduatoria dei ritardi della RUOTA di Bari
Situazione alla data 2010/03/30
Ordine Scelto combinato x (n.uscite 1 Year e % da min.)
|--------|---|--------|--------|--------|--------|--------|--------|--------|---------|---------|--------|--------|--------|--------|--------|--------|
| | | | | |Df.1year|Df.1year| (+) | (-) | | |Uscite |Momentum|Ritardo |Williams| MACD | Flagt |
|Max.At |Nr.|Min.At |Min.UP |Max.UP |da Maxim|da Minim|% da Min|% da Max|N.Incr. |Momentum |1 year |usc.top |da top | %R | ..... | ..... |
|--------|---|--------|--------|--------|--------|--------|--------|--------|---------|---------|--------|--------|--------|--------|--------|--------|
|28193 |02 |28104 |25034 |33748 |-5555 |3159 |12 % |-17% |54 |890 |14 |5 |16 |10 | |** |2
|27361 |12 |27272 |24657 |31103 |-3742 |2704 |10 % |-13% |84 |890 |14 |6 |10 |10 | |** |2
|27825 |67 |27736 |26134 |30521 |-2696 |1691 |6 % |-9 % |19 |890 |14 |4 |10 |10 | |** |2
|28284 |43 |28195 |28106 |37900 |-9616 |178 |0 % |-26% |02 |-2336 |14 |5 |0 |-94 |6 | |5
|31328 |07 |31239 |29837 |41636 |-10308 |1491 |4 % |-25% |54 |890 |13 |5 |5 |10 | | |5
|30559 |09 |30470 |29669 |35720 |-5161 |890 |2 % |-15% |10 |890 |13 |7 |1 |-61 |2 | |5
|25781 |87 |25692 |25336 |31931 |-6150 |445 |1 % |-20% |05 |-2333 |13 |6 |0 |-84 |5 | |5
|28221 |60 |30368 |29917 |33757 |-5536 |-1696 |-6 % |-17% |23 |-1895 |13 |8 |0 |-325 |5 | |5
|29436 |90 |29347 |25918 |31086 |-1650 |3518 |13 % |-6 % |144 |-908 |12 |7 |0 |-53 |1 | |5
|39563 |56 |39474 |36015 |46960 |-7397 |3548 |9 % |-16% |46 |344 |12 |6 |0 |16 |8 | |5
|39170 |37 |39081 |35626 |45219 |-6049 |3544 |9 % |-14% |58 |890 |12 |4 |23 |10 | |** |2
|32082 |11 |31993 |30072 |39683 |-7601 |2010 |6 % |-20% |32 |890 |12 |5 |13 |10 | |** |2
|31290 |05 |31201 |30385 |38737 |-7447 |905 |
ReDim aCol(17)
aCol(1) = "Max.At "
aCol(2) = "Nr."
aCol(3) = "Min.At "
aCol(4) = "Min.UP "
aCol(5) = "Max.UP "
aCol(6) = "da Maxim"
aCol(7) = "da Minim"
aCol(8) = "% da Min"
aCol(9) = "% da Max"
aCol(10) = "N.Incr. "
aCol(11) = "Momentum"
aCol(12) = "1 year "
aCol(13) = "usc.top "
aCol(14) = "da top "
aCol(15) = " %R "
aCol(16) = " ..... "
aCol(17) = " ..... "
' preimposto un array con i valori massimi di lunghezza che voglio dare a ciascun nome di colonna
ReDim aLun(17)
aLun(1) = 8
aLun(2) = 3
aLun(3) = 8
aLun(4) = 8
aLun(5) = 8
aLun(6) = 8
aLun(7) = 8
aLun(8) = 8
aLun(9) = 8
aLun(10) = 9
aLun(11) = 9
aLun(12) = 8
aLun(13) = 8
aLun(14) = 8
aLun(15) = 8
aLun(16) = 8
aLun(17) = 8
Sub Main
' preimposto un array con i valori massimi di lunghezza che voglio dare a ciascun nome di colonna
ReDim aLun(17)
ReDim aCol(17)
Call SetValoreArray(aCol , aLun)
End Sub
Sub SetValoreArray(aCol , aLun)
ReDim aCol(17)
aCol(1) = "Max.At "
aCol(2) = "Nr."
aCol(3) = "Min.At "
aCol(4) = "Min.UP "
aCol(5) = "Max.UP "
aCol(6) = "da Maxim"
aCol(7) = "da Minim"
aCol(8) = "% da Min"
aCol(9) = "% da Max"
aCol(10) = "N.Incr. "
aCol(11) = "Momentum"
aCol(12) = "1 year "
aCol(13) = "usc.top "
aCol(14) = "da top "
aCol(15) = " %R "
aCol(16) = " ..... "
aCol(17) = " ..... "
' preimposto un array con i valori massimi di lunghezza che voglio dare a ciascun nome di colonna
ReDim aLun(17)
aLun(1) = 8
aLun(2) = 3
aLun(3) = 8
aLun(4) = 8
aLun(5) = 8
aLun(6) = 8
aLun(7) = 8
aLun(8) = 8
aLun(9) = 8
aLun(10) = 9
aLun(11) = 9
aLun(12) = 8
aLun(13) = 8
aLun(14) = 8
aLun(15) = 8
aLun(16) = 8
aLun(17) = 8
End Sub