Anasayfa > Kodlar > Visual Basic 6 ile ikinci dereceden denklem çözmek

Visual Basic 6 ile ikinci dereceden denklem çözmek


ax^2+b*x+c = 0 biçiminde düzenlenmiş ikinci dereceden bir denklemin çözümü için a, b ve c değerlerini girerek çözen bir program.

Form üzerine 5 adet text kutusu ve bir adet Command buton yerleştiriniz. Aşağıdaki kodu kod penceresinden girerek programı çalıştırabilirsiniz.


Private Sub Command1_Click()
Dim a, b, c As Single
Dim delta As Single

a = Val(Text1)
b = Val(Text2)
c = Val(Text3)

delta = Sqr(Abs(b ^ 2 - 4 * a * c))

Text4 = (-1 * b + delta) / (2 * a)
Text5 = (-1 * b - delta) / (2 * a)

End Sub

 


TD Software


  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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: