Program Yazma ( Yardımlarınızı Bekliyorum )

Bir derse ait not hesaplaması yapılacaktır.
Dersin 1. yazılısı 2. yazılısı ve sözlüsü vardır.
1.yazılı, 2. yazılı ve sözlü notları klavyeden girilecektir.
1. yazılının % 35'i
2. yazılının % 35'i
Sözlü notunun % 30'u alınacaktır.
Bu üç puan toplanarak dönem notunu oluşturacaktır. Bulunan not
45'den büyükse ekrana Notu: "GEÇTİ"
45'den küçükse ekrana Notu: "KALDI"
Yazdıran programı yazınız. ( Visual Studio veya Visual Basic'de )

Bende yeniyim bu işlerde ama denemek istedim çalışıyor sanırım..

Dim a, b, c, d, e, f
Private Sub Command1_Click()

a = Val(Text1.Text)

b = a * 0.35

c = Val(Text2.Text)

d = c * 0.35

e = Val(Text3.Text)

f = e * 0.3

If b + d + f > 45 Then

    MsgBox "Geçtiniz :) "

Else

    MsgBox "Kaldınız :( "

End If

End Sub

Alıntı: aytuLe  

Bende yeniyim bu işlerde ama denemek istedim çalışıyor sanırım..

Dim a, b, c, d, e, f
Private Sub Command1_Click()

a = Val(Text1.Text)

b = a * 0.35

c = Val(Text2.Text)

d = c * 0.35

e = Val(Text3.Text)

f = e * 0.3

If b + d + f > 45 Then

    MsgBox "Geçtiniz :) "

Else

    MsgBox "Kaldınız :( "

End If

End Sub

öncelikle merhabalar forumda makaleni gördüm geçte olsa bu programı sana yardımcı olması umduyla yaptım. Kolay gelsin. esenlikler dilerim .