ورود

نسخه کامل مشاهده نسخه کامل : کمک در کامل کردن یه تکه کد


wild_honey
30-05-2007, 13:12
سلام دوستان
من یه برنامه ساده دارم مینوسم که از تکست باکس یا یه فایل یه متن رو میخونه و اون متن رو کد میکنه و توی یه فایل یا تکست باکس 2 ذخیره میکنه این قطعه کد رو ببینین

Private Sub Command1_Click()
text = Text1.text
textLen = Len(text)
For i = 1 To textLen
Char = Left(text, i)
codeasc = Asc(Char)
codeasc = codeasc + 2
code = Chr(codeasc)
Text2.text = code
Next i
End Sub

مشکل اینجاس که فقط کلمه آخر جمله رو کد میکنه !!!!
آیا باید واسه کد کردن ماژول درست کنم و اون رو فراخونی کنم ؟؟؟
لطفا کمکم کنید تا این برنامه رو کامل کنم
ممنون
bad_boy_2007
30-05-2007, 15:00
شما اشتباها بجای تابع mid از تابع left استفاده کردین . مشکل کار اینجاست !


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
wild_honey
30-05-2007, 20:44
درست نشد !!
فرقی نداره چه از وسط بگیره چه از چپ !!!
مشکل اینه که فقط 1 کاراکتر چاپ میشه
bad_boy_2007
30-05-2007, 22:08
امشب وقت نمیکنم فردا بعد از کلاسم چکش میکنم
bad_boy_2007
31-05-2007, 23:19
تست کردم :


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
whisper
03-06-2007, 08:43
حالا اگه بخواهیم از حالت کد به حالت اول برگردونیم باید چی کار کنید؟
bad_boy_2007
04-06-2007, 10:21
از تابع char استفاده کن