توضيح اين خط از يك برنامه

[afsharan]

سلام
اين خط از برنامه رو اگه ميشه توضيح بدين
Text6.Text = Str(Asc(Mid(InBuffor, Val(Text5.Text) * 2 + 4)))

 

[the_king]

سلام
اين خط از برنامه رو اگه ميشه توضيح بدين
Text6.Text = Str(Asc(Mid(InBuffor, Val(Text5.Text) * 2 + 4)))

تابع ()Val یک رشته را به عدد تبدیل می کند، در این کد، عددی که در Text5 وارد شده است به معادل عددی اش
تبدیل می شود، مثلا رشته "0023" به عدد 23 تبدیل می گردد.

    Text6.Text = Str(Asc(Mid(InBuffor, [B]Val(Text5.Text)[/B] * 2 + 4)))

در ادامه عدد حاصل در 2 ضرب شده و با 4 جمع می شود، مثلا 4 + 2 * 23 که برابر 50 است.

    Text6.Text = Str(Asc(Mid(InBuffor, [B]Val(Text5.Text) * 2 + 4[/B])))

تابع ()Mid یک تکه از یک رشته را انتخاب می کند، فرض کنیم که عدد حاصل از کد بالا 50 باشد،
کد زیر در رشته InBuffer از کاراکتر 50 ام به بعد را انتخاب می کند (49 کاراکتر سمت چپ رشته را در نظر نمی گیرد).
اگر رشته InBuffer طول اش از 50 کاراکتر کمتر باشد، رشته تهی ("") انتخاب می شود.

    Text6.Text = Str(Asc([B]Mid(InBuffor, Val(Text5.Text) * 2 + 4)[/B]))

تابع ()Asc یک کاراکتر (یا اولین کاراکتر یک رشته) را به معادل ASCII خود تبدیل می کند. مثلا اگر رشته
انتخاب شده "ABCD" باشد، کد ASCII کاراکتر A، یعنی عدد 65 برگردانده می شود.

    Text6.Text = Str([B]Asc(Mid(InBuffor, Val(Text5.Text) * 2 + 4))[/B])

تابع ()Str یک عدد را به رشته معادل تبدیل می کند (برعکس تابع ()Val عمل می کند). در کد زیر، آن عدد
حاصل (مثلا 65) به رشته معادل ("65") تبدیل می شود :

    Text6.Text = [B]Str(Asc(Mid(InBuffor, Val(Text5.Text) * 2 + 4)))[/B]

در ادامه این رشته حاصل (مثلا "65") در Text6 قرار می گیرد.