Dari pada
ngelamun mikirin pacar, atau ngegalau karena habis bertengkar, buka laptop,
Jalankan VB.Net anda, Hajar boss, Lumayan kan, dapat kerjaan,,!? Hehe
Kalau dari
kemaren lokasi bermain kita Cuma berkutat di area Windows Explorer. Nah,! Untuk
postingan kali ini saya ingin mencoba berbagi sedikit ilmu, membuat sebuah
program sederhana menggunakan VB.Net. Lumayan sih agak menguras pikiran, mungkin
karena uda lama ga praktek kali, ato mungkin karena ga biyasa ya,,,? Heheh
Pertama : buka
aplikasi VB.Net anda
Kedua : siapkan
komponen dengan komposisi sebagai berikut;
6 buah botton, 3 buah textbox, dan 2
buah groupbox, lebih jelasnya lihat gambar dibawah ini
Untuk scripnya
silahkan anda lihat di bawah ini
Public Class Simple_Calculator
Dim angka1,
angka2 As Integer
Dim hasil As String
Dim kuadrat
As String = 2
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bbagi.Click
angka1 = txtangka1.Text
angka2 = txtangka2.Text
hasil = txthasil.Text
txthasil.Text = angka1 /
angka2.ToString
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btambah_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btambah.Click
angka1 = txtangka1.Text
angka2 = txtangka2.Text
hasil = txthasil.Text
txthasil.Text = angka1 +
angka2.ToString
txtangka1.Focus()
End Sub
Private Sub bkurang_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bkurang.Click
angka1 = txtangka1.Text
angka2 = txtangka2.Text
hasil = txthasil.Text
txthasil.Text = angka1 -
(+angka2).ToString
End Sub
Private Sub bkali_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bkali.Click
angka1 = txtangka1.Text
angka2 = txtangka2.Text
hasil = txthasil.Text
txthasil.Text = angka1 *
angka2.ToString
End Sub
Private Sub FileToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
FileToolStripMenuItem.Click
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles bkuadrat.Click
angka1 = txtangka1.Text
angka2 = txtangka2.Text
hasil = txthasil.Text
txthasil.Text = angka1 ^
angka2.ToString
End Sub
Private Sub Button1_Click_1(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
txtangka1.Clear()
txtangka2.Clear()
txthasil.Clear()
txtangka1.Focus()
End
Sub
Sekian dulu postingan kali ini.
semoga bermamfaat bagi pembaca khususnya. Amin,,!
setitik kesalahan yang tak pernah direncanakan akan mengajariku untuk memperbaikinya (Mahfudzainbrother)
semoga bermamfaat bagi pembaca khususnya. Amin,,!
setitik kesalahan yang tak pernah direncanakan akan mengajariku untuk memperbaikinya (Mahfudzainbrother)
