Membuat Kalkulator Tombol Visual Basic 6.0 - Hallo sahabat Dev-Create, Pada Artikel yang anda baca kali ini dengan judul Membuat Kalkulator Tombol Visual Basic 6.0, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Visual Basic 6.0, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Membuat Kalkulator Tombol Visual Basic 6.0
link : Membuat Kalkulator Tombol Visual Basic 6.0

Baca juga


Membuat Kalkulator Tombol Visual Basic 6.0

Selamat Siang kawan ^_^
Kali ini aku pengen share apa yang ku pelajarin di sekolah :D
kita akan belajar bikin Kalkulator. Emang ngga berguna sih hasilnya karna kalkulator sekarang sudah ada di setiap komputer dan henpon :v
Tapi mungkin cara kerja programnya akan berguna untuk membuat program lain. oke kita mulai!

Pertama coba kalian bikin desain formnya seperti ini
di gambar ada 4 Label dan 16 Command. Ubah Properties (Name) nya menjadi seperti ini :

Tombol
(Name)
Tombol
(Name)
1
b1
9
b9
2
b2
0
b0
3
b3
+
bTambah
4
b4
-
bKurang
5
b5
/
bBagi
6
b6
*
bKali
7
b7
=
bHasil
8
b8
Hapus
bHapus

Kalau Label nya biarin aja kaya gitu ga usah di rubah.
Oke saatnya kita berkoding ria :v

Private Sub b0_Click()
Label1.Caption = Label1.Caption & b0.Caption
End Sub
Private Sub b1_Click()
Label1.Caption = Label1.Caption & b1.Caption
End Sub
Private Sub b2_Click()
Label1.Caption = Label1.Caption & b2.Caption
End Sub
Private Sub b3_Click()
Label1.Caption = Label1.Caption & b3.Caption
End Sub
Private Sub b4_Click()
Label1.Caption = Label1.Caption & b4.Caption
End Sub
Private Sub b5_Click()
Label1.Caption = Label1.Caption & b5.Caption
End Sub
Private Sub b6_Click()
Label1.Caption = Label1.Caption & b6.Caption
End Sub
Private Sub b7_Click()
Label1.Caption = Label1.Caption & b7.Caption
End Sub
Private Sub b8_Click()
Label1.Caption = Label1.Caption & b8.Caption
End Sub
Private Sub b9_Click()
Label1.Caption = Label1.Caption & b9.Caption
End Sub

koding di atas berfungsi untuk menambah angka ketika kita meng-klik tombol angka tersebut. Jadi ketika tombol 1 di klik maka Caption Label 1 akan berubah menjadi gabungan antara Caption Tombol 1 dan Caption Label 1. Kira-kira begitulah cara kerjanya :v
Oke kita lanjut ke koding selanjutnya!

Private Sub bTambah_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bTambah.Caption
Label1.Caption = ""
End Sub
Private Sub bKurang_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bKurang.Caption
Label1.Caption = ""
End Sub
Private Sub bKali_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bKali.Caption
Label1.Caption = ""
End Sub
Private Sub bBagi_Click()
Label2.Caption = Label1.Caption
Label4.Caption = bBagi.Caption
Label1.Caption = ""
End Sub

biar kujelasin cara kerja koding ini. Jadi ketika tombol tambah di klik, apa yang ada ada di Label1 akan di taruh di Label2. Terus tanda tambah yang ada di Caption tombol tambah juga di taruh di Label 4 untuk di proses di koding selanjutnya. Kemudian Label1 di kosongkan agar memudahkan pengguna (kaya ada yang gunain aja wkwkw :v). Lanjuuut!

Private Sub bHasil_Click()
Label3.Caption = Label1.Caption
Label1.Caption = ""
Select Case Label4.Caption
Case "+"
Label1.Caption = Val(Label2.Caption) + Val(Label3.Caption)
Case "-"
Label1.Caption = Val(Label2.Caption) - Val(Label3.Caption)
Case "x"
Label1.Caption = Val(Label2.Caption) * Val(Label3.Caption)
Case "/"
Label1.Caption = Val(Label2.Caption) / Val(Label3.Caption)
End Select
End Sub

di sini aku mengasumsikan kalau kalian udah input nilai yang ke dua, jadi ketika tombol hasil(=) di klik apa yang ada di Label1 akan di taruh di Label 3. Kemudian kita membuat Case sesuai dengan apa yang ada di Label4. Jika di Label4 berisi lambang tambah maka Label2 di tambah Label3 dan hasilnya di taruh di Label1 begitu juga dengan lambang kurang, kali dan bagi.

oiya ada yang ketinggalan :v
ini koding hapusnya

Private Sub bHapus_Click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
End Sub

kalo yang ini pasti ngerti kan? -,-
dari kodingnya aja udah kliatan fungsinya, ga ngerti jitak nih :v

oke sekian, semoga bermanfaat~


Demikianlah Artikel Membuat Kalkulator Tombol Visual Basic 6.0

Sekianlah artikel Membuat Kalkulator Tombol Visual Basic 6.0 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Membuat Kalkulator Tombol Visual Basic 6.0 dengan alamat link https://dev-create.blogspot.com/2020/03/membuat-kalkulator-tombol-visual-basic.html