Operasi Aritmatika dengan Visual Basic

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

Read More