gak usah diapa2in, VB secara default akan mengconversi
kok
Private Sub Command1_Click()
For I = Text1.Text To Text2.Text
Print I
Next I
End Sub
http://www.adaiklan.com free pemasangan iklan aneka
barang & jasa
--- irman <[EMAIL PROTECTED]> wrote:
> Private Sub cmdCommand1_Click()
> Dim i As Integer
> For i = Val(txtText1.Text) To Val(txtText2.Text)
> Print i
> Next
> End Sub
>
>
> ----- Original Message ----
> From: Frangky <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Tuesday, November 28, 2006 3:47:46 PM
> 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
>
>
>
____________________________________________________________________________________
Yahoo! Music Unlimited
Access over 1 million songs.
http://music.yahoo.com/unlimited
