<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim CSV As String = "F1,F2,F3,F4,F5,F6" & vbCrLf & "-5,0,50,0,80,80" & vbCrLf & "0,-200,200,8,100,70" & vbCrLf
CSV &= "-5,250,150,3,300,150"
Dim util As New Tornado.Util
util.WriteFile(server.mappath("/tornado/scratch/TestBubble.Csv", CSV)
Dim Area As New Tornado.z
With Area
.dbQP = "U=5| S=oceanbelow| PS=-1| Ni=none| M=Gc| Q=Select * From TestBubble.Csv| Dt=TEXT| Pv=OLEDB"
.dbDSN = "/tornado/scratch"
Dim Bc As String = "Name0=Bubble Zero| X0=#0#| Y0=#1#| S0=#2#| Name1=Bubble One| X1=#3#| Y1=#4#| S1=#5#|"
Bc &= "Name2=My Bubble| X2=-7,-5,7| Y2=6,-200,-150| S2=100,150,100|leg=f"
.dbChartParams = "xAxisStart=-10.0| xAxisEnd=10.0| yAxisStart=-500.0| yAxisEnd=500.0| CrossAxes=t"
.dbBubbleChart = Bc
.dbTextHolder = "Title=Bubble Chart"
.ASPdbNET()
End With
End Sub
</script> |