پيغام مدير : خواندنیهای جالب-------------------------------------روزی دست پسر بچه ای که در خانه با گلدان کوچکی بازی می کرد، در آن گیر کرد و هر کاری کرد، نتوانست دستش را از گلدان خارج کند. به ناچار پدرش را به کمک طلبید. اما پدرش هم هر چه تلاش کرد نتوانستند دست پسر را از گلدان خارج کنند. پدر دیگر راضی شده بود به شکستن گلدان که تصادفا خیلی هم گرانقیمت بود، فکر کند. قبل از این کار به عنوان آخرین تلاش به پسرش گفت: دستت را باز کن، انگشت هایت را به هم بچسبان و آنها را مثل دست من جمع کن. آن وقت فکر می کنم دستت بیرون می آید. پسر گفت: "می دانم اما نمی توانم این کار را بکنم." پدر که از این جواب پسرش شگفت زده شده بود پرسید: "چرا نمی توانی؟" پسر گفت: "اگر این کار را بکنم سکه ای که در مشتم است، بیرون می افتد." شاید شما هم به ساده لوحی این پسر بخندید اما واقعیت این است که اگر دقت کنیم می بینیم همه ما در زندگی به بعضی چیزهای کم ارزش چنان می چسبیم که ارزش دارایی های پرارزشمان را فراموش می کنیم و در نتیجه آنها را از دست می دهیم(به خاطر بعضی از چیز ها خیلی از چیز ها را از دست داد)--------------------------------------------------------------------------کسانی که گذشته را به یاد نمی آورند محکوم به تکرار آن هستند--------------------------------------------------------------------------براي رسيدن بايد راه رفت (مهندس مهدي دلير)--------------------------------------------------------------------------مي خواهم ولي نمي توانم، افسوس كه مي توانستم ولي نخواستم!! هميشه مراقب اشتباه دوم باش، اشتباه اول حق توست!! --------------------------------------------------------------------------لشكر گوسفندانی كه توسط یك شیر اداره میشود، میتواند لشكر شیرانی را كه توسط یك گوسفند اداره میشود، شكست دهد --------------------------------------------------------------------------زندگی مثل دوچرخه سواری است؛ برای حفظ تعادل بایدحرکت کرد............. --------------------------------------------------------------------------هر روز ما آف هامونو باز می کنیم و پیام هایی رو که دوستامون فرستادن می خونی ... اما تا حالا چند بار "قرآن" رو باز کردیم تا پیام هایی رو که خداوند فرستاده بخونیم--------------------------------------------------------------------------دیگران را ببخش نه برای اینکه آنان لایق ببخشش هستند بلکه به خاطر اینکه تو لایق آرامشی--------------------------------------------------------------------------و این آغاز انسان بود... از بهشت که بیرون آمد، دارایی اش یک سیب بود. سیبی که به وسوسه آن را چیده بود. و مکافات این وسوسه هبوط بود. فرشته ها گفتند: تو بی بهشت می میری. زمین جای تو نیست. زمین همه ظلم است و فساد. انسان گفت: اما من به خود ظلم کرده ام. زمین تاوان ظلم من است. اگر خدا چنین می خواهد، پس زمین از بهشت بهتر است. خدا فرمود: برو و بدان جاده ای که تو را دوباره به بهشت می رساند از زمین می گذرد، زمینی آکنده از شر و خیر، آکنده از حق و از باطل، از خطا و صواب، و اگر خیر و حق و صواب پیروز شد تو باز خواهی گشت وگرنه... و فرشته ها همه گریستند. اما انسان نرفت. انسان نمی توانست برود. انسان بر درگاه بهشت وامانده بود. می ترسید و مردد بود. و آن وقت خدا چیزی به انسان داد. چیزی که هستی را مبهوت کرد و کائنات را به غبطه واداشت. انسان دست هایش را گشود و خدا به او اختیار داد. خدا فرمود: حال انتخاب کن. زیرا که تو برای انتخاب کردن آفریده شدی. برو و بهترین را برگزین که بهشت، پاداشِ به گزیدن توست. عقل و دل هزاران پیامبر نیز با تو خواهند آمد، تا تو بهترین را برگزینی. و آنگاه انسان زمین را انتخاب کرد. رنج و نبرد و صبوری را. و این آغاز زندگی انسان بود. --------------------------------------------------------------------------هر 3 ثانیه یکی تو دنیا میمیره بشمار1 2 3 همین الان یکی مرد یادت باشه یکی از این 3 ثانیه ها نوبت من و توه--------------------------------------------------------------------------به نظر تو قرآن برای چی نازل شد فقط برای اینکه یک نگاهی به جلدش بکنیم تاحالا چند تا کتاب خوندی ازکتاب درسی گرفته تا کتاب شعر حتما یلی خوندی اما یک بار شده با حوصله معنی قرآن را بخونی این چه برنامه ی زندگی بزای من و توه که تاحالا حتی اون را کامل نخوندیم چه برسه به اینه روش فکر کنیتا حالا شده فکر کنی که چرا من وتو نمی تونیم مثل اون کتابی بیاریم--------------------------------------------------------------------------چند قورباغه از جنگلي عبور مي کردند که ناگهان دو تا از آنها به داخل گودال عميقي افتادند. بقيه قورباغه ها در کنار گودال جمع شدند و و قتي ديدند که گودال چقدر عميق است به دو قورباغه ديگر گفتند : ديگر چاره ايي نيست .شما به زودي خواهيد مرد . دو قورباغه حرفهاي آنها را نشنيده گرفتند و با تمام توانشان کوشيدند تا از گودال خارج شوند. اما قورباغه هاي ديگر دائما به آنها مي گفتند که دست از تلاش برداريد چون نمي توانيد از گودال خارج شويد ? به زودي خواهيد مرد . بالاخره يکي از قورباغه ها تسليم گفته هاي ديگر قورباغه ها شد و دست از تلاش برداشت .او بي درنگ به ته گودال پرتاب شد و مرد. اما قورباغه ديگر با حداکثر توانش براي بيرون آمدن از گودال تلاش مي کرد . بقيه قورباغه ها فرياد مي زدند که دست از تلاش بردار ? اما او با توان بيشتري براي بيرون آمدن از گودال تلاش مي کرد و بالاخره از گودال خارج شد. وقتي از گودال بيرون آمد بقيه قورباغه ها از او پرسيدند : مگر تو حرفهاي ما را نشنيدي ؟ معلوم شد که قورباغه ناشنوا است و در واقع او در تمام راه فکر مي کرده که ديگران او را تشويق مي کنند .--------------------------------------------------------------------------
--------------------كد لينك ما :
براي دريافت جديد ترين عکسها و فيلمها و همچنين جديد ترين موزيک ها اينجا عضو شويد :
قالب وبلاگ | آموزش همه چيز از گرافيک جامعه برنامه نویسان ایران دانشگاه طبرستان چالوس بهترین سایتها در زمینه ی کامپیوتر آموزش ویژوال بیسیک سحر لشکنار یه دختر کله شق+متفکر این جا رو نبینی واقعا نصف عمرت بر فناست C# , Asp.Net , ADO.Net روستای حیرت روستای عالی دره مایکرسایت - نسل سوم کامپیوتر يك وبلاگ زيبا و بسيار جالب (ني ني) گروه برنامه نويسي پايا وب شمال قالب هاي حرفه اي براي شما خدمات هاست و دامين جووني آنلاين
قالب هاي توپ براي شما مرجع موزيک آنلاين جامعه برنامه نویسان دانلود برنامه های فارسی سپاهان استقلال پرسپولیس عالی دره خطه ای از بهشت روی زمین کجور نگین شمال کد های برنامه نویسی وب سایت چالوس خبرگزاری فارس ورزشی عکسهاي داغ از ... واي (5263)آرشيو لينكدوني
حامد نعیمایی
برنامه نویسی فوتبال دانلود کامپیوتر اس ام اس گالری عکس گوناگون
هفته چهارم اسفند 1390 هفته چهارم آبان 1388 هفته سوم مرداد 1388 هفته دوم مرداد 1388 هفته اوّل مرداد 1388 هفته چهارم تیر 1388 هفته سوم تیر 1388 هفته دوم تیر 1388 هفته اوّل تیر 1388 هفته چهارم خرداد 1388 هفته سوم خرداد 1388 هفته دوم خرداد 1388 هفته اوّل خرداد 1388 هفته اوّل اردیبهشت 1388 هفته سوم فروردین 1388 هفته دوم فروردین 1388 هفته اوّل فروردین 1388 هفته چهارم اسفند 1387 هفته سوم اسفند 1387 هفته اوّل اسفند 1387 هفته چهارم بهمن 1387 هفته سوم بهمن 1387 هفته اوّل بهمن 1387 هفته چهارم دی 1387 هفته دوم دی 1387 هفته اوّل دی 1387 هفته چهارم آذر 1387 هفته سوم آذر 1387 هفته دوم آذر 1387 هفته اوّل آذر 1387 هفته چهارم آبان 1387 هفته سوم آبان 1387 هفته دوم آبان 1387 هفته اوّل آبان 1387 هفته چهارم مهر 1387 هفته سوم مهر 1387 هفته دوم مهر 1387 هفته اوّل مهر 1387 هفته چهارم شهریور 1387 هفته سوم شهریور 1387 هفته دوم شهریور 1387 هفته اوّل شهریور 1387 هفته چهارم مرداد 1387 هفته سوم مرداد 1387 هفته دوم مرداد 1387 هفته اوّل مرداد 1387 هفته چهارم تیر 1387 هفته سوم تیر 1387 هفته دوم تیر 1387 هفته چهارم خرداد 1387 هفته سوم خرداد 1387 هفته دوم خرداد 1387 هفته اوّل خرداد 1387 هفته چهارم اردیبهشت 1387 هفته سوم اردیبهشت 1387 هفته دوم اردیبهشت 1387 هفته اوّل اردیبهشت 1387 هفته چهارم فروردین 1387 هفته سوم فروردین 1387 هفته دوم فروردین 1387 هفته اوّل فروردین 1387 هفته چهارم اسفند 1386 هفته سوم اسفند 1386 هفته دوم اسفند 1386 هفته اوّل اسفند 1386 هفته چهارم بهمن 1386 هفته سوم بهمن 1386 هفته دوم بهمن 1386 هفته اوّل بهمن 1386 هفته چهارم دی 1386 هفته سوم دی 1386 هفته دوم دی 1386 هفته اوّل دی 1386 هفته چهارم آذر 1386 هفته سوم آذر 1386 هفته دوم آذر 1386 هفته اوّل آذر 1386 هفته چهارم آبان 1386 هفته سوم آبان 1386 هفته دوم آبان 1386 هفته اوّل آبان 1386 هفته چهارم مهر 1386 هفته سوم مهر 1386 هفته دوم مهر 1386 هفته اوّل مهر 1386 هفته چهارم شهریور 1386 هفته سوم شهریور 1386 هفته دوم شهریور 1386 هفته اوّل شهریور 1386 هفته چهارم مرداد 1386 هفته سوم مرداد 1386 هفته دوم مرداد 1386 هفته اوّل مرداد 1386 هفته چهارم تیر 1386 هفته سوم تیر 1386 هفته دوم تیر 1386 هفته اوّل تیر 1386 هفته چهارم خرداد 1386 هفته سوم خرداد 1386 هفته دوم خرداد 1386 هفته اوّل خرداد 1386 هفته چهارم اردیبهشت 1386 هفته سوم اردیبهشت 1386 هفته دوم اردیبهشت 1386 هفته اوّل اردیبهشت 1386 هفته چهارم فروردین 1386 هفته سوم فروردین 1386 هفته دوم فروردین 1386 هفته اوّل فروردین 1386 هفته چهارم اسفند 1385 هفته سوم اسفند 1385 هفته دوم اسفند 1385 هفته اوّل اسفند 1385 هفته چهارم بهمن 1385 هفته سوم بهمن 1385 هفته دوم بهمن 1385 هفته اوّل بهمن 1385 هفته سوم دی 1385 هفته دوم دی 1385 هفته اوّل دی 1385 هفته چهارم آذر 1385 هفته دوم آبان 1385 هفته دوم مهر 1385 هفته دوم شهریور 1385 هفته چهارم مرداد 1385 هفته اوّل تیر 1385 هفته سوم خرداد 1385 هفته دوم اردیبهشت 1385 هفته چهارم فروردین 1385 هفته چهارم اسفند 1384 هفته سوم بهمن 1384
براي جستجو در همين صفحه وبلاگ واژه كليدي مورد نظرتان را وارد کنيد :
آمار
طراحي شده توسط حامد نعيمايي http://kojoor.blogfa.com http://kojoor.blogfa.com
كتابهاي الكترونيكي و اسلايدهاي دروس رشته ي نرم افزار ( برنامه نویسی )
با سلام خدمت همه ي دوستان عزيزم
كتابهاي الكترونيكي و اسلايدهاي دروس رشته ي نرم افزار
ليست موضوعي
ادبيات فارسي
كتاب و نمونه سوال
آمار و احتمالات مهندسي
اسلايد دكتر پرويز نصيري و نمونه سوال
انديشه اسلامي
دانشگاه پيام نور
زبان ماشين و اسمبلي
2 اسلايد + 3 كتاب + پروژه + نمونه سوال
C & C++
كتاب PDF جعفر نژاد و اسلايد + تمرينات كتاب + نمونه سوال برنامه سازي (جمعاً 13 PDF و 3 اسلايد كامل)
كامپايلر
جزوه طراحي كامپايلر دانشگاه تهران + اسلايد پيام نور + نمونه سوال
پايگاه داده
كتاب و جزوه درسي + آموزش oracle,mySQL,SQL Server + نمونه سوال
گرافيك
برنامه نويسي OpenGL,DirectX + نمونه سوال
هنرستان
كتابهاي برنامه سازي 2و3 هنرستان + نمونه سوال
هوش مصنوعي
كتاب جلوه گر + اسلايد + نمونه سوال
مباني الكترونيك
جزوه دانشگاه آزاد + نمونه سوال
مباني اينترنت
كتاب
مدارهاي منطقي
كتاب طراحي ديجيتال موريس مانو(انگليسي و فارسي) + كتاب حل تمرين موريس مانو + كتاب آز مدار + اسلايد مدار و معماري
معماري كامپيوتر
اسلايد پور محقق
مبتني بر وب
جزوه ASP.NET + C#
مهندسي اينترنت
كتاب احسان ملكيان + اسلايد
مهندسي نرم افزار
اسلايد بر اساس كتاب سامرويل + نمونه سوال
محاسبات عددي
جزوه + نمونه سوال
نظريه زبان ها و ماشين
جزوه + اسلايد گروه كامپيوتر پيام نور
شبكه هاي كامپيوتري
كتاب تنن باوم + اسلايد كامل + كارگاه شبكه + نمونه سوال
اصول سرپرستي
نمونه سوال
پاسكال
كتاب كافمن + اسلايد + نمونه سوال
رياضي كاربردي ،رياضي عمومي ،رياضي پيش
اسلايد + نمونه سوال
ريز پردازنده
ساختمان داده ها
كتاب + اسلايد + فايل فلش + نمونه سوال
ساختمان گسسته
شيوه ارائه
كتاب + اسلايد + نمونه سوال
سيستم عامل
كتاب و جزوه + اسلايد ناصر آيت + نمونه سوال
تنظيم خانواده
كتاب دكتر باقرزاده + نمونه تست
طراحي الگوريتم
جزوه پيام نور + اسلايد بر اساس كتاب جعفرنژاد
طراحي و پياده سازي زبانهاي برنامه سازي
تربيت بدني
جزوه + تست
تاريخ اسلام
ويژوال بيسيك
كتابهاي متعدد آموزشي
زبان عمومي ،زبان پيش، زبان تخصصي
ذخيره و بازيابي
جزوه + اسلايد كتاب زوليك + نمونه سوال
كتابهاي سيستم عامل ، ذخيره بازيابي ، ساختمان داده و كتابهاي عمومي کنکور به صورت PDF نيز موجود مي باشد.
توجه :منظور از كتاب و جزوه همان فايل PDF مي باشد.
اگه كسي كتاب يا اسلايدي مي خواد تو قسمت نظرات بگه
لينك ثابت
سورس کد چند برنامه به زبان سی شارپ 3 ( برنامه نویسی )
سورس کد چند برنامه به زبان سی شارپتمامی لینک های زیر به صورت فایلهای Zip و پسوند exe می باشندحجم تمامی فایل ها بین 200 کیلو بایت و 20 کیلوبایت می باشد.
جز بندی کردن یک برنامه کاربردی در چندین مجموعه
استفاده از قابلیت پرینت سیستم در یک برنامه
Reflection استفاده از
استفاده از فایلهای منبع در سی شارپ
ارسال ایمیل در زبان سی شارپ
کارهایی روی رشته ها به وسیله ی کلاس در سی شارپ
سورس کد چند برنامه به زبان سی شارپ 2 ( برنامه نویسی )
استفاده از کامپوننت های سیستم در یک فرم سی شارپ
اضافه کردن قابلیت دراگ كردن به فرم در سي شارپ
كار با واسط هاي گرافيكي در سي شارپ
قرار دادن تصوير در بانك اطلاعاتي اس كيو ال در سي شارپ
مقابله با يك سرويس ويندوز در سي شارپ
ايجاد يك كنترل ويرايش به كمك دات نت
سورس کد چند برنامه به زبان سی شارپ 1 ( برنامه نویسی )
کار روی خاصیت فایلها در سی شارپ
در سی شارپ callbacks و delegates کار با
کد های دسترسی امنیتی در سی شارپ
ایجاد یک کامپوننت در سی شارپ
ایجاد یک سزویس یا فراخوانی آن در سی شارپ
کار با برنامه های سنتی در سی شارپ
آموزش کامل کار با فايل در ويژوال بيسيک ( برنامه نویسی )
بعلت عدم وجود اشاره گر در ويژوال بيسيک عمليات کار با فايلها در آن نسبتاً ساده می باشد . بطور کلی فايلها بر دو نوع هستند :1 - فايلهای متنی Text File : اين فايلها فقط شامل کاراکترهای اسکی و برخی کاراکترهای خاص مانند انتهای خط و انتهای فايل هستند .۲ - فايلهای باينری Binary File : شامل هر نوع کاراکتری می توانند باشند و کاربردهای گسترده ای دارند مانند بانک های اطلاعاتی ، فايلهای اجرائی ، فايلهای گرافيکی و غيره ويژوال بيسيک می تواند با هر دو نوع فايل کار کند . چگونگی باز کردن فايلهاقبل از اينکه بتوان عمليات ورودی/خروجی را روی يک فايل انجام داد ابتدا بايستی آنرا باز کرد . باز کردن فايلها در ويژوال بيسيک توسط دستور Open انجام می شود . فرمت کلی اين دستور بصورت زير است :
Open filename [For mode] [Access access][lock] As [#]filenumber [Len=reclen]
بقیه در ادامه مطلب
ادامه ي مطلب ...
دانلود رايگان يك سايت طراحي شده به زبان سي شارپ دات نت و SQL ( برنامه نویسی )
دانلود کتابهای برنامه نویسی ( برنامه نویسی )
دانلود فایل آموزش سی شارپ
اين كتاب هم براي كساني كه قبلا دلفي كار بودند خيلي مي تونه مفيد باشه. من كتاب رو كامل مطالعه نكردم ولي به نظرم رسيد كه شايد براي اين گروه از دوستان مي تونه مفيد باشه.
یکی از دوستان یک کتاب در مورد Windows Application خواسته بودند. این کتاب یکی از بهترین کتاب هایی است که در مورد توسعه نرم افزارهای تحت ویندوز می تونین پیدا کنین. مثال های بسیار عالی داره که تو دنیای واقعی هم خیلی به کارتون خواهد آمد. نکته خیلی مهم این که در این کتاب چند فصل به طور کامل در مورد توسعه کنترل ها و کامپوننت برای نرم افزار های تحت ویندوز با استفاده از سی شارپ صحبت شده است.
لینک توضیحات در آمازون:http://www.amazon.com/NET-Windows-Forms-Custom-Controls/dp/1590594398
لینک دانلود در رپیدشیر:http://rapidshare.com/files/106harp.Dec.2005.rarلینک دانلود مثال های کتاب:http://www.apress.com/resource/bookfile/2568
ک کتاب عالی از Professional انشارات Wrox برای کسانی که دوست دارند JavaScript را به نحو احسن یاد بگیرند حتما پیشنهاد می کنم.
لینک توضیحات در آمازون:http://www.amazon.com/Professional-JavaScript-Developers-Wrox-Guides/dp/0764579088لینک دانلود:http://rapidshare.com/files/118217305/Professional_Javascipt_for_web_developer.rarلینک مثال های کتاب:http://media.wiley.com/product_ancillary/88/07645790/DOWNLOAD/579088CodeExamples.zip
اگر دوست دارید در مورد برنامه نویسی سوکت ها و TCP/IP را یاد بگیرید خواندن این کتاب را پیشنهاد می کنم.
لینک توضیحات در آمازون:http://www.amazon.com/TCP-IP-Sockets-Practical-Programmers/dp/0124660517لینک دانلود:http://rapidshare.com/files/11actical_Guide_For_Programmer.rar
آموزش ASP .NET برای افراد تازه کار
این کتاب برای کسانی که تازه می خواهند ASP .NET را شروع کنند کتاب بسیار خوبی است و می تونین از ابتدا به فراگیری ASP .NET بپردازین. نکته بسیار مهم این است که اصولا کتاب های انتشارات APress به صورت کاملا روان و ساده نگارش شده اند و این از نقاط قوت کتاب محسوب می شود.لینک توضیحات در آمازون:Apress Beginning ASP NET 2.0 in C Sharp 2005 From Novice to Professionalلینک دانلود:Apress.Beginning.ASP.NET.2.0.in.C.Sharp.2005.From.Novice.to.Professional.Jan.2006.rarلینک مثال ها:http://www.apress.com/resource/bookfile/2599
چند کتاب دیگر در زمینه سی شارپ :
لینک دانلود کتاب ها :
http://rapidshare.de/files/8361453/For.Dummies.C.Sharp.2005.For.Dummies.Oct.2005.eBook-LinG.rar.html
http://rapidshare.de/files/8361508/Morgan_Kaufmann_-_CSharp_2.0_Practical_Guide_for_Programmers.rar.html
http://rapidshare.de/files/8361623/Oreilly_-_Visual_CSharp_2005_A_Developers_Notebook_Apr_2005.rar.html
http://rapidshare.de/files/8361752/Prentice_Hall_-_Core_CSharp_and_dotNET_Sep_2005.rar.html
دانلود سورس کد های سی شارپ ( برنامه نویسی )
ویرایش دیتابیس اکسس در سی شارپ:
یک splash Screen خود ساخته در سي شارپ:
Download source files - 164 Kb
ساخت marquee در سي شارپ :
كنترل messagebox به همراه زمان اجرا (يعني بعد از مدت زمان خاصي محو مي شود)
Download source - 1.5 Kb
كنترل tooltip به صور بالن :
Download demo project - 11.5 Kb
login برنامه مانند login ويندوز ايكس پي:
Download sourcecode and project - September 3, 2006
Download sourcecode and project
دانلود برنامه های C ( برنامه نویسی )
در این قسمت فایلهای فلش را به همراه يك برنامه نوشته شده به زبان ++c كه ساختار برج هاي هانوي را به صورت گرافيكي بررسي مي كند قرار داده ايم. اميدواريم كه از دانلود اين برنامه ها لذت ببريد و با نظرات گرمتان ما را در ارائه بهتر اين خدمات ياري كنيد
رديف
عنوان
دانلود
1
جستجوي حبابي
2
تابع فاكتوريل
3
تابع فيبوناچي
4
برج هانوي
دانلود(فلش)
5
insertionsort
6
جمع آرايه ها
7
دانلود(فایل اجرایی)
توجه: تمامی این فایل ها توسط برنامه flash player اجرا مي شوند براي دريافت اين برنامه مي توانيد از لينك زير آن را دانلود كنيد.
دانلود برنامه flash player
سوالات مسابقات برنامهنويسى acm ( برنامه نویسی )
گرفتن تاریخ فارسی، تاریخ میلادی، نام روز به فارسی و نام ماه به فارسی از SQL Server ( برنامه نویسی )
Create Proc GetShamsiInfoas Declare @Year Integer, @Month Integer, @Day Integer, @F_Year Integer, @F_Month Integer, @F_Day Integer, @F_Day_Name Varchar(10), @F_Month_Name Varchar(10), @LastDay Integer, @Plus Integer, @Minus Integer, @Intercalary Integer, @S_Year Varchar(5), @S_Month Varchar(5), @S_Day Varchar(5), @E_Date Varchar(20), @Ret Varchar(20)
Set @Plus = 0
Set @Year = Year(Getdate())Set @Month = Month(Getdate())Set @Day = Day(Getdate())
----- بدست آوردن تاريخ ميلاديSet @S_Year = Cast(@Year AS VarChar(5))Set @S_Month = Cast(@Month AS VarChar(5))Set @S_Day = Cast(@Day AS VarChar(5))
IF Len(@S_Month) < 2 Set @S_Month = '0'+@S_Month IF Len(@S_Day) < 2 Set @S_Day = '0'+@S_Day
Set @E_Date = @S_Year + @S_Month + @S_Day ----- بدست آوردن تاريخ ميلادي
----- بدست آوردن نام روز به فارسيSet @F_Day_Name = Case DATEPART(dw, Getdate()) When 1 Then 'يکشنبه' When 2 Then 'دوشنبه' When 3 Then 'سه شنبه' When 4 Then 'چهارشنبه' When 5 Then 'پنجشنبه' When 6 Then 'جمعه' When 7 Then 'شنبه' End----- بدست آوردن نام روز به فارسي
IF ((@Month = 1) or (@Month = 5) or (@Month = 6)) Set @Plus = 10
IF ((@Month = 2) or (@Month = 4)) Set @Plus = 11
IF ((@Month = 3) or (@Month = 7) or (@Month = 8) or (@Month = 9) or (@Month = 11) or (@Month = 12)) Set @Plus = 9
IF (@Month = 10) Set @Plus = 8
Set @Year = @Year % 100
Set @Intercalary = @Year
IF (@Intercalary % 4 = 0) IF (@Month > 2) Set @Plus = @Plus + 1
IF ((@Intercalary - 1) % 4 = 0) begin Set @LastDay = 30 IF (@Month <= 3) Set @Plus = @Plus + 1 endElse Set @LastDay = 29
Set @F_Year = @Year - 22
IF (@F_Year < 0) Set @F_Year = @F_Year + 100
Set @F_Month = @Month + 9
IF (@F_Month > 12) begin Set @F_Month = @F_Month - 12 Set @F_Year = @F_Year + 1 end
Set @F_Day = @Day + @Plus
IF (@F_Month <= 6) Set @Minus = 31Else IF ((@F_Month > 6) and (@F_Month<12)) Set @Minus = 30 Else Set @Minus = @LastDay
IF (@F_Day > @Minus) begin Set @F_Day = @F_Day - @Minus; Set @F_Month = @F_Month + 1 end
IF (@F_Month > 12) begin Set @F_Month = @F_Month - 12; Set @F_Year = @F_Year + 1 end;
IF @F_Year >= 10 Set @Ret = Cast(@F_Year As Varchar(4))Else Set @Ret = '0'+ Cast(@F_Year As Varchar(4))
IF @F_Month >= 10 Set @Ret = @Ret + Cast(@F_Month As Varchar(4))Else Set @Ret = @Ret +'0'+ Cast(@F_Month As Varchar(4))
----- بدست آوردن نام ماه به فارسيSet @F_Month_Name = Case @F_Month When 1 Then 'فروردين' When 2 Then 'ارديبهشت' When 3 Then 'خرداد' When 4 Then 'تير' When 5 Then 'مرداد' When 6 Then 'شهريور' When 7 Then 'مهر' When 8 Then 'آبان' When 9 Then 'آذر' When 10 Then 'دي' When 11 Then 'بهمن' When 12 Then 'اسفند'End----- بدست آوردن نام ماه به فارسي
IF @F_Day >= 10 Set @Ret = @Ret + Cast(@F_Day As Varchar(4))Else Set @Ret = @Ret + '0'+ Cast(@F_Day As Varchar(4))
Select @E_Date as MiladiDate, @Ret As FarsiDate, @F_Month_Name AS FarsiMonthName, @F_Day_Name AS FarsiDayName
GO
توابع ریاضی در ویژوال بیسیک ( برنامه نویسی )
قرار دادن آيکون برنامه در کنار ساعت ويندوز (ویژوال بیسیک) ( برنامه نویسی )
قرار دادن آيکون برنامه در کنار ساعت ويندوز (ویژوال بیسیک)
براي قرار دادن آيکون برنامه در system tray ابتدا يک ماژول تعريف کرده و اطلاعات زير را در آن قرار دهيد :ابتدا تعريف constant هاي مورد نياز :
Public Const WM_RBUTTONUP = &H205Global Const WM_MOUSEMOVE = &H200Global Const NIM_ADD = 0Global Const NIM_DELETE = 2Global Const NIM_MODIFY = 1Global Const NIF_ICON = 2Global Const NIF_MESSAGE = 1Global Const ABM_GETTASKBARPOS = &H5
API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک ( برنامه نویسی )
API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
sndPlaySound App.path & "\ding.wav", SND_ASYNC or SND_LOOP
Private Declare Function GetTickCount Lib "kernel32" () As Long
TempTime = GetTickCount()xDo While DesiredTime < GetTickCount() - TempTime Do some things'Loop
ExitFunction = FalseTempTime = GetTickCount()xDo While not(ExitFunction)xIf DesiredTime < GetTickCount() - TempTime thenReset the temporary variable'TempTime = GetTickCount()xDo some things' End IfLoop
در بعضی موارد بعد از پرانتز حرف x قرار دارد که در کدنویسی باید حذف شود.
API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک API هاي ويندوز و طرز استفاده آنها در ویژوال بیسیک
ساختارهای شرطی در Visual Basic.NET ( برنامه نویسی )
ساختارهای شرطی در Visual Basic.NET
اين گفتار برآنيم تا ساختارهای شرطی در ويژوال بيسيک دات نت را بررسی کنيم. اين ساختارها If..Then و Select..Case می باشند.
ساختار If..Thenابتدائی ترين ساختار شرطی در ويژوال بيسيک دات نت ساختار If..Then می باشد. با استفاده از اين ساختار هنگامی که شرط مورد نظر برقرار باشد، می توان دستور يا دستورات متعددی را اجرا نمود.
بعنوان مثال(در برنامه زير اگر زمان سيستم بعد از ظهر را نشان دهد، جمله "Good Evening IranASP.NET" بر روی صفحه نمايش داده می شود.
<%Dim myTime As DateTimemyTime = Nowif Hour(myTime) >= 12 thenResponse.write ("Good Evening IranASP.NET !")end if%>
همچنين ساختار If..Then عبارت Else را هم پشتيبانی می کند. اگر شرط مربوط به If برقرار نباشد، دستورات موجود در قسمت Else اجرا می شوند. به مثال زير توجه فرمائيد.
<%Dim myTime As DateTimemyTime = Nowif Hour(myTime) >= 12 thenResponse.write ("Good Evening IranASP.NET !")elseResponse.write ("Good Morning IranASP.NET !")end if%>
ساختار Select..Caseدر ساختار Select..Case می توان مقداری را با مقادير مختلفی مقايسه کرده و دستورات مربوط به مقدار يافت شده را اجرا نمود. بعنوان مثال قطعه برنامه زير پيامهای مختلفی را برحسب نوع مرورگر نمايش می دهد.
<%Dim strBrowser As StringstrBrowser = Request.Browser.BrowserSelect Case strBrowserCase "IE" Response.Write( "You are using Internet Explorer!" )Case "Netscape"Response.WRite( "You are using Netscape!" )Case ElseResponse.Write( "What browser are you using?" ) End Select%>
دقت داشته باشيد که ساختار Select..Case در برنامه فوق دارای يک قسمت Case Else می باشد. هرگاه هيچ يک از حالات مقايسه ای برقرار نبود، دستورات موجود در قسمت Case Else اجرا می گردند. استفاده از Case Else اختياری است.
ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET ساختارهای شرطی در Visual Basic.NET
فارسی نویسی در ویژوال بیسیک ( برنامه نویسی )
فارسی نویسی در ویژوال بیسیک بدون تغییر زبان کیبورد
برای اینکه بتوانیم در یک تکست باکس فارسی تایپ کنیم آن هم بدون تغییر زبان کیبورد با چند خط کد زیر می توانید این کار را انجام دهید
برای این کار ابتدا یک تکست باکس در فرم ایجاد کنید و سپس یک text box ایجاد کنیدنام این تکست باکس text1 بگذاریددر رویه keypress این تکست باکس کد زیر را بنویسید
با این کار بدون توجه به زبان کیبورد (به هر زبانی که باشد) فارسی نوشته می شود.
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 104 Then KeyAscii = -57
If KeyAscii = 72 Then KeyAscii = -62
............................
برنامه اي بنويسيد كه يك عدد دريافت كند و اول و غيراول بودن آن را مشخص كند ( برنامه نویسی )
عدد اول در زبان پاسکالبرنامه اي بنويسيد كه يك عدد دريافت كند و اول و غيراول بودن آن را مشخص كند
Program avval;VarA,b,c,r:integer ;BeginReadln(a);B:=1 ;While b<=1 doBeginR:=a mod b;If r=0 then c:=c+1 ;B:=b+1;End;If c=2 thenWriteln(‘avval’)ElseWriteln(‘gheyre avval’);End.
طرحی یک ماشین حساب ساده ( برنامه نویسی )
مثال: طراحی يک ماشين حساب ساده
فرض کنيد بخواهيم يک ماشين حساب ساده طراحی کنيم:
يک Label به نام lblDisplay به عنوان نمايشگر ماشين حساب و با Caption برابر مقدار" 0" (زيرا مقدار اوليه ماشينحسابها صفر می باشد) در محل خود قرار می دهيم. همچنين يک CommandButton به نام cmdequal به عنوان دکمه مساوی Caption برابر "= " نيز در محل مخصوص خود قرار می دهيم.
حال ده عدد Command Botton ديگر با Caption های به ترتيب برابر " 0" تا "9 " را در جای خود قرار می دهيم و سپس نام همه اين ده دکمه را به نام cmdNumber تغيير می دهيم. در اين صورت همانطور که گفته شد، VB اين ده کنترل را به صورت آرايه کنترلی (Control Array) در نظر خواهد گرفت (به پيغام داده شده با همين مضمون جواب Yes دهيد).
به همين ترتيب چهار CommandButton ديگر را با Captionهای "+ " و "- " و "* " و "/ " و با نام يکسان cmdOprator به عنوان دکمه های چهار عمل اصلی به صورت آرايه کنترلی در محل های خود قرار می دهيم.
حال کافی است در يونيت مربوط به اين فرم، چنين کدنويسی کنيم (توجه داشته باشيد که متغيرهاي x و y و op در سطح فرم (Form Level) تعريف شده اند و لذا مقدار آن در تمام فرم قابل دسترسی خواهد بود) :
Option Explicit
Dim x,y As Integer
Dim op As String
Private Sub cmdNumber_Click (Index As Integer)
IF lblDisplay = “Ø” then lblDisplay = “”
lblDisplay = lblDisplay + cmdNumber(Index).Caption
End Sub
Private Sub cmdOprator_Click (Index As Integer)
x = Val(lblDisplay)
op = cmdOprator(Index).Caption
lblDisplay = “Ø”
Private Sub cmdEqual_Click ( )
y = Val (lblDisplay)
Select Case op
Case “+”
lblDisplay = x + y
Case “-”
lblDisplay = x - y
Case “*”
lblDisplay = x * y
Case “/”
lblDisplay = x / y
End Select
توجه داريد که:
در رويدادهايی که مربوط به آرايه های کنترلی (يعنی cmd Number و cmdoperator ) است، يک پارامتر به نام Index در آن وجود دارد که شماره Index (انديس) کليدی که فشرده شده را برمیگرداند. و لذا مثلاً cmdOprator(Index).Caption برابر "+" خواهد بود، اگر کليد + فشرده شود و برابر "- " خواهد بود، اگر کليد – زده شود و ...
مشخصه (Property) پيش فرض برای Labelها Caption است و لذا هر جا lblDisplay ذکر شده است، توسط VB مانند lblDisplay.Caption در نظر گرفته می شود.
توسط دستور Select Case، يک متغير (که نام آن جلوی دستور Select Case نوشته می شود) با مقادير مختلفی (که جلوی دستورات Case بعدی نوشته می شود) چک می شود که اگر برابر هر يک از اين مقادير بود، دستور پس از همان Case اجرا می شود.
جواب سوالات برنامه سازی کاردانی به کارشناسی 88 ( برنامه نویسی )
جواب سوالات برنامه سازي ۸۸ طبق كامپايلر هاي توربو و ام101 - گزينه ۲102 - گزينه ۲ چون حلقه در مرحله آخر يكبار ديگز چك مي شود103 - 3 چون متغير محلي با { از بين مي رود104 - 3 سواله جالبيه توجه كنيد : {(int a[3][3]={{1,8},(2,4,6),(5)}اگر در مقدار دهي از پرانتز استفاده شود آخرين مقدار قرار مي گيرد پس :a[1][0] = 6a[1][1]=5 خودم هم غلط زدم متاسفانه105 - گزينه 1 خودم اشتباه زدم107 - 3 109 - 1110 - 4111 - 3112 - به جوابي نرسيدم113 - "114 - "115 - قطعاً گزينه 4 دليل : n=88hex(n)=58dec(n)=88oct(n)=130output=885888130
چگونه فرم را always on top کنیم؟ ( برنامه نویسی )
چگونه فرم را always on top کنیم؟
برنامه ی task manager را دیده اید که always On top است اگر کد زیر را در برنامه تان بنویسید فرمتان این خاصیت را پیدا میکند.
Option ExplicitConst SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Private Declare Function SetWindowPos Lib "user32" _(ByVal hwnd As Long, _ByVal hWndInsertAfter As Long, _ByVal x As Long, _ByVal y As Long, _ByVal cx As Long, _ByVal cy As Long, _ByVal wFlags As Long) As Long''Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _As Long If Topmost = True Then 'Make the window topmost SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) Else SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) SetTopMostWindow = False End IfEnd FunctionPrivate Sub Form_Load() Dim lR As Long lR = SetTopMostWindow(Form1.hwnd, True) 'For inactive always on top Properties : lR = SetTopMostWindow(Form1.hwnd, False)End Sub
جلوگیری از اجرای مجدد یک برنامه ( برنامه نویسی )
جلوگیری از اجرای مجدد یک برنامه
دیده اید که برنامه های ویندوز را فقط می توان یکبار باز نمود ولی برای اینکه کاری کنیم که برنامه هایی را که ساخته ایم پس از یکبار اجرا یعنی زمانی که برنامه باز است کاربر نتواند دوباره این برنامه را باز کند و خلاصه ی کلام اینکه در یک زمان معین فقط یک مرتبه بتوان آن را گشود از کد زیر استفاده می کنیم:
Private Sub Form_Load() If App.PrevInstance = True Then Dim Result As Integer Result = MsgBox("این برنامه در حال اجراست", vbInformation, "Warnnig") Unload Me End If End Sub
نحوه ی اجرای دستورات dos در ویژوال بیسیک ( برنامه نویسی )
نحوه ی اجرای دستورات dos در ویژوال بیسیک :
ابتدا Command Prompt را فراخوانی می کنیم , برای فراخوانی از تابع Shell استفاده میکنیم که قبلا در مورد این تابع توضیح داده ام :
Shell "cmd.exe"
اکنون یک شیء ایجاد می کنیم تا بتوانیم از طیق آن به هسته Dos دسترسی داشته باشیم :
Dim WinShellSet WinShell = CreateObject("Wscript.shell")
خوب حالا می توانید به راحتی هر دستوری که دارید میتوانید اجرا کنید در آخر هم دستور تابع Sendkeys کلید Enter را اجرا کرده و دستور اجرا میشود:
sendkeys : در پایان این قسمت توضیح داده می شود
WinShell.SendKeys " Dos دستور مورد نظر برای اجرا در "WinShell.SendKeys "{ENTER}"
به مثاهای زیر توجه کنید که به ترتیب اولی برای ایجاد پوشه ای به نام Visual Basic در درایو C و دستور دوم برای نمایش پوشه های موجود در درایو C و دستور سوم برای Format فلاپی دیسک می باشد .
'For Create Folder With Dos Prompt :WinShell.SendKeys "MD C:\Visual" & " Basic"WinShell.SendKeys "{ENTER}"'For Showing C Directory :WinShell.SendKeys "Dir C:\"WinShell.SendKeys "{ENTER}"'For Format Floppy Disk Of Dos :WinShell.SendKeys "format A:"WinShell.SendKeys "{ENTER}"
sendkeys :
یکی از جالب ترین توابع وی بی این تابع است که به وسیله ی آن می توان هر کلیدی را به کنترل فرستاد در ذیل تعدادی از کلید های کنترلی این تابع آورده شده است .
^ = Control{enter} = Enter% = Alt
{Del} = Delete{ESCAPE} = Escape{TAB} = Tab+ = Shift{BACKSPACE} = Backspace{BREAK} = Break{CAPSLOCK} = Caps Lock{CLEAR} = Clear{DELETE} = Delete{DOWN} = Down Arrow{LEFT} = Left Arrow{RIGHT} = Right Arrow{UP} = Up Arrow{NUMLOCK} = Num Lock{PGDN} = Page Down{PGUP} = Page Up{SCROLLLOCK} = Scroll Lock{F1} = F1 .......Use {F2} {F3} and so On For others...{HOME} = home{INSERT} = Insert Upload
مثال زیر را مشاهده کنید :(با زدن کلیدهای Alt+F4 باعث بسته شده فرم می شود)
Private Sub Command1_Click()SendKeys "%{F4}"End Sub
نمونه سوالات درس برنامه نویسی سیستم های تجاری (ویژوال بیسیک) ( برنامه نویسی )
نمونه سوالات درس برنامه نویسی سیستم های تجاری (ویژوال بیسیک)
1-سه عدد از ورودی دریافت، تعیین کند که آیا می توان با این سه عدد یک مثلث قائم الزاویه تشکیل داد یا خیر.
Private Sub Command4_Click
Dim a As Integer, b As Integer, c As Integer
a = InputBox ("Enter 1st num") ^ 2
b = InputBox ("Enter 2nd num") ^ 2
c = InputBox ("Enter 3rd num") ^ 2
If (a + b = c Or a + c = b Or b + c = a) then
MsgBox "YES"
Else: MsgBox "NO"
End If
2-ضرایب معادله درجه 2 را بگیرد و رشته های آن را روی فرم چاپ کند
Private Sub Command1_Click()
Dim a!, b!, c!, x!, x2!, delta!
a = InputBox(Prompt:="Enter a", Default:=4)
b = InputBox(Prompt:="Enter b", Default:=5)
c = InputBox(Prompt:="Enter c", Default:=1.5625)
delta = b ^ 2 - 4 * a * c
Select Case delta
Case Is < 0
MsgBox "There are no solutions"
Case 0
x = -b / 2 * a
MsgBox "There is one solution: " & x
Case Is > 0
x = (-b + Sqr(delta)) / (2 * a)
x2 = (-b - Sqr(delta)) / (2 * a)
MsgBox "There is two solutions: " & x & " and " & x2
3-برنامه ای بنویسید که یک عدد را خوانده، اول بودن آن را تعیین نماید و پیغام مناسبی چاپ کند.
n = Val(Text1.Text)
s = 0
For i = 2 To n
S1 = 0
For j = 1 To i
If i Mod j = 0 Then S1 = S1 + j
Next j
Next i
If S1 = n + 1 Then
MsgBox "prim"
Else: MsgBox "no prim"
Text2.Text = Sum
Text3.Text = sum1
4-برنامه ای بنویسید که یک عدد حد اقل چهارقمی مثبت را خوانده، مغلوب آن را نمایش دهد.
Dim n As Integer, i As Integer
n = InputBox("Enter the num:")
While n > 0
i = n Mod 10
Print CStr(i);
n = n \ 10
Wend
5-برنامه ای بنویسی ه و عد صحیح A و B را از ورودی بگیرد و بزرگترین مقسوم علیه مشترک و کوچک ترین مضرب مشترک بین آن دو عدد را محاسبه و چاپ کند.
a = InputBox("Enter")
b = InputBox("Enter")
a1 = a
b1 = b
If a < b Then
a = a + b
b = a - b
a = a - b
Do
c = a Mod b
If c = 0 Then Exit Do
a = b
b = c
Loop
Print "BMM: "; b
Print "KMM: "; a1 * b1 / b
#F زبان های #C و ویژوال بیسیک را ترکیب می کند ( برنامه نویسی )
آموزش اكسس ( بخش چهارم) ( برنامه نویسی )
آموزش اكسس ( بخش چهارم)
اگر به ياد داشته باشيد در پنجره Design View ما براي تعريف كردن فيلدها از سه ستون Field Name و Data Type و Description استفاده مي كرديم و همچنين گفته شد كه Field Name براي شرح نام فيلد و Description براي توضيح فيلد براي استفاده هاي بعدي مي باشد. اما نكته اي كه اينجا قابل ذكر مي باشد ستون Data Type مي باشد كه نوع داده هاي هر فيلد را مشخص مي كند مثلا داده هاي از نوع متن, عدد, تاريخ و غيره كه تمامي موارد در زير به طور كامل شرح داده خواهند شد.
آموزش اكسس ( بخش اول)
آموزش اكسس ( بخش دوم )
آموزش اكسس ( بخش سوم)
آموزش اكسس ( بخش سوم ) ( برنامه نویسی )
آموزش اكسس ( بخش سوم )
در اين درس مفهوم ارتباط بين جدولهاي يك پايگاه داده را بهتر درك خواهيم كرد و روشهاي مختلف ارتباط را ياد خواهيم گرفت و بدين ترتيب براي ايجاد جداول پايگاه داده خود را آماده تر خواهيم كرد.گاهي دقيقا نمي دانيم كه چه نوع داده هايي وارد جدول خواهند شد پس براي رفع اين مشكل به تدريج با نظريه طراحي پايگاه داده آشنا مي شويم.
آموزش اكسس ( بخش دوم ) ( برنامه نویسی )
در اين درس ما با بخشهاي مختلف پنجره Database آشنا مي شويم و چگونگي استفاده از هر يك را توضيح خواهيم داد. مي توان گفت پنجره Database سكوي پرتاب شما به سوي Access است, تمامي فعاليتهاي كه در اكسس انجام مي شود از اين محل شروع مي شود, آشنايي با اين پنجره مي توان گفت آشنايي با خود اكسس است. بعد از يادگيري اين بخش ار اكسس شما براحتي خواهيد توانست ديگر خصوصيات پايگاه داده را ياد بگيريد. من به شما توصيه مي كنم يكي از پايگاههاي داده نمونه را باز كنيد تا هنگام درس اجزاي اصلي پنجره Database را مشاهده كنيد.
آموزش اكسس ( بخش اول ) ( برنامه نویسی )
آموزش اكسس ( بخش اول )ما در اين دوره آموزشي شما را با قابليت access آشنا كرده و شايد اگر اغراق نكرده باشم شما را استاد اين برنامه بي نظير خواهيم كرد شما نيز لحظه به لحظه به آشنايي با قابليتهاي اين برنامه مطمئنا مشتاق ياگيري هرچه سريع آن خواهيد شد. قابل ذكر است كه ما در اين دوره برنامه اكسس 2000 را براي آموزش انتخاب كرده ايم كه البته نسخه هاي ديگر اين برنامه فرق چنداني با نسخه 2000 آن ندارد و شما مي توانيد با يادگيري اين نسخه با ان نيز به راحتي كار كنيد. (البته توصيه خود من به استفاده از نسخه 2000 است)
نمونه ای پروژه های ویژوال بیسیک ( برنامه نویسی )
پروژه هایی به زبان ویژوال بیسیک :
***********************************
یک دیکشنری پویا به زبان ویژوال بیسیک + بانک اطلاعاتی پویا
دریافت برنامه
----------------------------------------------------
کتابخانه ی بسیار کامل + امکانات خاص به صورت گرافیکی
ماشین حساب مهندسی کامل با امکانات پرینت گرفتن و ذخیره کردن خروجی عملیات
برنامه ای به زبان توربو سی
ماشین حساب مهندسی بصرت گرافیکی با امکان حرکت ماوس
بانک اطلاعاتی کامل با امکانات حذف اضافه و جستجو در بانک
دیکشنری کا مل تبدیل زبا ن فارسی به انگلیسی و بلعکس
برنامه بازی فوتبال بصورت یکنفره ودو نفره
برنامه کتابخانه با بانک اطلاعاتی قوی وامکانات حذف واضافه
نمایشگر عکس و تغییر عکسها
شبیه سازی منظومه ی شمسی
برنامه ای با بانک اطلاعاتی جامع برای دریافت اطلاعات و ذخیره و بازیابی آن
برنامه ای با بانک اطلاعاتی جامع برای دریافت اطلاعات و ذخیره و بازیابی آن در تاریخ مشخص
----------------------------------------------------معرفی کتاب
برنامه نویسی شبکه تحت ویژوال بیسیک نویسنده : شیدانیانساختار فایل : PDFحجم فایل: 375K
برنامه اي بنويسيد كه اعدادي كه مقلوبشان باخودشان برابر است را از يك تا ١٠٠٠ چاپ كند ( برنامه نویسی )
مقلوب یک عدد در پاسکالبرنامه اي بنويسيد كه اعدادي كه مقلوبشان باخودشان برابر است را از يك تا ١٠٠٠ چاپ كند .
Program maghloob;VarA,b,c,s:integer;BrginFor a:= 1 to 1000 doBeginS:=0 ;A:=b ;While a<>0 doBeginC:= a mod 10 ; A:=a div 10 ;S:=s*10+c ;End;If s=b then writeln(s) ;End;End.
برنامه اي بنويسيدكه اعدادتام بين ١ تا ١٠٠٠ را چاپ كند ( برنامه نویسی )
نمایش اعداد تام در زبان پاسکالبرنامه اي بنويسيدكه اعدادتام بين ١ تا ١٠٠٠ را چاپ كند
Program tam;VarA,s,r,k:integer;BeginFor a:=1 to 1000 doBeginS:=0 ;For k:=1 to a-1 doBeginR:=a mod k ;If R=0 then s:=s+k ;End;If s=a then write(s);End;End.
اضافه کردن آيکون به منو در ویژوال بیسیک ( برنامه نویسی )
اضافه کردن آيکون به منو در ویژوال بیسیک
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPublic Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPublic Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
براي قرار دادن يک آيکون در کنار يکي از آيتمهاي منو نياز به handle فرم ، شماره منو ، شماره آيتم مورد نظر و نيز يک picture داريم :
Public Function SetMenuIcon(FrmHwnd As Long, MainMenuNumber As Long, MenuItemNumber As Long, Flags As Long, BitmapUncheckedHandle As Long, BitmapCheckedHandle As Long)xDim lngMenu As LongDim lngSubMenu As LongDim lngMenuItemID As LonglngMenu = GetMenu(FrmHwnd)xlngSubMenu = GetSubMenu(lngMenu, MainMenuNumber)xlngMenuItemID = GetMenuItemID(lngSubMenu, MenuItemNumber)x,SetMenuIcon = SetMenuItemBitmaps(lngMenu, lngMenuItemID, Flags BitmapUncheckedHandle, BitmapCheckedHandle)xEnd Function
image هاي مورد نظر خود را با ابعادي حدود 16*16 پيکسل و بصورت PictureBox در فرم خود قرار دهيد و خاصيت Visible مربوط به PictureBox ها را False کنيد . سپس منوهاي خود را توسط Menu Editor طراحي کنيد .
Private Sub Form_Load()xSetMenuIcon Me.hwnd, 0, 0, 0, pic1.Picture, pic1.PictureSetMenuIcon Me.hwnd, 0, 1, 0, pic2.Picture, pic2.PictureSetMenuIcon Me.hwnd, 0, 2, 0, pic3.Picture, pic3.Picture
اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک اضافه کردن آيکون به منو در ویژوال بیسیک
بررسی ماجول DateTime ( برنامه نویسی )
ماجول DateTime این ماجول که یکی از ماجول های از پیش تعریف شده VB است، دارای 21 متد،تابع و خصوصیات است، که جهت کار کردن با تاریخ و زمان بکار میرود.من یکی یکی آنها را نام میبرم و سپس برای شما توضیح خواهم داد.
تاریخ شمسی در ویژوال بیسیک ( برنامه نویسی )
تاریخ شمسی در ویژوال بیسیک
در زیر فایل help گروه نرم افزاری اوکسین را میبینید
يكي از نقصهاي سيستم عامل ويندوز براي كاربران فارسي زبان و ايراني، عدم پشتيباني آن از تقويم هجري شمسي و عدم توانايي محاسبات بر مبناي تاريخ شمسي ميباشد. آخرين نسخههايي اين سيستم عامل داراي ابزارهايي براي پشتيباني از كاراكترهاي فارسي و امكان تايپ فارسي ميباشند، اما گويا شركت ميكروسافت به اين نياز مهم (يعني يك تقويم شمسي براي ويندوز) توجهي نكرده است.
رفع اين مشكل به خصوص براي برنامه نويساني كه به نوعي در برنامه هاي خود بايد از تاريخ هجري شمسي و يا محاسباتي بر مبناي اين قالب تاريخ انجام دهند، بسيار حياتي است. به همين دليل گروه نرم افزاري اوكسين اقدام به طراحي و عرضه ي تعدادي از توابع كتابخانه اي (DLL) نموده است كه مشكل برنامه نويسان ايراني را تا حد زيادي در اين زمينه حل ميكند. به عنوان مثال نرم افزار حسابدار Xp نگارش سوم از اين توابع استفاده ميكند.
اين توابع به صورت كاملا دقيق، تاريخ ميلادي سيستم را به تاريخ هجري شمسي تبديل مينمايند و همچنين توابع ديگري را براي انجام محاسبات روي اين تاريخ در دسترس قرار ميدهند. يكي از ويژگيهاي جالب توجه اين كلاس (كه بسياري از كلاسهاي مشابه نوشته شده در اين زمينه فاقد ان هستند) عملكرد دقيق آنها روي سالهاي كبيسه است. همانطور كه ميدانيد در سيستم تاريخ شمسي بعضي از سالها كبيسه هستند و در آنها ماه اسفند سي روز ميباشد. اين سالها به صورت متناوب هر چهار سال يكبار تكرار ميشوند و چون اين سالها از سالهاي عادي يكروز بيشتر هستند، لذا بايد در محاسبات تاريخ اين نكته را مدنظر قرار داد، كه اين توابع به خوبي از آن پشتيباني ميكنند.
كلاسهاي اين توابع به صورت استاندارد تهيه و كامپايل شده است تا تمام برنامه نويسان بتوانند از آنها در زبانهاي برنامه نويسي گوناگون مانند دلفي، ويژوال بيسيك، سي شارپ و همه ي زبانهاي ديگري كه از استاندارد COM پشتيباني ميكنند، استفاده كنند.
اين توابع در كلاسي به نام ClassShamsi در فايل Shamsi.dll قرار دارند. در ادامه ابتدا به معرفي اين توابع ميپردازيم و سپس با مثالهايي، چگونگي فراخواني و استفاده از اين توابع را در زبان برنامه نويسي ويژوال بيسيك بررسي ميكنيم. فراخواني و كاربرد توابع در زبانهاي ديگر نيز تقريبا مشابه با ويژوال بيسيك است.
در نگارش دوم اين كتابخانه، چهار تابع جديد به نامهاي Shamsi2Miladi, Miladi2Shamsi, ShamsiIncrease و ShamsiDecrease اضافه شده كه در زير توضيحات كامل در مورد اين توابع جديد را ميبينيد.
براي فراخواني اين توابع در ويژوال بيسيك ابتدا بايد فايل shamsi.dll را به پروژه اضافه كنيم. براي اين منظور در محيط ويژوال يسيك از منوي Project گزينه ي Refernces را انتخاب كنيد. در كادر باز شده روي كليد Browse كليك كنيد و مسير فايل را معرفي كنيد. (دقت كنيد كه اگر كلاسهاي فايل shamsi.dll با استفاده از regserver ثبت شده باشند، فقط كافيست در ليست موجود در اين پنجره به دنبال Oxinsoft hijri shamsi calender functions بگرديد و آن را علامت بزنيد) حالا توابع شمسي به پروژه شما اضافه شده است. براي فراخواني اين توابع مي توانيد يك Module به پروژه اضافه كنيد و كدهاي زير را براي فراخواني توابع به آن اضافه كنيد:
تابع Shamsi
اين تابع تاريخ ميلادي سيستم را به تاريخ شمسي تبديل مي كند و آن را به صورت يك رشته برمي گرداند. براي فراخواني آن كدهاي زير را وارد كنيد:
Public Function Shamsi() as string
dim shms as New ClassShamsi
Shamsi = shms.ShamsiEnd Function
حالا شما تابع Shamsi را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsi استفاده كنيد.
تابع IsShamsi
اين تابع يك تاريخ شمسي دريافت كرده و چك مي كند كه آيا اين تاريخ يك تاريخ معتبر هست يا خير. خروجي اين تابع به صورت يك مقدار صحيح يا غلط است.
تاريخهاي معتبر شمسي بايد به صورت روز/ماه/ سال باشند. به اين معني كه در سمت چپ عبارت يك عدد چهار رقمي بزرگتر از 1330 به عنوان شماره ي سال، سپس يك علامت اسلش / به عنوان جداكننده، يك عدد دورقمي بين 1 و 12 به عنوان ماه سال، مجددا علامت اسلش و در نهايت يك عدد دورقمي بين 1 و 31 به عنوان روز ماه قرار دارند. دقت كنيد كه به دليل اينكه تاريخهاي قديمي عملا بلاستفاده هستند، براي محاسبات تاريخ در كلاسهاي شمسي تاريخهاي بعد از29/12/1330 معتبر هستند.
نكته مهم ديگري كه بايد در رابطه با تاريخهاي شمسي مدنظر داشت اين است كه براي نوشتن شماره ي ماه و يا روز در صورتي كه اين شماره ها يك عدد تك رقمي باشند، بايد حتما رقم صفر قبل از آنها قرار بگيرد. به عنوان مثال تاريخ 4/8/1383 نادرست و صحيح آن 04/08/1383 مي باشد.
براي فراخواني تابع IsShamsi از كدهاي زير استفاده كنيد:
Public Function IsShamsi(shdate as string) as boolean
IsShamsi = shms.isshamsi(shdate)iEnd Function
حالا شما تابع IsShamsi را با خروجي بولين انتخاب كرده ايد و براي استفاده از آن در هر قسمت برنامه مي توانيد از همين نام IsShamsi استفاده كنيد. در صورتي كه تاريخ ورودي تابع معتبر باشد، اين تابع مقدار True و در غير اين صورت مقدار False را برمي گرداند.
تابع IsKabiseh
اين تابع يك تاريخ شمسي دريافت كرده و چك مي كند كه آيا اين سال اين تاريخ كبيسه است يا خير. خروجي اين تابع به صورت يك مقدار صحيح يا غلط است.
براي فراخواني تابع IsKabiseh از كدهاي زير استفاده كنيد:
Public Function IsKabiseh(shdate as string) as boolean
IsKabiseh = shms.iskabiseh(shdate)iEnd Function
حالا شما تابع IsKabiseh را با خروجي بولين انتخاب كرده ايد و براي استفاده از آن در هر قسمت برنامه مي توانيد از همين نام IsKabiseh استفاده كنيد. در صورتي كه تاريخ ورودي كبيسه باشد، اين تابع مقدار True و در غير اين صورت مقدار False را برمي گرداند.
تابع ShamsiYear
اين تابع يك تاريخ شمسي را به صورت رشته دريافت كرده و عدد مربوط به سال آن را برمي گرداند. خروجي اين تابع به صورت يك عدد صحيح است. به عنوان مثال اين تابع با دريافت تاريخ 12/08/1383 مقدار 1383 را برمي گرداند.
براي فراخواني تابع ShamsiYear از كدهاي زير استفاده كنيد:
Public Function ShamsiYear(shdate as string) as integer
ShamsiYear = shms.ShamsiYear(shdate)iEnd Function
حالا شما تابع ShamsiYear را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsiYear استفاده كنيد.
تابع ShamsiMonth
اين تابع يك تاريخ شمسي را به صورت رشته دريافت كرده و عدد مربوط به ماه آن را برمي گرداند. خروجي اين تابع به صورت يك عدد صحيح است. به عنوان مثال اين تابع با دريافت تاريخ 12/08/1383 مقدار 8 را برمي گرداند.
براي فراخواني تابع ShamsiMonth از كدهاي زير استفاده كنيد:
Public Function ShamsiMonth(shdate as string) as integer
ShamsiMonth = shms.ShamsiMonth(shdate)iEnd Function
حالا شما تابع ShamsiMonth را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsiMonth استفاده كنيد.
تابع ShamsiDay
اين تابع يك تاريخ شمسي را به صورت رشته دريافت كرده و عدد مربوط به روز آن را برمي گرداند. خروجي اين تابع به صورت يك عدد صحيح است. به عنوان مثال اين تابع با دريافت تاريخ 12/08/1383 مقدار 12 را برمي گرداند.
براي فراخواني تابع ShamsiDay از كدهاي زير استفاده كنيد:
Public Function ShamsiDay(shdate as string) as integer
ShamsiDay = shms.ShamsiDay(shdate)iEnd Function
حالا شما تابع ShamsiDay را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام shamsiDay استفاده كنيد.
تابع ShamsiCurrentYear
براي فراخواني تابع ShamsiCurrentYear از كدهاي زير استفاده كنيد:
Public Function ShamsiCurrentYear() as integer
ShamsiCurrentYear = shms.ShamsiCurrentYear()iEnd Function
حالا شما تابع ShamsiCurrentYear را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentYear استفاده كنيد.
تابع ShamsiCurrentMonth
براي فراخواني تابع ShamsiCurrentMonth از كدهاي زير استفاده كنيد:
Public Function ShamsiCurrentMonth() as integer
ShamsiCurrentMonth = shms.ShamsiCurrentMonth()iEnd Function
حالا شما تابع ShamsiCurrentMonth را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentMonth استفاده كنيد.
تابع ShamsiCurrentDay
براي فراخواني تابع ShamsiCurrentDay از كدهاي زير استفاده كنيد:
Public Function ShamsiCurrentDay() as integer
ShamsiCurrentDay = shms.ShamsiCurrentDay()iEnd Function
حالا شما تابع ShamsiCurrentDay را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentDay استفاده كنيد.
تابع ShamsiMonthName
براي فراخواني تابع ShamsiMonthName از كدهاي زير استفاده كنيد:
Public Function ShamsiMonthName(shdate as string) as string
ShamsiMonthName = shms.ShamsiMonthName(shdate)iEnd Function
حالا شما تابع ShamsiMonthName را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiMonthName استفاده كنيد.
تابع ShamsiCurrentMonthName
براي فراخواني تابع ShamsiCurrentMonthName از كدهاي زير استفاده كنيد:
Public Function ShamsiCurrentMonthName() as string
ShamsiCurrentMonthName = shms.ShamsiCurrentMonthName()iEnd Function
حالا شما تابع ShamsiCurrentMonthName را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiCurrentMonthName استفاده كنيد.
تابع ShamsiWeekDay
براي فراخواني تابع ShamsiWeekDay از كدهاي زير استفاده كنيد:
Public Function ShamsiWeekDay() as integer
ShamsiWeekDay = shms.ShamsiWeekDay()iEnd Function
حالا شما تابع ShamsiWeekDay را با خروجي عدد صحيح انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiWeekDay استفاده كنيد.
تابع ShamsiWeekDayName
براي فراخواني تابع ShamsiWeekDayName از كدهاي زير استفاده كنيد:
Public Function ShamsiWeekDayName() as string
ShamsiWeekDayName = shms.ShamsiWeekDayName()iEnd Function
حالا شما تابع ShamsiWeekDayName را با خروجي رشته اي انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiWeekDayName استفاده كنيد.
تابع Shamsi2Day
براي فراخواني تابع Shamsi2Day از كدهاي زير استفاده كنيد:
Public Function Shamsi2Day(shdate as string) as Long
Shamsi2Day = shms.Shamsi2Day(shdate)iEnd Function
حالا شما تابع Shamsi2Day را با خروجي Long ايانتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام Shamsi2Day استفاده كنيد.
تابع ShamsiDiff
براي فراخواني تابع ShamsiDiff از كدهاي زير استفاده كنيد:
Public Function ShamsiDiff(shdate1 as string, shdate2 as string) as Long
ShamsiDiff = shms.ShamsiDiff(shdate1, shdate2)iEnd Function
حالا شما تابع ShamsiDiff را با خروجي Long ايانتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiDiff استفاده كنيد.
تابع Miladi2Shamsi
براي فراخواني تابع Miladi2Shamsi از كد زير استفاده كنيد:
Public Function Miladi2Shamsi(mdate as string) as String
Miladi2Shamsi= shms.Miladi2Shamsi(mdate)iEnd Function
حالا شما تابع Miladi2Shamsi را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام Miladi2Shamsi استفاده كنيد.
تابع Shamsi2Miladi
براي فراخواني تابع Shamsi2Miladi از كد زير استفاده كنيد:
Public Function Shamsi2Miladi(shdate as string) as String
Shamsi2Miladi= shms.Shamsi2Miladi(shdate)iEnd Function
حالا شما تابع Shamsi2Miladi را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام Shamsi2Miladi استفاده كنيد.
تابع ShamsiIncrease
براي فراخواني تابع ShamsiIncrease از كد زير استفاده كنيد:
Public Function ShamsiIncrease(shdate as string, amount as long) as String
ShamsiIncrease= shms.ShamsiIncrease(shdate, amount)iEnd Function
حالا شما تابع ShamsiIncrease را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiIncrease استفاده كنيد.
تابع ShamsiDecrease
براي فراخواني تابع ShamsiDecrease از كد زير استفاده كنيد:
Public Function ShamsiDecrease(shdate as string, amount as long) as String
ShamsiDecrease= shms.ShamsiDecrease(shdate, amount)iEnd Function
حالا شما تابع ShamsiDecrease را با خروجي String انتخاب كرده ايد و براي استفاده از آن در هركجاي برنامه مي توانيد از همين نام ShamsiDecrease استفاده كنيد.
توجه:
استفاده از فايل shamsi.dll توسط برنامه نويسان ايراني در برنامه ها و پروژهاي مختلف مجاز مي باشد. اين برنامه به صورت رايگان است و كاربر براي استفاده از ان مجبور به پرداخت هيچ حق استفاده اي نمي باشد. اما براي پشتيباني از سازنده ي اين برنامه، لطفا افرادي كه از آن در برنامه ها يا پروژه هاي خود استفاده مي كنند، با ارسال يك ايميل به طراح برنامه پشتيباني خود را اعلام كنند.
به علاوه طراح برنامه از نظرات و پيشنهادات شما در ارائه ي نگارشهاي بعدي استقبال خواهد كرد. لطفا هرگونه نظر يا پيشنهادي در مورد برنامه داريد و يا گزارش خود را در مورد باگهاي برنامه براي بنده ارسال كنيد. danesh@oxinsoft.com با تشكر
محمد رضا دانش
اسفند 1383
لینک فایل DLL
نمونه ای از فراخوانی تابع در برنامه اصلی یا فرم :
ابتدا یک command button ایجاد می کنیم و دستورات را در آن تایپ یا کپی می کنیم(وجود فایل دی ال ال ضروری است که البته حجم آن برای دانلود به 100 کیلوبایت هم نمیرسد یعنی در کمتر از 2 یا 3 دقیقه دانلود کامل میشود)
Private Sub command1_Click()Dim cday, cmonth, cyear As IntegerDim cdayname As Stringcday = ShamsiCurrentDay()cmonth = ShamsiCurrentMonth()cyear = ShamsiCurrentYear()cdayname = ShamsiWeekDayName()Form1.Caption = " امروز " & cdayname & " " & cyear & "/" & cmonth & "/" & cdayEnd Sub
خروجی برنامه تاریخ جاری سیستم به صورت شمسی + نام روز در عنوان فرم قرار می گیرد که می توان آن را با msgbox نمایش داد به صورت زیر:
msgbox " امروز " & cdayname & " " & cyear & "/" & cmonth & "/" & cday
تبدیل تاریخ میلادی به تاریخ هجری شمسی در دات نت (سی شارپ) و (ویژوال بیسیک) ( برنامه نویسی )
کد به زبان سی شارپ
// This example demonstrates the members of the PersianCalendar class.
using System;using System.Globalization;
class Sample { public static void Main() { //-------------------------------------------------------------------------------- // Get today's date. //-------------------------------------------------------------------------------- Console.WriteLine("\n................. Today ...........................\n"); PersianCalendar jc = new PersianCalendar(); DateTime thisDate = DateTime.Now;
// Display the current date using the Gregorian and Persian calendars. Console.WriteLine("Today is:"); Console.WriteLine(" {0:dddd}, {0} in the Gregorian calendar.", thisDate); Console.WriteLine(" {0}, {1}/{2}/{3} {4}:{5}:{6} in the Persian calendar.", jc.GetDayOfWeek(thisDate), jc.GetMonth(thisDate), jc.GetDayOfMonth(thisDate), jc.GetYear(thisDate), jc.GetHour(thisDate), jc.GetMinute(thisDate), jc.GetSecond(thisDate)); //-------------------------------------------------------------------------------- // Fields //-------------------------------------------------------------------------------- Console.WriteLine("\n............... Fields .............................\n"); Console.WriteLine("PersianEra = {0}", PersianCalendar.PersianEra); //-------------------------------------------------------------------------------- // Properties //-------------------------------------------------------------------------------- Console.WriteLine("\n............... Properties .........................\n"); Console.Write("Eras:"); foreach (int era in jc.Eras) { Console.WriteLine(" era = {0}", era); } //-------------------------------------------------------------------------------- Console.WriteLine("\nGregorian Date Range Supported by the Persian Calendar:"); Console.WriteLine(" From {0:G}", jc.MinSupportedDateTime); Console.WriteLine(" To {0:G}", jc.MaxSupportedDateTime); //-------------------------------------------------------------------------------- Console.WriteLine("\nTwoDigitYearMax = {0}", jc.TwoDigitYearMax); //-------------------------------------------------------------------------------- // Methods //-------------------------------------------------------------------------------- Console.WriteLine("\n............ Selected Methods .......................\n");
//-------------------------------------------------------------------------------- Console.WriteLine("GetDayOfYear: day = {0}", jc.GetDayOfYear(thisDate)); //-------------------------------------------------------------------------------- Console.WriteLine("GetDaysInMonth: days = {0}", jc.GetDaysInMonth( thisDate.Year, thisDate.Month, PersianCalendar.PersianEra)); //-------------------------------------------------------------------------------- Console.WriteLine("GetDaysInYear: days = {0}", jc.GetDaysInYear(thisDate.Year, PersianCalendar.PersianEra)); //-------------------------------------------------------------------------------- Console.WriteLine("GetLeapMonth: leap month (if any) = {0}", jc.GetLeapMonth(thisDate.Year, PersianCalendar.PersianEra)); //------------------------------------------------------------- Console.WriteLine("GetMonthsInYear: months in a year = {0}", jc.GetMonthsInYear(thisDate.Year, PersianCalendar.PersianEra)); //-------------------------------------------------------------------------------- Console.WriteLine("IsLeapDay: This is a leap day = {0}", jc.IsLeapDay(thisDate.Year, thisDate.Month, thisDate.Day, PersianCalendar.PersianEra)); //-------------------------------------------------------------------------------- Console.WriteLine("IsLeapMonth: This is a leap month = {0}", jc.IsLeapMonth(thisDate.Year, thisDate.Month, PersianCalendar.PersianEra)); //-------------------------------------------------------------------------------- Console.WriteLine("IsLeapYear: 1370 is a leap year = {0}", jc.IsLeapYear(1370, PersianCalendar.PersianEra)); //--------------------------------------------------------------------------------
// Get the 4-digit year for a year whose last two digits are 99. The 4-digit year // depends on the current value of the TwoDigitYearMax property.
Console.WriteLine("ToFourDigitYear:"); Console.WriteLine(" If TwoDigitYearMax = {0}, ToFourDigitYear(99) = {1}", jc.TwoDigitYearMax, jc.ToFourDigitYear(99)); jc.TwoDigitYearMax = thisDate.Year; Console.WriteLine(" If TwoDigitYearMax = {0}, ToFourDigitYear(99) = {1}", jc.TwoDigitYearMax, jc.ToFourDigitYear(99)); }}
کد به زبان ویژوال بیسیک دات نت :
Function MiladiToShamsi(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As String Dim A As Date = Year & "/" & Month & "/" & Day Dim B As New PersianCalendar Return B.GetYear(A) & "/" & B.GetMonth(A) & "/" & B.GetDayOfMonth(A) End Function
توجه داشته باشید که کدهای فوق مخصوص دات نت می باشد
فرم هایی به اشکال هندسی ( برنامه نویسی )
این برنامه نشان می دهد چگونه فرم هایی بصورت دایره و یا بیضی در ویژوال بیسیک طراحی کنیم .
در ابتدای برنامه توابع مورد نیاز را از ویندوز فراخوانی می کنیم
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function ReleaseCapture Lib "USER32" () As LongPrivate Declare Function CreateEllipticRgn Lib "gdi32" _(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _ByVal Y2 As Long) As LongPrivate Declare Function SetWindowRgn Lib "USER32" (ByVal hWnd As Long, ByVal hRgn As Long,ByVal bRedraw As Boolean) As Long
خوب اکنون کد زیر را در رویداد (Event) مربوط به لحظه ای که کلید موس را بروی فرم فشردیم قرار می دهیم تا بتوانیم با فشردن موس در هر جای فرم به راحتی آن را جابجا کنیم .
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MousePointer = 15 Call ReleaseCapture Call SendMessage(hWnd, &HA1, 2, 0&) MousePointer = 1End Sub
حال تابع SetWindowRgn را مقدار دهی میکنیم . ( این قطعه کد را در رویداد Form_Load بنویسید ) :
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 300), True
مثلا مقادیر 300 و 300 شکل فرم بصورت دایره در می آید برای شکل بیضی شما میتوانید این مقادیر را 200 و 300 اختیار کنید .( بهتر است که خاصیت boarderStyle را 0-None در نظر بگیرید)
برنامه ای برای خاموش و روشن شدن چراغ های کیبورد برای چند ثانیه ( برنامه نویسی )
برنامه ای برای خاموش و روشن شدن چراغ های کیبورد برای چند ثانیه
Private Sub Command1_Click()Dim i as Integer 'declare the variable
For i = 1 To 150 SendKeys "{CAPSLOCK}", True 'turn on the capslocks light, Then turn it offSendKeys "{DOWN}", True 'just To give more timeSendKeys "{DOWN}", True 'just To give more timeSendKeys "{SCROLLLOCK}", True 'turn on the scroll lock light, turn it offSendKeys "{DOWN}", True 'give more timeSendKeys "{DOWN}", True 'give more timeNext iEnd Sub
پروسیجر ها در ویژال بیسیک ( برنامه نویسی )
توجه داشته باشيد که در ابتدای تعريف توابع و روالها می توانيم از Private يا Public نيز استفاده کنيم و تمام سطوحی که برای تعريف متغيرها گفته شد (خصوصاً سطح فرم و سطح ماژول) ، در اينجا نيز عيناً کاربرد دارند. (پيش فرض در اينجا هم Private است).
به عنوان مثال اگر بخواهيم تابعی به نام Square ايجاد نماييم که هر عددی را دريافت کرد، مربع آن را برگرداند، کافی است چنين بنويسيم (مثلاً به صورت Public در يک ماجول) :
Public Function Square (I As Integer) As Integer
Square = I*I
End Function
به علت زیاد بودن بقیه در ادامه مطلب
تبدیل عدد به حروف در ویژوال بیسیک ( برنامه نویسی )
تبدیل عدد به حروف در ویژوال بیسیک :
تابع مربوط به تبديل عدد به معادل حروفي آن ارائه مي كنیم . عمدتا در سيستم هاي مالي و حسابداري نياز است معادل حروفي اعداد هم نمايش داده شده يا چاپ شوند كه توابع زير اين نياز را پاسخ مي دهد. مثلا براي چاپ يك چك روي خود برگه چك ، علاوه بر نياز به چاپ مبلغ عددي چك لازمست تا مبلغ حروفي چك هم روي برگه چاپ شود.نحوه استفاده از تابع :تابع Adad كه در زير ارائه شده است يك عدد را بعنوان ورودي گرفته و معادل حروفي آن عدد در زبان فارسي را بعنوان خروجي توليد مي كند. مثلا (Adad(1373 مقدار"يكهزار و سيصد و هفتاد و سه" را بعنوان خروجي توليد مي كند.براي استفاده از اين توابع بايد از چند خط پايين تر (Start of Module) تا انتهاي اين يادداشت را در حافظه كپي (Copy) كرده و در يك ماجول جديد درVB وارد كنيد . ( توجه داشته باشيد كه نمايش كدهاي نوشته شده در اينجا راست به چپ است كه پس از كپي كردن آن در ماجول اكسس بشكل صحيح نمايش داده خواهد شد)
مرحله اول :
یک فرم در ویژوال بیسیک ایجاد کنید و در آن دو تکست باکس و یک command button ایجاد کنید.
یک ماجول ایجاد کنید.
مرحله ی دوم : کد زیر را درون ماجول وارد کنید.
Function Adad(ByVal Number As Double) As StringIf Number = 0 ThenAdad = "صفر"End IfDim Flag As BooleanDim S As StringDim I, L As ByteDim K(1 To 5) As DoubleS = Trim(Str(Number))L = Len(S)If L > 15 ThenAdad = "بسيار بزرگ"Exit FunctionEnd IfFor I = 1 To 15 - LS = "0" & SNext IFor I = 1 To Int((L / 3) + 0.99)K(5 - I + 1) = Val(Mid(S, 3 * (5 - I) + 1, 3))Next IFlag = FalseS = ""For I = 1 To 5If K(I) <> 0 ThenSelect Case ICase 1S = S & Three(K(I)) & " تريليون"Flag = TrueCase 2S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " ميليارد"Flag = TrueCase 3S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " ميليون"Flag = TrueCase 4S = S & IIf(Flag = True, " و ", "") & Three(K(I)) & " هزار"Flag = TrueCase 5S = S & IIf(Flag = True, " و ", "") & Three(K(I))End SelectEnd IfNext IAdad = SEnd Function'-------------------------------------------------Function Three(ByVal Number As Integer) As StringDim S As StringDim I, L As LongDim h(1 To 3) As ByteDim Flag As BooleanL = Len(Trim(Str(Number)))If Number = 0 ThenThree = ""Exit FunctionEnd IfIf Number = 100 ThenThree = "يكصد"Exit FunctionEnd IfIf L = 2 Then h(1) = 0If L = 1 Thenh(1) = 0h(2) = 0End IfFor I = 1 To Lh(3 - I + 1) = Mid(Trim(Str(Number)), L - I + 1, 1)Next ISelect Case h(1)Case 1S = "يكصد"Case 2S = "دويست"Case 3S = "سيصد"Case 4S = "چهارصد"Case 5S = "پانصد"Case 6S = "ششصد"Case 7S = "هفتصد"Case 8S = "هشتصد"Case 9S = "نهصد"End SelectSelect Case h(2)Case 1Select Case h(3)Case 0S = S & " و " & "ده"Case 1S = S & " و " & "يازده"Case 2S = S & " و " & "دوازده"Case 3S = S & " و " & "سيزده"Case 4S = S & " و " & "چهارده"Case 5S = S & " و " & "پانزده"Case 6S = S & " و " & "شانزده"Case 7S = S & " و " & "هفده"Case 8S = S & " و " & "هجده"Case 9S = S & " و " & "نوزده"End SelectCase 2S = S & " و " & "بيست"Case 3S = S & " و " & "سي"Case 4S = S & " و " & "چهل"Case 5S = S & " و " & "پنجاه"Case 6S = S & " و " & "شصت"Case 7S = S & " و " & "هفتاد"Case 8S = S & " و " & "هشتاد"Case 9S = S & " و " & "نود"End SelectIf h(2) <> 1 ThenSelect Case h(3)Case 1S = S & " و " & "يك"Case 2S = S & " و " & "دو"Case 3S = S & " و " & "سه"Case 4S = S & " و " & "چهار"Case 5S = S & " و " & "پنج"Case 6S = S & " و " & "شش"Case 7S = S & " و " & "هفت"Case 8S = S & " و " & "هشت"Case 9S = S & " و " & "نه"End SelectEnd IfS = IIf(L < 3, Right(S, Len(S) - 3), S)Three = SEnd Function
مرحله سوم : کد زیر را درون command button فرم وارد کنید.
Private Sub Command1_Click()Dim s As StringNumber = Val(Text1.Text)s = Adad(Number)Text2.Text = sEnd Sub
طراحی Splash Screen ( برنامه نویسی )
:: امروز می خواهم چگونگی ساخت یک Splash Screen برای برنامه هایی که مینویسیم را براتون شرح بدم . خوب باز هم باید توابع مورد نیاز را فراخوانی کرده و همچنین ثوایت مورد نیاز را تعریف کنیم
Const LWA_COLORKEY = &H1Const LWA_ALPHA = &H2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000Private Declare Function GetWindowLong Lib "user32" Alias _"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias _"SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal _dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib _"user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha _As Byte, ByVal dwFlags As Long) As Long
نوع نمایش این Splash Screen به گونه ای است که میزان شفافیت فرم آن از 0 به 255 رسیده و دوباره کاهش یافته به صفر می رسد (یا بعبارت دیگر از حالت نامرئی به شفافیت کامل رسیده و دوباره از شفافیت آن کاسته شده و نامرئی می شود ) . خوب تنها Control که برای این برنامه نیاز داریمTimer می باشد . کدی که در Form_Load می بینید باعث می شود که فرم در ابتدای امر نامرئی باشد چون مقدار bAlfa آنرا 0 داده ام
Private Sub Form_Load() Dim Ret As Long Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret SetLayeredWindowAttributes Me.hWnd,0,0,LWA_ALPHA
Timer1.interval = 1 End End Sub
در مرحله بعد برای اینکه فرم از حالت نامرئی به مرئی برسد (یعنی مقدار آن از 0 به 255 برسد) یک حلقه For نوشتم . حال برای اینکه فرم دوباره از حالت مرئی به نامرئی برشد یک حلقه For دیگر با گام افزایش -1 نوشتم تا مقدار آنرا کاهش دهد .
Private Sub Timer1_Timer() For i = 1 To 255 SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA Next i For i = 255 To 1 Step -1 SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA Next i Timer1.Enabled = False End Sub
تمرینات مبانی کامپیوتر + حل تمرینات ( برنامه نویسی )
حل تمرینات مبانی کامپیوتر و برنامه نویسی
فصلها
دانلود فصول
فصل ۷
فصل ۸
فصل ۹
فصل ۱۰
فصل ۱۱
فصل ۱۲
فصل ۱۳
فصل ۱۴
توان در تابع بازگشتی در پاسکال ( برنامه نویسی )
تابع بازگشتی در پاسکال
برنامه ای بازگشتی به زبان پاسکال که 2 به توان n را محاسبه می کند.
program hamed-tavan;varn:integer;function t(n:integer):integer;beginif n=1 thent:=2elset:=t(n-1)*2;end;beginreadln(n);writeln(t(n));end.
توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال توان در تابع بازگشتی در پاسکال
رسم نمودار در پاسکال ( برنامه نویسی )
رسم نمودار در پاسکال
برنامه ای به زبان پاسکال که نمره ی 10 دانش آموز را دریافت و نمودار ستونی آنرا به رنگ سبز رسم می کند
program hamed;usesnewdelay,crt;vara,b,c,d,e,f,g,h,i,j,s,r,t:integer;{========H A M E D=========}procedure p1(b,a:integer);varc,d:integer;beginc:=24;for s:=1 to a dobegintextcolor(green);gotoxy(b,c);c:=c-1;write(#219);end;end;{========H A M E D========}beginclrscr;read(a,b,c,d,e,f,g,h,i,j);gotoxy(1,25);textcolor(green);for s:=1 to 20 dowrite('_');p1(1,a);p1(3,b);p1(5,c);p1(7,d);p1(9,e);p1(11,f);p1(13,g);p1(15,h);p1(17,i);p1(19,j);readln;end.
رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال رسم نمودار در پاسکال
معدل گیری کلی در زبان پاسکال ( برنامه نویسی )
معدل گیری کلی در زبان پاسکال
برنامه ای به زبان پاسکال که نمره ی 5 درس تعدادی دانش آموز را دریافت می کند و معدل هر یک را به صورت تک تک نمایش می دهد.
program hamed-sort1;varave:array[1..1000]of real;num:array[1..1000,1..5]of real;sum:real;i,j,n:integer;beginwriteln('Please Enter Number Of Students');writeln(' ');readln(n);writeln('number Of students =',n:3);writeln(' ');for i:=1 to n dobeginwriteln(' ');writeln('Input Score of Student ',i:3);sum:=0;for j:=1 to 5 dobeginreadln(num[i,j]);sum:=sum+num[i,j];end;ave[i]:=sum / 5;writeln('Average of Student ',i:3,' = ',ave[i]:2:2);end;end.
معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال معدل گیری کلی در زبان پاسکال
برنامه مثلث خیام در زبان C و ++C ( برنامه نویسی )
برنامه مثلث خیام در زبان C و ++C
#include iostream.h#include conio.h#include string.hvoid main(){char space[12]=" ";int arr0[11]={1,2,1,0,0,0,0,0,0,0};int arr1[11]={0,0,0,0,0,0,0,0,0,0};cout<<" 1"<cout<<" 1 2 1"<for(int kol=10;kol>=0;kol--){cout<(space[kol]='\0');//(space[kol]='\0');for (int i=0;i<=10;i++)if (i==0) arr1[i]=1;else arr1[i]= (arr0[i-1]+arr0[i]);for (int j=0;j<=10;j++){if(arr1[j]!=0) cout<arr0[j]=arr1[j];arr1[j]=0;}cout<}getch();}
..: آخرين ارسال ها :..
All Rights Reserved 2005-2006 © by kojoor.Blogfa.com This Template Designed By Ali Kouroshfar and TakTemp For Blogfa www.TakTemp.com - www.2Temp.com - www.3Music.ir - www.iroom.ir - www.Shophaa.com
