اجرای فرم [بایگانی] - برنامه نویس

frahimi

چهارشنبه 06 شهریور 1387, 14:18 عصر

با سلام

میخواستم به محض اینکه فرم را اجرا میکنم یک کد را چک کند که اگر درست بود اجرای فرم را ادامه دهد و اگر درست نبود دیگر ادامه ندهد

این کد را در قسمت load یا init قرار دادم ولی دنباله برنامه را اجرا میکند

activecode=1
if activecode=1
thisform.release
endif

از راهنمائی دوستان متشکر میشوم

NewFoxStudent

چهارشنبه 06 شهریور 1387, 16:09 عصر

همین کد رو تو ACTIVATE فرم امتحان کن

rezaTavak

چهارشنبه 06 شهریور 1387, 20:41 عصر

البته activiate اگر هر بار فوکوس شود اجرا خواهد شد اگر می خواهید فقط یکبار اجرا شود یک flag برای اینکار بگذارید.

frahimi

پنج شنبه 07 شهریور 1387, 13:00 عصر

جناب توکل متشکرم مشکل حل شد.
پاسخ محبت آمیز شما سوال دیگری را در ذهن این حقیر بوجود آورد و آن اینکه کمی در مورد flag توضیح فرمائید.

mehran_337

شنبه 09 شهریور 1387, 08:46 صبح

منظور یک متغیر از نوع بولین یا همان منطقی true , false هست . یا متغیری از نوع عدد که 1 و 0 مقدار دهی شود.
مثلا در اکتیو فرم بنویسید اگر var = .t. ادامه برنامه اتفاق نیفتد چون چنین متغیری قبلا مقدار دهی + شد برای بار دوم چک کند که این متد یکبار اجرا شده است یا خیر.
flag اصطلاحی است در ثباتها که یک بیت برای آن در نظر گرفته می شود مثلا اگر در جمع دو عدد خطای سرریز اتفاق افتاد یک بیت مشخص شده 1 می شود تا برنامه بفهمد چنین اتفاقی افتاده . به این بیت که همانند پرچمی در موقع بروز حوادث خاص بالا می رود flag ( پرچم) گفته می شود

rezaTavak

شنبه 09 شهریور 1387, 10:30 صبح

دقیقا همین منظورم بود:

http://courses.ece.uiuc.edu/ece390/books/labmanual/assembly.html

اما در فرمتان یک متغیر تعریف کنید . مقدار .T. را بعد از اولین اجرا به آن بدهید.

سعید حمیدیانفر

یک شنبه 10 شهریور 1387, 08:05 صبح

میخواستم به محض اینکه فرم را اجرا میکنم یک کد را چک کند که اگر درست بود اجرای فرم را ادامه دهد و اگر درست نبود دیگر ادامه ندهد

البته جساراتا يه راه ديگه هم برا اينكار هست
اينكه شرط رو داخل init فرم به اين صورت چك كنيد.

if <شرط> then
retuen .t.
else
return .f.
endif

اگر مقدار .f. برگرده اجراي فرم متوقف ميشه و در غير اينصورت اجرا ادامه پيدا ميكنه