İkinci dereceden bir denklem, "ax^2 + bx + c = 0" formuna sahip ikinci dereceden bir polinomdur. "a", "b" ve "c" sabitlerdir ve "x" değişkendir. İkinci dereceden bir denklemi çözdüğünüzde, sabitlerin değerlerine sahip olmanız ve her zaman "kökler" olarak adlandırılan iki değer veren x'i bulmanız gerekir. İçinde Visual Basic, kullanıcıdan a, b ve c değerlerini girmesini isteyen, kökleri bulan ve ardından değerleri ekranda görüntüleyen bir program veya fonksiyon yazabilirsiniz. biçim.
Aşama 1
Yeni bir Visual Basic programı açın. Düğme1'i forma eklemek için "Düğme" aracına çift tıklayın. Forma Label1 ve Label2 eklemek için "Etiket" aracına iki kez çift tıklayın.
Günün Videosu
Adım 2
Kod penceresini açmak için formdaki "Button1"e çift tıklayın. Aşağıdaki kodu yazın:
Dim a As Decimal = InputBox("A Girin: ") Dim b As Decimal = InputBox("B Girin: ") Dim c As Decimal = InputBox("C Girin: ") Kuadratik (a, b, c)
İlk üç satır, kullanıcıdan sabitlerin değerlerini ister. Daha sonra "Kuadratik" adlı bir alt çağırır ve sabitleri ona argüman olarak iletir.
Aşama 3
İmleci Button1 alt öğesinin dışına yerleştirin. Aşağıdaki kodu yazın:
Özel Alt Kuadratik (Ondalık Olarak ByVal, Ondalık Olarak ByVal b, Ondalık Olarak ByVal c) Dim kökleri (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
İlk satır, Kuadratik alt öğesini oluşturur ve üç argümanı kabul eder. Daha sonra iki kök için iki öğeli bir dizi tanımlar. Daha sonra üç ondalık değişken oluşturur ve ikinci dereceden denklemin sahip olduğu kök sayısını belirleyen diskriminantın değerini atar.
4. Adım
Aşağıdaki kodu yazın:
Disk >= 0 ise x1 = (-b + Math. Sqrt (disk)) / (2 * a) x2 = (-b - Matematik. Sqrt (disk)) / (2 * a) kökler (0) = x1.ToString kökleri (1) = x2.ToString Else kökleri (0) = "(-" & b. ToString & "+Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" kökleri (1) = "(-" & b. ToString & "-Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" End If
"Eğer" işlevi, diskriminant değerinin sıfırdan büyük veya sıfıra eşit olup olmadığını kontrol eder; bu, denklemin bir veya iki kökü olduğu anlamına gelir. Daha sonra x için çözer. Diskriminant sıfırdan küçükse, denklemin gerçek kökleri yoktur ve karmaşık kök denklemlerini gösteren "else" kısmı yürütülür.
Adım 5
Aşağıdaki kodu yazın:
Label1.Text = kökler (0) Label2.Text = kökler (1) End Sub
Bu kod satırları basitçe etiketlerin üzerindeki kökleri görüntüler ve ardından Kuadratik alt kod bloğunu kapatır.
6. Adım
Visual Basic programını kaydedin. Çalıştırmak için "F5" tuşuna basın.
