Vize - Final Ortalamasını Hesaplayan Basic Kodu

[ßyMesMes]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Merhaba arkadaşlar

Bu derste sizlere vize final ortalamasını bulup nota göre yorum veren bir uygulamayı göstereceğim.

Burada yapmamız gereken şey;

• 1 adet command buton,
• 6 adet label,
• 2 adet textbox.

Tabi, textbox'a gireceğimiz notları inputbox'larla da yapabiliriz.

Hepinize kolay gelsin.

Private Sub Command1_Click()
vize = Val(Text1.Text)
final = Val(Text2.Text)

ORT = vize * 0.4 + final * 0.6
Label6.Caption = ORT

If ORT < 40 Then
Label4.Caption = "zayıf"
End If
If ORT >= 40 And ORT < 60 Then
Label4.Caption = "ORTA"
End If

If ORT >= 60 Then
Label4.Caption = "İYİ"
End If

End Sub

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.