Coba beginin mas :
Private Sub Command1_Click()
Dim i As Integer
For i = Val(Text1.Text) To Val(Text2.Text)
Print i
Next
End Sub
"Frangky" <[EMAIL PROTECTED]> on 28/11/2006 02:47:46 PM
Please respond to [email protected]
To: [email protected]
cc: (bcc: Toni Rahayu/IT/domino_srv)
Subject: [Programmer-VB] Perintah For...Next bermasalah
Teman-teman yg terhormat!
Saya menggunakan code dibawah ini:
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Print i
Next
End Sub
Dengan code diatas maka pada form akan tercetak 1 sampai 10.
Masalahnya setelah saya ubah code seperti dibawah ini, pada form hanya tercetak
Angka 0 (nol).
Padahal yang saya ingin harus tercetak angka 1 sampai 10, karena pada text1 saya
sudah input angka 1 dan pada text2 saya input angka 10.
Private Sub Command1_Click()
Dim i As Integer
For i = Val(" & text1 & ") To Val(" & text2 & ")
Print i
Next
End Sub
Toni Rahayu
PT. Omedata Electronics
IT Department
Hunting : (62-22) 6030805 Ext 121
Faxs : (62-22) 6030896
Homepage : http://toni.rahayu.tripod.com
