:18::18::18:نقل قول:
نوشته شده توسط AliSub
مطمءنی ویندوزه...! :18:
از کدوم سیاره برات آوردنش...!؟! :18:
تازه ماکروسافت 7 رو زد...! اونوقت 7600 از کجا اومد...! :18:
:18::18::18:
Printable View
:18::18::18:نقل قول:
نوشته شده توسط AliSub
مطمءنی ویندوزه...! :18:
از کدوم سیاره برات آوردنش...!؟! :18:
تازه ماکروسافت 7 رو زد...! اونوقت 7600 از کجا اومد...! :18:
:18::18::18:
oooooooooooooohhhhhhنقل قول:
منظورم Build ویندوزم بود. که 7600 هست.
My computer باز کن Alt بزن از Help برو به About Windows
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
به هر حال این برنامه تو سون کار نکرد برای من.
ولی در XP به خوبی جواب داد.
ممنون مرتضی جان برنامه قشنگی درست کردی.
خیلی وقت بود دنبال روز تولدم می گشتم. :11:
سلام خبر وحشت ناک برای وی بی نویس ها وی بی دستوراتش و برنامه هاش روی ویستا و سون کار نمیده به نظرم توی کتاب درسی ها هم دارن جایگیزینش میکنن دارن یک جورایی میذارنش کنار البته منم شنیدم
این جا جاش نیست ولی... آبکش شدن آرژانتین رو به همه طرفداراش تسلیت میگم...! بازم مثل همیشه آریایی ها پیروز شدند...! :27:نقل قول:
----------------------------------------
شاید VB6 از بین بره ولی خود زبان VB هیچ وقت از بین نمی ره...! این رو مطمءن باش...!
VB6 عمر خودش رو کرده...! عمرش سال 2002 تموم شده بود...! ماکروسافت دید که بقیه(بورلند و...) دارن ازش میزنن جلو NET. رو عرضه کرد...! اون موقع VB6 شکست خورده بود...! ولی VB جدیدی که پا به عرصه برنامه نویسی گذاشت...! حالا حالا ها عمر می کنه ، تازه اول جوونی شه...! حداقل تا زمانی که ویندوز هست VB هم هست...!
ولی من که کم کم به فکر یه زبون دیگه ام...! تو خارج VB رو تو دبستان به بچه ها یاد میدن...!
اونوقت ما با این قد و هیکل و سن مون داریم با VB کار می کنیم...! من که رفتم اسمبلی یاد بگیرم...! هر کی پایه است بگه براش کتاب بذارم...!
بای بای...!
علیک سلام:31:نقل قول:
سلام داداش
اولش رو حساب آزمایش و خطا. اما بعدش یه فرمول کلی اثبات میشه.نقل قول:
این جمع و ضرب و اینا فرموله رو چه حسابی هستند
برای جا افتادن بیشتر مطلب. شما میتونی اون حلقه رو با Kabise = Val(Text1) \ 4 جایگزین کنی. میبینی که باز هم مشکلی نداره.نقل قول:
2-حلقه for واسه چی استفاده کردی
بخشید درست متوجه نشدم. اگر منظورت کنترل خطا هست بگید تا توضیح بدم.نقل قول:
3-دستور خطا چه طور کار میکنه وبه چه دردی میخوره چه جوری باید نوشته بشه
سلام
ضمن تشکر از زحمت و حسن نظر دوستمان کاربر Morteza561 ... :11:
باید عرض کنم، الگوریتم محاسبه این برنامه اشتباه است و جواب صحیح نخواهد داد.
این برنامه به وضوح سالهای کبیسه 5 ساله تقویم جلالی را نادیده میگیرد.
روش و الگوریتم نسبتاً کاملی از تبدیل تاریخ شمسی و محاسبه روز هفته را قبل از این در تاپیک زیر تشریح کرده ام که انشاا... برای دوستان مفید واقع شود:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بدون در نظر گرفتن کبیسه های 4 و 5 ساله جلالی هیچ کد تبدیل تاریخ میلادی-شمسی و هیچ کد محاسبه روز هفته نمیتواند کامل باشد...
آخرین کبیسه 5 ساله جاری، سال 1375 بوده، یعنی سال 1370 کبیسه بوده و بعد از آن به جای 1374، سال 1375 کبیسه بوده.
اینطور هم میتوان گفت که 1375 کبیسه بوده ولی به جای 4 سال قبل، یعنی 1371، سال 1370 کبیسه بوده.
نمونه ای از تناوب اشتباه برنامه مذکور دقیقاً در عید سال 1371 که پایان سال 1370 (کبیسه) بوده رخ میدهد.
که در واقع سال 1370 کبیسه بوده و یک روز بیشتر داشته که در فرمول مذکور لحاظ نشده.
عید سال 1371 روز شنبه بوده:
که برناه مذکور به دلیل 30 اسفند 1370، این عدد را یک روز اشتباه محاسبه میکند.کد:'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 = شنبه !
همین ایراد اغاز سال، کل محاسبات سال 1371 در برنامه جاری را اشتباه میکند.
در تناوب ایرادی با بازگشت 33 ساله به گشته و آینده مدام تکرار شده که بسته به شرایط و فرمول های خاص هر تناوب ایراد میتواند تا چند سال ادامه یاد و بعد مجدد صحیح کار کند.
=====
دوستان میتوانند در صورت تمایل نمونه برنامه ای با محاسبه صحیح تر را از لینک زیر دانلود کنند:
برای مشاهده کدها باید VB2008 یا VB2010 روی رایانه نصب باشد.کد:http://support.h02.ir/fwlink/?LinkId=1002125877
exe برنامه مذکور هم در bin پروژه موجود است که بدون مشکلی در Vista و Win7 اجرا خواهد شد ولی برای اجرا در XP نیازمند Framework2.0 است که اگر روی رایانه دوستان نصب نیست میتوانند نسخه مناسب 32 یا 64 بیتی ان را از لینک های زیر دانلود کنند:
=====کد:http://www.microsoft.com/downloads/details.aspx?FamilyID=5b2c0358-915b-4eb5-9b1d-10e506da9d0f
دوستان عزیزی که همچنان با VB1998 کار میکنند در صورت تمایل میتوانند از dll زیر برای محاسبه و تبدیل تاریخ استفاده کنند:
البته گرچه دیر شده و عمر نسخه 1998 و 2003 و 2005 و 2008 تمام شده ولی ماهی را هر وقت از اب بگیری تازه است!کد:http://support.h02.ir/fwlink/?LinkId=1001687457
بدون شک VB2010 زبان برنامه نویسی بسیار قوی و کارامدی است.
=====
میبخشید و جمیعاً موفق باشید.
:10:
نقل قول:
باز هم جلب مشتری برای Net. استاد؟:31:
البته من این الگوریتم رو از خودم ننوشته بودم و از یه سایت نسبتا معتبر گرفته بودم. در ضمن خودم هم تا حالا هیچ چیزی در مورد کبیسه 5 ساله تقویم جلالی نشنیده بودم. :41:
البته یه جا نوشته بود:
این عین متنی هست که خونده بودم.نقل قول:
درست است که این الگوریتم تعداد دقیق سال های کبیسه را محاسبه نمی کند اما این امر در محاسبات ما اشکالی به وجود نمی آورد.
والا من خودم هم از زبان سال 1998 بیزار شدم اما چه کنم که 2 تا خوبی داره: 1- تو تمام ویندوز های Xp که محبوبترین سیستم عامله بدون نیاز به پردازش بالا اجرا میشه (البته اون مقالتون رو درباره برنامه های سنگسن خوندم. منظورم برنامه های ساده مثل این هست) 2- سیستم بالایی برای نصب خود برنامه نیاز نداره. من الان VS 2010 رو نصب می کنم حداقل برای اجرای هر فرمان باید 20 ثانیه صبر کنم. این واقعا عذاب آوره :13:
باز هم از جناب _H2_ ممنونم به خاطر تذکر دلسوزانه (و البته مغرضانه (جلب کاربرشون):31:) و تو ورژن دوم این مورد + موارد قبل رو برطرف می کنم.
فعلا شب و روزتون خوش ...:40:
سال کبیسه رو هم حساب می کنه؟؟؟
آقا فونتم ريختم كار نكرد.خرابه وضعه دكمش.چه كنم؟
آره سال کبیسه رو حساب می کنه اما نمیدونم کبیسه 5 ساله که استاد _H2_ فرمودند. چیه؟نقل قول:
این برنامه خیلی سالها رو درست حساب می کنه اما سر چند سال مشکل داره که تو ورژن بعدی اصلاح خواهد شد.
والا دیگه خودم هم موندم شما این یکی رو ببین چی میشه:
http://www.4shared.com/file/BKY22AWO/Convert__NoneFont_.html
فونت ها رو تو این یکی پیشفرض کردم.