Zobrazení grafických údajů pomocí ASP - Builder.cz - Informacni server o programovani

30. října 2000, 00.00 | Praktická ukázka zobrazení grafických údajů; výstupů počítadel a různých statistických skriptů.

Tento skript zaslal pan ing. spam_email('.com', '@', 'Guderna', 'Ivo');, jako funkční ukázku technologie použité na serveru www.pocitadlo.org.
Na tomto serveru je skript použit pro zobrazení statistických údajů.

<%

' GRAF.ASP

'********************************
'*                              *
'*    Graficky vystup udaju     *
'*                              *
'* Autor: Ing Ivo Guderna       *
'*               *
'*       www.pocitadlo.org      *
'*                              *
'********************************

'******************************************************************
*******************************************************************
sTH="style=""font-family: Verdana, Arial, Helvetica; font-size: 10pt;
 color:#DFFEFF;text-decoration: none """                        '
sTD="align=right style=""font-family: Verdana, Arial, Helvetica; 
 font-size: 6pt; height: 10pt; color: #DFFEFF;text-decoration: 
 none """
sTD2="align=right style=""font-family: Verdana, Arial, Helvetica; 
 font-size: 8pt; color: navy;text-decoration: none """             '
'******************************************************************
*******************************************************************

Function Log10(X)
    Log10 = Log(X) / Log(10)
End Function

'******************************************************************
*******************************************************************
sub StatGraf(byval Xvalue,byval Yvalue,popis)
dim Ymax,Ymin,n,i,k,y()
        maxL=150
        n=UBound(xvalue)
        redim y(n)
        Ymax=-100000
        for i=1 to n
                y(i)=round(Yvalue(i),2)
                if Yvalue(i)>Ymax then Ymax=Yvalue(i)
        next
        k=Ymax/150
        rad=int(log10(ymax))
        rr=1
        for i=1 to rad
                rr=rr*10
        next
        meritko=int(4*ymax/5/rr)*rr
%>

  

    
><%=Popis%>
  
  

    

      
<%      for i=1 to n
             Yvalue(i)=round(Yvalue(i)/k,0)
             response.write("" & vbcrlf)
        next
%>        
<%      for i=1 to n
                response.write("" & vbcrlf)
        next
%>        

        

          
><%=meritko%>

            
                    

            >
          

        

          
> 
" & Xvalue(i) &
" 
      
    
  

<%    
end sub
'*****************************************************************
*****************************************
%>




        Untitled


Test volani funkce grafu: 

Zobrazena funkce: y(i)=sin(i/3)*3+4
Hlavicka=" ""
style=""color: Aqua;"">Navstevnost POCITADLA"
call StatGraf(x,y,Hlavicka)


<%
dim x(),y(),i, Hlavicka
const pocet=49                               ' pocet bodu grafu

redim x(pocet)
redim y(pocet)

for i=1 to pocet                             ' Naplneni
poli
        x(i)=i                               ' x
souradnice
        y(i)=sin(i/3)*3+4                    ' y
souradnice
next

Hlavicka=" ""
style=""color: Aqua;"">Navstevnost POCITADLA"
call StatGraf(x,y,Hlavicka)                  ' graficky vystup
%>