سوال: درخواست کمک در 2 پروژه Visual Basic [بایگانی]

Terminat0r

شنبه 30 دی 1391, 16:32 عصر

سلام به همه

من دو در خواست یا هر چیزی اسمش رو میشه گذاشت دارم در مورد دو پروژه کوچیک ویژوال بیسیک که می دونم که خیلی ساده هم هست !

1- یک پروژه در ویژوال بیسیک که یک عدد رو به عنوان روز سال دریافت کند و مشخص کند که چه روزی از هفته و چه ماهی از سال می باشد !

2- یک پروژه در ویژوال بیسیک که 3 عدد عکس را در کادر نشان دهد ( با هر کلیک یک عکس نمایش دهد ! )

دوستان این ها رو واسه فردا نیاز دارم ممنون میشم سریع یک کمکی بهم بکنید و یک توضیح کوچیک در موردش و همین جا برام پیوست کند

با تشکر از همه عزیزان :قلب: :قلب:

SlowCode

شنبه 30 دی 1391, 16:48 عصر

سلام
1- اگه این کد رو اجرا کنی اسم روز رو بهت میگه:
MsgBox Switch(DateTime.Weekday(Text1, vbSaturday), "shanbe", "1shanbe", "2shanbe", "3shanbe", "4shanbe", "5shanbe", "jome")

واسه ماه هم با تابع month می تونی شماره ماه رو بدست بیاری، بعد با همون تابع switch اسم رو بدست بیار.
2- خب 3 تا پیکچرباکس بزار روی فرم و سه تا عکس بزار کنار برنامه(با نامهای 1 و 2 و 3) جهت راحتی کار اسم پیکچرباکسها رو یه چیز ثابت بزار و بهشون ایندکس بده، بعد تو رویداد کلیکش بنویس:

Pic(Index).Picture=LoadPicture(app.path & "\" & index & ".jpg")

دیگه چیزی نموند بقیش رو خودت ردیف کن.

Terminat0r

شنبه 30 دی 1391, 19:19 عصر

با تشکر فراوان از کمکتون واقعا حال کردم ... :قلب:

ممنون میشم اگر یک سورس کد هم ازشون واسم اماده کنید چون توی چند جاش مشکل داشتم ممنون میشم این سورس رو برام اپلود کنید تا با روشش بیشتر اشنا بشم :بوس:

با تشکر ازتون :خجالت:

SlowCode

شنبه 30 دی 1391, 19:29 عصر

خواهش میکنم
کجاش مشکل داری بگو؟
یکم حوصله آپ کردن سورس رو ندارم... چه خطایی میده؟

Terminat0r

شنبه 30 دی 1391, 19:40 عصر

خواهش میکنم برام اپلود کنید حجم زیادی نداره فکر کنم چند کیلو بایتی بیشتر نباشه واقعا نیاز دارم :قلب:

مشکل من اینه که شما گفته بودید :

واسه ماه هم با تابع month می تونی شماره ماه رو بدست بیاری، بعد با همون تابع switch اسم رو بدست بیار.

برام نا مفهوم بود ...
ولی خواهشم از شما اینه که هر دو سورس رو برام اپلود کنید تا کار یکمی راحت تر بشه واسه ی منه مبتدی البته اگر زحمتی واستون نیست :لبخندساده:

SlowCode

شنبه 30 دی 1391, 20:27 عصر

بفرما.
فقط واسه اسم ماه، تابع سوئیچ جواب نداد، به نظر میرسه بیش از 6 پارامتر قبول نمیکنه، به همین دلیل با select case نوشتم.

Terminat0r

شنبه 30 دی 1391, 20:40 عصر

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

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

SlowCode

شنبه 30 دی 1391, 20:51 عصر

آره درست میگی:متفکر:
فکر کنم مشکل از سوئیچ هست، خوب اون رو هم با select case بنویس.
البته اگه میخوای اسم انگلیسیش رو پیدا کنی با این کد میتونی:
MsgBox WeekdayName(Weekday(Date, vbSaturday))

ای بابا این حرفا چیه! قابل شما رو نداره.:لبخند:

Terminat0r

شنبه 30 دی 1391, 21:02 عصر

MsgBox Switch(DateTime.Weekday(Text1, vbSaturday), "shanbe", "1shanbe", "2shanbe", "3shanbe", "4shanbe", "5shanbe", "jome")

بجای این چه چیزی جایگزین کنم ؟

SlowCode

شنبه 30 دی 1391, 21:08 عصر

اگه میخوای اسم فارسیش رو نشون بدی، بنویس:

Select case Weekday(Text1, vbSaturday)
Case 1: msgbox "شنبه"
Case 2: msgbox "یکشنبه"
Case 3: msgbox "دوشنبه"
Case 4: msgbox "سه شنبه"
Case 5: msgbox "چهارشنبه"
Case 6: msgbox "پنجشنبه"
Case 7: msgbox "جمعه"
End select

Terminat0r

شنبه 30 دی 1391, 21:36 عصر

ممنون مشکل حل شد ولی یک تغییری داخلش دادم به این شکل :

Private Sub Command1_Click()
Select Case Weekday(Text1, vbSaturday)
Case 1: MsgBox "پنج شنبه"
Case 2: MsgBox "جمعه"
Case 3: MsgBox "شنبه"
Case 4: MsgBox "يک شنبه"
Case 5: MsgBox "دوشنبه"
Case 6: MsgBox "سه شنبه"
Case 7: MsgBox "چهار شنبه"
End Select
End Sub

Terminat0r

شنبه 30 دی 1391, 21:38 عصر

فقط خواهش میکنم اون سورس دومی که گفته بود :

2- یک پروژه در ویژوال بیسیک که 3 عدد عکس را در کادر نشان دهد ( با هر کلیک یک عکس نمایش دهد ! )

یک کاریش بکنید ما که مزاحمتون شدیم و وقت شریفتون رو گرفتیم ... :قلب:

SlowCode

شنبه 30 دی 1391, 21:53 عصر

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

For i=0 to Image1.Ubound
Image1(i).Picture=LoadPicture()
Next
Image1.Picture=LoadPicture(app.path & "\" & Index & ".jpg")

این کد رو با کد قبلی جایگزین کن.

Private Sub Command1_Click()
Select Case Weekday(Text1, vbSaturday)
Case 1: MsgBox "پنج شنبه"
Case 2: MsgBox "جمعه"
Case 3: MsgBox "شنبه"
Case 4: MsgBox "يک شنبه"
Case 5: MsgBox "دوشنبه"
Case 6: MsgBox "سه شنبه"
Case 7: MsgBox "چهار شنبه"
End Select
End Sub

جانم؟:متعجب:
یعنی پنجشنبه اولین روزماست؟ فکر نکنم کار درستی کرده باشی. چون تو خط دوم اولین روز هفته رو vbSaturday قرار دادیم. واسه من مشکلی نداشت، vbSaturday رو حذف کن ببین مشکلت حل میشه؟:متفکر:

Terminat0r

شنبه 30 دی 1391, 22:01 عصر

چون وقتی میزدم 1391/11/1 نشون میداد دو شنبه ماه رو 31 روز حساب میکرد فکرکنم !

برای سورس دومی یک کادر میخوام باشه فقط یک دونه بعدش با هر کلیک عکس عوض بشه :قلب:

Terminat0r

شنبه 30 دی 1391, 22:29 عصر

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

SlowCode

یک شنبه 01 بهمن 1391, 06:51 صبح

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

برای سورس دومی یک کادر میخوام باشه فقط یک دونه بعدش با هر کلیک عکس عوض بشه :قلب:
خب سورس رو دادم دیگه! فکر کنم هرچی لازم بود گفتم بهت، از اینجا به بعد رو خودت درست کن، چون درخواست پروژه یا حل تمرین ممنوعه. ما فقط میتونیم راهنمایی کنیم.

چون وقتی میزدم 1391/11/1 نشون میداد دو شنبه ماه رو 31 روز حساب میکرد فکرکنم !
اگه میخوای درست جواب بده باید تاریخ میلادی رو وارد کنی چون به نظر میاد با شمسی مشکل داره، ولی اگه حتما باید شمسی باشه همون کد خودت رو بنویس.

Mr'Jamshidy

یک شنبه 01 بهمن 1391, 07:32 صبح

خسته نباشید شما سورس اولی رو براش نوشتی دیگه خوب اینم بگو راحتش کن :قهقهه:

SlowCode

یک شنبه 01 بهمن 1391, 11:31 صبح

خسته نباشید شما سورس اولی رو براش نوشتی دیگه خوب اینم بگو راحتش کن :قهقهه:
جمشیدی جان، هردوتاش رو فرستادم من.
به نظرت چرا تابع سوئیچ جواب نمیده؟

Mr'Jamshidy

یک شنبه 01 بهمن 1391, 13:55 عصر

جمشیدی جان، هردوتاش رو فرستادم من.
به نظرت چرا تابع سوئیچ جواب نمیده؟

چون فرمان اشتباه استفاده می کنید

فرمان Switch کارش چیز دیگس پس این اشتباهه:

MsgBox Switch(DateTime.Weekday(Text1, vbSaturday), "shanbe", "1shanbe", "2shanbe", "3shanbe", "4shanbe", "5shanbe", "jome")

باید اینطوری استفاده کنید:

MsgBox Choose(DateTime.Weekday(Text1, vbSaturday), "shanbe", "1shanbe", "2shanbe", "3shanbe", "4shanbe", "5shanbe", "jome")

موفق باشید

Terminat0r

یک شنبه 01 بهمن 1391, 16:02 عصر

خب سورس رو دادم دیگه! فکر کنم هرچی لازم بود گفتم بهت، از اینجا به بعد رو خودت درست کن، چون درخواست پروژه یا حل تمرین ممنوعه. ما فقط میتونیم راهنمایی کنیم.

سلام

ممنون میدونم که درخواست پروژه ممنوعه ولی من کار کردم روش ولی نشد :ناراحت:

SlowCode

یک شنبه 01 بهمن 1391, 16:31 عصر

چون فرمان اشتباه استفاده می کنید

فرمان Switch کارش چیز دیگس پس این اشتباهه:

MsgBox Switch(DateTime.Weekday(Text1, vbSaturday), "shanbe", "1shanbe", "2shanbe", "3shanbe", "4shanbe", "5shanbe", "jome")

باید اینطوری استفاده کنید:

MsgBox Choose(DateTime.Weekday(Text1, vbSaturday), "shanbe", "1shanbe", "2shanbe", "3shanbe", "4shanbe", "5shanbe", "jome")

موفق باشید
آره درست میگی:لبخند: منظورم choose بود. ممنون

ممنون میدونم که درخواست پروژه ممنوعه ولی من کار کردم روش ولی نشد :ناراحت:
آخه شما که نمیگی مشکلت چیه! فقط میگی نشد! تو چه کدی نوشتی؟ خطا داد؟ چه خطایی داد؟ توضیح بده دیگه. سورس نمونه هم برات فرستادم که آخه.