postingan kali ini, saya akan melanjutkan posting yang lalu yang judulnya Tutorial Membuat Program Kalkulator Menggunakan ActiveX EXE di Visual Basic 6 (Bagian 1), jika anda belum membaca bagian 1 silahkan klik disini .
Pada postingan ini saya akan membahas bagaimana cara mengimplementasikan komponen ActiveX EXE yang telah di buat pada turorial bagian 1. Komponen ActiveX EXE tersebut akan kita implementasikan pada Standard EXE. Apa sih Standard EXE????? Standard EXE adalah Project standar dalam Visual Basic dengan komponen-komponen standar. Jenis project ini sangat sederhana, tetapi memiliki keunggulan bahwa semua komponennya dapat diakui oleh semua unit komputer dan semua user meskipun bukan administrator. Untuk mengimplementasikannya caranya yaitu:
- Seperti biasa pertama buka program Microsoft Visual Basic 6.0.
- Akan muncul Form Dialog pilih saja yang Standart EXE , dan jangan lupa klik tombol Open
- Buatlah tampilan seperti di bawah ini, untuk membuatnya kita hanya membutuhkan 3 TextBox dan 5 Command Button.
- Atur properties caption Command1 = +
- Atur properties caption Command2 = -
- Atur properties caption Command3 = x
- Atur properties caption Command4 = :
- Atur properties caption Command5= keluar
-
- Setelah selesai mendesain, sekarang saatnya memanggil komponen ActiveX EXE yang sudah kita buat tadi, caranya yaitu pilih Project => References.
- Kemudian akan muncul Form Dialog References
- Pilih tombol Browse…, akan muncul Form Dialog lagi. Pada files of type ganti dengan : Executable Files (*.exe;*dll), kemudian pilih file kalkulator yang pernah kita buat pada tutorial 1 dan klik Open. Kemudian kita akan kembali pada form dialog References Project1.vbs, pilih saja tombol OK
- Kita telah menambahkan komponen ActiveX EXE yang tadi telah kita buat. Untuk mengecek apakah kita telah berhasil menambahkannya caranya yaitu buka view code (tempat mengetik source code) dan ketikkan source code di bawah ini :
Dim getclass As New kakulator.Class1
kemudia klik double Command1, ketikkan Source code dibawah ini :
Text3.Text = getclass.tambah(Text1.Text, Text2.Text)
klik double Command2, ketikkan Source code dibawah ini :
Text3.Text = getclass.kurang(Text1.Text, Text2.Text)
klik double Command3, ketikkan Source code dibawah ini :
Text3.Text = getclass.kali(Text1.Text, Text2.Text)
klik double Command4, ketikkan Source code dibawah ini :
Text3.Text = getclass.bagi(Text1.Text, Text2.Text)
klik double Command5, ketikkan Source code dibawah ini :
End
Program kalkulator sederhana menggunakan komponen ActiveX EXE yang kita buat telah selesai.
Password .rar : www.logikakode.com
