Komponen-Komponen ToolBox yang digunakan:
|
Komponen
|
Properties
|
Keterangan
|
|
Form1
|
Nama
Text
|
Form1
Akar
Kuadrat
|
|
Label1
|
Nama
Text
|
Label1
Menghitung
Akar-akar kuadrat
|
|
Label2
|
Nama
Text
|
Label2
Persamaan
Kuadrat
|
|
TextBox1
|
Nama
Text
|
TextBox1
AX²
+ BX + C
|
|
Label3
|
Nama
Text
|
Label3
a
|
|
Label4
|
Nama
Text
|
Label4
b
|
|
Label5
|
Nama
Text
|
Label5
c
|
|
TextBox2
|
Nama
Text
|
TextBox2
|
|
TextBox3
|
Nama
Text
|
TextBox3
|
|
TextBox4
|
Nama
Text
|
TextBox4
|
|
TextBox5
|
Nama
Text
|
TextBox5
X²
|
|
Label9
|
Nama
Text
|
Label9
|
|
Button1
|
Nama
Text
|
Button1
Hitung
|
|
Label6
|
Nama
Text
|
Label6
X1
|
|
Label7
|
Nama
Text
|
Label7
X2
|
|
TextBox6
|
Nama
Text
|
TextBox6
|
|
TextBox7
|
Nama
Text
|
TextBox7
|
|
TextBox8
|
Nama
Text
|
TextBox8
|
|
Label11
|
Nama
Text
|
Label11
Jenis
Akar
|
|
Button2
|
Nama
Text
|
Button2
Info
|
|
Button3
|
Nama
Text
|
Button3
Try
Again
|
|
Button4
|
Nama
Text
|
Button4
Exit
|
|
Panel1
|
Nama
Text
|
Panel1
|
|
Lineshape1
|
Nama
Text
|
Lineshape1
|
|
Lineshape2
|
Nama
Text
|
Lineshape2
|
|
Label8
|
Nama
Text
|
Label8
Sb.
Y
|
|
Label9
|
Nama
Text
|
Label9
Sb.
X
|
1. Untuk
Mengganti Warna Pada Background form1 pilih properties
Backgroundimage-localresource-import-ok
2. Mengganti jenis huruf pada button
dan textBox (font), klik toolbox font
Lalu
pilih jenis font, font style, dan size font . klik OK
Setelah
bentuk form1 selesai, kemudian
Masukkan
listing-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 = TextBox2.Text
var_b = TextBox3.Text
var_c = TextBox4.Text
var_D = var_b ^ 2 - (4 * var_a * var_c)
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
TextBox7.Text = var_x1
TextBox8.Text = var_x2
ElseIf var_D = 0 Then
var_x1 = -var_b / 2 * var_a
var_x2 = -var_b / 2 * var_a
TextBox7.Text = var_x1
TextBox8.Text = var_x2
Else
TextBox7.Text = "Akar tidak
real"
TextBox8.Text = "Akar tidak
real"
End If
If var_x1 = var_x2 Then
TextBox6.Text = "Akar
Sama"
ElseIf var_x1 <> var_x2 Then
TextBox6.Text = "Akar
Beda"
ElseIf TextBox7.Text = "Akar tidak
real" And TextBox8.Text = "Akar tidak real" Then
TextBox6.Text = "Akar
Khayal"
End If
Dim x1 As Integer
Dim x2 As Integer
Dim y1 As Integer
Dim y2 As Integer
Dim DPen As Pen
DPen = New Pen(Drawing.Color.LawnGreen,
3)
Dim DGraphic As Graphics =
Panel1.CreateGraphics
DGraphic.DrawLine(Dpen, x1, y1, x2, y2)
Dim s As Integer
Dim t As Integer
s = Val(TextBox7.Text)
t = Val(TextBox8.Text)
If var_a > 0 And s < 0 Then
x1 = 201 - (-s * 10)
x2 = 201 - ((var_b / 2 * var_a) *
10)
y1 = 201
y2 = 201 - (((var_b ^ 2 - 4 * var_a
* var_c) / 4 * var_a) * 10)
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
If var_a > 0 And t < 0 Then
x1 = 201 - ((var_b / 2 * var_a) *
10)
x2 = 201 - (-t * 10)
y1 = 201 - (((var_b ^ 2 - 4 * var_a
* var_c) / 4 * var_a) * 10)
y2 = 201
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
If var_a > 0 And s > 0 Then
x1 = 201 - (-s * 10)
x2 = 201 - ((var_b / 2 * var_a) *
10)
y1 = 201
y2 = 201 - (((var_b ^ 2 - 4 * var_a
* var_c) / 4 * var_a) * 10)
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
If var_a > 0 And t > 0 Then
x1 = 201 - ((var_b / 2 * var_a) *
10)
x2 = 201 - (-t * 10)
y1 = 201 - (((var_b ^ 2 - 4 * var_a
* var_c) / 4 * var_a) * 10)
y2 = 201
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
If var_a < 0 And s < 0 Then
x1 = 201 - (-s * 10)
x2 = 201 - ((var_b / 2 * var_a) *
10)
y1 = 201
y2 = 201 + (((var_b ^ 2 - 4 * var_a
* var_c) / -4 * var_a) * 10)
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
If var_a < 0 And t < 0 Then
x1 = 201 - ((var_b / 2 * var_a) *
10)
x2 = 201 - (-t * 10)
y1 = 201 + (((var_b ^ 2 - 4 * var_a
* var_c) / -4 * var_a) * 10)
y2 = 201
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
If var_a < 0 And s > 0 Then
x1 = 201 - (-s * 10)
x2 = 201 - ((var_b / 2 * var_a) *
10)
y1 = 201
y2 = 201 + (((var_b ^ 2 - 4 * var_a
* var_c) / -4 * var_a) * 10)
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
If var_a < 0 And t > 0 Then
x1 = 201 - ((var_b / 2 * var_a) *
10)
x2 = 201 - (-t * 10)
y1 = 201 + (((var_b ^ 2 - 4 * var_a
* var_c) / -4 * var_a) * 10)
y2 = 201
DGraphic.DrawLine(DPen, x1, y1, x2,
y2)
End If
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("program ini hanya bisa
menyajikan akar-akar persamaan kuadrat yang real")
End Sub
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox6.Text = ""
Panel1.Refresh()
End Sub
-Listing
ini bertujuan ketika Button3(refresh) maka pada textbox2, textbox3, textbox4,
textbox7, textbox8, textbox6, akan kembali ke kondisi semula sebelum dilakukan
perintah.
-listing "" adalah listing yang menunjukkan
bahwa tidak ada data pada textBox2
Private Sub Button4_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Close()
End Sub
End Class
-Listing
Close() untuk menutup program
Tidak ada komentar:
Posting Komentar