TUTORIAL PERSAMAAN
KUADRAT
1.
Buka visual basic 2010 lalu pilih new
project dan pilih windows form application.
2.
Masukkan beberapa label, textbox, dan
button untuk keperluan program.
3.
Textbox1,textbox2, dan textbox3
digunakan untuk menulis persamaan kuadrat yang ingin dicari akar-akarnya.
4.
Textbox4 dan textbox5 untuk memunculkan
akar-akar berlainan, textbox6 dan textbox7 untuk memunculkan akar kembar, dan
textbox8 dan textbox9 untuk memunculkan akar tidak real.
5.
Button1 (calculate) digunakan untuk menghitung
akar-akar dari persamaan kuadrat. Masukkan listing sebagai berikut :
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
Dim var_a, var_b, var_c, var_D, var_x1, var_x2 As Single
var_a
= TextBox1.Text
var_b
= TextBox2.Text
var_c = TextBox3.Text
(menempatkan variabel a,b,c di textbox yang
diinginkan (textbox1,2,3))
var_D
= var_b ^ 2 - (4 * var_a * var_c)
(digunakan untuk menghitung nilai
diskriminan)
If var_D > 0 Then
var_x1 = (-var_b + Math.Sqrt(var_D))
/ 2 * var_a
var_x2 = (-var_b - Math.Sqrt(var_D))
/ 2 * var_a
TextBox4.Text = var_x1
TextBox5.Text = var_x2
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
(digunakan
untuk menghitung akar-akar yang berlainan dan
memunculkannya di textbox yang ditentukan (textbox4dan5))
ElseIf var_D = 0 Then
var_x1 = -var_b / 2 * var_a
var_x2 = -var_b / 2 * var_a
TextBox6.Text = var_x1
TextBox7.Text = var_x2
TextBox4.Clear()
TextBox5.Clear()
TextBox8.Clear()
TextBox9.Clear()
(digunakan
untuk menghitung akar-akar kembar dan memunculkannya di textbox yang ditentukan
(textbox6dan7))
Else
TextBox8.Text = "Akar tidak real"
TextBox9.Text = "Akar tidak real"
TextBox6.Clear()
TextBox7.Clear()
TextBox4.Clear()
TextBox5.Clear()
(digunakan
apabila persamaan kuadrat yang dimasukkan tidak memiliki akar-akar dan
memunculkannya di textbox yang diinginkan (textbox8dan9))
End If
End Sub
6. Button3 (refresh) digunakan untuk menghapus
persamaan kuadrat dan akar-akarnya.
Masukkan listing sebagai berikut :
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
End Sub
7. Button2 (close) digunakan untuk keluar dari
program. Masukan listing sebagai berikut :
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
Close()
End Sub
KOMPONEN-KOMPONEN
TOOLS
|
KOMPONEN
|
PROPERTIES
|
KETERANGAN
|
|
Form1
|
Name
text
|
|
|
Label1
|
Name
Text
|
Label1
x² +
|
|
Label2
|
Name
Text
|
Label2
x +
|
|
Label3
|
Name
Text
|
Label3
Program
aplikasi persamaan kuadrat
|
|
Label4
|
Name
Text
|
Label4
X1
|
|
Label5
|
Name
Text
|
Label5
X2
|
|
Label6
|
Name
Text
|
Label6
Akar berlainan
|
|
Label7
|
Name
text
|
Label7
Akar kembar
|
|
Label8
|
Name
Text
|
Label8
Akar tidak
real
|
|
Button1
|
Name
Text
|
Button1
Calculate
|
|
Button2
|
Name
Text
|
Button2
Close
|
|
Button3
|
Name
Text
|
Button3
Refresh
|
|
Textbox1
|
Name
Text
|
Textbox1
|
|
Textbox2
|
Name
Text
|
Textbox2
|
|
Textbox3
|
Name
Text
|
Textbox3
|
|
Textbox4
|
Name
Text
|
Textbox4
|
|
Textbox5
|
Name
Text
|
Textbox5
|
|
Textbox6
|
Name
Text
|
Textbox6
|
|
Textbox7
|
Name
Text
|
Textbox7
|
|
Textbox8
|
Name
Text
|
Textbox8
|
|
Textbox9
|
Name
Text
|
Textbox9
|
Tidak ada komentar:
Posting Komentar