Notes

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Chart1.Series.Clear()

Chart1.Series.Add(0) '3 ADET SERİ EKLANİYOR

Chart1.Series.Add(1)

Chart1.Series.Add(2)

Dim Seri1 As Series = Chart1.Series(0) 'SERİLER TANIMLANIYOR

Dim Seri2 As Series = Chart1.Series(1)

Dim Seri3 As Series = Chart1.Series(2)

Seri1.LegendText = "Elektrik" 'LEJANT TA Seri1 ADI

Seri2.LegendText = "Su" 'LEJANT TA Seri2 ADI

Seri3.LegendText = "Gaz" 'LEJANT TA Seri3 ADI
Dim Grafik As ChartArea = Chart1.ChartAreas(0)

Chart1.BackColor = Color.Gold 'CHART ARKA PLAN RENGİ

Chart1.Size = New System.Drawing.Size(650, 400) 'CHART BOYUTU

Chart1.IsSoftShadows = True 'CHART GÖLGE AKTİF

''-----------------------CHART BAŞLIĞI TANIMLANIYOR

Dim KartBaşlık As Title = Chart1.Titles.Add("BENİM GRAFİK")

KartBaşlık.Font = New System.Drawing.Font("Times New Roman", 16, System.Drawing.FontStyle.Bold)

KartBaşlık.BorderColor = Color.Black

KartBaşlık.ForeColor = Color.Black

KartBaşlık.BackColor = Color.LemonChiffon

KartBaşlık.BorderWidth = 1 'CHART BAŞLIĞI ÇERCEVE KALINLIĞI

KartBaşlık.BorderDashStyle = ChartDashStyle.Solid 'CHART BAŞLIĞI ÇERCEVE TİPİ

KartBaşlık.ShadowOffset = 10 'CHART BAŞLIĞI GÖLGE DERİNLİĞİ

KartBaşlık.ShadowColor = Color.Orange 'CHART BAŞLIĞI GÖLGE RENGİ

'-----------------------------LEJANT TANIMLANIYOR

Dim Lejand As Legend = Chart1.Legends(0)

Lejand.BackColor = Color.LemonChiffon 'LEJANT ARKA PLAN RENGİ

Lejand.Font = New Font("Times New Roman", 10, FontStyle.Regular) 'LEJANT FONT

Lejand.BorderColor = Color.Black 'LEJANT KENAR RENGİ

Lejand.BorderWidth = 2 'LEJANT KENAR KALINLIĞI

Lejand.Title = "SERİLER" 'LEYANT BAŞLIĞI

Lejand.ShadowOffset = 10 'LEJANT GÖLGE DERİNLİĞİ

Lejand.ShadowColor = Color.Orange 'LEJANT GÖLGE RENGİ

'-------------------------------GRAFİK ALANI

Grafik.AxisY.Maximum = 100 'DİKEY SERİ MİN-MAX DEĞERLERİ

Grafik.AxisY.Minimum = 0

Grafik.ShadowOffset = 10 'GRAFİK GÖLGE DERİNLİĞİ

Grafik.ShadowColor = Color.Orange 'GRAFİK GÖLGE RENGİ

'DİKEY EKSEN BAŞLIK YAZISI ve FONTU

Grafik.AxisY.TitleFont = New Font("Times New Roman", 14, FontStyle.Regular)

Grafik.AxisY.Title = "DİKEY BAŞLIK"

'YATAY EKSEN BAŞLIK YAZISI ve FONTU

Grafik.AxisX.TitleFont = New Font("Times New Roman", 14, FontStyle.Regular)

Grafik.AxisX.Title = "YATAY BAŞLIK"

'DİKEY EKSEN FONTU

Grafik.AxisY.LabelStyle.Font = New Font("Arial", 10, FontStyle.Regular)

'YATAY EKSEN FONTU

Grafik.AxisX.LabelStyle.Font = New Font("Arial", 10, FontStyle.Regular)

Grafik.AxisX.LabelStyle.Angle = -90 'YATAY EKSEN YAZI AÇISI

Grafik.BackColor = Color.LemonChiffon 'ARKAPLAN RENGİ

Grafik.AxisX.Interval = 1 'YATAY EKSEN ARALIK MESAFESİ

Grafik.AxisX.IntervalOffset = 1 'YATAY EKSEN İLK ARALIK MESAFESİ

Grafik.AxisY.LineWidth = 3 'DİKEY EKSEN'nin İLK ÇİZGİ KALINLIĞI

Grafik.AxisY.LineColor = Color.DarkRed 'DİKEY EKSEN 'nin İLK ÇİZGİ ÇİZGİ RENGİ

Grafik.AxisY.MajorGrid.LineWidth = 1 'DİKEY EKSEN İKİNCİ ÇİZGİ KALINLIĞI

Grafik.AxisY.MajorGrid.LineColor = Color.Silver 'DİKEY EKSEN İKİNCİ ÇİZGİ RENGİ

Grafik.AxisX.LineWidth = 3 'YATAY EKSEN'nin İLK ÇİZGİ KALINLIĞI ve RENGİ

Grafik.AxisX.LineColor = Color.DarkRed 'YATAY EKSEN 'nin İLK ÇİZGİ RENGİ

Grafik.AxisX.MajorGrid.LineWidth = 1 'YATAY EKSEN İKİNCİ ÇİZGİ KALINLIĞI

Grafik.AxisX.MajorGrid.LineColor = Color.Silver 'YATAY EKSEN İKİNCİ ÇİZGİ RENGİ

'---------------------------------------------------------------

'----------------- SERİ DATA GİRİŞLERİ ------------------------

Seri1.Color = Color.Red '1 SERİ RENGİ

Seri1.BorderWidth = 3 '1 SERİ KALINLIĞI

'1 SERİ DATALARI

Seri1.Points.AddY(18) '1 SERİ DEĞERİ

Seri1.Points.AddY(20) '1 SERİ DEĞERİ

Seri1.Points.AddY(60) '1 SERİ DEĞERİ

Seri1.Points.AddY(50) '1 SERİ DEĞERİ

Seri1.Points.AddY(35) '1 SERİ DEĞERİ

Seri1.Points.AddY(42) '1 SERİ DEĞERİ

Seri2.Color = Color.BlueViolet '2 SERİ RENGİ

Seri2.BorderWidth = 3 '2 SERİ KALINLIĞI

'2 SERİ DATALARI

Seri2.Points.AddY(7) '2 SERİ DEĞERİ

Seri2.Points.AddY(58) '2 SERİ DEĞERİ

Seri2.Points.AddY(72) '2 SERİ DEĞERİ

Seri2.Points.AddY(60) '2 SERİ DEĞERİ

Seri2.Points.AddY(55) '2 SERİ DEĞERİ

Seri2.Points.AddY(62) '2 SERİ DEĞERİ

Seri3.Color = Color.Green '3 SERİ RENGİ

Seri3.BorderWidth = 3 '3 SERİ KALINLIĞI

'2 SERİ DATALARI

Seri3.Points.AddY(12) '3 SERİ DEĞERİ

Seri3.Points.AddY(48) '3 SERİ DEĞERİ

Seri3.Points.AddY(78) '3 SERİ DEĞERİ

Seri3.Points.AddY(64) '3 SERİ DEĞERİ

Seri3.Points.AddY(51) '3 SERİ DEĞERİ

Seri3.Points.AddY(58) '3 SERİ DEĞERİ

Seri1.Points(0).AxisLabel = "OCAK" 'YATAY SERİ İSİMLERİ

Seri1.Points(1).AxisLabel = "ŞUBAT" 'YATAY SERİ İSİMLERİ

Seri1.Points(2).AxisLabel = "MART" 'YATAY SERİ İSİMLERİ

Seri1.Points(3).AxisLabel = "NİSAN" 'YATAY SERİ İSİMLERİ

Seri1.Points(4).AxisLabel = "MAYIS" 'YATAY SERİ İSİMLERİ

Seri1.Points(5).AxisLabel = "HAZİRAN" 'YATAY SERİ İSİMLERİ

'---------------------------------------------------------------

'-----------------------------3D GRAFİK İÇİN

'Grafik.Area3DStyle.Enable3D = True '3D GÖRÜNÜM İÇİN

Grafik.Area3DStyle.Rotation = 50 'DÖNME AÇISI

Grafik.Area3DStyle.Perspective = 10 'PERSPEKTİF AÇISI

Grafik.Area3DStyle.WallWidth = 2 'KENAR KONTÜR KALINLIĞI

Grafik.Area3DStyle.PointDepth = 50 'SERİ ÇİZGİ GENİŞLİĞİ

'--------------------------CHART (Grafik) TİPİ

Seri1.ChartType = DataVisualization.Charting.SeriesChartType.Line

Seri2.ChartType = DataVisualization.Charting.SeriesChartType.Line

Seri3.ChartType = DataVisualization.Charting.SeriesChartType.Line


Chart1.Series(0).Points(0).Color = Color.White
Chart1.Series(0).Points(1).Color = Color.Yellow
Chart1.Series(0).Points(2).Color = Color.YellowGreen
Chart1.Series(0).Points(3).Color = Color.Lime
Chart1.Series(0).Points(4).Color = Color.LimeGreen
Chart1.Series(0).Points(5).Color = Color.Green

Chart1.Series(1).Points(0).Color = Color.White
Chart1.Series(1).Points(1).Color = Color.Yellow
Chart1.Series(1).Points(2).Color = Color.YellowGreen
Chart1.Series(1).Points(3).Color = Color.Lime
Chart1.Series(1).Points(4).Color = Color.LimeGreen
Chart1.Series(1).Points(5).Color = Color.Green

Chart1.Series(2).Points(0).Color = Color.White
Chart1.Series(2).Points(1).Color = Color.Yellow
Chart1.Series(2).Points(2).Color = Color.YellowGreen
Chart1.Series(2).Points(3).Color = Color.Lime
Chart1.Series(2).Points(4).Color = Color.LimeGreen
Chart1.Series(2).Points(5).Color = Color.Green



End Sub