Artikel kali ini akan saya coba membuat program sederhana Operasi Aritmatika tetap menggunakan Program Visual Basic 6.0. Langkah kerja yang harus dilakukan setelah membuka program Visual Basic adalah :
Buatlah 3 buah label, 1 bh Frame, 3 buah Textbox, dan 9 buah command button. Maka akan terlihat hasilnya nanti seperti :
1. Dobel klik cmdtambah, ketik code berikut :
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA + nilaiB
Txt_Hasil = hasil
2. Dobel klik cmdkurang, ketik code berikut :
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA - nilaiB
Txt_Hasil = hasil
3. Dobel klik cmdkali, ketik code berikut :
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA * nilaiB
Txt_Hasil = hasil
4. Dobel klik cmdbagi, ketik code berikut :
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA / nilaiB
Txt_Hasil = hasil
5. Dobel klik cmdmod, ketik code berikut :
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA mod nilaiB
Txt_Hasil = hasil
6. Dobel klik cmdpangkat, ketik code berikut :
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA ^ nilaiB
Txt_Hasil = hasil
7. Dobel klik cmdslash, ketik code berikut :
Dim NilaiA As Integer
Dim nilaiB As Integer
Dim hasil As Integer
NilaiA = Val(Txt_NilaiA.Text)
nilaiB = Val(Txt_NilaiB.Text)
hasil = NilaiA \ nilaiB
Txt_Hasil = hasil
8. Dobel klik cmdulangi, ketik code berikut :
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
9. Dobel klik cmdkeluar, ketik code berikut :
Dim pesan As Byte pesan = MsgBox("Anda Ingin Keluar?", vbYesNo, "Pesan") If pesan = vbYes Then Unload Me End If
