چند تا سوال

السلام علیکم

من چند فروند سوال دارم :دی
اول ابنکه من تازه کارم
1-چطور میشه کاری کرد قبل از اجرای پروژه یک پیام برای کاربر بیاد و پس از زدن اوکی بره تو محیط برنامه
2- چطور میشه کاری کرد پروژه در سیستم عاملی خاص و در کامپیوتری با مشخصات تععین شده(رم بالای x سی پی یو بالا x و ...)اجرا بشه؟
3-محدودیت عددی داده های single,double,currency,decimal چقدره؟نمیشه نا محدود داد؟
4-چطور میشه در caption یه چیز سیمبل زد؟ مثلا رادیکال
5-چطور میشه کاری کرد یه تکست باکس فقط عدد یا فقط نوشته قبول کنه؟
6-چطور میشه کاری کرد که برنامه به جای دادن ارور overfolw موقعی که عدد یا نوشته بیشتر از اندازش شود دیگه ننویسه و کامپیوتر بوق بزنه؟

ممنون

نقل قول:

---

1-چطور میشه کاری کرد قبل از اجرای پروژه یک پیام برای کاربر بیاد و پس از زدن اوکی بره تو محیط برنامه

---

خوب ... برای این کار میتونی مشخصه ی visible فرم رو false کنی و هر وقت کاربر روی دکمه ی ok کلیک کرد مشخصه true بشه و کاربر وارد محیط برنامه بشه.

نقل قول:

---

2- چطور میشه کاری کرد پروژه در سیستم عاملی خاص و در کامپیوتری با مشخصات تععین شده(رم بالای x سی پی یو بالا x و ...)اجرا بشه؟

---

با کد خاصی میتونی این کار رو انجام بدی.

نقل قول:

---

محدودیت عددی داده های single,double,currency,decimal چقدره؟نمیشه نا محدود داد؟

---

توی signle تا هفت و هشت رقم اعشار میتونی عدد بدی.
توی currency تا 15 رقم صحیح و 4 رقم اعشار.
توی double تا 15 رقم اعشار.

نقل قول:

---

4-چطور میشه در caption یه چیز سیمبل زد؟ مثلا رادیکال

---

خوب ... میتونی بری تو قسمت symbol خود ویندوز و رادیکال درست کنی و کپی کنی و بعد اون جا paste کنی.

نقل قول:

---

5-چطور میشه کاری کرد یه تکست باکس فقط عدد یا فقط نوشته قبول کنه؟

---

این کار رو باید بوسیله ی چک کردن کدهای اسکی انجام بدی ... احتمالا کد زیر به دردت بخوره :

کد:

---

private sub txtenternums_keypress (KeyAscii As Integer)
if KeyAscii < Asc("0) or KeyAscii > Asc("9) then
KeyAscii=0 'cancel the characters
 beep 'sound error signal.
endif
end sub
 

---

این رو الان اضافه کردی یا من ندیدم ؟

نقل قول:

---

6-چطور میشه کاری کرد که برنامه به جای دادن ارور overfolw موقعی که عدد یا نوشته بیشتر از اندازش شود دیگه ننویسه و کامپیوتر بوق بزنه؟

---

منظورت رو از بیشتر از اندازش خیلی خوب نفهمیدم.

اگه منظورت طول نویسه ای هست که کاربر وارد میکنه، میتونی توسط مشخصه ی maxlength تعیین کنی.
مثلا اگه مقدار این عدد سه باشه کاربر فقط سه نویسه میتونه وارد کنه.
ولی اگه منظورت اینه که مثلا تو یه متغیر از نوع single داری و میخوای کاربر وقتی یه عددی بیشتر از محدوده ی single وارد کنه پیغام خطا بده ... این رو به راحتی توسط یه دستور شرطی میتونی بنویسی.

امیدوارم جوابایی که دادم به دردت بخوره، تا اونجایی که تونستم راهنماییت کردم.

نقل قول:

---

خوب ... برای این کار میتونی مشخصه ی visible فرم رو false کنی و هر وقت کاربر روی دکمه ی ok کلیک کرد مشخصه true بشه و کاربر وارد محیط برنامه بشه.

---

چطور میتونم متن پیامم خودم بنویسم؟

نقل قول:

---

نقل قول:
2- چطور میشه کاری کرد پروژه در سیستم عاملی خاص و در کامپیوتری با مشخصات تععین شده(رم بالای x سی پی یو بالا x و ...)اجرا بشه؟
با کد خاصی میتونی این کار رو انجام بدی.

---

میشه خود کد رو بدین؟

نقل قول:

---

نقل قول:
4-چطور میشه در caption یه چیز سیمبل زد؟ مثلا رادیکال
خوب ... میتونی بری تو قسمت symbol خود ویندوز و رادیکال درست کنی و کپی کنی و بعد اون جا paste کنی.

---

اینو کارو که می کنم رادیکال میشه علامت سوال

نقل قول:

---

این کار رو باید بوسیله ی چک کردن کدهای اسکی انجام بدی ... احتمالا کد زیر به دردت بخوره :

کد:

private sub txtenternums_keypress (KeyAscii As Integer)
if KeyAscii < Asc("0) or KeyAscii > Asc("9) then
KeyAscii=0 'cancel the characters
beep 'sound error signal.
endif
end sub

---

من خیلی تازه کارم میشه بیشتر در مورد این کد توضیح بدید؟

نقل قول:

---

این رو الان اضافه کردی یا من ندیدم ؟

---

بعدا اضافه کردم

نقل قول:

---

ولی اگه منظورت اینه که مثلا تو یه متغیر از نوع single داری و میخوای کاربر وقتی یه عددی بیشتر از محدوده ی single وارد کنه پیغام خطا بده ... این رو به راحتی توسط یه دستور شرطی میتونی بنویسی.

---

منظورم اینه
فقط متغیر شرطی چیه؟ :دی

نقل قول:

---

اگه منظورت طول نویسه ای هست که کاربر وارد میکنه، میتونی توسط مشخصه ی maxlength تعیین کنی

---

میشه اینم یاد بدی؟

نقل قول:

---

چطور میتونم متن پیامم خودم بنویسم؟

---

به وسیله ی تابع msgbox میتونی این کار رو بکنی.
دو روش برای msgbox وجود داره.

1-) نمایش پیغام
2-) نمایش پیغام و عکس العمل کاربر

من فعلا برات اولیش رو میگم، وقتی خوب یاد گرفتی بگو تا دومیش رو برات توضیح بدم.

کلا شکل این دستور در حالت اول این جوریه :

کد:

---

msgbox ("prompt",buttons,tittle")

---

prompt : توی این آرگومان باید متن دلخواهت رو وارد کنی، حتما باید متن خودت رو بین دو تا کوتیشن قرار بدی.
مثل : "مجید". این قسمت برای این تابع اجباریه.

buttons : توی این قسمت میتونی کلید ها، آیکون و دکمه ی پیش فرض مورد علاقه ت رو تعیین کنی که هرکدوم کد خاصی دارن و من کدش رو برات مینویسم.

tittle : عنوان پیغام خودت رو مینویسی ... دقت داشته باش که این هم باید بین دو تا کوتیشن باشه.

مثال :

کد:

---

msgbox "This is myprogram",vbyesno,vbinformation

---

نقل قول:

---

میشه خود کد رو بدین؟

---

من این کد رو برای نسخه ی 2008 بلد هستم و اون هم برای چک کردن ویندوز.

نقل قول:

---

اینو کارو که می کنم رادیکال میشه علامت سوال

---

فکر کنم vb تو با unicode مشکل داره، احتمالا از vb6 استفاده میکنی، درسته ؟
میتونی درستش کنی، ولی من نمیدونم چه جوری.
من توی 2008 به راحتی این علامت هارو میزنم و قبول میکنه.

نقل قول:

---

من خیلی تازه کارم میشه بیشتر در مورد این کد توضیح بدید؟

---

چرا که نه ... یه کم مهلت بده.

نقل قول:

---

منظورم اینه
فقط متغیر شرطی چیه؟

---

منظورت دستور شرطیه با متغیر شرطی ؟
برای اون کاری که گفتی باید شرط بزاری ... برات توضیح میدم.

نقل قول:

---

میشه اینم یاد بدی؟

---

هر کنترلی که میزاری دارای چند تا مشخصه هستن، سمت راست برات باز میشه یا با کلید F4 میتونی بازش کنی. تو این لیست بگرد و MAXLENGTH رو پیدا کن و مقدار عددی دلخواهت رو وارد کن.

کدهای button برای استفاده در msgbox :

vbokonly
vbokcancel
vbabortretryignore
vbyesnocancel
vbyesno
vbretry
vbretrycancel

عملکرد کد های ساخت دکمه هم که از اسمشون معلومه.

کدهای آیکون :

vbcritical
vbquestion
vbexclamation
vbinformation

این ها هم که از اسمشون معلومه. تک تک امتحان کن تا یاد بگیری.

نکته : یادت باشه اکه بخوای دکمه و آیکون هارو توی آرگومان دوم این دستور معرفی کنی باید با + اون هارو به هم بچسبونی.


کد تعریف دکمه ی پیش فرض :

از سمت چپ، دکمه ای رو که تعیین کردی، دکمه ی پیش فرض میکنه ... اینم کداش :

vbdefaultbutton1
vbdefaultbutton2
vbdefaultbutton3

حالا یه مثال کلی تا بهتر یاد بگیری :

کد:

---

msgbox=("do you want to run the program?",vbyesno+vbquestion+vbdefaultbutton2,"question")

---

اگه سوالی داشتی بپرس.
دستور شرطی رو بعدا برات توضیح میدم ...

راستی اگه داری الان با vb6 کار میکنی همین الان پاکش کن و برو vb2008 بگیر :31:

من تازه کارم کمی که حرفه ای شدم حتما وی بی 2008 می زنم

نقل قول:

---

نقل قول:
این کار رو باید بوسیله ی چک کردن کدهای اسکی انجام بدی ... احتمالا کد زیر به دردت بخوره :

کد:

private sub txtenternums_keypress (KeyAscii As Integer)
if KeyAscii < Asc("0) or KeyAscii > Asc("9) then
KeyAscii=0 'cancel the characters
beep 'sound error signal.
endif
end sub

---

این کد کار نکرد

کد کار میکنه ولی من احتمال میدم تو همین کد رو در جا رفتی کپی کردی و پروژه رو تست کردی ... بزار برات توضیح بدم تا بهتر بفهمی :

در خط اول txtenternums نام تکست تو هست ... میتونه هرچی باشه ... بستگی به نامی داره که قبلا برای تکست باکس انتخاب کردی و بعد از اون _keypress نشانگر رویداد keypress هست. یعنی ما در صفحه ی برنامه نویسی تکست باکسمون،
حالت keypress که فشار دادن کلیدی از صفحه کلید رو به ما برمیگردونه رو انتخاب کردیم.
این خط اول رو خود vb مینویسه و تو نباید بنویسی.

در خط دوم اومدیم و یه دستور شرطی if گذاشتیم تا متغیر KeyAscii رو چک کنه.
خط اول رو اگه نگاه کنی میبینی که در حالت پیش فرض vb این متغیر رو برات معرفی کرده تا به عنوان یه Integer ازش استفاده کنی. integer یعنی عدد صحیح ... با فشار دادن هر کلیدی روی صفحه کلید یه کد اسکی از نوع عدد صحیح برمیگرده، پس این متغیر رو Integer معرفی کرده تا از مقدار برگشتی عدد صحیح یک کلید روی کیبورد استفاده کنیم.
تابع Asc() یک کاراکتر رو میگیره و مقدار برگشتی کد اسکی رو میده.
ما این جا گفتیم اگر KeyAscii از Asc عدد صفر کمتر بود یا از Asc عدد نه بیشتر بود سپس ... KeyAscii رو مساوی صفر کنه.
وقتی مقدار KeyAscii مساوی صفر باشه یعنی این که کاربر دیگه نتونه کاراکتری رو وارد کنه و بعد هم توسط دستور beep در این حالت صدای beep از بلندگوی کیس شنیده میشه !
در نهایت توسط دستور end if دستور شرطی رو بستیم.
توجه داشته باش که دستور شرطی Asc عدد 0 تا 9 رو اینجوری چک میکنه تا کاربر وارد کنه، در غیر اینصورت وارد نمیکنه.
این برای شروع خیلی زوده، باید دستورات شرطی رو بهتر متوجه بشی.

سوالی داشتی بپرس.

نقل قول:

---

من تازه کارم کمی که حرفه ای شدم حتما وی بی 2008 می زنم

---

خوب از الان برو ...

نمیدونم میدونی یا نه ولی امکانات 2008 فوق العاده بهتر از 6 هست و خیلی از کدها از زمین تا آسمون با 6 فرق کرده !

پس فکر نکن اگه 6 کار کنی و خوب یاد بگیری بعد به راحتی میتونی بری تو 2008 و بدون دردسر کدنویسی کنی.

والا کسی که بهم یاد میده می گه اول ویبی 6 بعد که حرفه ای تر شده برو 2008