Hallo Coding Maniak Sudahkah Anda Ngoding Hari Ini ??
Hari ini saya akan membagikan referensi agenda yang gres yaitu referensi agenda visual basic kalkulator ilmiah, ya kali ini kita akan berguru visual basic buat yang sudah kesal dengan tampilan full biru pascal atau tampilan putih-putih Dev C++ yang ini akan lebih berwarna.
Jujur saja dulu pas awal-awal berguru pemrograman saya diajari pascal dan Dev C++ saya kesal dengan tampilan keduanya, yang satu biru full yang satu putih rasanya mata gak dapat tahan lama-lama ngeliatinnya, agak girang juga pas pertama berguru visual basic hasilnya lebih berwarna itu yang ada di pikiran saya dulu.
Oke stop disitu saja ceritanya, saya disini memakai
visual studio 2010 tidak ada alasan khusus sih cuma emang sudah familiar aja dengan yang ini, kalau kalian memakai versi yang lain tidak akan jauh berbeda kok, kecuali kalau versi yang dipakainya jauh lebih renta menyerupai seakan-akan vb 6.
Ini citra kalkulator yang akan kita buat
Untuk warna, background, jenis font, ukuran, tata letak dapat diadaptasi lah ya sesuai selera tinggal diatur saja dibagian properties disebelah kanan.
Backcolor = mengganti warna latar
Backgroundimage = untuk mengganti gambar latar
Backgroundumagelayout = untuk mengatur posisi gambar latar
Font = untuk mengatur jenis dan ukuran huruf
Forecolor = untuk mengatur warna huruf
Cari textbox dan button di toolbox sebelah kiri, menyerupai yang tertera gambar diatas dan mulai buat item-itemnya.
Oke bab ini yang harus diatur sama(bisa beda tapi nanti beda lagi codingnya), salah satu saran dosen saya dulu name itemnya diganti semoga ingat posisinya kita sedang ngoding yang mana, disini saya juga mengganti name dari tiap itemnya jadi nggak button1, button2, textbox1 dll lagi.
Jenis
|
Text
|
Name
|
Form1
|
Kalkulator
|
kalku
|
Textbox
|
|
layar
|
Button
|
Cos
|
klikcos
|
Button
|
Sin
|
kliksin
|
Button
|
Tan
|
kliktan
|
Button
|
1
|
A1
|
Button
|
2
|
A2
|
Button
|
3
|
A3
|
Button
|
4
|
A4
|
Button
|
5
|
A5
|
Button
|
6
|
A6
|
Button
|
7
|
A7
|
Button
|
8
|
A8
|
Button
|
9
|
A9
|
Button
|
0
|
A0
|
Button
|
,
|
klikkoma
|
Button
|
Hapus
|
klikhapus
|
Button
|
=
|
klikhasil
|
Button
|
+
|
kliktambah
|
Button
|
─
|
klikkurang
|
Button
|
%
|
klikpersen
|
Button
|
X
|
klikkali
|
Button
|
÷
|
klikbagi
|
Button
|
^
|
klikpangkat
|
Button
|
√
|
klikakar
|
Button
|
C
|
klikclear
|
Button
|
Log x
|
kliklog
|
Button
|
EXIT
|
klikexit
|
Setelah semua diatur kita lanjut ke codingnya tekan F7 kemudian mulai masukan codingnya dibawah Public Class kalku, disini kita akan mendeklarasikan variabelnya, supaya dapat digunakan oleh semua fungsi/sub yang lain.
Dim angka As Double
Dim hasil As Double
Dim operasi As String
Const Phi As Double = 3.14159265358979
Seperti gambar dibawah ini
Double klik di button/tombol angka 1
Lalu masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “1”
Else
layar.Text = layar.Text & “1”
End If
Seperti gambar dibawah ini
Double klik di button/tombol angka 2, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “2”
Else
layar.Text = layar.Text & “2”
End If
Lakukan menyerupai di button/tombol angka 1
Double klik di button/tombol angka 3, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “3”
Else
layar.Text = layar.Text & “3”
End If
Double klik di button/tombol angka 4, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “4”
Else
layar.Text = layar.Text & “4”
End If
Double klik di button/tombol angka 5, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “5”
Else
layar.Text = layar.Text & “5”
End If
Double klik di button/tombol angka 6, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “6”
Else
layar.Text = layar.Text & “6”
End If
Double klik di button/tombol angka 7, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “7”
Else
layar.Text = layar.Text & “7”
End If
Double klik di button/tombol angka 8, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “8”
Else
layar.Text = layar.Text & “8”
End If
Double klik di button/tombol angka 9, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “9”
Else
layar.Text = layar.Text & “9”
End If
Double klik di button/tombol angka 0, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = “0”
Else
layar.Text = layar.Text & “0”
End If
Double klik di button/tombol koma, kemudian masukan code dibawah ini.
If layar.Text = “0” Then
layar.Text = layar.Text + “.”
Else
layar.Text = layar.Text + “.”
End If
Kita lanjut ke bab operasi perhitungannya, untuk yang pertama double klik button/tombol + menyerupai gambar dibawah ini.
Lalu masukan instruksi dibawah ini.
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka + Val(layar.Text)
End If
operasi = “+”
layar.Text = “”
menyerupai gambar dibawah ini
Double klik di button/tombol ─ (kurang), kemudian masukan code dibawah ini.
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka – Val(layar.Text)
End If
operasi = “-“
layar.Text = “”
lakukan menyerupai di butto/tombol +
Double klik di button/tombol % (persen), kemudian masukan code dibawah ini.
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka / 100
End If
operasi = “%”
layar.Text = “”
Double klik di button/tombol X (kali), kemudian masukan code dibawah ini.
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka * Val(layar.Text)
End If
operasi = “X”
layar.Text = “”
Double klik di button/tombol ÷ (bagi), kemudian masukan code dibawah ini.
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka / Val(layar.Text)
End If
operasi = “÷”
layar.Text = “”
Double klik di button/tombol ^ (pangkat), kemudian masukan code dibawah ini.
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka ^ Val(layar.Text)
End If
operasi = “^”
layar.Text = “”
Double klik di button/tombol √ (akar), kemudian masukan code dibawah ini.
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka ^ (1 / 2)
End If
operasi = “√”
layar.Text = “”
Double klik di button/tombol Cos, kemudian masukan code dibawah ini.
layar.Text = Math.Cos(layar.Text * (Phi / 180))
menyerupai dgambar dibawah
Double klik di button/tombol Sin, kemudian masukan code dibawah ini.
layar.Text = Math.Sin(layar.Text * (Phi / 180))
Double klik di button/tombol Tan, kemudian masukan code dibawah ini.
layar.Text = Math.Tan(layar.Text * (Phi / 180))
Double klik di button/tombol log x, kemudian masukan code dibawah ini.
layar.Text = Math.log(layar.Text)
Double klik di button/tombol = (sama dengan), kemudian masukan code dibawah ini.
Select Case operasi
Case “+”
hasil = angka + Val(layar.Text)
layar.Text = hasil
Case “-“
hasil = angka – Val(layar.Text)
layar.Text = hasil
Case “%”
hasil = angka / 100
layar.Text = hasil
Case “X”
hasil = angka * Val(layar.Text)
layar.Text = hasil
Case “÷”
hasil = angka / Val(layar.Text)
layar.Text = hasil
Case “^”
hasil = angka ^ Val(layar.Text)
layar.Text = hasil
Case “√”
hasil = angka ^ 0.5
layar.Text = hasil
End Select
Seperti gambar dibawah
Double klik di button/tombol hapus, kemudian masukan code dibawah ini.
If layar.Text.Length <> 0 Then
layar.Text = layar.Text.Remove(layar.TextLength – 1, 1)
End If
Untuk yang belum tahu ini berfungsi untuk menghapus angka dilayar satu persatu, tidak menyerupai C atau clear screen yang menghapus semua sekaligus.
Double klik di button/tombol C, kemudian masukan code dibawah ini.
layar.Text = “0”
angka = 0
hasil = 0
operasi = “”
Double klik di button/tombol EXIT, kemudian masukan code dibawah ini.
End
Oke semua beres tinggal kalian coba debugging kalau semuanya benar harusnya dapat jalan alasannya yakni ini sudah dites dulu tadi, dibawah ini ada source code lengkapnya.
Seperti biasanya saya lebih menyarankan kalian menulis manual source code nya tidak asal copas supaya terbiasa, salah-salah sedikit masuk akal lah ya disitulah letak berguru dan latihannya.
Public Class kalku
Dim angka As Double
Dim hasil As Double
Dim operasi As String
Const Phi As Double = 3.14159265358979
Private Sub A1_Click(sender As System.Object, e As System.EventArgs) Handles A1.Click
If layar.Text = “0” Then
layar.Text = “1”
Else
layar.Text = layar.Text & “1”
End If
End Sub
Private Sub A2_Click(sender As System.Object, e As System.EventArgs) Handles A2.Click
If layar.Text = “0” Then
layar.Text = “2”
Else
layar.Text = layar.Text & “2”
End If
End Sub
Private Sub A3_Click(sender As System.Object, e As System.EventArgs) Handles A3.Click
If layar.Text = “0” Then
layar.Text = “3”
Else
layar.Text = layar.Text & “3”
End If
End Sub
Private Sub A4_Click(sender As System.Object, e As System.EventArgs) Handles A4.Click
If layar.Text = “0” Then
layar.Text = “4”
Else
layar.Text = layar.Text & “4”
End If
End Sub
Private Sub A5_Click(sender As System.Object, e As System.EventArgs) Handles A5.Click
If layar.Text = “0” Then
layar.Text = “5”
Else
layar.Text = layar.Text & “5”
End If
End Sub
Private Sub A6_Click(sender As System.Object, e As System.EventArgs) Handles A6.Click
If layar.Text = “0” Then
layar.Text = “6”
Else
layar.Text = layar.Text & “6”
End If
End Sub
Private Sub A7_Click(sender As System.Object, e As System.EventArgs) Handles A7.Click
If layar.Text = “0” Then
layar.Text = “7”
Else
layar.Text = layar.Text & “7”
End If
End Sub
Private Sub A8_Click(sender As System.Object, e As System.EventArgs) Handles A8.Click
If layar.Text = “0” Then
layar.Text = “8”
Else
layar.Text = layar.Text & “8”
End If
End Sub
Private Sub A9_Click(sender As System.Object, e As System.EventArgs) Handles A9.Click
If layar.Text = “0” Then
layar.Text = “9”
Else
layar.Text = layar.Text & “9”
End If
End Sub
Private Sub A0_Click(sender As System.Object, e As System.EventArgs) Handles A0.Click
If layar.Text = “0” Then
layar.Text = “0”
Else
layar.Text = layar.Text & “0”
End If
End Sub
Private Sub klikkoma_Click(sender As System.Object, e As System.EventArgs) Handles klikkoma.Click
If layar.Text = “0” Then
layar.Text = layar.Text + “.”
Else
layar.Text = layar.Text + “.”
End If
End Sub
Private Sub kliktambah_Click(sender As System.Object, e As System.EventArgs) Handles kliktambah.Click
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka + Val(layar.Text)
End If
operasi = “+”
layar.Text = “”
End Sub
Private Sub klikkurang_Click(sender As System.Object, e As System.EventArgs) Handles klikkurang.Click
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka – Val(layar.Text)
End If
operasi = “-“
layar.Text = “”
End Sub
Private Sub klikpersen_Click(sender As System.Object, e As System.EventArgs) Handles klikpersen.Click
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka / 100
End If
operasi = “%”
layar.Text = “”
End Sub
Private Sub klikkali_Click(sender As System.Object, e As System.EventArgs) Handles klikkali.Click
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka * Val(layar.Text)
End If
operasi = “X”
layar.Text = “”
End Sub
Private Sub klikbagi_Click(sender As System.Object, e As System.EventArgs) Handles klikbagi.Click
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka / Val(layar.Text)
End If
operasi = “÷”
layar.Text = “”
End Sub
Private Sub klikpangkat_Click(sender As System.Object, e As System.EventArgs) Handles klikpangkat.Click
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka ^ Val(layar.Text)
End If
operasi = “^”
layar.Text = “”
End Sub
Private Sub klikakar_Click(sender As System.Object, e As System.EventArgs) Handles klikakar.Click
If angka = “0” Then
angka = Val(layar.Text)
Else
angka = angka ^ (1 / 2)
End If
operasi = “√”
layar.Text = “”
End Sub
Private Sub klikcos_Click(sender As System.Object, e As System.EventArgs) Handles klikcos.Click
layar.Text = Math.Cos(layar.Text * (Phi / 180))
End Sub
Private Sub kliksin_Click(sender As System.Object, e As System.EventArgs) Handles kliksin.Click
layar.Text = Math.Sin(layar.Text * (Phi / 180))
End Sub
Private Sub kilktan_Click(sender As System.Object, e As System.EventArgs) Handles kilktan.Click
layar.Text = Math.Tan(layar.Text * (Phi / 180))
End Sub
Private Sub kliklog_Click(sender As System.Object, e As System.EventArgs) Handles kliklog.Click
layar.Text = Math.Log(layar.Text)
End Sub
Private Sub klikhasil_Click(sender As System.Object, e As System.EventArgs) Handles klikhasil.Click
Select Case operasi
Case “+”
hasil = angka + Val(layar.Text)
layar.Text = hasil
Case “-“
hasil = angka – Val(layar.Text)
layar.Text = hasil
Case “%”
hasil = angka / 100
layar.Text = hasil
Case “X”
hasil = angka * Val(layar.Text)
layar.Text = hasil
Case “÷”
hasil = angka / Val(layar.Text)
layar.Text = hasil
Case “^”
hasil = angka ^ Val(layar.Text)
layar.Text = hasil
Case “√”
hasil = angka ^ 0.5
layar.Text = hasil
End Select
End Sub
Private Sub klikhapus_Click(sender As System.Object, e As System.EventArgs) Handles klikhapus.Click
If layar.Text.Length <> 0 Then
layar.Text = layar.Text.Remove(layar.TextLength – 1, 1)
End If
End Sub
Private Sub klikclear_Click(sender As System.Object, e As System.EventArgs) Handles klikclear.Click
layar.Text = “0”
angka = 0
hasil = 0
operasi = “”
End Sub
Private Sub klikexit_Click(sender As System.Object, e As System.EventArgs) Handles klikexit.Click
End
End Sub
End Class
Dan ini yakni gambar dikala agenda dijalankan, disini saya menentukan operasi perkalian
Saya mencoba menjelaskannya sejelas-jelasnya jadi ini mungkin sedikit terlalu panjang, tapi saya harap ini akan lebih memudahkan kalian.
Semoga postingan kali ini bermanfaat silahkan tuliskan komentar kalian dibawah, disini kita sama-sama berguru jadi jangan sungkan berkomentar bila ada yang salah atau kurang jelas.