Jumat, 15 April 2011

Membuat Kalkulator Sederhana menggunakan Visual Basic 6.0

Pada artikel kali ini, Andero akan membahas tentang sebuah aplikasi yang terbilang cukup mudah untuk di buat. Kalkulator. Kalkulator sebenarnya telah disediakan oleh OS Windows Xp namun kita dapat membuatnya sendiri sesuai keinginan kita. Tujuannya adalah untuk mengasa kemampuan programming yang kita miliki termasuk kemampuan logika kita.
    Adapun langkah-langkah dalam membuat kalkulator sederhana menggunakan visual basic adalah sebagai berikut:
1.    Buka program visual basic yang telah terinstal di komputer anda. Dalam hal ini Andiero menggunakan Visual Basic versi 6.0
2.    Buat sebuah project baru dan pilih standart EXE.
3.    Kemudian tambahkan tiga buah contol textbox. Satu untuk hasil, satu untuk bilangan pertama dan yang lainnya untuk bilangan kedua.
4.    Tambahkan sebuah command button dan ubah namanya menjadi CmdOperator. Selanjutnya copykan sebanyak tiga buah. Tambahkan lagi sebuah command button.
5.    Atur propertiesnya sesuai keinginan anda. Atur tampilannya kurang lebih seperti gambar.1 berikut.


Gambar.1 Desain Kalkulator sederhana
6.    Klik salah satu CmdOperator dan ketikan Scipt Basic berikut:
Dim Operator As Integer
Dim hasil  As Single

Operator = Index

If Txt1.Text = "" Or Txt2.Text = "" Then Exit Sub

Select Case Operator
Case 0
    hasil = CSng(Txt1.Text) + CSng(Txt2.Text)
Case 1
    hasil = CSng(Txt1.Text) - CSng(Txt2.Text)
Case 2
    hasil = CSng(Txt1.Text) * CSng(Txt2.Text)
Case 3
    If Txt2.Text = 0 Then
        TxtHasil.Text = "Hasil melampaui batas"
        Exit Sub
    End If
    hasil = CSng(Txt1.Text) / CSng(Txt2.Text)
End Select
TxtHasil.Text = hasil
7.    Klik dua kali command button C dan ketikan script visual basic berikut:
Txt1.Text = ""
Txt2.Text = ""
TxtHasil.Text = ""
Txt1.SetFocus
8.    Selanjutnya jalankan Program yang anda buat. Jika tidak ada masalah, program anda telah berhasil di buat.
9.    Masalah dari program tersebut adalah jika nilai yang kita masukan bukan berupa angka maka akan terjadi masalah baru.(Silakan baca http://bocah-cakil.blogspot.com\2010\04\hanya-angka-yang-bisa-tips-dan-trik.html) Namun jangan khawatir hal tersebut dapat di atasi dengan perintah sebagai berikut.
Private Sub Txt1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub
10.    selanjutnya silakan jalankan program kalkulator sederhanan buatan anda sendiri.

Keyword: Membuat program sederhana menggunakan visual basic, membuat aplikasi sederhana menggunakan visual basic, program sederhana dengan visual basic, aplikasi sederhana visual basic, tutorial visual basic, tips dan trik visual basic, programming with visual basic, made a simple program with visual basic, contoh program visual basic, listing program visual basic, programer visual basic, membuat kalkulator sederhana, membuat kalkulator sederhana menggunakan visual basic, kalkulator sederhana dengan visual basic.






1 komentar:

Need Your Comments, Please !!!