اولين پروژه و آشنايی با برنامه نويسی بوسيله VB

به عنوان اولين پروژه، قصد داريم فرمی داشته باشيم با دو دکمه Message و Exit که اگر در دکمه Message کليک شد، پيغامی نمايش داده شود و اگر دکمه Exit کليک شد از برنامه خارج شود(شکل3):

ابتدا فرمی که بر روی صفحه نمايش باز است (فعلاً به نام Form 1 ) را به اندازه دلخواه در می آوريم و در حالی که Select است، از پنجره Properties (سمت راست تصوير) ، مشخصه (Property) های زير را چنين Set می کنيم:

1-    مشخصه Name آن را به frmFirstProject تغيير می دهيم.

2-    مشخصه Caption آن را به First Project تغيير می دهيم.

مشخصه Caption معمولاً عنوانها را تغيير می دهد. مثلاً در مورد فرمها، آنچه در اين مشخصه Set شود در Title Bar از آن فرم ديده می شود يا در مورد دکمه ها، آنچه در اين مشخصه قرار داده شود، آن چيزی است که بر روی دکمه ( به عنوان نام دکمه ای که ُکاربر می بيند) ديده می شود.

مشخصه Name يکی از مهمترين مشخصه هايی است که بايد برای تمام کنترلها Set شود. آنچه در اين مشخصه قرار گيرد، نامی است که VB آن کنترل را به اين نام می شناسد (و خصوصاً در هنگام کدنويسی و برای دسترسی به کنترلها، بسيار مورد استفاده واقع می شود). به طور پيش فرض VB برای هر کنترل يک Name در نظر می گيرد، اما در پروژه های واقعی ، معمولاً تعداد کنترلها آنقدر زياد می شوند که نامهای پيش فرض به سختی در ذهن می ماند. برای اين منظور بهتر است به کنترلها، نامهايی را نسبت دهيم که از جهتی با او متناسب باشد. لذا بهتر است اولاً در نام آنها چيزی باشد که نشان از نوع آن کنترل باشد و عبارتی نيز باشد که بيانگر موضوع يا کار فعلی آن باشد. به عنوان مثال شما می بينيد که ما در مشخصه Name از form ، گفتيم که قرار دهيم: frmFirstProject که frm به خاطر تشخيص Form بودن آن است و First Project به خاطر تشخيص اينکه اين فرم برای First Project است. يا مثلاً به فرض اگر بخواهيم دکمه ای به نام Exit بر روی فرمی داشته باشيم، من ترجيح می دهم که نام آن را cmdExit بگذارم که cmd را از Command Button گرفته ام. توجه داريم که اين نامی است که VB آن را می شناسد وگرنه برای زيبايی کار Caption اين دکمه را همان Exit می گذاريم و اين نام گذاری به زيبايی پروژه ما لطمه ای وارد نمی کند.

برای ادامه، دو دکمه (Command Button) بر روی فرم قرار می دهيم (که برای اين منظور از پنجره Controlها که در سمت چپ تصوير است، کنترل Command Button به شکل را دابل کليک می کنيم و يا با يک Click و انتخاب آن، بر روی فرم، به اندازه دلخواه Drag & Drop می کنيم) و جای آنها را به مکان دلخواه مورد نظر (به وسيله Drag & Drop آنها) تغيير می دهيم. آنگاه برای يکی از آنها:

1-    مشخصه Name را به cmdMessage تغيير می دهيم.

2-    مشخصه Caption را به Message تغيير می دهيم.

و برای ديگری تغيير می دهيم:

1- مشخصه Name را به cmdExit .

2- مشخصه Caption را به Exit .

که پس از اين، شمای ظاهری (Interface) برنامه کامل شده است و بايد به کدنويسي آن پرداخت.

اگر بر روی دکمه Exit دابل کليک کنيد (البته هنوز در Design Time هستيم و نه Run Time)، Event Procedure مربوط به رويداد Click (Event) از آن را به صورت زير باز می کند:

Private Sub cmdExit_Click ()

 End Sub

که هر دستوری که در اين Procedure (يعنی بين خط Private و خط End Sub) نوشته شود، در زمان اجرا، وقتی کاربر روی دکمه Exit کليک می کند، اين دستورات اجرا خواهند شد.

دستوری که بايد در cmdExit_Click نوشته شود بسيار ساده است:

Private Sub cmdExit_Click ()

     End

End Sub

دستور End هر جايی از برنامه که اجرا شود فوراً اجرای برنامه را متوقف و از آن خارج می شود.

حال اگر به ترتيبی که در بالا ذکر شد، Event Procedure مربوط به رويداد click از دکمه Message را نيز باز می کنيم و آن را به صورت زير تغيير می دهيم:

Private Sub cmd, Message - Click

     MsgBox “The first project was done successful” و و  “Thanks”

End Sub

پروژه مورد نظر آماده شده شده است. دستور MsgBox (مخفف Message Box )باعث می شود تا يک کادر پيغام بر روی صفحه نمايش ظاهر شود و تا زمانی که دکمه OK از آن را فشار دهيم، پيغامی را نمايش دهد. در اين دستور پارامتر اول، پيغام مورد نظر را به صورت string (يک داده متنی) دريافت مي کند (در VB هر عبارتی که بين دو علامت " " قرار گيرد، string فرض می شود) و پارامتر سوم نيز به عنوان Message Box (که در Title Bar آن آورده خواهد شد) را به صورت متنی دريافت می کند. توجه داريم که بين هر دو پارامتر از علامت کاما (,) استفاده می کنيم و بنابراين در دستور MsgBox برنامه مان برای اينکه پس از پارامتر اول، پارامتر سوم را وارد کنيم بين آن دو پارامتر، دو بار کاما گذاشته ايم.

حال برنامه تان را اجرا کنيد و نتيجه کار را ببينيد (اجرای برنامه در VB توسط کليد F5 صورت می گيرد.

ذکر چند نکته:

1-    اگر بخواهيد فشردن ALT+X همان عمل دکمه Exit را انجام دهد(ايجاد(Hot key) ، کافی است در Caption اين دکمه چنين بنويسيد: E&xit که در اين صورت در زمان اجرا، زير حرف x يک underline (زير خط) می کشد که در ويندوز اين حالت نشانگرHot key داشتن آن حرف است ، همين کار را هم در مورد دکمه Message انجام دهيد.

2-    در هنگام کدنويسي اگر چند حرف اول يک کلمه شناخته شده VB (مانند نام کنترلها و يا Property ها، Method ها و ...) را بنويسيم و CTRL+Space را فشار دهيم، اگر تنها يک کلمه با حرف اول برابر آنچه شما نوشته ايد پيدا کند، بقيه حروف را خود، کامل می کند و اگر تعدادی کلمه با اين مشخصات پيدا کند، ليست آنها را نمايش می دهد که می توانيد يا يکی از آنها را انتخاب کنيد (بر روی کلمه از ليست برويد و کليد space را بزنيد) و يا تعدادی از حروف آن را بنويسيد تا محدوده کلمات مشابه کوتاهتر شود. اين کار را حتماً امتحان کنيد!

3-    زمانی که يک فرم باز می شود، به ترتيب چهار Event بر روی آن رخ می دهد:

	Initialize
	Load
	Activate
	Got focus

که زمانی که رويداد اول رخ می دهد، هنوز object های روی فرم ايجاد نشده اند و قابل دسترسی نيستند. اين object ها در load ساخته می شوند، اما هنوز فرم نمايش داده نشده است. وقتی فرم نمايش داده می شود، رويداد Activate و وقتیfocus به آن داده می شود، رويداد Got focus روی مي دهد. (منظور از گرفتن focus اينست که آن کنترل خاص که در اينجا فرم است، کانون تمام پيامها شود، مثلاً اگر کليدی زده شد به آن فرستاده شود و ...).

4-    برای ذخيره کردن پروژه از منوی فايل و گزينه Save استفاده می شود که بايد تمام فرمها، ماژولها، ... و اصل پروژه را جداگانه ذخيره کرد. لذا اگر شما برنامه First Project راsave کنيد، يکبار نام فرم را save می کند (با پسوند.frm) و يکبار فايل پروژه را (با پسوند.VBP).

چه سخت است دلتنگ قاصدک بودن در جاده ای که در آن هیچ بادی نمی وزد !

انتقاد پیشنهاد یادت نره

 

 

 

انتقاد پیشنهاد یادت نره

 

 

 

انتقاد پیشنهاد یادت نره

 

انتقاد پیشنهاد یادت نره

مضرات استمنا

بنام خدای مهربان
سلام
یکی از سوالات جوانان در مورد راههای ترک استمناء است بنده سعی کردم این بحث را از سه دیدگاه شریعت و اخلاق و علم با کمک مقالات مربوط در این زمینه بررسی کنم و نظر هر سه گروه را بیان کنم
البته لازم به ذکر است که کسی که به خالق خود و هستی بخش عالم اعتماد کند کلام او را بی چون و چرا قبول می کند ولی من سعی کردم نظر متخصصین این بحث را نیز مطرح کنم.
ابتدا نظرات شریعت و اخلاق و علم را بیان می کنم و سپس به راه فرار از این بیماری را مطرح خواهم کرد البته این راههها هم برای کسانی است که می خواهند نجات یابند
1- به نظر تمام فقها هر عملی به غیر از راه شرعی (ازدواج) که موجب شود منی از انسان خارج شود حرام قطعی و جزء گناهان کبیره است . و هیچ عذری هم موجب جواز این عمل نمی شود.
2- بنظر علمای علم اخلاق ،این عمل یکی از بزرگترین موانع رشد و تعالی انسان هست بطوری که بزرگان علم اخلاق نظیر مرحوم سید عبدالله شبر می گوید : وقتی آلت مرد حرکت می کند دو سوم عقل او زایل می شود.
از کتاب گناهان کبیره نکاتی را در اینجا یاد آور می شوم:
هر كس به دستش يا عضو ديگرش استمناء كند، بايد تعزير شود. چون كار حرامي بلكه كبيره‌اي را مرتكب شده است. چنانچه از حضرت صادق ـ عليه السّلام ـ از حكم آن مي‌پرسند
آن حضرت مي‌فرمايد: گناه بزرگي است كه خداوند در قرآن مجيد از آن نهي فرموده است و استمناء كننده مثل اين است كه به خودش نكاح كرده و اگر كسي را كه چنين كاري مي‌كند، بشناسم، با او همخوراك نخواهم شد
از امام ـ عليه السّلام ـ حكم استمناء را مي‌پرسند،‌ درپاسخ فرمود: از گناهان بزرگ و بسيار زشت است
حضرت صادق ـ عليه السّلام ـ مي‌فرمايد: «سه دسته‌اند كه خداوند با ايشان سخن نمي‌گويد و به نظر رحمت به ايشان نمي‌نگرد و پاكشان نفرموده و برايشان عذاب دردناكي است: كسي كه موي سفيدش را بكند (تا نمايش دهد كه جوان است)، و كسي كه به وسيله عضو خودش شهوتش را خارج كند، و كسي كه با او لواط كرده شود.»[4]
رسول خدا ـ عليه السّلام ـ مي‌فرمايد: «هر كس، كه با دست شهوتش را بيرون كند ملعون است
مضرات معرفتی عمل استمناء طبق روایات ،دوری از رحمت خدا و اهل بیت علیهم السلام خواهد بود
3- از منظر علم(عالمان منصف) نیز هیچ پزشکی این عمل را تجویز نکرده است لااقل این عمل را عمل خوب و پسندیده نمی دانند در این قسمت نظر شما را به مطالب پزشکان در این مورد و مضرات این عمل جلب می کنم:
1- جوانانی که به اين عمل مبادرت می ورزند همواره دچار کشمکش های روحی و اضطراب هستند.
2- حساسيت و ضعف مراكز عصبي
3- جلو گيري از رشد قسمتهاي عصبي در طول رشد نوجوان
4- بر هم خوردن نظم وآرامش روحي( به خاطر ترس از گناه )
5- ضعف بينايي شنوايي و سوت كشيدن ممتد گوش
6- از دست رفتن لذت مقاربت پس از ازدواج( باعث مي شود همسران از بعد از مقاربت هيچ لذتي نبرند)
7- احتلام مكرر
8- خستگي و ضعف عضلاني
9- سر گيجه
10- مبتلا شدن به انزال زود رس (در باره عوارض جسمي روحي و حتي خانوادگي زودانزالي مطالب بسيار ميتوان گفت که اين خود امروزه يکي از مشکلات بزرگ تعداد زيادي از مردان و بصورت ثانويه بسياري از زنان متاهل جامعه ما ميباشد.)
11- احساس سر و صدا
12- ضعف روحي به واسطه ارضاء نا كامل وسپس پشيماني از عمل
13- آسیبهای شديد عصبي بدني مثل لاغري لرزش و افسردگي و اضطراب
14- از دست دادن اعتماد به نفس بر اثر از دست دادن قوه اراده
گفتار یکی از پزشکان در سایت سلامت (با مطالعه مطالب ارائه شده فوق ، ممکن است اين اين تصور بوجود آيد که استمناء به مقدار کم نه تنها مضر نيست که شايد با کاهش فشار جنسي سودمند هم باشد.(حتي گروه متعددي از پزشکان، بخصوص در مقالات غربي چنين عقيدهاي را ارائه کرده اند).من هنگام جمع آوري اين مطالب بياد آوردم که شرب الکل در دين اسلام حرام ميباشد، حتي به مقدار کم. در حالي که پزشکان مقدار کم الکل را مضر نميدانند. ولي انسان پس از درک لذت آن، بدليل زياده طلبي ، به مقادير کم راضي نيست. به همين صورت عمل استمناء و خودارضائي جنسي نيز بتدريج با زياده طلبي در لذت جنسي و ارضاء ، و بتدريج با افزايش و استمرار آن تبديل به اعتياد روحي ميگردد. بطوري که بسياري از جوانان با علم به مضرات آن و تمايل شديد به ترک، وحتي پشيماني شديد و انزجار پس از انجام استمناء، قادر به ترک آن نيستند.)

استمناء عملی است که بعداْ به ناراحتی مبدل می گردد و شخص مرتکب را دچار نارضايتی ـ محکوميت نفس و افکاری می کند که شديداْ در وضع اجتماعی و جنسی او اثرات سوئی باقی می گذارد.
در اينجا مقداري از مضرات استمناء را از كتاب «ناتواني‌هاي جنسي» كه مجموعه‌اي از مضرات جسمي و روحي استمناء است به نقل از کتاب گناهان کبیره باز گو می کنیم: اين عمل، مبتلايان را به ضعف قواي شهواني دچار مي‌كند ، جبون و بي‌حال بار مي‌آيند، شهامت و درستي از آنان سلب مي‌شود. چه بسا اشخاصي هستند كه در عنفوان جواني در اثر مبتلا شدن به جلق، چنان دچار ضعف قواي روحي و جسمي مي‌شوند كه معتادين به ترياك و شيره، در مقابل آنان شير نري به شمار مي‌آيند. عمل غير طبيعي جنسي يعني استمناء يا جلق، از لحاظ روابط نزديكي به حواس پنچ‌گانه دارد در درجه‌ي اول، در چشم و گوش اثر مي‌گذارد. بدين معني كه «ديد» چشم را ضعيف كرده و حس سامعه را نيز تا اندازه‌ي قابل توجهي از كار مي‌اندازد. مبتلايان به جلق مخصوصاً آنهايي كه از لحاظ جسماني ضعيف مي‌باشد، غالباً مگسي جلو چشم خود مي‌بينند كه به شدت آنها را ناراحت مي‌كند. و حتي وقتي چشم‌هاي خود را مي‌بندند باز نمي‌توانند از آسيب مگس در امان باشند و چون اين عمل هر بار چند دقيقه ادامه پيدا مي‌كند چشمشان سياهي رفته و دچار سرگيجه مي‌شوند و به زمين مي‌افتند. همچنين به طور مداوم صداي ناهنجاري در گوش خود احساس مي‌كنند كه بسيار ناراحت كننده است. علاوه بر اينها تحليل رفتن قواي جسماني و روحاني، كم شدن خون، پريدگي رنگ، نقصان قواي حافظه، لاغري، ضعف و سستي زياده از حد، بي اشتهايي، كج خلقي، عصبانيت، دوران سر، و هزاران آفت ديگر، از بيماري‌هايي است كه گريبان مبتلايان به جلق را خواهد گرفت.
البته آنهايي كه از لحاظ جسمي قوي هستند، ممكن است قدري ديرتر به اين بيماري‌ها دچار شوند. ولي به هر حال عدم ابتلاء‌به آنها از محالات است و خواه ناخواه همه بايد به چنين مصائبي گرفتار شوند.
از بدبختي‌هاي مبتلايان به جلق يكي اين است كه قوه‌ي اراده‌ي آنان به كلي مختل مي‌گردد و لذا وقتي به عمل خود پي مي‌برند،‌آن قدر اراده ندارند كه به ترك كردن آن اقدام نمايند. پس اينكه مي‌گوييم استمناء از لحاظ روحي نيز قواي انسان را فرسوده مي‌كند، بي‌علت نيست. عمل استمناء، علاوه بر مضار جسمي، از لحاظ جنسي نيز شخص را فرسوده مي‌كند. يعني غدد مترشحه‌ي داخلي را از كار مي‌اندازد از جمله‌ي اين غدد، غده‌ي سازنده‌ي مني است كه بر اثر جلق رفته رفته كوچك شده و به صورت نخودي در مي‌آيد و چون در آن صورت قادر به فعاليت و ساختن مني يا به قول عرب‌ها (ماء ‌الحيات) يعني آب زندگاني نيست، شخص مبتلا براي هميشه از لذايذ جنسي محروم مي‌گردد و اگر به اين صورت از مردي نيفتاد، به طور قطع به صورت ديگري مانند سرعت انزال، كندي انزال، ‌سيلان مني، عدم نعوظ، نعوظ بي‌دوام و امثال اينها به ناتواني جنسي مبتلا خواهد شد. چه بسا ديده يا شنيده شده كه جوانان معتاد به جلق، در اندك مدتي دچار چنان حالتي گرديد كه به جاي ادرار، خون از آنها خارج مي‌شد.
بايد دانست كه اشخاصي كه به اين حالت دچار مي‌شوند ولو در سنين جواني باشند، خطر مرگ در انتظار آنها است. زيرا بدون احساس شهواني و بدون اينكه لذتي ببرند بلا انقطاع مني از آنها دفع مي‌گردد و همين امر باعث مي‌شود كه در حين راه رفتن دفعةً به زمين بخورند و از هوش بروند.
بدون اغراق از هر ده نفر بيمار مسلولي كه در آسايشگاه خوابيده‌اند، چهار نفر به علت ابتلاء به جلق، به اين بيماري خطرناك دچار گرديده‌اند. يعني بر اثر ابتلاء به استمناء كارشان به جنون كشيده و به گوشه‌ي تيمارستان افتاده‌اند. زيرا عمل مذموم و ناپسند جلق، در قواي دماغي تأثير زيادي دارد و وقتي قواي دماغي شخص مختل شد، مسلم است كه كارش به ديوانگي خواهد كشيد اينها ادعا نيست بلكه حقيقتي است كه علماء و دانشمندان با دهها سال تجربه، به درك آن موفق شده‌اند
دنيا امروز مي‌گويد: خوب بخور، در هيچ امري افراط نكن، قوي باش تا بيمار نشوي. ولي معتادين به جلق، چون اشتهاي خوب خوردن ندارند و در امور جنسي آن هم از راه غير طبيعي افراط مي‌كنند، ناچار ضعيفند. «و چون ضعيف هستند براي ابتلاء به هر نوع بيماري مستعد مي‌باشند.»
به كرات ديده شده كه بعضي از مبتلايان به جلق، بر اثر افراط در اين عمل به يك نوع بيماري به نام جنون استمناء كه شباهت زيادي به ساديسم دارد، مبتلا مي‌شوند و آن وقت حتي با ديدن سگ و گربه هم به فكر استمناء مي‌افتند و بلافاصله مشغول عمل مي‌شوند. و چون هيچ مردي حتي پر شهوت‌ترين اشخاص نمي‌توانند بيش از پنج يا شش ماه از نيروي جنسي خود آن هم به صورتي كه مورد بحث ما است بهره‌برداري كنند، لذا قواي تناسلي آنان به كلي از كار مي‌افتد و يا به وضع دلخراشي به آغوش مرگ پناه مي‌برند
ممكن است بعضي از اشخاص مبتلاي به جلق كه به علت قوي الجثه بودن و يا از لحاظ مبتدي بودن در اين امر، تاكنون بيمار نشده و به مضار عمل ناپسند خود پي نبرده باشند، مطالبي را كه ما در مضرات جلق نوشتيم، اغراق پنداشته و با خود بگويند اگر اين طور است چرا ما تاكنون به اين بيماري‌ها مبتلا نشده‌ايم؟.
در جواب اين عده بايد گفت: اگر امروز مضار جلق، گريبان شما را نگرفته علتش اين است كه قوي الجثه هستيد و يا تازه شروع به كار كرده‌ايد. والا چندي ديگر خواه ناخواه به سراغ شما نيز خواهد آمد. وانگهي ما ادعا نكرده‌ايم كه هر كس يك هفته مبادرت به استمناء كرد، تمام بيماري‌هاي يكباره او را احاطه خواهند كرد. زيرا حالات اندروني در اشخاص فرق مي‌كند. مثلاً ممكن است يك نفر كه براي مدتي مبادرت به جلق كرد، ‌در وهله‌ي اول فقط با سستي اعصاب، يا اختلال حس سامعه، يا ضعيف شدن حس باصره، يا سرگيچه مبتلا شود ولي بعداً ساير بيماري‌ها يك يك به سراغ او بيايند.
پس استمناء (جلق)، هم از نظر شرعي و هم از نظر عرفي و به طور خلاصه من جمع الجهات، حرام و ناپسند است.
با توجه به مطالب با لا و فهمیدن نظر شرع و اخلاق و علم انسان باید به این نکته برسد که هر چه سریعتر از این عمل زشت دست بردارد ولی ترک این عمل برای کسانی که معتاد شده اند سخت است و نیازمند ارائه راهکارهایی برای نجات است ما سعی می کنیم راهکار های گفته شده را در اینجا ذکر کنیم:
1- هر وقت به فکر این کار افتادید به خود بگوئید که آلان خدا من را می بیند.
2- هر وقت به فکر این کار افتادید به خود بگوئید که می خواهید در مقابل چه کسی گناه کنید
3- به یاد داشته باشید وقتی گناه می کنید امام زمان علیه السلام برایتان گریه می کند پس ببینید چه کسی را می خواهید بگریانید.
4- هر کاری که شما را به فکر این کار بیندازد آن کار را سریع ترک کنید.
5- هر صحنه ای که شما را تحریک می کند آن صحنه را ترک کنید.