Cara Membuat Kalkulator menggunakan Visual Basic 2008
Visual Basic adalah suatu bahasa pemrogramman yang
mudah dan efisien.
Visual basic sangat mudah dipelajari.
Salah satu contoh aplikasi visual basic paling
sederhana:
Aplikasi perhitungan
melalui Visual Basic
Sebagai contoh Kalkulator
Program kalkulator adalah
program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada
salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual
Basic 2008
1. Pastikan PC anda telah terinstal
Microsoft Visual Basic 2008
2. Lalu buka Start-Progam-Microsoft
Visual Basic 2008 Express Edition
3. Akan ada Tampilan utama, klik Project pada Create: Project, pilih Windows Form Application, ketik nama project dengan nama Kalkulator, klik OK untuk memulai.
4. Setelah klik open,akan tampak tampilan form1 untuk
memulai aplikasi.
5.Buatlah 2 Tabel, 2 Label, 5 Command Button (Button),
dan Date Time Picker seperti gambar di bawah ini:
6. Aturlah masing - masing tollbar seperti dibawah ini
:
Properties :
1. Form :
Caption : Kalkulator
Size : 450,
450
2. Text Box1 :
Caption :
Size : 345, 29
Location : 50, 12
3. Text Box2 :
Caption :
Size : 345, 29
Location : 50, 85
4. Label1 :
Caption :
Size : 0, 24
Location : 203, 58
5. Label2 :
Caption :
Size : 0, 24
Location : 203, 136
6. Command Button1 :
Caption : -
Size : 75, 36
Location : 91, 161
7. Command Button2 :
Caption : +
Size : 75, 36
Location : 253, 161
8. Command Button3 :
Caption : *
Size : 75, 36
Location : 91, 247
9. Command Button4 :
Caption : /
Size : 75, 36
Location : 253, 247
10. Command Button5 :
Caption : Clear
Size : 75, 36
Location : 172, 195
10. Command Button5 :
Caption : Clear
Size : 75, 36
Location : 172, 195
11. Date Time Picker :
Size : 237, 20
Location : 91, 322
7. Setelah diatur maka akan menjadi seperti gambar
dibawah ini :
8. Berikutnya masukkan script code dibawah ini dengan
cara berikut ini :
1. Klik kanan pada Text Box1, lalu klik
View Code.
2. Maka akan muncul form1.vb* seperti gambar
berikut ini :
3. Setelah itu hapus semua script code yang ada di form1.vb*.
4. Selanjutnya copy script code dibawah ini lalu paste ke dalam Form1.vb*, seperti gambar berikut ini.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "+"
Label2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "-"
Label2.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "*"
Label2.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Text = "/"
Label2.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Update()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label1.Text = ""
Label2.Text = ""
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "+"
Label2.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "-"
Label2.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Text = "*"
Label2.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Text = "/"
Label2.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Update()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label1.Text = ""
Label2.Text = ""
End Sub
End Class
5. Setelah di paste maka akan menjadi seperti gambar dibawah ini :
6. Jika anda ingin menambahkan background pada kalkulator anda, klik Form1.vb [Design], lalu pada Properties cari backgroundImage, lalu klik.
7. Maka akan muncul Select Resource, seperti gambar dibawah ini :
8. Lalu pilih Local resource, lalu klik Import... seperti gambar berikut :
9. Selanjutnya pilih gambar yang anda
inginkan lalu klik open. Setelah itu klik Ok.
10. Maka akan hasilnya akan seperti ini :
11. Sekarang sudah selasai. Untuk mencobanya klik Start Debugging pada toolbar, seperti gambar berikut ini :
12. Maka akan muncul aplication kalkulator yang telah anda buat, seperti gambar berikut ini :
13. Untuk menyimpan Kalkulator anda klik Save All pada toolbar.
14. Simpan file dengan properties :
Name: Kalkulator
Location : D:\
Solution Name: Kalkulator
Lalu klik Save.
15. Sekarang buka file yang sudah disimpan ( D:\Kalkulator\Kalkulator\bin\Debug ) lalu pilih dan klik Kalkulator.
16. Maka akan muncul Kalkulator yang sudah anda buat.
aplikasivbnet.blogspot.com/2011_06_01_archive.html
Tidak ada komentar:
Posting Komentar