Gallery

Gallery > Venn Charts

JS Euler British Isles

Demonstrates the Euler diagram of the British Isles.

Download Show C# Code Show VB Code

<%@ Page Language="C#" Description="dotnetCHARTING Component" %>

<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING" %>
<%@ Import Namespace="System.Drawing" %>

<script runat="server">
void Page_Load(Object sender, EventArgs e)
{
// Demonstrates the Euler diagram of the British Isles.
Chart.Type = ChartType.VennColorByPoint;
Chart.Size = "600x600";
Chart.TitleBox.Label.Text = "Euler diagram of the British Isles";
Chart.TitleBox.Label.Font = new Font("Tahoma", 14, FontStyle.Regular);
Chart.TitleBox.Position = TitleBoxPosition.Center;
Chart.TempDirectory = "temp";
Chart.Debug = false;
Chart.DefaultElement.ShowValue = true;
Chart.DefaultElement.SmartLabel.Text = "%name";
Chart.DefaultElement.ToolTip = "%name<br>Population: <b>%population</b>";
Chart.JS.Enabled = true;
Chart.Palette = new Color[] { };

//Add a series
Series ser1 = new Series();
ser1.PaletteName = Palette.WaterMeadow;
Element el = new Element("British Isles", 70);
el.CustomAttributes.Add("population", 71600784);
SubValue sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("British Islands", 40);
el.CustomAttributes.Add("population", 66679284);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("United Kingdom", 20);
el.CustomAttributes.Add("population", 66426378);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Ireland (island)", 8);
el.CustomAttributes.Add("population", 6806900);
sv = new SubValue();
sv.Name = "Ireland (island)";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Ireland (state)", 1);
el.CustomAttributes.Add("population", 4921500);
sv = new SubValue();
sv.Name = "Ireland (state)";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Northern Ireland", 1);
el.CustomAttributes.Add("population", 1885400);
sv = new SubValue();
sv.Name = "Northern Ireland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Great Britain", 8);
el.CustomAttributes.Add("population", 64540978);
sv = new SubValue();
sv.Name = "Great Britain";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Scotland", 1);
el.CustomAttributes.Add("population", 5424800);
sv = new SubValue();
sv.Name = "Scotland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Wales", 1);
el.CustomAttributes.Add("population", 3139000);
sv = new SubValue();
sv.Name = "Wales";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("England", 1);
el.CustomAttributes.Add("population", 55977178);
sv = new SubValue();
sv.Name = "England";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Isle of Man", 1);
el.CustomAttributes.Add("population", 83314);
sv = new SubValue();
sv.Name = "Isle of Man";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Guernsey", 1);
el.CustomAttributes.Add("population", 62792);
sv = new SubValue();
sv.Name = "Guernsey";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("Jersey", 1);
el.CustomAttributes.Add("population", 106800);
sv = new SubValue();
sv.Name = "Jersey";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "Great Britain";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Scotland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "Great Britain";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Wales";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "Great Britain";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "England";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 8);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Great Britain";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Scotland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Wales";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "England";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Northern Ireland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 3);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Ireland (island)";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "Ireland (island)";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Ireland (state)";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "Ireland (island)";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Northern Ireland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 20);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 8);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Great Britain";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Scotland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Wales";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "England";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Northern Ireland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Isle of Man";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Guernsey";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Jersey";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 3);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Ireland (island)";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 40);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "British Islands";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 20);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "United Kingdom";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 8);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Great Britain";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Scotland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Wales";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "England";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Isle of Man";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Guernsey";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Jersey";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 8);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Ireland (island)";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Ireland (state)";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

el = new Element("", 1);
sv = new SubValue();
sv.Name = "British Isles";
el.SubValues.Add(sv);
sv = new SubValue();
sv.Name = "Northern Ireland";
el.SubValues.Add(sv);
ser1.Elements.Add(el);

Chart.SeriesCollection.Add(ser1);

}
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head><title>Venn sample</title></head>
<body>
<div align="center">
<dotnet:Chart ID="Chart" runat="server" />
</div>
</body>
</html>

<%@ Page Language="vb" Description="dotnetCHARTING Component" %>

<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING" %>
<%@ Import Namespace="System.Drawing" %>

<script runat="server">
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
' Demonstrates the Euler diagram of the British Isles.
Chart.Type = ChartType.VennColorByPoint
Chart.Size = "600x600"
Chart.TitleBox.Label.Text = "Euler diagram of the British Isles"
Chart.TitleBox.Label.Font = New Font("Tahoma", 14, FontStyle.Regular)
Chart.TitleBox.Position = TitleBoxPosition.Center
Chart.TempDirectory = "temp"
Chart.Debug = False
Chart.DefaultElement.ShowValue = True
Chart.DefaultElement.SmartLabel.Text = "%name"
Chart.DefaultElement.ToolTip = "%name<br>Population: <b>%population</b>"
Chart.JS.Enabled = True
Chart.Palette = New Color() { }

'Add a series
Dim ser1 As Series = New Series()
ser1.PaletteName = Palette.WaterMeadow
Dim el As Element = New Element("British Isles", 70)
el.CustomAttributes.Add("population", 71600784)
Dim sv As SubValue = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("British Islands", 40)
el.CustomAttributes.Add("population", 66679284)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("United Kingdom", 20)
el.CustomAttributes.Add("population", 66426378)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Ireland (island)", 8)
el.CustomAttributes.Add("population", 6806900)
sv = New SubValue()
sv.Name = "Ireland (island)"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Ireland (state)", 1)
el.CustomAttributes.Add("population", 4921500)
sv = New SubValue()
sv.Name = "Ireland (state)"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Northern Ireland", 1)
el.CustomAttributes.Add("population", 1885400)
sv = New SubValue()
sv.Name = "Northern Ireland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Great Britain", 8)
el.CustomAttributes.Add("population", 64540978)
sv = New SubValue()
sv.Name = "Great Britain"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Scotland", 1)
el.CustomAttributes.Add("population", 5424800)
sv = New SubValue()
sv.Name = "Scotland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Wales", 1)
el.CustomAttributes.Add("population", 3139000)
sv = New SubValue()
sv.Name = "Wales"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("England", 1)
el.CustomAttributes.Add("population", 55977178)
sv = New SubValue()
sv.Name = "England"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Isle of Man", 1)
el.CustomAttributes.Add("population", 83314)
sv = New SubValue()
sv.Name = "Isle of Man"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Guernsey", 1)
el.CustomAttributes.Add("population", 62792)
sv = New SubValue()
sv.Name = "Guernsey"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("Jersey", 1)
el.CustomAttributes.Add("population", 106800)
sv = New SubValue()
sv.Name = "Jersey"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "Great Britain"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Scotland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "Great Britain"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Wales"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "Great Britain"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "England"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 8)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Great Britain"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Scotland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Wales"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "England"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Northern Ireland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 3)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Ireland (island)"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "Ireland (island)"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Ireland (state)"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "Ireland (island)"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Northern Ireland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 20)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 8)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Great Britain"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Scotland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Wales"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "England"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Northern Ireland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Isle of Man"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Guernsey"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Jersey"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 3)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Ireland (island)"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 40)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "British Islands"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 20)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "United Kingdom"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 8)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Great Britain"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Scotland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Wales"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "England"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Isle of Man"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Guernsey"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Jersey"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 8)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Ireland (island)"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Ireland (state)"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

el = New Element("", 1)
sv = New SubValue()
sv.Name = "British Isles"
el.SubValues.Add(sv)
sv = New SubValue()
sv.Name = "Northern Ireland"
el.SubValues.Add(sv)
ser1.Elements.Add(el)

Chart.SeriesCollection.Add(ser1)

End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head><title>Venn sample</title></head>
<body>
<div align="center">
<dotnet:Chart ID="Chart" runat="server" />
</div>
</body>
</html>

Sample FilenameJsEulerBritishIsles.aspx
Version10.1
Uses DatabaseNo

JS Charting

Gallery

JS Euler British Isles