![](https://forum.fusioncharts.com/uploads/set_resources_2/84c1e40ea0e759e3f1505eb1788ddf3c_default_photo.png)
enginsah
Members-
Content count
2 -
Joined
-
Last visited
Everything posted by 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 StringdataURL = 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 StringdataURL = 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.SqlClientImports FonksiyonlarPartial 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 IntegerTarih = 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 IntegerstrSQL = "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) TryCon.Open() Dim Cmd As New SqlCommand(strSQL, Con) Dim Dr As SqlDataReaderDr = Cmd.ExecuteReader While Dr.ReadKalite = Dr(0) End While Catch ex As ExceptionResponse.Write( "Fabrika kalite grafii hatas : " & ex.Message) FinallyCon.Close() Con = Nothing End TrystrXML = "<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
-
Second widget on the same ASP.NET page problem.
enginsah replied to enginsah's topic in Using FusionWidgets XT
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.