Sign in to follow this  
enginsah

Second widget on the same ASP.NET page problem.

Recommended Posts

Hi,

I'm trying FusionWidgets v3 AngularGauge on my vb ASP.NET page. I used it like, I downloaded from support site.

My problem is: I want to show more than one widget on my page but first is showed, second is not. There is written "Chart." on the chart's place. I cancel first widget on the code and second works properly.

What must I do?

My code like this :

Default.aspx

<td class="style14" colspan="2">

<b>1.Fabrika Kalitesi<%=GrafikKaliteFab1(txtTarih.Text)%></b></td>

<td class="style14" colspan="2">

<b>2.Fabrika Kalitesi<%=GrafikKaliteFab2(txtTarih.Text)%></b></td>

------------------------------------------------------------------------------------------------------------------------

Default.aspx.vb

Public Function GrafikKaliteFab1(ByVal Tarih As String) As String

Dim dataURL As String

dataURL = Server.UrlEncode(

"DataGen.aspx?op=kalitefab1&tarih=" & Tarih)

Return FusionCharts.RenderChart("Charts/AngularGauge.swf", dataURL, "", "Kalite", "350", "200", False, True)

'FusionCharts("Charts/AngularGauge.swf", "myChartId", "350", "200", "0", "0");

End Function

Public Function GrafikKaliteFab2(ByVal Tarih As String) As String

Dim dataURL As String

dataURL = Server.UrlEncode(

"DataGen3.aspx?op=kalitefab2&tarih=" & Tarih)

Return FusionCharts.RenderChart("Charts/AngularGaugeorj.swf", dataURL, "", "Kalite", "350", "200", False, True)

'FusionCharts("Charts/AngularGauge.swf", "myChartId", "350", "200", "0", "0");

End Function

------------------------------------------------------------------------------------------------------------------------

datagen.aspx

Imports

System.Data.SqlClient

Imports

Fonksiyonlar

Partial

Class DataGen

Inherits System.Web.UI.Page

Public DataCon As SqlConnection

Public strSQL As String

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim op As String

Dim Tarih As String

Dim Fabrika As Integer

Tarih = Request(

"tarih")

op = Request(

"op")

'Tarih = "08.02.2010"

'op = "kalitefab"

'Fabrika = 1

Select Case op

Case "kalitefab1"

KaliteFab1(Tarih)

Case "kalitefab2"

KaliteFab2(Tarih)

End Select

'DataCon.Close()

' DataCon.Dispose()

End Sub

Public Sub KaliteFab1(ByVal Tarih As String)

Dim strXML As String

Dim Kalite As Integer

strSQL =

"SELECT CONVERT(INT,((SUM(BIRINCI)+SUM(FIRST_))/(SUM(BIRINCI)+SUM(FIRST_)+SUM(IKINCI)+SUM(DEFO)+SUM(DENEME))*100)) AS KALITE FROM ZY2 WHERE ISLEMTIP=13 AND FABRIKA =1 AND TARIH='" & TarihDonusturSQL(Tarih) & "'"

Dim Con As New SqlConnection(ConStr)

Try

Con.Open()

Dim Cmd As New SqlCommand(strSQL, Con)

Dim Dr As SqlDataReader

Dr = Cmd.ExecuteReader

While Dr.Read

Kalite = Dr(0)

End While

Catch ex As Exception

Response.Write(

"Fabrika kalite grafii hatas : " & ex.Message)

Finally

Con.Close()

Con =

Nothing

End Try

strXML =

"<chart palette='2' bgAlpha='0' bgColor='FFFFFF' lowerLimit='0' upperLimit='100' numberSuffix='%25' showBorder='0' basefontColor='FFFFDD' chartTopMargin='25' chartBottomMargin='25' chartLeftMargin='25' chartRightMargin='25' toolTipBgColor='009999' gaugeFillMix='{dark-10},{light-70},{dark-10}' gaugeFillRatio='3' pivotRadius='8' gaugeInnerRadius='50%' tickValueDistance='20' title='guLsum'>"

strXML = strXML &

"<colorRange>"

strXML = strXML &

"<color minValue='0' maxValue='65' code='FF0000' /> "

strXML = strXML &

"<color minValue='66' maxValue='75' code='FFCC00' /> "

strXML = strXML &

"<color minValue='76' maxValue='85' code='FFFF00' /> "

strXML = strXML &

"<color minValue='86' maxValue='90' code='00FF00' /> "

strXML = strXML &

"<color minValue='91' maxValue='100' code='009933' /> "

strXML = strXML &

"</colorRange>"

strXML = strXML &

"<dials id='Kalite'>"

strXML = strXML &

"<dial value='" & Kalite & "' rearExtension='10' baseWidth='10' /> "

strXML = strXML &

"</dials>"

'strXML = strXML & " <trendpoints> <point value='62' displayValue='Average' useMarker='1' markerRadius='8' dashed='1' dashLen='2' dashGap='2' /> </trendpoints>"

strXML = strXML &

" <annotations>"

strXML = strXML &

" <annotationGroup id='Grp1' showBelow='1'>"

strXML = strXML &

" <annotation type='rectangle' x='5' y='5' toX='345' toY='195' radius='10' color='009999,333333' showBorder='0' /> "

strXML = strXML &

" </annotationGroup>"

strXML = strXML &

" </annotations>"

strXML = strXML &

" <styles> <definition>"

strXML = strXML &

" <style name='RectShadow' type='shadow' strength='3' /> "

strXML = strXML &

" <style name='trendvaluefont' type='font' bold='1' borderColor='FFFFDD' /> "

strXML = strXML &

" </definition>"

strXML = strXML &

" <application>"

strXML = strXML &

" <apply toObject='Grp1' styles='RectShadow' /> "

strXML = strXML &

" <apply toObject='Trendvalues' styles='trendvaluefont' /> "

strXML = strXML &

" </application> </styles>"

strXML = strXML &

"</chart>"

Response.ContentType =

"text/xml"

Response.Write(strXML)

Thanks.

Engin

Share this post


Link to post
Share on other sites

I found the problem.

At function I used same object id. I made it parametric and it is now working.

Return FusionCharts.RenderChart("Charts/AngularGauge.swf", dataURL, "", "GrafikKaliteFab" & Fabrika, "300", "170", False, True)

Underlined is oject id area.

Thanks.

Share this post


Link to post
Share on other sites
Guest Madhumita

Hello,

You are absolutely correct. Each chart must have a unique Id and also a separate FusionCharts object.

I am glad that you could overcome this issue all by urself. :)

Happy FusionCharting.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this