Sign in to follow this  
guhananth

Angular Chart Issue

Recommended Posts

Hi,

I have

*CostPerSale table:*

City varchar(50)

Type varchar(150)

Sale float

Sample data

Chennai CostPerSale 750.0

Chennai CostPerDownload 850.0

 

When Chennai is selected i want to show 2 angular charts

CostPerSale

CostPerDownload

The code that i have is

 

<tr>

<td>

<div align="center">

<asp:Literal ID="lit_CostPerVisit" runat="server"></asp:Literal>

</div>

</td>

</tr>

 

Imports

System.Data

Imports System.Drawing

Imports System.Web

Imports

System.Web.SessionState

Imports

System.Web.UI

Imports

System.Web.UI.WebControls

Imports

System.Web.UI.HtmlControls

Imports

System.Data.SqlClient

Imports

InfoSoftGlobal

 

Protected

Sub ddl_Year_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddl_Year.SelectedIndexChanged

If (ddl_Year.SelectedValue <> "0") Then

lit_CostPerVisit.Text = CostPerVisit(ViewState(

"Year"))

End If

 

Public Function CostPerVisit(ByVal ddlYear As String) As String

 

Dim DtCostPerVisit As DataTable

Dim str_ColorRangeStart, str_ColorRangeEnd, str_Min, str_Min1, str_Max, str_Dial, str_DialEnd As String

str_DialValue =

""

'New Code

Dim strxml As String

Try

DtCostPerVisit = clsHelper.fnGetCostPerVisit(ddlYear)

If (DtCostPerVisit.Rows.Count > 0) Then

strxml =

"<chart setAdaptiveMin='0' lowerLimit='0' upperLimit='750' lowerLimitDisplay='$0' upperLimitDisplay='$750' gaugeStartAngle='180' gaugeEndAngle='0' palette='1' numberPrefix='$' tickValueDistance='20' showValue='1' refreshInterval='60' placeValuesInside='1' majorTMNumber='4' minorTMNumber='3'><colorRange><color minValue='0' maxValue='750' code='cccccc'/></colorRange><dials >"

'str_Dial = "<dials>"

' strxml += "<dials>"

 

For Each DRow As DataRow In DtCostPerVisit.Rows

If (DRow("Type").ToString().Trim() = "CostPerVisit") Then

strxml +=

"<dial value='" & DRow("Cost").ToString().Trim() & "' valueX='155' borderAlpha='0' rearExtension='6' baseWidth='6' borderColor='ffffff' showValue='0' borderalpha='50/>"

End If

Next

 

strxml +=

"</dials>" & vbCrLf

 

strxml +=

"</chart>"

 

Return FusionCharts.RenderChartHTML("Charts/AngularGuage.swf", "", strxml, "chart1", "200", "150", False)

End If

 

Catch ex As SmsException

fnDisplayError(

"")

ExceptionManager.Publish(ex)

 

End Try

 

End Function

I am getting the correct xml string created but no graph shown. Need Help

Thanks

S.Guhananth

Share this post


Link to post
Share on other sites
Guest Basundhara Ghosal

Hi,

Could you please send us the screen-shot of the error that you are receiving?

Also, could you please let us know whether you are receiving a blank space in the chart area or the chart area is displaying some text in it?

Awaiting your reply.

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