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 | 
 

 Memisahkan Inputan Huruf dan inputan angka di 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: Memisahkan Inputan Huruf dan inputan angka di VB6   Sat 07 Aug 2010, 18:28

Code:
Dim data(10) As String

Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "Isi Jumlah", vbCritical, "salah"
Text1.SetFocus

ElseIf IsNumeric(Text1) = False Then
MsgBox "Jumlah Diisi dengan Angka", vbCritical, "salah"
Text1.SetFocus

ElseIf Val(Text1) > 10 Then
MsgBox "Jumlah Tidak Lebih dari 10", vbCritical, "salah"
Text1.SetFocus

Else

For a = 1 To Val(Text1)
data(a) = InputBox("Input Data Ke - " & a)
Next a

For a = 1 To Val(Text1)
Text2(a) = data(a)
Text2(a).Visible = True
Next a

End If

End Sub

Private Sub Command2_Click()

For a = 1 To Val(Text1)
If IsNumeric(data(a)) = True Then
List1.AddItem data(a)
ElseIf IsNumeric(data(a)) = False Then
List2.AddItem data(a)
End If
Next a

End Sub

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

Memisahkan Inputan Huruf dan inputan angka di 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 | Forumotion.com