Series Grafik üstündeki bir grafik için tanımlanan datasetidir
Grafik biçimlendirirken gelen program arayüzünde ayarlayabiliyorsun
Default olarak 2 tane gelir programın ön ayarı bu ancak sen sayısını azaltıp çoğaltabilirsin
her seri grafik içinde gösterilecek bir eğriye denk gelir
Şimdi sırasıyla anlatıyorum yapman gerekenleri
Boş bi form aç
Üzerine 2 tane datetimepicker koy
üstlerine label olarak
Başlangıç tarihi ve
bitiş tarihi yaz
Bunlar grafiğin veri olarak hangi tarihten başlayıp hangi tarihten bittiğini belirtecek
Hata olmasını istemiyorsan databasedeki başlangıç tarihinden önceki bir tarih girildiyse hata mesajı ver
Bunun için
on change event kullanabilirsin, değeri değiştiğinde senin tarihten daha önceki bir tarih seçildiyse uyar ve seçimi sıfırla
Takiben bir radiobuton seti koy forma
2 elemanı olacak
Başlangıç ve Bitiş değerleri, grafiği başlangıç veya bitiş değerlerinden hangisi için çizdireceğini seçecek (tek seçim olabilmesi için radiobuton kullan)
Sonrasında Access aç
ismi
KURLAR olsun
Kurlar diye bi tablo oluştur
İçine sütun olarak
Tarih | DolarBs | DolarBt | EuroBs | EuroBt | AltinBs | AltinBt olsun
Bs'ler başlangıç değeri Btler bitiş değeri gün için
Dosyayı proje dosyana kopyala !! Sakın unutma kopyalamayı
Şimdi formumuza geri dönüyoruz
3 checkboz koy ve yanlarına dolar euro altın yaz
grafikte sadece işaretli olanların eğrileri gözükecek
Şimdi grafiği ekle Dundas kısayolu ile, ama dikkat et arayüz geldiğinde ayarlarını yaparken Data kısmında seri tanımlamaları var
oradan series1 ve series2 zaten halihazırda var
series3 ü de sen ekle
Grafiğin görsel makyajını yap zevkine göre
Şimdi elinde çalışmayan bi form ve bir access dosyası var
Dim PTable As DataTable
PTable = New DataTable("Kurlar")
datatable tanımlaman
Bunu doldurmak için
bir buton koy forma basıldığında aşağıdaki kod çalışacak ;
bag.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source=KURLAR.mdb;User Id=admin;Password=;"
Tarih1 = Me.DateTimePicker1.Value.ToString >> başlangıç tarihi
Tarih2 = Me.DateTimePicker1.Value.ToString >> Bitiş tarihi
Dim strSQL As String >>>SQL kodun olacak
strSQL = "Select * from KURLAR where Tarih between "& Tarih1&" and" & tarih2
Dim da As New OleDbDataAdapter(strSQL, bag)
da.Fill(Ptable)
başlangıç veya bitiş tarihlerinden birini seçtin ve grafiği çizmeye hazırsın
Me.Chart1.DataSource = PTable
If radiobutton1.checked = True then
If Chechbox1.Checked = True Then
Me.Chart1.Series("Series1").ValueMemberX = "Tarih"
Me.Chart1.Series("Series1").ValueMembersY = "DolarBs"
End If Dolar işaretli ise onun grafiği çiziliecek
If Chechbox2.Checked = True Then
Me.Chart1.Series("Series2").ValueMemberX = "Tarih"
Me.Chart1.Series("Series2").ValueMembersY = "EuroBs"
End If Euro işaretli ise grafiği çizilecek
If Chechbox3.Checked = True Then
Me.Chart1.Series("Series2").ValueMemberX = "Tarih"
Me.Chart1.Series("Series2").ValueMembersY = "AltinBs"
End If Altın işaretli ise grafiği çizilecek
Me.Chart1.DataBind()
Chart1.ResetAutoValues()
Else
If Chechbox1.Checked = True Then
Me.Chart1.Series("Series1").ValueMemberX = "Tarih"
Me.Chart1.Series("Series1").ValueMembersY = "DolarBt"
End If Dolar işaretli ise onun grafiği çiziliecek
If Chechbox2.Checked = True Then
Me.Chart1.Series("Series2").ValueMemberX = "Tarih"
Me.Chart1.Series("Series2").ValueMembersY = "EuroBt"
End If Euro işaretli ise grafiği çizilecek
If Chechbox3.Checked = True Then
Me.Chart1.Series("Series2").ValueMemberX = "Tarih"
Me.Chart1.Series("Series2").ValueMembersY = "AltinBt"
End If Altın işaretli ise grafiği çizilecek
Me.Chart1.DataBind()
Chart1.ResetAutoValues()
End If
ilk kısım başlangıçlar için ikinci kısım bitiş değerleri için grafiği çizecek
Artık kalanını da sen yaparsın

hoş birşer de kalmadı ama
Sadece Access dosyasını dolduracaksın doğru değerlerle dolduracaksın
Veritabanına otomatik eklee kısmını da yazamadım zamanım yok
Kodlarda ufak hatalar olabilir elle notepadde yazdım
Birazcık bilmiyorum diye sızlanmayı bırakıp araştırırsan programların yardım dosyalarından daha hızı yol alırsın :goz: