Paid To Click

FellowEquality.com

Jumat, 01 April 2011

MEMBUAT KALKULATOR SEDERHANA MENGGUNAKAN V.B 6.0


Membuat Kalkulator Sederhana
Kali ini kita akan membuat kalkulator yang sangat sederhana dengan menggunakan visual basic 6.0.Untuk mempersingkat waktu mari langsung saja kita lakukan.
1.Langkah Pertama

            Bukalah sebuah proyek visual basic 6.0 dengan menggunakan standard exe.



  
2.Tampilan form
            Setelah anda membuka visual basic 6.0 standard exe maka anda akan melihat tampilan form seperti ini.


3.Objek
            Setelah membuat form maka tambahkanlah objek sebagai berikut:
1.      4 buah command button
2.      3 buah label
3.      3 buah text box




Dan atur properties nya sebagai berikut:


4 Buah command button
1.Ganti masing-masing caption dengan + - * / satu command button 1 lambang
2.Ganti masing-masing name menjadi cmdtambah,cmdkurang,cmdkali,cmdbagi harus sesuai dengan caption.




3 Buah label
1.Untuk label jangan ganti namenya kita menggunakan name yang standard (tidak di rubah)
2.Ganti masing-masing caption menjadi nilai1=,nilai2=,hasil=.



3.Buah textbox
1.Ganti masing-masing name menjadi txtnilai1,txtnilai2,txthasil text box ini harus di letakkan sejajar dengan label yang sebelumnya,seperti label nilai1= harus sejajar dengan txtnilai1,dan begitu juga dengan ke dua textbox yang lain hal ini dilakukan agar kita mudah untuk mengingatnya.
2.kosongkan text di setiap textbox
           


NB:Perhatikan dengan cermat properties di atas apabila anda salah memasukkan name atau caption maka project ini tidak akan berjalan.

Dan inilah Hasil objeknya.
4.menghias objek
1.     1. Jika anda ingin meletakkan gambar sebagai background form dengan cara klik properties picture dan browser lah gambar yang ingin anda masukkan pastikan yang anda seleksi adalah form.
2.     2. Mengganti warna pada command button yaitu dengan klik properties style ubah dari standard menjadi grapichal,setelah style diganti klik lagi properties backcolor sesuai dengan warna keinginan anda.
3.      3.Untuk mengganti background pada label & textbox klik  properties backcolor dengan warna yang anda inginkan.
4
1.      4.Dan untuk mengganti jenis tulisan klik properties font dan silahkan ganti jenis tulisan dengan tulisan yang anda inginkan.


5.Koding proyek
            Nah inilah bagian yang paling ditunggu-tunggu yaitu koding (listing) dari proyek ini.
Nah ini dia koding proyeknya.


Dim nilai1 As Integer, nilai2 As Integer, hasil As Single

Private Sub cmdbagi_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 / nilai2
txthasil.Text = hasil
End Sub

Private Sub cmdkali_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 * nilai2
txthasil.Text = hasil
End Sub

Private Sub cmdkurang_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 - nilai2
txthasil.Text = hasil
End Sub

Private Sub cmdtambah_Click()
nilai1 = txtnilai1.Text
nilai2 = txtnilai2.Text
hasil = nilai1 + nilai2
txthasil.Text = hasil
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Dim answer As Integer
    answer = MsgBox("apakah anda sudah selesai & ingin keluar?", vbQuestion + vbYesNo, "confirmation")
    If answer = vbNo Then Cancel = -1
End Sub



 
Dan inilah Hasil dari proyek yang telah anda buat.







GIVE COMMENT HERE!


ShoutMix chat widget
Twitter Delicious Facebook Digg Stumbleupon Favorites More