Persamaan kuadrat adalah polinomial derajat dua yang berbentuk "ax^2 + bx + c = 0." "a," "b" dan "c" adalah konstanta dan "x" adalah variabel. Saat Anda menyelesaikan persamaan kuadrat, Anda harus memiliki nilai konstanta dan menyelesaikan x, yang selalu menghasilkan dua nilai, yang disebut "akar". Di dalam Visual Basic, Anda dapat menulis program atau fungsi yang meminta pengguna untuk memasukkan nilai a, b dan c, menemukan akar dan kemudian menampilkan nilai pada membentuk.
Langkah 1
Buka program Visual Basic baru. Klik dua kali alat "Tombol" untuk menambahkan Button1 ke formulir. Klik dua kali alat "Label" dua kali untuk menambahkan Label1 dan Label2 ke formulir.
Video Hari Ini
Langkah 2
Klik dua kali "Button1" pada formulir untuk membuka jendela kode. Ketik kode berikut:
Dim a As Desimal = InputBox("Masukkan A: ") Dim b As Desimal = InputBox("Masukkan B: ") Dim c As Desimal = InputBox("Masukkan C: ") Kuadrat (a, b, c)
Tiga baris pertama meminta pengguna untuk nilai konstanta. Itu kemudian memanggil sub yang disebut "Kuadrat" dan meneruskan konstanta sebagai argumen untuk itu.
Langkah 3
Masukkan kursor di luar sub Button1. Ketik kode berikut:
Private Sub Kuadrat (ByVal a Sebagai Desimal, ByVal b Sebagai Desimal, ByVal c Sebagai Desimal) Akar redup (1) Sebagai String Dim x1, x2, disc As Desimal disc = b ^ 2 - 4 * a * c
Baris pertama membuat sub Kuadrat dan menerima tiga argumen. Kemudian mendefinisikan sebuah array dengan dua item untuk dua akar. Ini kemudian membuat tiga variabel desimal dan memberikan nilai diskriminan, yang menentukan jumlah akar persamaan kuadrat.
Langkah 4
Ketik kode berikut:
Jika cakram >= 0 Maka x1 = (-b + Matematika. Kuadrat (cakram)) / (2 * a) x2 = (-b - Matematika. Kuadrat (cakram)) / (2 * a) akar (0) = akar x1.ToString (1) = x2.ToString Akar lain (0) = "(-" & b. ToString & "+Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" akar (1) = "(-" & b. ToString & "-Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" End If
Fungsi "jika" memeriksa untuk melihat apakah nilai diskriminan lebih besar atau sama dengan nol, yang berarti persamaan memiliki satu atau dua akar. Ini kemudian memecahkan untuk x. Jika diskriminan kurang dari nol, persamaan tidak memiliki akar real dan bagian "lain" dijalankan, yang menampilkan persamaan akar kompleks.
Langkah 5
Ketik kode berikut:
Label1.Teks = akar (0) Label2.Teks = akar (1) Akhir Sub
Baris kode ini hanya menampilkan akar pada label dan kemudian menutup blok kode sub Kuadrat.
Langkah 6
Simpan program Visual Basic. Tekan "F5" untuk menjalankannya.
