- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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;
Tabi, textbox'a gireceğimiz notları inputbox'larla da yapabiliriz.
Hepinize kolay gelsin.
Kod:
Private Sub Command1_Click()vize = Val(Text1.Text)final = Val(Text2.Text)ORT = vize * 0.4 + final * 0.6Label6.Caption = ORTIf ORT < 40 ThenLabel4.Caption = "zayıf"End IfIf ORT >= 40 And ORT < 60 ThenLabel4.Caption = "ORTA"End IfIf ORT >= 60 ThenLabel4.Caption = "İYİ"End IfEnd Sub
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.
Kod:
Private Sub Command1_Click()vize = Val(Text1.Text)final = Val(Text2.Text)ORT = vize * 0.4 + final * 0.6Label6.Caption = ORTIf ORT < 40 ThenLabel4.Caption = "zayıf"End IfIf ORT >= 40 And ORT < 60 ThenLabel4.Caption = "ORTA"End IfIf ORT >= 60 ThenLabel4.Caption = "İYİ"End IfEnd Sub