نمونه برنامه های کاربردی

آقا کیا ! یاد گرفتم همیشه به کسی که ازش چیزی یاد می گیرم احترام بزارم .
شما و بقیه بچه های باحال این فروم اونقدر برام محترم هستین که تو گوشمونم بزنی دلخور نمی شم . پس راحت باش . البته من یه بازی هم گذاشتم فقط خواستم نظر بچه ها رو در مورد اون بدونم .
آقا کیا ! اینکه بعضا می بینی که سوالی می کنم که قبلا طرح شده بخدا اول می گردم اما توی این شهر لعنتی ما اونقدر سرعت پایینه که جونم به لبم می رسه. واقعا نمی شه بهمین خاطر بعضا گله می کنم که حالا که دارین زحمت می کشین آدرس می دین چرا لینکشو نمی زارین البته به شما نه! چون همیشه با حوصله جواب می دین
سوال من اینه : fm20.dll در متد کی پرس پارامتر اسکی کی داره اما عدد مثلا 27 برای اسکیپ ر بصورت نامبر بر نمی گردونه بصورت آبجکت بر می گردونه اینو چطور به عدد تبدیل کنم.
بعدش می خوام بدونم تابعی وجود داره که بررسی کنه که آیا فلان api تعریف شده یا نه مثلا وقتی یه api دیفاین می شه باید ازتوابعش استفاده کنیم حالا می خوام شرط بزارم اگه دیفاین نشده تعریف کن وگرنه دوباره دیفاین نکن
با تشکر

اینهم برنامه پیانو که قولشو داده بودم با سورسش . نظر یادتون نره ....

1- شما هر سوالی دارید بپرسید و مطمئن باشید تا اونجائیکه بتونیم از دادن جواب مضایقه نخواهیم کرد
2-من کوچکترین و بی سواد ترین فرد این فروم هستم و افتخارشاگردی دوستان این فروم رو دارم پس احترام همگی بر من واجبه
3-برای رفع مشکل keypress
وقتی این پارامتر داره یه آبجکت بر میگردونه پس شما باید به درون آبجکت و لایه های اون نفوذ کرده و کلاسهای اونو بیرون بکشید.پس دستورات زیر رو که براتون مینویسم توی متد keypress تایپ کنید.توجه کنید که تایپ کنید .کپی و پیست نکنید .به این دلیل که میخوام دقیقا ببینید در زمان تایپ دستورات چه اتفاقی می افته
اولا من از این کنترل دو تکست باکس روی یک فرم گذاشته ام و اسم اولی را text1 و دومی را text2 گذاشته ام . حالا با این فرضیات مراحل زیر رو ادامه بدهید

دستور LPARAMETERS keyascii را به
LPARAMETERS keyascii as MSForms.ReturnInteger
تغیر دهید
در مرحله بعد این دستور را وارد کنید
thisform.text2.text = keyascii.Value
توجه کنید که شما دارید پائین ترین لایه این آبجکت رو بدست می آورید یعنی keyascii.value
یه فرم هم با مثال براتون گذاشتم که دانلود کنید
از جناب آقای توکل و بی نیاز هم خواهش میکنم استفاده از این روش رو در مقاله خود که در مورد fm20.dll تهیه شده درج کنند.ضمنا help مربوط به fm20 هم داخلش هست

برای اینکه متوجه شویم یک dll و فانکشن آن قبلا define شده یا نه به کد مثال زیر توجه کنید

? ADLLS(GetActiveWindow)

DECLARE INTEGER GetActiveWindow IN win32api

? ADLLS(GetActiveWindow)

خروجی خط اول در صورتی که شما این api رو define نکرده باشید برابر با صفر است
در خط دوم شما این api را تعریف میکنید
و پس از اینکه تعریف شما انجام شد خروجی خط سوم برابر با یک میشود
امیدوارم این مطالب بدرد شما و سایر دوستان خورده باشد

سلام به همه دوستان خودم!
به علت فوت دایی من که واقعا من و غافلگیر کرد نتونستم یکی دو روز بیام
الان هم باید برم اما هم اومدم از زهمه به خصوص آقا کیا تشکر کنم :ایشان مصداق کامل
"افتادگی آموز اگر طالب فیضی " هستند . راهنماییت کامل بود بازهم ممنون. مخصوصا راهنمای fm20.dll
آقا کیا با این تفاسیر می خوام بدونم که تابعی برای تبدیل مقداری از نوه ابجکت به حروف یا عدد نیست دیگه نه؟
سوال بعدی من اینه مثلا یک textbox خاصیت on select داره که وقتی با تب مکان نما روش قرار می گیره انتخاب می شه اما توی fm20 این و پیدا نکردم اگه می شه راهنماییم کنید
مورد بعد اینکه وقتی ما می تونیم با تغییر زبان به عربی همه راست به چپ ها را درست کنیم آیا دلیل خاصی داره که از این dll استفاده بشه یعنی می خوام بدونم کدوم راه بهتره تغییر زبان یا استفاده از این فایل ؟
به همه بچه ها توصیه می کنم مثالهای جدید فاکس 9 رو حتما در قست گزارشگیری بخونن
مخصوصا دستور SET REPORTBEHAVIOR 80 | 90

این فایل پیانو رو کسی دیده اگه دیدید نظر بدید لطفا

اقای کیای گرامی
کاربر جدید هستم و علاقه مند و نسبتا تجربه طولانی در DOS دارم
چند خواهش
1- از کجا شروع کنم ؟
2- مواردی که فرمودید در فروم قراردادم یا پست کردم چطور قابل دسترسی است ؟
امیدوارم در آینده مفید هم باشم .

آقا مهران تسلیت عرض می کنم.



Object را نمیشه قاعدتا به چیزی دیگر تبدیل کرد. چون خودش دارای چیزهای زیاد دیگری هست.
فکر کنم On SELECT از دستورات خود فاکس باشه با این حساب نمیشه اون را توی OCX بکار برد.

این که کدام راه بهتر بستگی به شما داره. اما ویندزوی مانند ۲۰۰۰ زیاد با فارسی شدن درست نمیشه. شایدهم من نتونستم اما این DLLهمه جا جواب میده و خصوصیات جالبی داره.


آقای سعید ارج
باید مفهوم برنامه نویسی شی گرا را درک کنید
کلاس و...
مورد دوم چی بود من منظور شما را درک نکردم

دوست خوبم جناب آقای mehran
فوت این عزیز از دست رفته رو به شما و خانواده محترم تسلیت میگیم و امیدواریم غم آخر شما باشد
در مورد سوال اول شما باید بگم که نوع عددی و کارکتری متغیرها یک مفهوم عام و از نیازهای اولیه یک سیستم است که نحوه برخورد محیط برنامه سازی با آن متغیر را تعریف میکند
جالب است بدانید که در بعضی از سیستمهای عامل مثل vm محصول شرکت ibm و در زبان برنامه نویسی rexx حتی نیاز به این نیست که مفهوم عدد و کارکتر برای آنها مجزا شود
این در حالی است که نوع داده آبجکت نسبت به داده های قبلی پیچیده تر بوده و حاوی مقدار زیادی لایه میباشد که هر کدام از آنها میتوانند یه برگشتی متفاوت از نظر مقدار و نوع به شما برگردانند
برای درک مفهوم آبجکت شما باید توانائی شناخت و ایجاد کلاس را داشته باشید مثلا یه تکست باکس میتواند خود به تنهایی یک آبجکت باشد و در داخل خود تعداد بسیار زیادی متغیر و مقدار را داشته باشد


خاصیت on select و یا اسامی مشابه که همگی یک کار انجام میدهند در بعضی از محیطهای برنامه نویسی برای آبجکت های خاصی مثل تکست باکس و یا ادیت باکس در نظر گرفته میشود
حال اگر آبجکت مورد نظر شما فاقد این توانائی است میتوانید با برنامه نویسی این قابلیت را به آن اضافه کنید
البته کار زمان بری است و حوصله میخواد چون باید ابتدا از این شئی یک کلاس تحت ویژوال فاکس درست کرده و سپس یک متد با توانمندی مورد نظرتون بهش اضافه کنید
من شخصا برای استفاده از محیط فارسی سعی میکنم از توابع api و انتخاب زبان فارسی و تنظیمات آن استفاده کنم ولی در بسیاری از مواقع میتوان به این کنترل اعتماد کرد چون ساخته خود مایکروسافته و با نرم افزارهای تولیدی این شرکت سازگاری کامل داره
برنامه پیانوی شما هم خیلی خوب بود ولی برای ارتقاء سطح دانش دوستان اگر برایتان مشکلی ندارد برنامه را با سورس در اختیار دوستان قرار دهید

ممنون رضا جان از جوابی که برای آقای سعید ارج ارسال کردی

من هم دقیقا همین نظر رو دارم
شما باید مفهوم برنامه نویسی شی گرا را درک کنید
تعدادی مقاله و سورس هم در همین سایت هست که میتونید از اونها استفاده کنید
اگر هم سوال یا مشکلی دارید در همین فروم مطرح کنید تا به شما جواب لازم داده شود
امیدوارم موفق باشید و این سایت و تمام دوستان آن برای شما مفید واقع شوند

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

آقای کیا من جدیدا با یک مشکلی عجیب غریب مواجه شدم و آن اینست
با getfile یک فایل را دریافت و با دستور append general myfield from myfile آنرا save میکنم مشکل از جائی شروع شد که اگر نام فایل دارای space باشد اشکال میگیرد ( نام اکثر تصویر ها فضای خالی دارد ) چه کنم ؟
اشکال از getfile است ؟
لطفا راهنمائی کنید
ضمنا من هرروز این بخشها را چک میکنم . واقعا سایت خوبی است و من در ابتدا مشکلات زیادی با فاکس پرو داشتم قصد داشتم vb را شروع کنم ولی بعد از دیدن این فرومها تصمیم گرفتم فاکس را ادامه دهم من حدود 10 سال است با fox dos برنامه نوشتم .

من از برنامه دفتر تلفن آقای rezamim استفاده کردم و از برنامه خوب آنها تشکر کردم ولی یک بخشی از نرم افزار آنها برایم خیلی جالب بود و آن بخش جستجو بر اساس کلیه فیلدها آنهم در خود فرم بود خواستم روش کار را برایم توضیح دهید من واقعا برای جستجو مشکل دارم و من از آقای رضامیم خواهش کردم که حداقل کد بخش جستجو را در صورت امکان پست کنند ولی اصلا پست را نخوانده اند از شما استدعا دارم کمکم کنید .

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

از شما بخاطر جواب به سوالات و حوصله کردن تان واقعا متشکرم
یک سوال در یک بخشی مطرح کردم چون الان شما online هستید در صورت امکان همین جا اگر لازم میدانید پاسخ دهید البته اگر وقت و حوصله دارید
از getfile برای دریافت فایل تصویری و ذخیره در یک فیلد general‌استفاده کرده ام ولی فایلهای که space دارند مشکل دارد چکار باید بکنم؟

من به هیچ عنوان نمیزارم در اینگونه فیلدها space بین کارکترها بیافتد .چون خواندن اطلاعات به مشکل میخوره و به دردسرش نمی ارزه

منظور شما اینست که فایلی که space دارد اگر user انتخاب کرد پیغام خطا بدهد
و او را مطلع کند ؟
یا اینکه نه پیغام نه هیچی فقط عملی انجام نشود چون با دستور زیر میتوان فایل space دار را کنترل کرد if at(" ", mynamefile)>0 فلان پیغام و ...
البته فکر کنم روش مناسبی نیست من با strtran تمام space را به _ تبدیل میکنم ولی حالا باید فایل اصلی را هم rename کنم و این درست نیست شاید کاربر نخواهد اسم فایلش دستکاری شود . آیا راه حل دیگری دارد ؟

از پاسخهای شما متشکرم

دوست عزیز !
من از getfile برای space مشکلی ندیدم اما همیشه در اینمواقع یک فایل temp داشته باش . بعنوان مثال خروجی getfile را در مسیر برنامه کپی کن
Copy File fname1 to mytemp
و mytemp همیشه ثابت است پس هم اکنون فایل جدیدی داری بدون اینکه فایل کاربر را تغییر نام دهی و این فال تمپ را که همان نمونه فایل کاربر است به بانک اضافه کنی
امید وارم مورد استفاده واقع بشه.

از GetPic() هم میتونید استفاده کنید
در ضمن من هم مشکلی با این مساله ندارم و خیلی هم استفاده کردم

باید آدرس موردنظر را در متغیر توسط کاراکترهای ' یا " محصور نمایید
مثل:

ab= '"' + GETFILE() + '"'

حالا با اشاره به نام متغیر مربوطه (در مثال فوق ab) برای دستورات همچون کپی یا باز کردن یا ... در صورت وجود فاصله یا کاراکترهای دیگر بدون مشکل می تونید اون را اجرا کنید

سلام دوستان این برنامه ها که میگید
کحاست ؟؟؟؟؟

دوستان عزیز برای رفع مشکل در آپدیت اطلاعات با برنامه هایی که چند کاربره کار میکنند این مقاله را حتما مطالعه کنند
http://www.foxite.com/articles/how-t...cation-067.htm

یک سوال
در فرمی با گرید و سایر اطلاعات هر وقت می خواهم رکورد اضافه کنم پیغام
the fields relating the parent and child tables are not the same data type چکار کنم هر کاری کردم نشد . کمکم کنید لطفا .

دوستان :
این سایت کمک زیادی در ادامه کار با ویژوال فاکس به من کرد واقعا از کلیه دوستانی که به سوالها جواب می دهند تشکر می کنم
قبلا از ادامه کار با فاکس دلسرد شده بودم ولی با گشتن در فرومها و سوال و جوابهای زیادی که شده بود مشکلات من هم رفع شد
حالا با قدرت فاکس را ادمه خواهم داد و توصیه میکنم فاکس کارهای داس حتما ویژوال فاکس را ادامه دهند هر مشکلی داشتید مطمئن باشید با گشتن در این فرومها حل خواهد شد
مشکلات دیگر با پشتکار و تجربه حل خواهد شد

سوال بعدی
در یک فرم هستم میخواهم اطلاعات این رکورد را بصورت گزارش دربیارم یعنی به یک ریپورت متصل شود باید چه کاری انجام دهم

یعنی اینکه دو جدول شما فیلدهایی که بهم مرتبط شده اند از یک نوع نیستند.مثلا یکی کاراکتری و دیگری عددی است.

نقل قول:

---

نوشته شده توسط rezaTavak

یعنی اینکه دو جدول شما فیلدهایی که بهم مرتبط شده اند از یک نوع نیستند.مثلا یکی کاراکتری و دیگری عددی است.

---

نه فیلدها کاراکتری هستند .
ضمنا موقعی که در یک pageframe قرار میدهم مشکلی ندارد ولی زمانی که در فرم بدون pageframe‌هستم ایراد میگیرد.

چند روزی است زمانی که یک عکس را به فیلد جنرال اضافه میکنم فقط اسمش را نشان میدهد مشکل چیست ؟ در ضمن از oleboundcontrol استفاده شده برای نمایش فیلد جنرال .

دو جدول با فیلدهای زیر موجود است .

جدول استان
-------------
نام استان : کاراکتر
کد استان : عددی auto

جدول شهرستان
-----------------
نام شهرستان :کاراکتر
کد استان : عددی
کد شهرستان : عددی auto

می خواهم در کامبو اول استان و در کامبوی دوم شهرستان زیر مجموعه بیاید .
آیا ساختار جدول درست است؟ آیا از یک جدول باید استفاده کرد یا دو جدول ؟
ممنون از کمک شما .

دوتا کمبو داریم : combo1 برای جدول استان و combo2 برای جدول شهر

در کمبوی دوم خواص this.RowSourceType= 3 تنظیم کن( برای استفاده از دستوراتsql )
rowsource رو هیچی ننویس

rowsource کمبوی اول را فیلد نام استان جدول 1 قرار بده
در خواص intractive change کمبوی اول این کد را وارد کن :

ThisForm.Combo2.RowSource = 'SELECT ;

        table2.shahrName ;

        FROM ;

        table2 ;

        WHERE ;

         table1.CodeOstan = table2.CodeOstan

'INTO CURSOR tmp

دیدی داشت یادم می رفت!
این که در بالا توضیح دادم روش بود که از آقای حیدری کیا یاد گرفتم خودم اویل seek می کردم بعد هم set filter اما آقا رضای گل مثل همیشه دستورات استثنائیشو رو کرد.
باتشکر از آقای حیدری کیا

ممنونم : استفاده کردم و درست شد من هم با set filter کار کردم و وقتی اطلاعات زیرمجموعه استان وارد نشده بود کامبوی دوم غیر فعال میشد و مشکل درست کرده بود ولی حالا آن مشکل را ندارم

چند روزی است زمانی که یک عکس را به فیلد جنرال اضافه میکنم فقط اسمش را نشان میدهد مشکل چیست ؟ در ضمن از oleboundcontrol استفاده شده برای نمایش فیلد جنرال .

به گفته آقای حیدری کیا اصلا کار متعارفی نیست که عکس هارا درون دیتابیس قرار دهیم . چون حجم بانک اطلاعاتی را بالا می برد در نتیجه سرعت برنامه افت می کند. بهترین کار این است که عکس ها در پوشه ای قرار داده شود و فقط ادرس انها در جدول ذخیره شود .

خواهش میککنم . از اینکه جواب دادید ممنون

ممنون از راهنمائی شما
ولی با همه اینها مشکل چیست که موقعی که تصویر را append میکنم فقط اسمش را نشان میدهد ؟
البته جدیدا اینجوری شده قبلا این مشکل نبود.
( البته عکسهای انتخابی عکسهای پرسنلی با حجم بسیار پائینی هستند و در ضمن تعداد رکوردها خیلی زیاد نیست مربوط به اطلاعات پرسنلی یک سازمان کوچک است و شاید تا پایان سال حجم آن به 200مگ هم نرسد چون بانک هر سال را مجزا کردم )

هر چیزی داخل فیلد جنرال متعلق به یک کلاس است. کلاسها در رجیستری ثبت می شوند و تمام برنامه های برای استفاده به سراغ آن می روند. احتمالا رجیستری شما مشکل پیدا کرده یک یوزر جدید بسازید شاید در آن یوزر درست بشود.

آقا کیا سلام و عرض ادب
من پیرمرادیان هستم و گاهگاه از مرور سایت برنامه نویس و فروم ویژوال فاکس پرو استفاده می کنم.
شما فرموده‌اید برنامه فلان را برای دانلود گذاشته‌ام اما لینک مربوطه کجاست ؟

یک پیشنهاد مکمل:
به تجربه ثابت شده است دیدن نرم افزارهای دیگران (ولو بصورت دمو) باعث افزایش سطح برنامه نویسی در دیگران و انتقال تجربیات (بدون ارتباط مستقیم) می گردد.
من یک برنامه نویس کاربردی نیستم اما برنامه نویسی سیستمی می کنم. تقاضا دارم در صورتیکه در زمینه های مختلف برنامه های آماده در اختیار دارید (مخصوصا ویژوال فاکس پرو و ترجیحا فارسی) اینجانب را بی نصیب نگذارید.
برای انجام پروژه هایم مجبور به تهیه و تولید بسیاری روالها و فانکشنها بوده‌ام که در صورت تمایل حاضر هستم با خوشحالی آنها را در اختیار شما و سایر عزیزان قرار دهم و خوشحال تر خواهم شد در صورت امکان این ارتباط دو طرفه باشد..
موفق باشید پیرمرادیان
امروز اولین روز از باقیمانده عمر ما است.

آقا جواد سلام
من پیرمرادیان هستم.
در بسیاری از پیغامها فرموده‌ای که فایل فلا را فرستاده‌ام یا وجود دارد اما هیچ لینکی وجود ندارد
لطفا راهنمایی فرمایید
ایمیل من : mohamadalipirmoradian@yahoo.com
از لطف و کمک شما پیشاپیش تشکر می کنم.

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

با سلام
مىخواهم براى مدىر بخش نامه بنوىسىم آدرس مىخواهم .
لطفا جواب بدهىد

با سلام
مىخواهم براى مدىر بخش نامه بنوىسىم آدرس مىخواهم .
لطفا جواب بدهىد
--------------------
جناب آقای کیا
با سلام
برنامه ای نوشتم که در حالت عادی یعنی با اجرای مستقیم prg مشکلی ندارد ولی اگر exe شود بعضی از بانک اطلاعاتی read only میشود به نظر شما مشکل چیست .
اگر راهنمایی کنید ممنون هستم.

من هم این مشکل و داشتم
set exclusive off کردم درست شد.

بانکها را به پروژه Include نکرده اید؟ اگر چنین است exclude کنید.

سلام به همه بزرگان
من مهرداد هستم و یه برنامه Brows پارامتریک میخوام که کار brows فاکس رو بکنه ( تحت داس ) ولی دردسرهای اونو نداشته باشه ( ممنونم )
میل من Mehrdadxx2000@yahoo.com

سوالتونو متوجه نشدم . منظورشما از دردسر چیه؟
در کل من برای مشاهده گزارشاتم در داس یه تابع نوشته بودم که نتیجه گزارشات را در یک فایل متنی می ریخت و سپس از اون فایل متنی brow می گرفت و یکسری کنترلر بهش اضافه کرده بودم . اگه می شه توضیح بیشتر بده تا راهنمایی بشه

فقط همین را میتوانم بگویم
از مدیران بخش وازتمامی دوستان بخصوص آقا مهران سپاسگذارم

نقل قول:

---

یه برنامه Brows پارامتریک میخوام که کار brows فاکس رو بکنه ( تحت داس )

---

اگر منظورتون یک روتین مشابه brows فاکس هست (البته بنده هم مفهوم کلمه دردسر از جمله شما را متوجه نشدم) ولیکن این تابع قادر به شبیه سازی دستور brows فاکس هست با قابلیت جستجو حرف به حرف که معمولا در محیط فاکس تحت داس برای نمایش جداول کاربردی هست.

https://barnamenevis.org/showth...ighlight=brows

salam
man karbare jadid hastam
man az emrooz mikhaham az etelaate in site va azaeh mohtaramash estefadeh konam
ba tashakor
yeki az karbaran

با سلام خدمت شما دوست گرامی
خیلی خوش اومدید . انشاءالله بتونید بهره لازم رو از این سایت ببرید
شاد باشید

سلام

آقای / خانم نوروزی محمدی ورودتون را به این بخش خوش آمد می گوییم اما اولا به فارسی بنویس و ثانیا پست شما دارای مطلب خاصی ، سوالی و... باشد.

اعلام حضور بود آقا رضا!:لبخند:
زیاد سخت نگیر:چشمک:

لطفا اگر امکان دارد در خصوص برنامه کد نویسی اکسس دستورات ساده ولازم از اینوع اصطلاحات وجود دارد برایم ارسال نمائید

پست شما به این قسمت ربطی ندارد.
در بخش Access مطرح کنید.

لطفاً راهنمایی کنید، من چیزی نمی‌بینم! هیچ فایلی پیوست نیست. درست می‌گم؟
ممنون