[enginsah]

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

[enginsah]

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.

[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.