Cara Membuat Program KALKULATOR menggunakan VB 6.0

1.   Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

  2.    Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

  3.    Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.

 

    Atur properti kontrol TextBox dan CommandButton baru seperti berikut.  

Kontrol	Properti
Text1	Text
Command2	Name Caption	cmdKoma .
Command3	Name Caption	cmdC C
Command4	Name Caption	cmdTambah +
Command5	Name Caption	cmdKurang -
Command6	Name Caption	cmdTanda +/-
Command7	Name Caption	cmdBagi /
Command8	Name Caption	cmdKali X
Command9	Name Caption	cmdcmdakar sqr
Command10	Name Caption	Cmdsamadengan =
Command11	Name Caption	Pangkat ^

 Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

Kode program

Private pilihan As String

Private x As Double

Private y As Double

Private Sub cmd1_Click(Index As Integer)

Text1.Text = Text1.Text & cmd1(Index).Caption

x = Text1.Text

cmdtanda.Enabled = True

End Sub

Private Sub cmdakar_Click()

If x < 0 Then

Text1.Text = "Angka Tidak Boleh Negatif Coy"

Else

Text1.Text = Sqr(x)

End If

End Sub

Private Sub cmdbagi_Click()

Text1.Text = ""

pilihan = "bagi"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdc_Click()

Text1.Text = ""

y = x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdkali_Click()

Text1.Text = ""

pilihan = "kali"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdkurang_Click()

Text1.Text = ""

pilihan = "kurang"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdpangkat_Click()

If x = 0 Then

x = Val(Text1.Text)

Else

x = x ^ Val(Text1.Text)

End If

Operator = "^"

Text1.Text = 0

End Sub

Private Sub cmdsamadengan_Click()

If pilihan = "tambah" Then

x = y + x

Text1.Text = x

ElseIf pilihan = "kurang" Then

x = y - x

Text1.Text = x

ElseIf pilihan = "kali" Then

x = y * x

Text1.Text = x

ElseIf pilihan = "bagi" And x <> 0 Then

x = y / x

Text1.Text = x

Else

Text1.Text = "Tidak Terdefinisi"

End If

End Sub

Private Sub cmdtambah_Click()

Text1.Text = ""

pilihan = "tambah"

y = x

x = 0

cmdtanda.Enabled = False

End Sub

Private Sub cmdtanda_Click()

If x < 0 Then

Text1.Text = -x

x = -x

Else

Text1.Text = "-" & Text1.Text

x = -x

End If

End Sub

Private Sub cmdtitik_Click()

If Text1.Text = "" Then

Text1.Text = "0."

Else

Text1.Text = Text1.Text & "."

End If

End Sub

Private Sub Form_Load()

cmdtanda.Enabled = False

End Sub

Related Post:

Posted in: TIPS dan TRIK