Membuat kalkulator Sederhana/sedikit belajar mengenali pemograman/visual basic

posted by: irv4n s@ndEr

firstly,mungkin saya belum begitu paham dengan semua sistem operasi dan bahasa program yang ada,namun saya hanya ingin berbagi pengetahuan kepada anda yang belum mengenal ini,dan bagi para programmer / atau teman-teman yang jauh lebih pandai mohon bantuan dan dukungannya..... ok let's go !!! 

 

jika belum ada  visual basic 6 exe download dulu ya..... click disini untuk download vb !!
dan dapatkan juga tutorial ini dengan mendownload file pdfnya dibawah ini:

mengapa kita menggunakan vb6.0? karena aplikasi ini cocok buat para pemula namun fitur yang disediakan vb lumayan lengkap/memuaskan,selain itu anda lebih mudah memahaminya, walaupun banyak sofware-sofware pendukung dalam pembuatan project aplikasi lainnya.

Membuat kalkulator dengan vb 6 exe kita memanfaatkan fungsi array,karena pemakaian control array sangat berguna bila kita membuat project yang membutuhkan banyak komponen-komponen yang kegunaan dan modelnya yang sama. Ya bisa dikatakan control array berfungsi meng_copy dari komponen satu dengan yang lainya atau membuat komponen serupa dengan jumlah yang banyak.

               

Membuat kalkulator sederhana yang memiliki kemampuan penjumlahan dan pengurangan yang menggunakan control array akan mempermudah kita dalam pembuat project kita kali ini. Langkah-langkah pembuatan project kita sbb :

#  buka vb standard exe,kemudian ganti nilai propertinya :

a.   Form1

Name              = frmSmarv4n

Caption          = kalkulator sederhana,

Backcolor     = hitam

Borderstyle   = 5-size Toolwindow, kemudian.

# memanfaatkan control array dengan cara :

b.      Masukkan komponen command button kedalam form dengan mengganti nilai property:

1.     Command1

Name= cmdangka .kemudian,copy paste  berjumlah 10 ,setiap peng_copy’an akan bernilai.dimulai dari (0),(1),(3),dan seterusnya dan masing-masing  komponen atur lagi nila propertinya

Caption =(0,1,2,3,4,5,6,7,8,9)

2.    Command2

Name     =cmd Clear

Caption = C

3.    Command3

Name = cmdHitung,copy paste seperti contoh di atas namu komponen yang kita butuhkan hanya 3 dan masing-masing komponen ganti nilai propertinya (Caption  : =,+,dan -)

4.   Command4

Name  = cmdExit

Caption = off

c.      Masukan textboxt kedalam form dengan pengaturan:

Alignment  = 1-right Justify

backColor  = hijau

Font            =Harrington(style : bold italic, size : 16)

Fore color= biru

 
     d.    Desaign seperti  gambar berikut :

ingat setiap anda meng_copy kompenen maka nilai aray akan berurutan contoh : command(0),command(1),dan seterusnya.

# masukkan code kedalam form< tulis kode di bawah>

Code:

==================================== general declarations  ======================================

Dim Smarvan, operasi As String

Dim evn  As String

Private Sub cmdAngka_Click(Index As Integer)

Smarvan = Smarvan + Trim(Str(Index))

Text1 = Smarvan

End Sub

Private Sub cmdClear_Click()

Text1 = "0"

Smarvan = ""

End Sub

Private Sub cmdHitung_Click(Index As Integer)

Select Case Index

Case 0:

evn2 = Val(Smarvan)

If operasi = "+" Then  evn =evn + evn2

If operasi = "-" Then  evn = evn- evn2

Text1 = bil

Smarvan = Trim(Str(evn))

Case 1:

evn= Val(smarvan)

operasi = "+"

Smarvan = ""

Case 2:

evn= Val(Smarvan)

operasi = "-"

Smarvan = ""

End Select

End Sub

Private Sub cmdExit_Click()

End

End Sub

==================================    good lucks    ==================================

email: boyhells@ymail.com

 

 joint to my facebook click disini

================================  Semoga Bermanfaat   ============================