نمودار آماری و بارکد

[scholar]

می خوام در محیط asp نمودار آماری و بارکد ایجاد کنم کمکم کنید ؟

[هواشناس]

بنام خدا
با سلام
برای رسم نمودار من از sub زیر استفاده می کنم البته دیگه وقت نداشتم اضافات رو حذب کنم فقط بگم که این ساب تاریخ و نام جدول دیتابیس و نام شهر و دو تاریخ رو میگیره و بر اساس اون با استفاد ه از روش table و با استفاده از یک تصویر خیلی کوچولو نمودار ستونی رسم میکنه


<% Sub GraphRainYDay(Fdate,tbl,City,fyr,lyr)
dim arrrain(50) ,arryr(50)
for i= 0 to 50
arrrain(i)=-1
arryr(i)=-1
next
fyr=cint(fyr)
lyr=cint(lyr)

tbl=lcase(trim(tbl))
if Fdate="" then Fdate=GDate2SDate2(date)
queryFday=cint(right(Fdate,2))
queryFmonth=cint(mid(Fdate,5,2))
SMntDaydate=queryFmonth&"/"&queryFday

querycity=lcase(trim(City))
sql="select * from "&tbl&" where mnt="&queryFmonth&" and dy="&queryFday&" order by id"

set rs=cnndb.execute(sql)
j=-1
maxx=0
sum=0
for i= fyr to lyr
colmn="y"&cstr(i)
val=rs(colmn)
j=j+1
arryr(j)=i
if val<>"" then arrrain(j)= cdbl(val) else arrrain(j)=0 end if
sum=sum+arrrain(j)
if arrrain(j)>maxx then maxx=arrrain(j) end if
next
ave=decimal(sum,j)
set rs=nothing
%>
<%Num=j\18%>
<%rnum=j mod 18%>
<%if rnum>0 then num=num+1%>
<table align="right" style="font-size:10px" border="2" bordercolor="#999933" dir="rtl" cellspacing=1 cellpadding=2 bgcolor = "#ffe4b5" style="background:transparent">
<%for i= 1 to num%>
<tr align="right"><td>
<table align="right" style="font-size:10px" dir="ltr" border=0 cellspacing=1 cellpadding=2 bgcolor = "#ffe4b5">
<tr>
<td width=5>»</td>
<td colspan=<%=j+1%> align="right" dir="ltr"> <%=City%> مقایسه مجموع سالانه بارش ایستگاه</td>
<td width=5></td>
</tr>
<tr>
<td bgcolor="#fffaf0"></td>
<% For id=((i-1)*18) to ((i)*18)-1 'Rains in Rain
If arrrain(id)=-1 Then
Exit For
End If

if maxx > 0 then
lHeight = (FormatNumber(arrrain(id),0)/FormatNumber(maxx,0) ) * 150
else
lHeight = 0
end if
lHeight=FormatNumber(lHeight,0)
%>
<td bgcolor="#fffaf0" height=150 valign=bottom align=center>
<img src="dr.gif" height=<%=lHeight%> width=5 alt="<%=arrrain(id)%>">
</td>
<%
Next
%>
<td bgcolor="#fffaf0" height=150 valign=bottom align=center>
<% if maxx > 0 then
lHeight = (FormatNumber(ave,0)/FormatNumber(maxx,0) ) * 150
else
lHeight = 0
end if
lHeight=FormatNumber(lHeight,0)
%>
<img src="/Common/them/dr2.gif" height=<%=lHeight%> width=5 alt="<%=ave%>">
</td>
<td bgcolor="#fffaf0" width="60px" valign="middle" align="center"dir="ltr"><a href="http://site.ir"><img src="/Common/them/arm3.gif" width="60" height="50" alt="هواشناسی همدان" align="bottom" border="0"/></a><br /><br />تاریخ:<br />yyyy/<%=SMntDaydate%></td>
<td bgcolor="#fffaf0" width=10></td>
</tr>
<tr>
<td bgcolor="#fffaf0"></td>
<% For id=((i-1)*18) to ((i)*18)-1 'Rains in Rain
If arryr(id)=-1 Then
Exit For
End If
%>
<td bgcolor="#fffaf0" align=center><%=arryr(id) %></td>
<%
Next
%>
<td bgcolor="#fffaf0" align=center>میانگین بلندمدت</td>
<td bgcolor="#fffaf0" align="right">سال زراعی</td>
<td bgcolor="#fffaf0"></td>
</tr>
<tr>
<td bgcolor="#fffaf0"></td>
<% For id=((i-1)*18) to ((i)*18)-1 'Rains in Rain
If arrrain(id)=-1 Then
Exit For
End If
%>
<td bgcolor="#fffaf0" align=center><%=arrrain(id)%></td>
<%
Next
%>
<td bgcolor="#fffaf0" align=center><%=ave%></td>
<td bgcolor="#fffaf0" align="right">بارش</td>
<td bgcolor="#fffaf0"></td>
</tr>
</table>
</td></tr>
<%
next%>
</table>
<br /><br />
<%
End Sub

%>
فایل رو هم آپلود کردم و نمونه خروجی هم همینطور

[aryaei2000]

مفید بود با تشکر

[skflower]

دست شما درد نکنه. بسیار بسیار مفید بود.