Eh, nggak perlu varibel i nya integer khan yang ditampilinnya hasil...
Rasanya kalo yang mau ditampilin seperti nyag diminta itu, programnya hampir
bener, cuman supaya lebih yakin harusnya perintah setelah else harusnya hasil
harus diisi dengan hasil konversi i ke string, jadi seperti gini:
Dim Hasil As String
Dim I As Integer
For i = 1 To 35
if i<10 then
Hasil = "0" & Str(i)
else
Hasil = str(i)
end if
Jenis.AddItem Hasil
Next i
MUHAMMAD IRFAN <[EMAIL PROTECTED]> wrote:
menurut saya var i itu tidak bisa jika bertipe integer
karena kalo integer nol didepan gak bisa (coba dicek lagi, barangkali saya
salah)
jadi bisanya pake String
Dim Hasil As String
Dim I As Integer
For i = 1 To 35
if i<10 then
Hasil = "0" & Str(i)
else
Hasil = i
end if
Jenis.AddItem Hasil
Next i
semoga bisa membantu.
irfan
Wahyu Gunawan <[EMAIL PROTECTED]> wrote: Dear Rekan VB,
Saya mempunyai listing program sebagai berikut :
======================
Dim i
i = 0
For i = 1 To 35
Jenis.AddItem i
Next i
======================
dari listing diatas mempunya tampilan sbb :
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ... dst sampai 35.
nah yang saya inginkan tampilan dari program adalah :
01, 02, 03, 04, 05, 06, 07, 08, 09, 10 ..... dst sampai dengan 35
dan angka yang tersebut harus bilangan integer.
GIMANA CARANYA ? mungkinkah ada yg kurang dari listing program yg saya buat..
PLEASE bantuannya.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
Protect your PC from spy ware with award winning anti spy technology. It's free.
http://us.click.yahoo.com/97bhrC/LGxNAA/yQLSAA/zCsqlB/TM
--------------------------------------------------------------------~->
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
