Dear All,
Mohon bantuannya, saya ada kesulitan lg nih untuk range number, kira2
bagaimana caranya untuk range number itu ya?
contoh: saya input angka = 10
lalu saya input lg 1 s/d 9 => data ini nantinya akan masuk ke
database.
data yg dihasilkan didatabase adalah, 1,2,3,4,5,6,7,8,9.
saya coba buat seperti ini :
Private Sub Command1_Click()
'Dim i As Integer
'i = Text3.Text
'PHARRAY = Text3.Text
For i = 0 To 100
If PHARRAY(i) <= 0 Then
j = i
Label2.Caption = i + Val(Text1.Text)
PHARRAY(j) = Label2.Caption 'Val(Text1.Text)
Exit For
End If
Next i
End Sub
Private Sub Command2_Click()
Dim k As Integer
For k = 0 To j
MsgBox PHARRAY(k)
Next
End Sub
: tp hasilnya = 1.
mohon bantuannya.
terima kasih.
---------------------------------
Tonight's top picks. What will you watch tonight? Preview the hottest shows on
Yahoo! TV.
