توابع متنی ۱

 توابع متنی سلام ! من وحید نائینی هستم و احتمالا از این به بعد در این وبلاگ فعالیت خواهم کرد . ممکنه قبلا به وبلاگم سر زده باشید . من پاکش نکردم چون ممکنه مطلبی توش پیدا بشه که به درد بخوره . به این نکته هم اشاره کنم که من زیاد فعال نخواهم بود . به خاطر مدرسه و از این چرت و پرت ها . موضوع این مقاله هست : توابع متنی (1) ________________________________________ VAL(string$) متن را به عدد تبدیل می کنه . حالا می گید (می گویید) مثلا a و b رو چه جوری به عدد تبدیل میکنه و یا جمع می کنه . اما ... ! از این کارا نمی کنه . اگه در خواندن یک string به حرف برخورد کنه حالا هر جای String که می خواد باشه عدد رو تا همون جا می خونه اگه اولین کاراکتر تعریف شده هم حرف باشد ، برابر با 0 خواهد بود . مثلا در : A$='20' B$='10' RetVal=VAL(A$) + VAL(B$) Message("","RetVal") A$ و B$ متغیر متنی هستند . اما با VAL آنها را به عدد تبدیل کردیم . خروجی بالا در Message 30 خواهد بود . ________________________________________ CHAR(number) این یکی کارش دقیقا بر عکس Val است . یعنی عدد را به متن تبدیل می کنه . age=16 UserAge$= CHAR(age)+' years old' Message("Our user is ","UserAge$") اینجا age یک متغیر عددی است که با Char به صورت یک متغیر متنی (منظورUser age است) تعریف می شود . یه مثال دیگه : A=10 B=20 string$=CHAR(A)+CHAR(B) Message("","string$") در اینجا خروجی 1020 خواهد بود . چون 10 و 20 را به عنوان عدد با هم جمع نکرده ایم . ________________________________________ CHR(number) این script کدهای ASCII را به کاراکتر های معمولی تبدیل می کند . مثلا 123 مساوی } است .اینجا نشون داده ام : string$=CHR(123) Message("CHR(123)= ","string$") حالا می تونید کاراکتر های زیادی استفاده کنید با همین کد ها . من یه دو سه خط Script نوشتم که به راحتی یکی یکی این کد ها رو و کاراکتر مربوط به آن را در 2 Text مجزا نمایش میدهد . خب ! پس 2 تا text درست کنید با نام های Text1 و Text . اینها رو هم در قسمت Script یک کلید بنویسید : For -1 To 255 i=i+1 string$=CHR(i) LoadText("Text","string$") DisplayValue("Text1","i") Pause("500") Next حالا خودتون برنامه ای بنویسید که کد ASCII رو وارد کنیم و به کاراکتر مربوط به آن تبدیل کند . ________________________________________ ORD(character$) این هم برعکس CHR() هست . کاراکتر رو می دیم بهش ، تبدیل می کنه به کد ASCII . یه نمونه کد هم می نویسم : character$='@' RetVal=ORD(character$) Message("","RetVal") کد مربوط به علامت@ ، 64 است . پس خروجی خواهد بود : 64 . ________________________________________ LEN(string$) طول (Length) یک رشته متنی را بر می گرداند . به عبارت ساده تر تعداد کاراکتر ها رو بر می گرداند . مثلا : string$='Hello ! my name is Vahid .' RetVal=LEN(string$) Message("","RetVal") خروجی 26 خواهد بود . ۱