Membuat Program Operator Bilangan Dengan Microsoft Visual Basic 6.0

1.Langkah awal adalah anda harus membuka VB dulu,kemudian pilih New Project(standar exe).
Masukan Komponen berikut :

·        Buat 3 Buah TextBox

·        Buat 3 buah Command Button

·        1 comboBox

·        2 Buah Frame

·        Dan 3 buah Label ( atau Terserah Anda)

·        1 Image (Buat di Background biar keren...hehehe)

   Atur Propertiesnya Sebagai Berikut :

Ø TextBox1 :

Name  = txtBil1

Text = (Kosong)

Ø TextBox2 :

Name  = txtBil2

Text = (Kosong)

Ø TextBox3 :

Name  = txtHasil

Text = (Kosong)

Ø command1 :

Name  = cmdHitung

Caption = HITUNG

Ø command2 :

Name  = cmdreset

Caption = HAPUS

Ø command3 :

Name  = cmdExit

Caption = KELUAR

Ø comboBox1 :

Name  = Combo1

Text = ... Pilih Operator ...

List = Penjumlahan

          Pengurangan

          Perkalian

          Pembagian

Ø Frame1 :

Name  = Frame1

Caption = Nilai Operasi

Ø Frame2 :

Name  = Frame2

Caption = Hasil Operasi

Ø Label1 :

Name  = label1

Caption = Masukan Bilangan ke 1

Ø Label2 :

Name  = label2

Caption = Masukan Bilangan ke 2

Ø Label3 :

Name  = label3

Caption = Hasil Operasi

    Pemberian Listing Kode :

Letakan Paling Atas :

Dim bil1 As Integer

Dim bil2 As Integer

Dim Hasil As Single

Dim Operator As Integer '1 – Penjumlahan

Klik dua Kali di cmd Reset :

Private Sub cmdreset_Click()

Txtbil1.Text = ""

Txtbil2.Text = ""

TxtHasil.Text = ""

End Sub

Klik dua Kali di cmdHitung :

Private Sub Cmdhitung_Click()

If Txtbil1.Text = "" Then

MsgBox "Anda Belum Memasukan Bilangan Ke Satu.!! Silahkan Isi Dulu.!!!"

TxtBil1.SetFocus

ElseIf TxtBil2.Text = "" Then

MsgBox "Anda Belum Memasukan Bilangan Ke Dua.!! Silahkan Isi Dulu.!!!"

TxtBil2.SetFocus

Else

TxtHasil.Text = ""

End If

If Combo1.Text = "Penjumlahan" Then

bil1 = TxtBil1.Text

bil2 = TxtBil2.Text

TxtHasil.Text = bil1 + bil2

End If

If Combo1.Text = "Pengurangan" Then

TxtHasil.Text = Txtbil1 - TxtBil2

End If

If Combo1.Text = "Perkalian" Then

TxtHasil.Text = TxtBil1 * TxtBil2

End If

If Combo1.Text = "Pembagian" Then

TxtHasil.Text = TxtBil1 / TxtBil2

End If

End Sub

Klik dua Kali di cmdExit

Private Sub cmdExit_click()

End

End Sub

   Langkah Terakhir,Jalankan Program.

    Jika Program Error,mungkin anda terlalu terpaku dengan kode yang saya buat,jadi saya sarankan anda untuk lebih teliti dan lebih jeli lagi.

Jika Kode Ini Banyak Yang Error Silahkan Kirimkan Keluhan Anda ke alamat e-mail saya : m_pawit@yahoo.com

Atau ke No.Telephone : 081909693671

THANKS.!!!