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 | 
 

 buat vb6 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: buat vb6 kalkulator dengan function !!!   Tue 04 May 2010, 23:03




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


Back to top Go down
http://software-download1001.blogspot.com/
 

buat vb6 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:  

Private forum on Forumotion | © phpBB | Free forum support | Contact | Report an abuse | Free forum