Çok Boyutlu dizi

[mesudiye_052]

Selamlar;

ekteki dosyada çok boyurlu bir dizi ile ilgili bir çalışma ver
ama ben tam sonuca erişemedim
bir bakarsanız sevinirim

Saygılar;

 

[mesudiye_052]

selamlar;

cevap yokmu arkadaşlar

saygılar;

 

[Levent Menteşoğlu]

Sn mesudiye_052

Soruyu sorarken takıldığınız konu hakkında daha açıklayıcı bilgi verirseniz ve ilgili dosyayıda cevaplamak isteyen üyelerimizi uğraştırmayacak şekilde düzenlerseniz daha hızlı cevap alabilirsiniz.

Kodu aşağıdaki ile değiştirerek deneyin.

Private Sub CommandButton1_Click()
Dim Derssonuçları(3, 3, 1) As String
Dim Ders As Byte
Dim Sınav As Byte
Dim Toplam As Single
 
Derssonuçları(1, 1, 1) = Matematik1
Derssonuçları(1, 2, 1) = Matematik2
Derssonuçları(1, 3, 1) = Matematik3
Derssonuçları(2, 1, 1) = Türkçe1
Derssonuçları(2, 2, 1) = Türkçe2
Derssonuçları(2, 3, 1) = Türkçe3
Derssonuçları(3, 1, 1) = Kimya1
Derssonuçları(3, 2, 1) = Kimya2
Derssonuçları(3, 3, 1) = Kimya3
 
For Ders = 1 To 3
For Sınav = 1 To 3
Toplam = Toplam + Derssonuçları(Ders, Sınav, 1)
Next Sınav
Controls("Ortalama" & Ders).Caption = Toplam / 3
Toplam = 0
Next Ders
End Sub

Not: Böyle bir çalışmada neden dizi kullanılmış anlayamadım. Birden çok döngüyle gereksiz bir sürü işlem yapılıyor.

 

[mesudiye_052]

Sn Levent MENTEŞOĞLU;

Çok haklısınız bir daha daha dikkatli olmaya çalışacağım

birde sizden ricam acaba bu kodu gereksiz bir sürü işlem yapmadan daha kısa ve özlü
nasıl yapabiliriz.

Saygılar;

 

[omerceri]

Private Sub CommandButton1_Click()
Ortalama1.Caption = (Matematik1 * 1 + Matematik2 + Matematik3)/3
Ortalama2.Caption = (Türkçe1 * 1 + Türkçe2 + Türkçe3)/3
Ortalama3.Caption = (Kimya1 * 1 + Kimya2 + Kimya3)/3
End Sub

 

[mesudiye_052]

Sn Omerceri

çok teşekkür ederim