متن رندوم و بعد انجام عملیات!

[wildbuzz]

سلام
خسته نباشید
من یک Text به نام Peky دارم. میخوام این Text هر دفعه از 5 رقمی که بهش دادم یکی رو شانسی نشون بده
Ef120
12Dmn
14MM
12WE@
124SS
حالا یک TextBox هم زیرش میذارم با اسم EditBox و String = EditBox$ با یک دکمه به اسم OK.
خوب من میخوام اگر کسی روی دکمه OK کلیک کرد این فرامین اجرا بشه:
اگر Peky مثلا Ef120 بود و EditBox مثلا 12345 بود آنگاه برو صفحه بعد در غیر اینصورت Exit
اگر Peky مثلا 12Dmn بود و EditBox مثلا ABCDE بود آنگاه برو صفحه بعد در غیر اینصورت Exit
اگر Peky مثلا 14MM بود و EditBox مثلا 98765 بود آنگاه برو صفحه بعد در غیر اینصورت Exit
و...
میدونم برای استادایی مثل شما این سوال پیش پا افتادست اما یک نمونه ساده اگر برام درست کنید یا بهم کمک کنید تا درستش کنم واقعا ممنونتون میشم

 

[nevercom]

برای رندوم:

Random= RND(4) + 1

تابع RND نتیجه رو از 0 تا عددی که مشخص کردیم بر می گردونه، یعنی در این کد RND، پنج عدد (از 0 تا 4) بر میگردونه و ما خروجی RND رو با عدد یک جمع می کنیم تا نتیجه از 1 تا 5 باشه.

حالا شما یک عدد تصادفی دارید، که متناسب با نیاز می تونید کدش رو بنویسید، من درست متوجه نشدم منبع متن کجاست بنابراین فرض رو بر این میزارم که نیاز دارید هربار یکی از متن هایی که نوشتید نمایش داده بشه:

Text$[1] = '[COLOR=#333333]Ef120'
[/COLOR]Text$[2] = '[COLOR=#333333]12Dmn[/COLOR]'
Text$[3] = '14MM'
Text$[4] = '[COLOR=#333333]12WE@[/COLOR]'
Text$[5] = '[COLOR=#333333]124SS[/COLOR]'

Random= RND(4) + 1
PekyText$ = Text$[Random]
LoadText("Peky","PekyText$")

برای شرط هم از ساختار If استفاده کنید

If ((PekyText$ = Text$[1]) & (String$ = '12345')) Then
** Ef120
RunScript("Script")
Else
Exit()
End