Selasa, 24 Mei 2016
Pada hari ini admin ingin share pengetahuan tentang membuat program komputer menegenai lingkaran dengan vb.net. fungsi program nya cukup sederhana yaitu menghitung luas, keliling, dan diameter lingkaran. Selain itu program ini juga berfungsi untuk menghitung jari - jari lingkaran jika diketahui luas, keliling, dan diameternya. Untuk membedakan dengan operasi yang lain, admin membedakan namanya dengan jari – jari keliling untuk menghitung jari – jari jika diketahui kelilingnya, jari – jari luas untuk menghitung jari – jari jika diketahui luasnya, jari – jari diameter untuk menghitung jari – jari jika diketahui luasnya. Untuk mulai membuat nya silahkan ikuti langkah – langkah berikut ini.
Langkah 1 :
Buat form baru dengan cara klik file – new – project – windows form application
Buat desain dengan tampilan seperti gambar diatas. Adapun beberapa tool / komponen yang digunakan yaitu 5 buah label, 4 buah textbox, 2 buah button, 1 buah groupbox, 6 buah radiobutton
Langkah 2 : memasukkan niai pada properti masing – masing komponen
untuk nilai pada properti komponen itu sendiri bisa dilihat pada tabel di bawah ini.
Langkah 3 : Listing code
klik view – code atau shortcut F7 untuk memulai memasukkan kode script.
Copy dan paste kan kode script berikut :
Public Class Form1
Public luas As Double
Public keliling As Double
Public jarikeliling As Double
Public jariluas As Double
Public jaridiameter As Double
Public diameter As Double
Public hasiljariluas As Double
Public ka As Double
Public operation As String
Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
If operation = "a" Then
luas = 22 / 7 * txtjari.Text ^ 2
txtluas.Text = luas
ElseIf operation = "b" Then
keliling = 2 * 22 / 7 * txtjari.Text
txtkeliling.Text = keliling
ElseIf operation = "c" Then
diameter = txtjari.Text * 2
txtdiameter.Text = diameter
ElseIf operation = "d" Then
ka = 2 * 3.14
jarikeliling = txtkeliling.Text / ka
txtjari.Text = jarikeliling
ElseIf operation = "e" Then
jariluas = txtluas.Text * 7 / 22
hasiljariluas = Math.Sqrt((jariluas))
txtjari.Text = hasiljariluas
ElseIf operation = "f" Then
jaridiameter = txtdiameter.Text / 2
txtjari.Text = jaridiameter
End If
End Sub
Private Sub rbluas_Click(sender As Object, e As EventArgs) Handles rbluas.Click
operation = "a"
End Sub
Private Sub rbkeliling_Click(sender As Object, e As EventArgs) Handles rbkeliling.Click
operation = "b"
End Sub
Private Sub rbdiameter_Click(sender As Object, e As EventArgs) Handles rbdiameter.Click
operation = "c"
End Sub
Private Sub rbjarikel_Click(sender As Object, e As EventArgs) Handles rbjarikel.Click
operation = "d"
End Sub
Private Sub rbjariluas_Click(sender As Object, e As EventArgs) Handles rbjariluas.Click
operation = "e"
End Sub
Private Sub rbjaridiameter_Click(sender As Object, e As EventArgs) Handles rbjaridiameter.Click
operation = "f"
End Sub
Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
txtdiameter.Text = ""
txtjari.Text = ""
txtkeliling.Text = ""
txtluas.Text = ""
End Sub
End Class
Langkah 4 : Debugging
Untuk memulai melakukan debugging pada program yang telah kita buat, klik debug – start debugging atau dengan shortcut F5 untuk memulai debug.
Jika tidak terjadi masalah, maka program yang telah kalian buat telah berhasil.
