chart using html - HTML / CSS

hii...i am creating a chart using html and asp
the code for it is :

Expand|Select|Wrap|Line Numbers

  
<%@ LANGUAGE="VBSCRIPT" %>

<% Option Explicit %>
 
<%

Dim data1Array(3)

data1Array(0) = 5

data1Array(1) = 15

data1Array(2) = 25

data1Array(3) = 50
 
Dim data2Array(3)

data2Array(0) = 5

data2Array(1) = 10

data2Array(2) = 20

data2Array(3) = 25
 
Dim labelArray(15)

labelArray(0) = "1"

labelArray(1) = "2"

labelArray(2) = "2"

labelArray(3) = "2"

labelArray(4) = "2"

labelArray(5) = "2"

labelArray(6) = "7"

labelArray(7) = "8"

labelArray(8) = "9"

labelArray(9) = "1"

labelArray(10) = "11"

labelArray(11) = "12"

labelArray(12) = "13"

labelArray(13) = "14"

labelArray(14) = "15"

labelArray(15) = "16"
 
%> 
 
<%

'How many pixels high we want our bar graph

Const graphHeight = 300

Const graphWidth = 450

Const barImage = "bluebar.gif"

Const barImage1 = "redbar.gif"

'h 300 , w 450
 
sub BarChart(data1 , data2, labels, title, axislabel)

    'Print heading

    Response.Write("<TABLE CELLSPACING=0 CELLPADDING=2 BORDER=1 WIDTH=" & graphWidth & ">" & chr(13))

    Response.Write("<TR><TH COLSPAN=" & UBound(data1) - LBound(data1) + 2 & ">" & chr(13))

    Response.Write("<FONT SIZE=+2>" & title & "</FONT></TH></TR>" & chr(13))

    Response.Write("<TR><TD VALIGN=TOP ALIGN=RIGHT>" & chr(13))
 
    'Find the highest value

    Dim hi

    hi = data1(LBound(data1))
 
    Dim i

    for i = LBound(data1) to UBound(data1)

        if data1(i) > hi then hi = data1(i)

    next
 
'calculating  highest value for the second array

    Dim hi1

    hi1 = data2(LBound(data2))
 
    Dim j

    for j = LBound(data2) to UBound(data2)

        if data2(j) > hi1 then hi1 = data2(j)

    next
 
'Response.Write("the hightest value")

'Response.Write(hi1)
 
    'Print out the highest value at the top of the chart

    'Response.Write(hi & "</TD>")
 
    Dim widthpercent

    widthpercent = CInt((1 / (UBound(data1) - LBound(data1) + 1)) * 100)

    'response.Write(widthpercent)
 
    'Response.Write(data2(0))

    'Response.Write(hi1)

    'Response.Write(graphHeight)

    'Response.Write(cint(data2(0)/hi1 * graphHeight))

    'Response.End
 
    For i = LBound(data1) to UBound(data1) 

        Response.Write("<td> </td>")

        Response.Write(" <TD VALIGN=BASELINE ROWSPAN=2 WIDTH=" & widthpercent & "% >" & chr(13))

        Response.Write(" <IMG SRC=""" & barImage & """ WIDTH=100% align= bottom HEIGHT=" & CInt(data1(i)/hi * graphHeight)  & "/>" & chr(13))

        response.Write(Cint(data1(i)/hi*graphHeight))

        Response.Write(" <TD VALIGN=BASELINE ROWSPAN=2 WIDTH=" & widthpercent & "% >" & chr(13))
 
        'response.end

        Response.Write(" <IMG SRC=""" & barImage1& """ WIDTH=100% align= bottom  HEIGHT=" & CInt(data2(i)/hi1 * graphHeight)  & "/>" & chr(13))

        response.Write(Cint(data2(i)/hi*graphHeight))

        Response.Write(" </TD>" & chr(13))

        'Response.Write("<td> </td>")

        'Response.Write("<td> </td>")

         'response.Write("<br>")

         '

         'response.Write("<br>")    

    Next

    'response.end
 
    Response.Write("</TR>")

    Response.Write("<TR><TD VALIGN=BOTTOM ALIGN=RIGHT>0</TD></TR>")
 
    'Write footer

    Response.Write("<TR><TD ALIGN=RIGHT VALIGN=BOTTOM>" & axislabel & "</TD>" & chr(13))

    for i = LBound(labels) to UBound(labels)

        Response.Write("<TD VALIGN=BOTTOM ALIGN=CENTER>" & labels(i) & "</TD>" & chr(13))

    next

    Response.Write("</TR>" & chr(13))

    Response.Write("</TABLE>")

end sub
 
%>
 
<HTML>

<BODY>

<CENTER>

<% Call BarChart(data1Array,data2Array,labelArray,"Telephone Sales","Date") %>

</CENTER>

</BODY>

</HTML>

now the problem is even tough in the following lines, i pass same value for the HEIGHT ATTRIBUTE with data1(0) and data2(0) ARRAYS the displayed height of the image is not same.
SIMILARLY THE HEIGHT SHOWN WITH OTHER ELEMENTS IS ALSO NOT PROPER

Expand|Select|Wrap|Line Numbers

 
Response.Write(" <TD VALIGN=BASELINE ROWSPAN=2 WIDTH=" & widthpercent & "% >" & chr(13))

Response.Write(" <IMG SRC=""" & barImage & """ WIDTH=100% align= bottom HEIGHT=" & CInt(data1(i)/hi * graphHeight)  & "/>" & chr(13))

Response.Write(" <TD VALIGN=BASELINE ROWSPAN=2 WIDTH=" & widthpercent & "% >" & chr(13))

Response.Write(" <IMG SRC=""" & barImage1& """ WIDTH=100% align= bottom  HEIGHT=" & CInt(data2(i)/hi1 * graphHeight)  & "/>" & chr(13))

i am attatching a image file to make my problem more clear..
thank's..

Attached Images

result.jpg (12.5 KB, 235 views)

Mar 25 '09 #1

Subscribe Post Reply

1984

drhowarddrfine

7,435

Expert 4TB

Without the generated html and css, we won't be able to help you.

Mar 25 '09 #2

aashishn86

@drhowarddrfine
thanks....
its working fine now..............

Mar 26 '09 #3

Similar topics

Server-side DB & client-side chart

by: Mick Turner | last post by:

I have connected to SQL Server database (server-side vbscript) and read some data from the tables. This works correctly. I now have the data in an array (server-side). I have to draw a...

ASP / Active Server Pages

Problem with my chart in MS Access 2002 using a form and VB

by: StBond | last post by:

Hi everyone, I am new to Access and Visual Basic so things my be getting across a bit cloudy. I only started using VB for one week. I am having a little problem with the database that I am...

Microsoft Access / VBA

PIE/BAR CHART QUESTIONS?(creating them dynamically)

by: Patrick.O.Ige | last post by:

I have a code below and its a PIE & BAR CHART. The values now are all static but I want to be able to pull the values from a database. Can you guys give me some ideas to do this? Thanks ...

ASP.NET

OWC pie chart

by: LB | last post by:

Hello everybody I'm learning how to create pie chart using OWC. I'm able now to create a pie. But I can not figure out how to do the following : - for each pie, when mousing over, I would like...

ASP.NET

ASCII Character Codes Chart 2

by: Marcel Saucier | last post by:

Hello, I want to use the above characters codes chart but I dont know how to set the typeface (documentation: The characters that appear in Windows above 127 depend on the selected typeface). ...

Visual Basic .NET

Pie chart: ASP.net 2.0, SQL Server 2000, Excel 2000

by: C Did | last post by:

What's the best cheapest way to get pie charts on the web with my setup? Thanks!!

ASP.NET

replacing an Excel based html chart

by: RoseW | last post by:

I suggested to a friend that a css controlled table would be preferrable to the existing chart produced in Excel stored at http://www.delmarcottages.ca/cottages/bookings/cottagebookings.htm They...

HTML / CSS

OWC 11: Is it possible to have combination chart?

by: cubekid | last post by:

I am using OWC 11 in my new web application for displaying charts. Is it possible in OWC 11 to combine and display a column and a line graph (Looking like they overlap each other)? I tried it using...

C# / C Sharp

chart using asp and html

by: aashishn86 | last post by:

hii...i am creating a chart using html and asp the code for it is : <%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Dim data1Array(3) data1Array(0) = 5

ASP / Active Server Pages

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA