Siapkan alat tempur :
- Laptop
- Aplikasi Visual Studio
- Kopi
- Niat dan sedikit usaha
- Buka aplikasi Visual Studio kalian
Tampilan awal - Klik File > New > Project dan akan muncul seperti gambar dibawah, lalu cari bahasa Visual Basic dan pilih Windows Form Application, isikan juga Nama project, Lokasi Penyimpanan dan Solution Name(sesuaikan dengan nama project saja)
Isikan Nama project, Lokasi Penyimpanan, dan Solution name - Akan muncul jendela seperti dibawah, dan kalian cari Tab Toolbox yang disebelah kanan disamping Solution Explorer biasanya, dan pin agar tidak auto hidden.
Tampilan New Project - Kemudian kalian cari Button, dan TextBox didalam tab Toolboxdan susun seperti gambar dibawah
Sesuaikan seperti gambar - Kemudian klik kanan pada TextBox dan pilih property, lalu isikan data sesuai gambar dibawah
Isikan data - Kemudian klik kanan pada Button1 dan isikan datanya seperti ini
Ini tombol untuk menghapus - Isikan juga tombol yang lain dengan cara yang sama seperti langkah nomer 6
Isi Property Tombol angka pada kalkulator - Untuk tombol plus, minus, kali dan bagi, isikan datanya seperti ini
Isi Property tombol operator plus minus kali bagi - Dan hasilnya akan seperti ini
- Kemudian double klik Tombol angka 1, maka akan diarahkan ke kode area dan isikan kode diantara Private Sub dan End Sub, lalu masukan kode berikut
- Lalu double klik juga tombol no 2 dan masukan kode
txtText.Text = txtText.Text & 2 - Ulangi sampai tombol nomer 9 dan jangan lupa tombol 0 juga, tinggal mengganti angka yang dibelakang dan sesuaikan dengan nomor tombol
- Selanjutnya kita buat variabel untuk menampung nilai pada kalkulator, masukan kode berikut dibawah Public Class Form1
Dim firstnumber As Integer
Dim secondnumber As Integer
Dim answer As Integer
Dim aritmathicproccess As String
- Selanjutnya kita akan setting tombol aritmatikanya, double klik tombol plus dan masukan kode berikut diantara Private sub dan End sub
firstnumber = Val(TextBox1.Text)
TextBox1.Text = ""
aritmathicproccess = "+"
Masukan juga kode seperti diatas untuk tanda minus, kali, dan bagi dan tinggal mengganti tanda minus dengan "-", kali dengan "*", dan bagi dengan "/". dan hasilnya akan seperti ini
- Langkah terakhir yaitu seting tombol hasil (=) dan seperti biasa, double klik tombol = dan masukan kode berikut
secondnumber = Val(TextBox1.Text)
If aritmathicproccess = "+" Then
answer = firstnumber + secondnumber
End If
If aritmathicproccess = "-" Then
answer = firstnumber - secondnumber
End If
If aritmathicproccess = "*" Then
answer = firstnumber * secondnumber
End If
If aritmathicproccess = "/" Then
answer = firstnumber / secondnumber
End If
TextBox1.Text = answer
- Oh iya masih 1 step lagi gan, heheh seting tombol CE untuk menghapus nilai, caranya masukan kode ini di tombol CE
TextBox1.Text = ""
- Alhamdulillah selesai, kita coba debug aplikasinya dengan tekan f5 atau pilih menu debug > start debugging lihat hasilnyaa
ini buatan ane gan
txtText.Text = txtText.Text & 1
Sungguh membantu menambah ilmu, tapi buat jadiin file exe yang bisa di instal gimana yah ? Hhhee maaf mereportkan.
ReplyDelete