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:
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.
====================================
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
================================ Semoga Bermanfaat ============================
1 komentar:
good !!
Posting Komentar