می خوای بدونی چندشنبه به دنیا اومدی ؟؟؟

سلام

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

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

http://www.4shared.com/file/ZRbO4aEj/Date_To_Day.html

ممنون میشم اگه نظری داشتید بگید.

مثل همیشه تشکر فراموش نشه ها ...

برنامه هیچ اشکالی نداشته که کسی چیزی نمیگه؟:19:

خداییش این وضع ادامه داشته باشه من دیگه نیستما.:27:

کلی جون میکنی برنامه مینویسی بعد انگار نه انگار :13:

دمت گرم. فقط به نظرم بهتره مشخص کنی قالب تاریخ میلادی باید باشه یا شمسی.:31:

آقا خیلی خوبه دستت درد نکنه هیچ مشکلی هم نداره !!!

راستی دارم رو اون برنامه قبلیت کار میکنم رو گرافیکش که گفتی .!!!

با تشکر (Bvk)
:5:

ممنون مرتضی جان...!

ولی می تونی یه قسمت دیگه هم به برنامت اضافه کنی که تاریخ کنونی رو بگیره و با تاریخی که کاربر وارد کرده مقایسه کنه...!

اگه تاریخ کنونی بیشتر بود بنویسه برابر بوده با... و اگه کمتر بود بنویسه برابر خواهد بود با...!

امیدوارم متوجه منظورم شده باشی...!

در کل ، برنامه ی جالبی بود ممنون...!

یه پیشنهاد:
از

کد:

---

Format(date,"DDMMYYYY")

---

استفاده کن که تاریخ الان رو بفهمی
بعدش محسابه کن که تاریخ وارد شده مال گذشتست یا ایدنده؟
اونوقت تشخیص میدی که "بوده" یا "خواهد بود"
و تاریخ میلادی رو هم اضافه کن
زیاد سخت نیست اگه VB دم دستم بود واست انجام میدادم :دی

دوست عزیز برنامه برای ما به این صورت میاد!!!!!!!!!!

مشکل فونت داره!

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط AliSub [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوست عزیز برنامه برای ما به این صورت میاد!!!!!!!!!!

مشکل فونت داره!

...

---

این نشون میده که پست اول رو نخوندی...! :31:

دقت کن...!

نقل قول:

---

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

...
حتما قبل از اجرای برنامه فونت موجود در فایل زیپ رو به پوشه فونت های ویندوز انتقال بدین.
...

---

کار مرتضی نقصی نداره...!:27:

موفق باشی...! :46:

نقل قول:

---

نوشته شده توسط !Plus [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این نشون میده که پست اول رو نخوندی...! :31:

دقت کن...!



کار مرتضی نقصی نداره...!:27:

موفق باشی...! :46:

---

خوب یعنی چی؟میشه بیشتر توضیح بدین؟

سلام
میشه دقیق راهنمایی کنی چه جوری نوشتیش یعنی دقیق خط به خط

نقل قول:

---

نوشته شده توسط RAHIL_2 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب یعنی چی؟میشه بیشتر توضیح بدین؟

---

یعنی دوست عزیز اون فونت Nazanin.ttf که تو فایل زیپ هست رو بریز تو پوشه C:\WINDOWS\Fonts همین. مشکلی بود باز هم بگو :11:

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

کد:

---

7}{4/\/|< U \/3RY /\/\U<}{

---

نقل قول:

---

نوشته شده توسط genius_islamic [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
میشه دقیق راهنمایی کنی چه جوری نوشتیش یعنی دقیق خط به خط

---

خیلی سخت نیست.
1- چک میکنه که تکست باکس ها خالی نباشند.

2- سال های کبیسه رو از سال 1 تا اون سالی که وارد شده محاسبه می کنه. بعد تعداد سال ها رو منهای 1 در 365 ضرب می کنه(به خاطر این که سال جاری تموم نشده). به این ترتیب سال های گذشته به روز محاسبه میشند. حالا میرسیم سر ماه.

3- ماه ها اگر کمتر از 6 باشند ضربدر 31 میشند و اگر بیشتر باشند منهای 6 میشند ضربدر 30 بعلاوه 186 روز که تا ماه 6 گذشته.

4-روزها هم که خود روزهاست، کاری نمیخواد بکنید.

5- حالا همشون رو جمع می کنید

6- با یک آزمایش - خطا Select Case میذارید تا روزهای هفته رو بدست بیارید.

اگر مشکلی بود در خدمتم ...:11:

نقل قول:

---

نوشته شده توسط Morteza561 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

یعنی دوست عزیز اون فونت Nazanin.ttf که تو فایل زیپ هست رو بریز تو پوشه C:\WINDOWS\Fonts همین. مشکلی بود باز هم بگو :11:

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

کد:

---

7}{4/\/|< U \/3RY /\/\U<}{

---

---

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

منم این کارو کرکدم ولی کار نکرد
ویندوزم 7 هست

نقل قول:

---

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

---

کامپیوترت رو ریست کن...! درست میشه ، انشاا...!

قسمتت نبود...! :دی

نقل قول:

---

نوشته شده توسط A.M.D.D.E.V.I.L [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

منم این کارو کرکدم ولی کار نکرد
ویندوزم 7 هست

---

مطمئنید ویندوزتون از فارسی پشتیبانی می کنه؟ آخه فکر کنم هر دوتا تون ویندوزتون 7 هست

این رو دانلود کنید بریزید تو فونت هاوتون نتیجه رو بگید.

کد:

---

http://www.4shared.com/file/vQ9cj8J9/Nazanin.html

---

ممنون ...

نقل قول:

---

نوشته شده توسط Morteza561 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خیلی سخت نیست.
1- چک میکنه که تکست باکس ها خالی نباشند.

...

اگر مشکلی بود در خدمتم ...:11:

---

سلام داداش ببین منظورم اینه این جمع و ضرب و اینا فرموله رو چه حسابی هستند
2-حلقه for واسه چی استفاده کردی
3-دستور خطا چه طور کار میکنه وبه چه دردی میخوره چه جوری باید نوشته بشه

من ویندوزم xp هست

نقل قول:

---

نوشته شده توسط Morteza561 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مطمئنید ویندوزتون از فارسی پشتیبانی می کنه؟ آخه فکر کنم هر دوتا تون ویندوزتون 7 هست

این رو دانلود کنید بریزید تو فونت هاوتون نتیجه رو بگید.

کد:

---

http://www.4shared.com/file/vQ9cj8J9/Nazanin.html

---

ممنون ...

---

متاسفانه بازم درست نشد.:41:

نقل قول:

---

نوشته شده توسط !Plus [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این نشون میده که پست اول رو نخوندی...! :31:

دقت کن...!



کار مرتضی نقصی نداره...!:27:

موفق باشی...! :46:

---

خونده بودم

نقل قول:

---

نوشته شده توسط A.M.D.D.E.V.I.L [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

منم این کارو کرکدم ولی کار نکرد
ویندوزم 7 هست

---

نقل قول:

---

نوشته شده توسط !Plus [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کامپیوترت رو ریست کن...! درست میشه ، انشاا...!

قسمتت نبود...! :دی

---

نقل قول:

---

نوشته شده توسط RAHIL_2 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من ویندوزم xp هست

---

نقل قول:

---

نوشته شده توسط RAHIL_2 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

متاسفانه بازم درست نشد.:41:

---

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

نقل قول:

---

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

ویندوزم 7600 هست!

---

:18::18::18:

مطمءنی ویندوزه...! :18:

از کدوم سیاره برات آوردنش...!؟! :18:

تازه ماکروسافت 7 رو زد...! اونوقت 7600 از کجا اومد...! :18:

:18::18::18:

نقل قول:

---

نوشته شده توسط !Plus [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:18::18::18:

مطمءنی ویندوزه...! :18:

از کدوم سیاره برات آوردنش...!؟! :18:

تازه ماکروسافت 7 رو زد...! اونوقت 7600 از کجا اومد...! :18:

:18::18::18:

---

oooooooooooooohhhhhh

منظورم Build ویندوزم بود. که 7600 هست.
My computer باز کن Alt بزن از Help برو به About Windows

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

به هر حال این برنامه تو سون کار نکرد برای من.
ولی در XP به خوبی جواب داد.
ممنون مرتضی جان برنامه قشنگی درست کردی.
خیلی وقت بود دنبال روز تولدم می گشتم. :11:

سلام خبر وحشت ناک برای وی بی نویس ها وی بی دستوراتش و برنامه هاش روی ویستا و سون کار نمیده به نظرم توی کتاب درسی ها هم دارن جایگیزینش میکنن دارن یک جورایی میذارنش کنار البته منم شنیدم

نقل قول:

---

نوشته شده توسط genius_islamic [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام خبر وحشت ناک برای وی بی نویس ها وی بی دستوراتش و برنامه هاش روی ویستا و سون کار نمیده به نظرم توی کتاب درسی ها هم دارن جایگیزینش میکنن دارن یک جورایی میذارنش کنار البته منم شنیدم

---

این جا جاش نیست ولی... آبکش شدن آرژانتین رو به همه طرفداراش تسلیت میگم...! بازم مثل همیشه آریایی ها پیروز شدند...! :27:
----------------------------------------
شاید VB6 از بین بره ولی خود زبان VB هیچ وقت از بین نمی ره...! این رو مطمءن باش...!

VB6 عمر خودش رو کرده...! عمرش سال 2002 تموم شده بود...! ماکروسافت دید که بقیه(بورلند و...) دارن ازش میزنن جلو NET. رو عرضه کرد...! اون موقع VB6 شکست خورده بود...! ولی VB جدیدی که پا به عرصه برنامه نویسی گذاشت...! حالا حالا ها عمر می کنه ، تازه اول جوونی شه...! حداقل تا زمانی که ویندوز هست VB هم هست...!

ولی من که کم کم به فکر یه زبون دیگه ام...! تو خارج VB رو تو دبستان به بچه ها یاد میدن...!

اونوقت ما با این قد و هیکل و سن مون داریم با VB کار می کنیم...! من که رفتم اسمبلی یاد بگیرم...! هر کی پایه است بگه براش کتاب بذارم...!

بای بای...!

نقل قول:

---

سلام داداش

---

علیک سلام:31:

نقل قول:

---

این جمع و ضرب و اینا فرموله رو چه حسابی هستند

---

اولش رو حساب آزمایش و خطا. اما بعدش یه فرمول کلی اثبات میشه.

نقل قول:

---

2-حلقه for واسه چی استفاده کردی

---

برای جا افتادن بیشتر مطلب. شما میتونی اون حلقه رو با Kabise = Val(Text1) \ 4 جایگزین کنی. میبینی که باز هم مشکلی نداره.

نقل قول:

---

3-دستور خطا چه طور کار میکنه وبه چه دردی میخوره چه جوری باید نوشته بشه

---

بخشید درست متوجه نشدم. اگر منظورت کنترل خطا هست بگید تا توضیح بدم.

سلام
ضمن تشکر از زحمت و حسن نظر دوستمان کاربر Morteza561 ... :11:
باید عرض کنم، الگوریتم محاسبه این برنامه اشتباه است و جواب صحیح نخواهد داد.
این برنامه به وضوح سالهای کبیسه 5 ساله تقویم جلالی را نادیده میگیرد.

روش و الگوریتم نسبتاً کاملی از تبدیل تاریخ شمسی و محاسبه روز هفته را قبل از این در تاپیک زیر تشریح کرده ام که انشاا... برای دوستان مفید واقع شود:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بدون در نظر گرفتن کبیسه های 4 و 5 ساله جلالی هیچ کد تبدیل تاریخ میلادی-شمسی و هیچ کد محاسبه روز هفته نمیتواند کامل باشد...
آخرین کبیسه 5 ساله جاری، سال 1375 بوده، یعنی سال 1370 کبیسه بوده و بعد از آن به جای 1374، سال 1375 کبیسه بوده.
اینطور هم میتوان گفت که 1375 کبیسه بوده ولی به جای 4 سال قبل، یعنی 1371، سال 1370 کبیسه بوده.

نمونه ای از تناوب اشتباه برنامه مذکور دقیقاً در عید سال 1371 که پایان سال 1370 (کبیسه) بوده رخ میدهد.
که در واقع سال 1370 کبیسه بوده و یک روز بیشتر داشته که در فرمول مذکور لحاظ نشده.
عید سال 1371 روز شنبه بوده:

کد:

---

'VB2005/2008/2010

Dim x As New System.Globalization.PersianCalendar()
Dim d As DayOfWeek = x.GetDayOfWeek(x.ToDateTime(1371, 1, 1, 0, 0, 0, 0))

'd = Saturday = شنبه !

---

که برناه مذکور به دلیل 30 اسفند 1370، این عدد را یک روز اشتباه محاسبه میکند.

همین ایراد اغاز سال، کل محاسبات سال 1371 در برنامه جاری را اشتباه میکند.
در تناوب ایرادی با بازگشت 33 ساله به گشته و آینده مدام تکرار شده که بسته به شرایط و فرمول های خاص هر تناوب ایراد میتواند تا چند سال ادامه یاد و بعد مجدد صحیح کار کند.

=====

دوستان میتوانند در صورت تمایل نمونه برنامه ای با محاسبه صحیح تر را از لینک زیر دانلود کنند:

کد:

---

http://support.h02.ir/fwlink/?LinkId=1002125877

---

برای مشاهده کدها باید VB2008 یا VB2010 روی رایانه نصب باشد.
exe برنامه مذکور هم در bin پروژه موجود است که بدون مشکلی در Vista و Win7 اجرا خواهد شد ولی برای اجرا در XP نیازمند Framework2.0 است که اگر روی رایانه دوستان نصب نیست میتوانند نسخه مناسب 32 یا 64 بیتی ان را از لینک های زیر دانلود کنند:

کد:

---

http://www.microsoft.com/downloads/details.aspx?FamilyID=5b2c0358-915b-4eb5-9b1d-10e506da9d0f

---

=====

دوستان عزیزی که همچنان با VB1998 کار میکنند در صورت تمایل میتوانند از dll زیر برای محاسبه و تبدیل تاریخ استفاده کنند:

کد:

---

http://support.h02.ir/fwlink/?LinkId=1001687457

---

البته گرچه دیر شده و عمر نسخه 1998 و 2003 و 2005 و 2008 تمام شده ولی ماهی را هر وقت از اب بگیری تازه است!
بدون شک VB2010 زبان برنامه نویسی بسیار قوی و کارامدی است.

=====

میبخشید و جمیعاً موفق باشید.
:10:

نقل قول:

---

نوشته شده توسط _H2_ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
ضمن تشکر از زحمت و حسن نظر دوستمان کاربر Morteza561 ... :11:
باید عرض کنم، الگوریتم محاسبه این برنامه اشتباه است و جواب صحیح نخواهد داد.
این برنامه به وضوح سالهای کبیسه 5 ساله تقویم جلالی را نادیده میگیرد.

.
.
.

میبخشید و جمیعاً موفق باشید.
:10:

---

باز هم جلب مشتری برای Net. استاد؟:31:

البته من این الگوریتم رو از خودم ننوشته بودم و از یه سایت نسبتا معتبر گرفته بودم. در ضمن خودم هم تا حالا هیچ چیزی در مورد کبیسه 5 ساله تقویم جلالی نشنیده بودم. :41:

البته یه جا نوشته بود:

نقل قول:

---

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

---

این عین متنی هست که خونده بودم.

والا من خودم هم از زبان سال 1998 بیزار شدم اما چه کنم که 2 تا خوبی داره: 1- تو تمام ویندوز های Xp که محبوبترین سیستم عامله بدون نیاز به پردازش بالا اجرا میشه (البته اون مقالتون رو درباره برنامه های سنگسن خوندم. منظورم برنامه های ساده مثل این هست) 2- سیستم بالایی برای نصب خود برنامه نیاز نداره. من الان VS 2010 رو نصب می کنم حداقل برای اجرای هر فرمان باید 20 ثانیه صبر کنم. این واقعا عذاب آوره :13:

باز هم از جناب _H2_ ممنونم به خاطر تذکر دلسوزانه (و البته مغرضانه (جلب کاربرشون):31:) و تو ورژن دوم این مورد + موارد قبل رو برطرف می کنم.

فعلا شب و روزتون خوش ...:40:

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

آقا فونتم ريختم كار نكرد.خرابه وضعه دكمش.چه كنم؟

نقل قول:

---

نوشته شده توسط Sub-Zero70 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

آقا فونتم ريختم كار نكرد.خرابه وضعه دكمش.چه كنم؟

---

آره سال کبیسه رو حساب می کنه اما نمیدونم کبیسه 5 ساله که استاد _H2_ فرمودند. چیه؟

این برنامه خیلی سالها رو درست حساب می کنه اما سر چند سال مشکل داره که تو ورژن بعدی اصلاح خواهد شد.

والا دیگه خودم هم موندم شما این یکی رو ببین چی میشه:

http://www.4shared.com/file/BKY22AWO/Convert__NoneFont_.html

فونت ها رو تو این یکی پیشفرض کردم.

سلام
من توانستم یک نمونه VB6 از تقویم شمسی به کمک فایل پردازش تاریخ HPersianCalendar.dll درست کنم.
(پردازش های dll مذکور با در نظر گرفتن کبیسه های 4 و 5 ساله بوده)
این برنامه خیلی ساده و مشابه برنامه دوستمان Morteza561 است.
این برنامه تاریخ شمسی را گرفته و کبیسه و معادل میلادی و روزهفته آن را باز پس میدهد.

لازم به ذکر است که صحت عملکرد dll فوق الذکر در کل روزهای سال 1 شمسی تا سال 9377 شمسی با کلاس پردازش تاریخ System.Globalization.PersianCalendar از شرکت مایکروسافت در Framework2.0 تست شده است.
یعنی برنامه ای کمکی نوشته شده و در یک بازه 9376 ساله و برای تک تک روزها، کل جواب های این dll را با کلاس مایکروسافت مقایسه کرد.

در زمان کدنویسی و طراحی در VB6 فایل dll مذکور باید در System32 کپی شده باشد.
ولی بعد از انتشار و تولید Exe برنامه، کافی است این dll در کنار exe برنامه تان باشد، هیچ کار خاص دیگری نیاز ندارد.

نمونه سورس و exe برنامه در همان پک قبلی به آدرس زیر اضافه شد:

کد:

---

http://support.h02.ir/fwlink/?LinkId=1001687457

---

(در شاخه Files و پک VB6.zip)

موفق باشید.

سلام میشه یکم در مورد کار فایل dll
بگین چه جوری به وی بی 6 وصل میشه چه جوری نوشته میشه

نقل قول:

---

نوشته شده توسط genius_islamic [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام میشه یکم در مورد کار فایل dll
بگین چه جوری به وی بی 6 وصل میشه چه جوری نوشته میشه

---

فایل های DLL یه سری کتابخونه هستن که برنامه نویس می تونه تو برنامه هاش از اونا استفاده کنه...! :20:

این فایل ها از قبل توسط خود برنامه نویس یا برنامه نویس های دیگه ساخته شدن...! و کار برنامه نویس رو راحت تر می کنن...! مثلاً برای پخش یه آهنگ Mp3 ...! به یه فایل DLL نیازه...! :27:

از این فایل ها به چند روش میشه استفاده کرد...! که خودش بحث درازی داره...! :27:

سلام

نقل قول:

---

یکم در مورد کار فایل dll
بگین چه جوری به وی بی 6 وصل میشه چه جوری نوشته میشه

---

دوستمان جناب Plus! جواب خوبی دادند.
میتوانید به تاپیک های زیر هم مراجعه ای داشته باشید و مروری کنید:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و...

موفق باشید.

دمت گرم سالار !
برنامه ی خوب و بدردبخوری هست ...... .

بدون هیچ زحمتی میشه بفهمی امروز یا هر روزی چندشنبه اس ، فقط باید بیای وبلاگ من و فرم رو پر کنی همین:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] :n26:

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