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

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Web

Zobrazení grafických údajů pomocí ASP

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

<%=round(meritko,0)%>>
y(
" & 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 %>

Tématické zařazení:

 » Rubriky  » Web  

 » Rubriky  » ASP  

 » Rubriky  » Windows  

 

 

 

Nejčtenější články
Nejlépe hodnocené články

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: