Menurut logika saya, jika Mas tetep mencantumkan " & text & ", itu berarti
tipe data yang ingin Mas hasil kan masih berupa string bukan integer,
sehingga akan tetep bernilai Nol (0)
Coba rubah seperti dibawah ini..
Dim i As Integer
For i = Val(Text1) To Val(Text2)
Print i
Next
Semoga membantu
_____
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of Frangky
Sent: 28 Nopember 2006 15:48
To: [email protected]
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
