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 | 
 

 Converter Nilai berupa Angka Ke Huruf dengan VB6

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: Converter Nilai berupa Angka Ke Huruf dengan VB6   Sat 07 Aug 2010, 18:24


Code:

Private Sub Command1_Click()

Select Case Val(Text1)

Case 85 To 100: Data = "A"
Case 75 To 84: Data = "B"
Case 65 To 74: Data = "C"
Case 50 To 64: Data = "D"
Case 0 To 49: Data = "E"

End Select

Label2.Caption = "Index Nilai Anda " & Data

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

Converter Nilai berupa Angka Ke Huruf dengan VB6

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:  

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