MSChart kullanarak grafik çizmek

[transistor]

arkadaşlar,
mschart comp. kullanarak bir text dosyaya yazdığım değerlere göre grafik çizmek istiyorum.

nette bişeyler buldum fakat işin içinden çıkamadım. ilgili arkadaşların yardımını bekliyorum.

[Logan]

Bi aralar mschart komutuyla uğraşmıştım.Hatırladığım kadarıyla yapman gereken şu; text box'lara girdiğin değerleri mschart grafiğine aktarırken yatay ve dikey koordinat belirleyip, o koordinata ait "data" değerine atayınca, sütunların yüksekliği otomatik olarak ayarlanıyor. Eğer bulabilirsem örnek programı sana gönderirim.Çalışmalarında başarılar.

[transistor]

mschart kullanarak grafik çizmek isteyen arkadaşlar aşağıdaki kodları inceleyebilirler iki gün uğraştan sonra olayı çözdüm. aşağıdaki kodla bi dosya içindeki datalara göre grafik çiziyorum. kolay gelsin

[code]

Private Sub CmdGraph_Click()

Text1.Text = ""

Dim iy As Integer

                                           iy = 0
                                                                         
Open "c:\sirali.txt" For Input As #2

azaman = MonthView1.Value
ho:
Input #2, knumara, kzaman, ksaat, khava, kgidis, ksicak, kcalismasicakligi
If oku = knumara And azaman = kzaman Then
       
       iy = iy + 1
           
    Chart1.RowCount = iy
    Chart1.Row = iy
   'Chart1.ColumnCount = 4
   Chart1.RowLabel = ksaat
 Chart1.Column = 1
   Chart1.Data = khava
   Chart1.Column = 2
   Chart1.Data = kgidis
   Chart1.Column = 3
     Chart1.Data = ksicak
     Chart1.Column = 4
     Chart1.Data = kcalismasicakligi
       
   ElseIf oku <> knumara And azaman <> kzaman Then GoTo mes
End If

   If EOF(2) = True Then GoTo mes Else GoTo ho
   
mes: Close #2