Assalamualaikum agan-agan semuanya.....
banyak orang terkadang orang-orang pemula berpikir tentang pemograman...
dan gimana sih belajar membuat aplikasi sederhana seperti kalkulator, rumus luas lingkaran dan sebagainya....
Untuk membuat aplikasi seperti ini, kita harus tau rumus - rumus bilangannya seperti :
Penjumlahan = a + b
Penguranan = a - b
Perkalian = a * b
Pembagian = a / b
Persegi = s * s * s * s
Persegi Panjang = P * l
dan sebagainya
Setelah itu baru kita bisa membuat sebuah program. Ok kali ini ane akan share cara membuat Kalkulator tentang penjumlahan, Pengurangan, Perkalian, Pembagian.
Private Sub ButtonTambah_Click(sender As Object, e As EventArgs) Handles ButtonTambah.Click
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a + b
End Sub
banyak orang terkadang orang-orang pemula berpikir tentang pemograman...
dan gimana sih belajar membuat aplikasi sederhana seperti kalkulator, rumus luas lingkaran dan sebagainya....
Untuk membuat aplikasi seperti ini, kita harus tau rumus - rumus bilangannya seperti :
Penjumlahan = a + b
Penguranan = a - b
Perkalian = a * b
Pembagian = a / b
Persegi = s * s * s * s
Persegi Panjang = P * l
dan sebagainya
Setelah itu baru kita bisa membuat sebuah program. Ok kali ini ane akan share cara membuat Kalkulator tentang penjumlahan, Pengurangan, Perkalian, Pembagian.
- Buka Visual Studio atau Visual Basic. Tapi kalau ane lebih suka Visual basic gan heheheheh...Jika agan belum punya Visual Studio agan bisa download di sini
- Setelah itu klik New Project yang ada di sebelah kiri, atau klik File - New - Project
nanti akan muncul gambar seperti ini :
- lalu pastikan gambarnya seperti pengaturannya seperti gambar di bawah ini. Di Name agan bisa mengganti namanya boleh tidak, kalau ane buat namanya Kalkulator.
setelah itu klik OK - Buat Form seperti dibawah ini :
- Di Properties Ganti
- Form1
Text = Kalkulator - TextBox1
Name = TextBoxNilai1 - TextBox2
Name = TextBoxNilai2 - Button1
Name = ButtonTambah
Text = + - Button2
Name = ButtonKurang
Text = - - Button3
Name = ButtonKali
Text = X - Button4
Name = ButtonBagi
Text = /
Private Sub ButtonTambah_Click(sender As Object, e As EventArgs) Handles ButtonTambah.Click
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a + b
End Sub
7. Klik 2x Pada ButtonKurang, Lalu masukkan kode berikut :
Private Sub ButtonKurang_Click(sender As Object, e As EventArgs) Handles ButtonKurang.Click
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a - b
End Sub
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a - b
End Sub
8. Klik 2x Pada ButtonKali, Lalu masukkan kode berikut :
Private Sub ButtonKali_Click(sender As Object, e As EventArgs) Handles ButtonKali.Click
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a * b
End Sub
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a * b
End Sub
9. Klik 2x Pada ButtonBagi, Lalu masukkan kode berikut :
Private Sub ButtonBagi_Click(sender As Object, e As EventArgs) Handles ButtonBagi.Click
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a / b
End Sub
10.Tekan F5 untuk melihat hasilnya.
Dim a, b As Double
a = CDbl(TextBoxNilai1.Text)
b = CDbl(TextBoxNilai2.Text)
LabelHasil.Text = a / b
End Sub
10.Tekan F5 untuk melihat hasilnya.
11. Selamat Mencoba ^_^
Jika agan ingin melihat Kalkulatornya silahkan download Disini.
Download :
VisualStudio 2012
Kalkulator
About anonyme
Hi, My Name is Hafeez. I am a webdesigner, blogspot developer and UI designer. I am a certified Themeforest top contributor and popular at JavaScript engineers. We have a team of professinal programmers, developers work together and make unique blogger templates.
0 comments:
Post a Comment