HELLO FLEN - Pada pemrograman ini saya akan membuat suatu
form yaitu operator aritmatika pada visual basic 6 dan kali ini, artikel yang
saya buat dengan judul dasar cara Membuat Form Operator Aritmatika Pada VB 6. Sebelum ke langkah pembuatan form, ada sedikit penjelasan mengenai operator aritmatika. Apa itu operator? Operator adalah simbol-simbol khusus yang digunakan untuk mengoperasikan suatu nilai data (operand).
Untuk aritmarika sendiri itu apa? Aritmatika adalah operator yang digunakan untuk melakukan operasi penjumlahan, pengurangan, pembagian, dan perkalian atau operator yg digunakan untuk melakukan perhitungan pada bilangan. Kita langsung saja pada pembahasan program, berikut langkah - langkahnya:
Untuk aritmarika sendiri itu apa? Aritmatika adalah operator yang digunakan untuk melakukan operasi penjumlahan, pengurangan, pembagian, dan perkalian atau operator yg digunakan untuk melakukan perhitungan pada bilangan. Kita langsung saja pada pembahasan program, berikut langkah - langkahnya:
Pertama
Buka aplikasi VB 6 Anda lalu, klik File > New Project > Standard EXE.
Kedua
Buat tampilannya seperti ini:
Buka aplikasi VB 6 Anda lalu, klik File > New Project > Standard EXE.
Kedua
Buat tampilannya seperti ini:
Properties pada label, textbox, commandbutton,
optionbutton:
Name
|
Label, Command = Caption | Textbox = Text
|
|
Label | Label1 | OPERATOR ARITMATIKA |
Label | Label2 | Nilai1 |
Label | Label3 | Nilai2 |
Label | Label4 | Nilai3 |
TextBox | txtnilai1 | Kosongkan |
TextBox | txtnilai2 | Kosongkan |
TextBox | txthasil | Kosongkan |
CommandButton | cmdtambah | + |
CommandButton | cmdkurang | - |
CommandButton | cmdkali | * |
CommandButton | cmdbagi | / |
Catatan: usahakan "Name" samakan, karena berpengaruh dengan coding dibawah ini:
Dim x, y As Integer
Dim hasil As String
Private Sub cmdtambah_Click()
x = Val(txtnilai1.Text)
y = Val(txtnilai2.Text)
hasil = x + y
txthasil.Text = hasil
End Sub
Private Sub cmdkali_Click()
hasil = x * y
txthasil.Text = hasil
End Sub
Private Sub cmdbagi_Click()
hasil = x / y
txthasil.Text = hasil
End Sub
Private Sub cmdkurang_Click()
hasil = x - y
txthasil.Text = hasil
End Sub
Ketiga
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:
Sekian pembahasan program mengenai tentang dasar cara Membuat
Form Operator Aritmatika Pada VB 6. Semoga dapat bermanfaat dan juga bisa
membantu untuk Anda yang sedang belajar tentang pendasaran pemrograman VB 6.