Forum Informatika
Silahkan Login

Kami sarankan anda register atau daftar terlebih dahulu agar anda dapat mendownload atau membuka category forum secara keseluruhan....
karena ada beberapa forum yang tertutup untuk tamu dan dengan Login Anda bisa menggunakan fasilitas Chatting yang kami miliki.

Selamat Bergabung

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeFAQPasang Iklanfacebook InformatikaRegisterLog inNew Tab Newscomputer

Share | 
 

 Membuat vb kalkulator dengan function

View previous topic View next topic Go down 
AuthorMessage


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: Membuat vb kalkulator dengan function   Wed 05 May 2010, 08:00



Code:
Function hasil(data As String) As Variant

Dim sum As Variant

Select Case text2

Case "+": sum = Val(text1) + Val(text3)
Case "-": sum = text1 - text3
Case "*": sum = text1 * text3
Case "/": sum = text1 / text3

End Select

hasil = sum


End Function

Private Sub cmdclean_Click()
text1.Text = ""
text2.Text = ""
text3.Text = ""
text4.Text = ""
End Sub

Private Sub cmdhasil_Click()

text4 = hasil(text2)

End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub


DOWNLOAD




Last edited by admin on Wed 27 Oct 2010, 09:14; edited 1 time in total
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


ares7

Moderator
Rank : Moderator


My Pets :
Jumlah posting : 25
Point : 2029
Reputasi : 0
Join date : 2010-04-23

PostSubject: Re: Membuat vb kalkulator dengan function   Wed 05 May 2010, 19:52

nice tapi teu di wonload ok
Back to top Go down
 

Membuat vb kalkulator dengan function

View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forum Informatika ::  :: VB6-
Jump to:  

Make a forum | © phpBB | Free forum support | Contact | Report an abuse | Free forum