![]() |
| |
| |||||||
|
![]() |
| LinkBack | Seçenekler | Stil |
| | #1 | |||
|
Üye bilgilerinin tamamını görebilmek için üye olunuz. |
2 vize ve bir final notunu giriyorsun program sana ortalamanı hesaplıyor ve geçip geçmediğini (50 üzerinden) söylüyor. 5 tane text nesnesi, 1 tanede buton nesnesi oluşturmanız gerekiyor. aşağıdaki komutları da buton nesnesine çift tıklayıp içine yazarak çalıştırabilirsiniz... *************************** *************************** Private Sub Command1_Click() Dim vize1 As Integer Dim vize2 As Integer Dim final As Integer Dim note As Double Dim viz1 As Double Dim viz2 As Double Dim fin As Double vize1 = Val(Text1.Text) vize2 = Val(Text2.Text) final = Val(Text3.Text) If vize1 < 0 Or vize1 > 100 Then MsgBox ("1.vize notunu yanlış girdiniz") Else viz1 = (vize1 * 30) / 100 End If If vize2 < 0 Or vize2 > 100 Then MsgBox ("2.vize notunu yanlış girdiniz") Else viz2 = (vize2 * 30) / 100 End If If final < 0 Or final > 100 Then MsgBox ("Final notunu yanlış girdiniz") Else fin = (final * 40) / 100 End If note = (viz1 + viz2 + fin) Text4.Text = note If note < 50 Then Text5.Text = "KALDI" Else Text5.Text = "GEÇTİ" msgbox("Tebrikler") End If End Sub | |||
| | |
![]() |
| Etiketler |
| hesaplama |
| Seçenekler | |
| Stil | |
| |
| LionBeq | maçını izle | film izle | Site Ekle | | |
|
Powered by vBulletin® Version Kapalı. Copyright ©2000 - 2012, Jelsoft Enterprises Ltd. Search Engine Friendly URLs by vBulletin SEO 3.6.0 |
| |