Sebenarnya tutorial ini tidak hanya bisa dibuat dengan vb 2010, tapi bisa juga dibuat dengan aplikasi lainnyaseperti php, java dan bahasa pemrograman lainnya. Oke sobat, silahlan diikuti tutorialnya. Mudah ko, asalkan kita beneran pengen bisa..
1. Pertama tentunya buka dulu program vb 2010 nya.. Belum punya? Masa sih!! Kalo belum punya download dulu aja Disini. Kalo yang ga punya vb 2010, pake vb6 juga bisa ko. Coba aja!!.
2. Udah tau cara bukanya kan??? Kalo belum tau!! Masa sihh..
3. Buat objectnya seperti pada gambar berikut.
Gambarnya jelas kan?? Kalo kurang jelas, klik aja untuk memperbesar. Gak perlu sama ya sob!! Yang penting lengkap..4. Udah?? Saya anggap udah yah.. Berikutnya Sesuaikan propertynya seperti pada tabel berikut.
Object | Property | Value |
---|---|---|
TextBox1 | Name Text | TxtIsi (Kosongkan) |
Button1 | Text | 1 |
Button2 | Text | 2 |
Button3 | Text | 3 |
Button4 | Text | 4 |
Button5 | Text | 5 |
Button6 | Text | 6 |
Button7 | Text | 7 |
Button8 | Text | 8 |
Button9 | Text | 9 |
Button10 | Text | 0 |
Button11 | Text | + |
Button12 | Text | - |
Button13 | Text | x |
Button14 | Text | / |
Button15 | Text | = |
Button16 | Text | C |
Button17 | Text | Keluar |
5. Kemudian masuk view code atau klik dua kali pada form kemudian masukan syntax berikut.
Dim op As String
Dim num1 As Integer
Dim num2 As Integer
masukan syntax tadi tepat dibawah Public Class Form1.
Syntax diatas untuk mendeclarasikan variable yang nanti akan kita gunakan di langkah berikutnya.6. Sudahkah?? Sudah yahh!! Oke, sekarang kembali ke designer.
7. Klik dua kali pada button1 / yang textnya berisi angka 1. Kemdian masukan syntax berikut.
TxtIsi.Text = TxtIsi.Text & 1
8. Kembali ke designer, kemudian klik dua kali lagi pada button2 atau yang txtnya berisi angka 2. Kemudian masukan syntax yang sama seperti pada diatas, hanya saja ganti angka 1 dengan angka 2. Sehingga syntaxnya menjadi seperti berikut.
TxtIsi.Text = TxtIsi.Text & 2
9. Mudah kan?? Mudah lah..!! Lakukan hal yang sama pada button yang txtnya berisi angka 3, 4, 5 ,6, 7, 8, 9 dan 0.
10. Udah? Cepet banget.. :) Ialah.. Kan mudah... Oke,, sekarang klik dua kali pada button yang textnya berisi "+". Kemudian masukan syntax berikut.
num1 = TxtIsi.Text
TxtIsi.Text = ""
op = "+"
11. Lakukan hal yang sama pada button yang textnya berisi "/","-","x". Sehingga syntaxnya menjadi seperti berikut.
Untuk button yang textnya berisi "x"
num1 = TxtIsi.Text
TxtIsi.Text = ""
op = "*"
Untuk button yang textnya berisi "-"
num1 = TxtIsi.Text
TxtIsi.Text = ""
op = "-"
Untuk button yang textnya berisi "/"
num1 = TxtIsi.Text
TxtIsi.Text = ""
op = "/"
Hampir selesai sob.. Ayo semangat!!!..12. Sekarang klik dua kali pada button yang textnya berisi "=", kemudian masukan syntax berikut.
num2 = TxtIsi.Text
If op = "*" Then
TxtIsi.Text = num1 * num2
ElseIf op = "+" Then
TxtIsi.Text = num1 + num2
ElseIf op = "-" Then
TxtIsi.Text = num1 - num2
ElseIf op = "/" Then
TxtIsi.Text = num1 / num2
Else
TxtIsi.Text = "Tidak dikenal"
End If
13. Klik dua kali pada button yang textnya berisi "C", kemudian masukan syntax berikut.
TxtIsi.Text = ""
14. Langkah terakhir nih sob,, klik dua kali pada button yang textnya berisi "Keluar", kemdian masukan syntax berikut
Dim pesan As String
pesan = MsgBox("Yakin mau keluar??", vbYesNo, "Konfirmasi")
If pesan = vbYes Then
End
End If
Udah deh.. Tinggal coba jalankan...
Kalo mau source code yang udah jadi, bloleh ko. Download aja Disini.
Itu dia sob tutorial cara membuat kalkulator keren dengan vb 2010. Semoga tutorialnya bermanfaat untuk kita semua. Amiinn.. Oke sob, terimakasih..
Tidak ada komentar: