Generare Grafici con LS e CSS

TIPS DEVELOPERS graph ls css code

  • 0 commenti
Ecco un esempio di Graph-bar visibile da WEB che permette di generare Grafici senza utilizzare JAVA o prodotti di terze parti...
Tutto il code è gestito da un agente LS che genera una pagina WEB in  combinazione con i fogli di stile (CSS)

Potrete vedere la demo risultante dell'agente a questo link.

Eccovi il CODE preso da SearchDomino:

****************************************************
Sub Initialize

Dim session As New notessession,db
As notesdatabase,doc As notesdocument
Dim i As Integer,
x As Integer,y As Integer, z As Integer,
h As Integer,v As Integer, s As Integer,
t As Integer

Print ""

v = 10
Print |
|
For i = 1 To 12
h = Int(Rnd * 300)
x = Int(Rnd * 256)
y = Int(Rnd * 256)
z = Int(Rnd * 256)
Print |
"| + mo(i) + |: | + Cstr(h) + |"
style=background-color:rgb
(|Cstr(x)|,| + Cstr(y) + |,| + Cstr(z) + |);left:| +
Cstr(v) + |px;height:| + Cstr(h) + |px>|
+ Cstr(h) + |
|
Print |
+ Cstr(v) +
|px;>| + mo(i) + |
|  
v = 40*i + 10
Next

t = 0
For s = 1 To 4
Print |
+ Cstr(t) + |>| + Cstr(t) + |
|  
t = 100*s
Next
Print |
|
End Sub

Function mo(no As Integer) As String

Select Case no
Case 1:mo = "Jan"
Case 2:mo = "Feb"
Case 3:mo = "Mar"
Case 4:mo = "Apr"
Case 5:mo = "May"
Case 6:mo = "Jun"
Case 7:mo = "Jul"
Case 8:mo = "Aug"
Case 9:mo = "Sep"
Case 10:mo = "Okt"
Case 11:mo = "Nov"
Case 12:mo = "Dec"
End Select

End Function

****************************************************

0 Commenti:

  • #1 enrico 09/15/2006 1:44:57 PM

    Grazie, è bellissimo. Lo utilizzero' sicuramente, come altre vostre soluzioni.

  • #2 Paperoga 09/13/2006 3:27:27 PM

    Semplicemente geniale.

Commenta articolo
 

Questo spazio web è stato creato da per un uso pubblico e gratuito. Qualsiasi tipo di collaborazione sarà ben accetta.
Per maggiori informazioni, scrivete a info@dominopoint.it

About Dominopoint
Social
Dominopoint social presence: