GRAFİK ÇİZMEK İÇİN PROGRAM (BOY GRAFİĞİ)

Önce microsoft chard control eklenir araç çubuğuna

Private Sub Command1_Click()

Dim dz(10) As Single

dz(0) = 192

dz(1) = 168

dz(2) = 175

dz(3) = 194

dz(4) = 154

dz(5) = 164

dz(6) = 153

dz(7) = 181

dz(8) = 186

dz(9) = 173

MSChart1.ColumnCount = 1  'kolon sayısı 1 olacak demek (yani tek sutunda tek kolon)

MSChart1.RowCount = 10 'satır sayısı

For m = 1 To 10

MSChart1.Column = 1 'grafiğin 1. sutununda olduğunu belirtir

MSChart1.Row = m

MSChart1.Data = dz(m - 1) 'dizi sayısı

Next m    (histogram tipi)

MSChart1.chartType = 8 (3 boyutlu gösteriyo)

End Sub            

Private Sub Combo1_Change()

Combo1.AddItem "Üç Boyutlu Sutun"

Combo1.AddItem "İki Boyutlu Sutun"

Combo1.AddItem "Üç Boyutlu Çizgi"

Combo1.AddItem "İki Boyutlu Çizgi"

Combo1.AddItem "Üç Boyutlu Alan"

Combo1.AddItem "İki Boyutlu Alan"

End Sub

Private Sub Combo1_Click()

MSChart1.chartType = Combo1.ListIndex  'chart tipini atar combo menüsüne

End Sub

Private Sub Command1_Click()

Dim dz(10) As Single

dz(0) = 192

dz(1) = 168

dz(2) = 175

dz(3) = 194

dz(4) = 154

dz(5) = 164

dz(6) = 153

dz(7) = 181

dz(8) = 186

dz(9) = 173

MSChart1.ColumnCount = 1  'kolon sayısı 1 olacak demek (yani tek sutunda tek kolon)

MSChart1.RowCount = 10 'satır sayısı

For m = 1 To 10

MSChart1.Column = 1 'grafiğin 1. sutununda olduğunu belirtir

MSChart1.Row = m

MSChart1.Data = dz(m - 1) 'dizi sayısı

Next m

MSChart1.chartType = 1 '3 boyutlu grafik için

MSChart1.Column = 1               '1. kolondaki etiket

MSChart1.ColumnLabel = "BOY"

MSChart1.ShowLegend = True

MSChart1.Row = 1       '1.sutunun etiket

MSChart1.RowLabel = "Ali"

MSChart1.Row = 2

MSChart1.RowLabel = "Ethem"

MSChart1.Row = 3

MSChart1.RowLabel = "Fatih"

MSChart1.Row = 4

MSChart1.RowLabel = "Sait"

MSChart1.Row = 5

MSChart1.RowLabel = "Yunus"

MSChart1.Row = 6

MSChart1.RowLabel = "Hasam"

MSChart1.Row = 7

MSChart1.RowLabel = "Oğuzhan"

MSChart1.Row = 8

MSChart1.RowLabel = "Kubilay"

MSChart1.Row = 9

MSChart1.RowLabel = "Hüseyin"

MSChart1.Row = 10

MSChart1.RowLabel = "Tuncay"

MSChart1.TitleText = "Osman YILDIRIM"

MSChart1.Footnote = "Boy Grafiği"

MSChart1.AllowSelections = False  'grafiğin üstünde seçim yapılmaz true olsaydı seçim yapılırdı

End Sub