Taki-takining Sewaka Guna Widya

Didalam menggunakan komputer sering kali kita menemukan permasalahan perhitungan dengan matematika, dan terkadang hitung-hitungan tersebut memerlukan bantuan alat bantu hitung berupa sebuah aplikasi.

nah berikut ini saya berbagai bagaimana membuat aplikasi kalkulator sederhana dengan menggunakan aplikasi bahasa pemerograman visual basic.

Langkah-langkah membuat simple calculator

1. Buka program Visual Studio/Visual Basic

2. Pilih Standar Exe project dari window konfirmasi yang muncul

3. Di form baru yang muncul, buat 1 frame dengan mengklik pilihan frame disebelah kiri, kemudian klik dan drag di form yang ada.

4. Setelah frame ada, klik tombol textbox yang ada disebelah kiri, kemudian klik drag di form, diatas frame yang dibuat sebelumnya.  Ubah Captionnya menjadi “0”.

5. Setelah itu. klik tombol commandbutton yang ada disebelah kiri, kemudian klik drag di bawah textbox yang dibuat sebelumnya. Buat beberapa tombol seperti dilihat dibawah ini :

Kemudian ubah masing-masing caption seperti terlihat dibawah ini :

:

Sekarang masuk kebagian coding :

1. Icon on/off disebelah kanan atas, double klik kemudian ketikkan code dibawah ini  :

Private Sub Command15_Click()

txtDisplay.Text = “”

Frame1.Enabled = Not Frame1.Enabled

If Frame1.Enabled Then

    Command15.Picture = LoadPicture(App.Path + “\images\MISC15.ICO”)

    txtDisplay.Text = “0”

    valeur1 = 0

Else

    Command15.Picture = LoadPicture(App.Path + “\images\MISC14.ICO”)

End If

End Sub

2. Double klik tombol 1, kemudian input code dibawah ini :

Private Sub Command1_Click()

    If firsttime Then

     txtDisplay.Text = Val(Command1.Caption)

     firsttime = False

    Else

     txtDisplay.Text = txtDisplay.Text + Command1.Caption

    End If

End Sub

3. Double klik tombol 2, kemudian input code dibawah ini :

Private Sub Command2_Click()

If firsttime Then

     txtDisplay.Text = Val(Command2.Caption)

     firsttime = False

    Else

     txtDisplay.Text = txtDisplay.Text + Command2.Caption

    End If

End Sub

4. Double klik tombol 3, kemudian input code dibawah ini :

Private Sub Command3_Click()

If firsttime Then

     txtDisplay.Text = Val(Command3.Caption)

     firsttime = False

Else

     txtDisplay.Text = txtDisplay.Text + Command3.Caption

End If

End Sub

5. Double klik tombol 4, kemudian input code dibawah ini :

Private Sub Command4_Click()

If firsttime Then

     txtDisplay.Text = Val(Command4.Caption)

     firsttime = False

 Else

     txtDisplay.Text = txtDisplay.Text + Command4.Caption

    End If

End Sub

6. Double klik tombol 5, kemudian input code dibawah ini :

Private Sub Command5_Click()

If firsttime Then

     txtDisplay.Text = Val(Command5.Caption)

     firsttime = False

  Else

     txtDisplay.Text = txtDisplay.Text + Command5.Caption

    End If

End Sub

7. Double klik tombol 6, kemudian input code dibawah ini :

Private Sub Command6_Click()

If firsttime Then

     txtDisplay.Text = Val(Command6.Caption)

     firsttime = False

   Else

     txtDisplay.Text = txtDisplay.Text + Command6.Caption

    End If

End Sub

8. Double klik tombol 7, kemudian input code dibawah ini :

Private Sub Command7_Click()

If firsttime Then

     txtDisplay.Text = Val(Command7.Caption)

     firsttime = False

    Else

     txtDisplay.Text = txtDisplay.Text + Command7.Caption

End If

End Sub

9. Double klik tombol 8, kemudian input code dibawah ini :

Private Sub Command8_Click()

If firsttime Then

     txtDisplay.Text = Val(Command8.Caption)

     firsttime = False

 Else

     txtDisplay.Text = txtDisplay.Text + Command8.Caption

End If

End Sub

10. Double klik tombol 9, kemudian input code dibawah ini :

Private Sub Command9_Click()

If firsttime Then

     txtDisplay.Text = Val(Command9.Caption)

     firsttime = False

    Else

     txtDisplay.Text = txtDisplay.Text + Command9.Caption

End If

End Sub

11. Double klik tombol 0, kemudian input code dibawah ini :

Private Sub Command10_Click()

    If firsttime Then

     txtDisplay.Text = Val(Command10.Caption)

     firsttime = False

    Else

     txtDisplay.Text = txtDisplay.Text + Command10.Caption

    End If

End Sub

12. Double klik tombol +, kemudian input code dibawah ini :

Private Sub Command12_Click()

valeur1 = txtDisplay.Text

operation = “+”

txtDisplay.Text = “0”

firsttime = True

End Sub

13. Double klik tombol , kemudian input code dibawah ini :

Private Sub Command13_Click()

valeur1 = txtDisplay.Text

operation = “-“

txtDisplay.Text = “0”

 firsttime = True

End Sub

14. Double klik tombol *, kemudian input code dibawah ini :

Private Sub Command16_Click()

valeur1 = txtDisplay.Text

operation = “*”

txtDisplay.Text = “0”

firsttime = True

End Sub

15. Double klik tombol /, kemudian input code dibawah ini :

Private Sub Command17_Click()

valeur1 = txtDisplay.Text

operation = “\”

txtDisplay.Text = “0”

 firsttime = True

End Sub

16. Double klik tombol CLEAR, kemudian input code dibawah ini :

Private Sub Command11_Click()

txtDisplay.Text = “0”

End Sub

17. Double klik tombol =, kemudian input code dibawah ini :

Private Sub Command14_Click()

    If (operation = “+”) Then

        txtDisplay.Text = valeur1 + txtDisplay.Text

    End If   

    If (operation = “-“) Then

         txtDisplay.Text = valeur1 – txtDisplay.Text

    End If   

    If (operation = “\”) Then

        If (txtDisplay.Text <> 0) Then

             txtDisplay.Text = valeur1 / txtDisplay.Text

        End If

    End If

    If (operation = “*”) Then

         txtDisplay.Text = valeur1 * txtDisplay.Text

    End If   

    If (operation = “^”) Then

         txtDisplay.Text = valeur1 ^ txtDisplay.Text

    End If

    firsttime = True

End Sub

Kemudian test run projesct dengan menekan F5 di keyboard

Untuk mengcompile project anda kedalam bentuk .exe, ikuti langkah dibawah ini.

1. Pilih menu File.

2. Pilih compile *****.exe (sesuai nama project anda)

Kemudian di windows popup yang mucul pilih OK.


Untuk Melihat Hasil Karya saya silakan Donload Di Sini

Powered by Qumana

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: