Başlangıç > Kodlar > Visual Basic 6 ile Öğrenci notu hesaplayan program

Visual Basic 6 ile Öğrenci notu hesaplayan program


4 adet textbox ve 3 adet command açın. Aşağıdaki kodu yapıştırın.  1 ve sayı 2 olan yer dönem notu olarakta değerlendirilir.



Private Sub Command1_Click()
sayi = Val(Text1.Text) + Val(Text2.Text)
Text3.Text = sayi / 2
End Sub

Private Sub Command2_Click()
Select Case Text3.Text
Case Is < 44
Text4.Text = "Kaldiniz/YOU STAYED "
Case Else
Text4.Text = "Geçtiniz/YOU PASSED "
End Select
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: