Kalkulator merupakan salah satu aplikasi yang dapat mempermudah proses penjumlahan, perkalian, pengurangan, dan pembagian dengan cepat dan mudah. Kali ini saya akan mencoba membuat sebuah aplikasi dengan Microsoft visual besic 6.0 mengenai kalkulator. Adapun langkah – langkah pengerjaanya sebagai berikut :
- Langkah Pertama : Desain Aplikasi seperti gambar dibawah ini.
- Langkah Pertama : Desain Aplikasi seperti gambar dibawah ini.
Keterangan : Rubahlah Caption Label dan Command pada area Properties.
Label2 => Angka Kedua
Label3 => Jumlah
Command1 => + (Penjumlahan)
Command2 => - (Pengurangan)
Command3 => : (Pembagian)
Command4 => X (Perkalian)
Command5 => Keluar (menutup aplikasi)
Command6 => C (Clear)
- Langkah Kedua : Masukan coding dibawah ini kedalam area code program.
Tombol1 (Penjumlahan)
Private Sub Command1_Click()
Text3.Text = (Val(Text1.Text) + Val(Text2.Text))
End Sub
Tombol2 (Pengurangan)
Private Sub Command2_Click()
Text3.Text = (Val(Text1.Text) - Val(Text2.Text))
End Sub
Tombol3 (Pembagian)
Private Sub Command3_Click()
Text3.Text = (Val(Text1.Text) / Val(Text2.Text))
End Sub
Tombol4 (Perkalian)
Private Sub Command4_Click()
Text3.Text = (Val(Text1.Text) * Val(Text2.Text))
End Sub
Tombol5 (Keluar)
Private Sub Command5_Click()
Unload Me
End Sub
Tombol6 (Clear)
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Demikianlah tutorial yang singkat dan sederhana ini semoga dapat membantu saudara yang sedang belajar membuat aplikasi dengan menggunakan microsoft visual basic 6.0 ini akhir kata penulis ucapkan terimakasih banyak atas kunjungan saudara. Wasalammmm...
Label2 => Angka Kedua
Label3 => Jumlah
Command1 => + (Penjumlahan)
Command2 => - (Pengurangan)
Command3 => : (Pembagian)
Command4 => X (Perkalian)
Command5 => Keluar (menutup aplikasi)
Command6 => C (Clear)
- Langkah Kedua : Masukan coding dibawah ini kedalam area code program.
Tombol1 (Penjumlahan)
Private Sub Command1_Click()
Text3.Text = (Val(Text1.Text) + Val(Text2.Text))
End Sub
Tombol2 (Pengurangan)
Private Sub Command2_Click()
Text3.Text = (Val(Text1.Text) - Val(Text2.Text))
End Sub
Tombol3 (Pembagian)
Private Sub Command3_Click()
Text3.Text = (Val(Text1.Text) / Val(Text2.Text))
End Sub
Tombol4 (Perkalian)
Private Sub Command4_Click()
Text3.Text = (Val(Text1.Text) * Val(Text2.Text))
End Sub
Tombol5 (Keluar)
Private Sub Command5_Click()
Unload Me
End Sub
Tombol6 (Clear)
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Demikianlah tutorial yang singkat dan sederhana ini semoga dapat membantu saudara yang sedang belajar membuat aplikasi dengan menggunakan microsoft visual basic 6.0 ini akhir kata penulis ucapkan terimakasih banyak atas kunjungan saudara. Wasalammmm...
0 Komentar untuk "KALKULATOR SEDERHANA DENGAN MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0"
------------------------------------------------------------------------------------
ATURAN PEMBERIAN KOMENTAR DAN SARAN :
- SOPAN
- RELEVAN
SILAHKAN BERIKAN KOMENTAR SAUDARA
ATAS PERHATIANNYA SAYA UCAPKAN TERIMAKASIH!!!
-------------------------------------------------------------------------------------