Vize - Final Ortalamasını Hesaplayan Basic Kodu

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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.