تغییر عکس با تغییر فصل ها

[look20]

با سلام یه فایل اکسس ضمیمه میکنم که میتونه براساس فصل عکس رو تغییر بده
اگه ممکنه اینو به ویژوال تبدیل کنید ممنون میشم

[ali682344]

با سلام

از اين سورس استفاده كن

[look20]

با سلام

از اين سورس استفاده كن

با سلام دوست عزیز این سورس فقط در روزهای 1-12 جواب میده یعنی بقیه روزها عکس نمیاره میشه یه نگاهی بندازید

[ali682344]

تابع dayكه در برنامه استفاده شده مربوط به ماه است ،من بايد از طابع month استفاده مي كردم
ولي چون در اينجا از يك ماژول براي تبديل سال ميلادي به شمسي استفاده شده جاي month و day با هم عوض مي شوند
يعني ما 12 ما داريم كه هر سه ماه يكبار فصل عوض مي شود

از همون سورس استفاده كن

[ali682344]

در ضمن اصلا براي تغيير فصل كاري به روز نداريم فقط ملاك ما عدد ماه است
اعداد 1 و 2 و 3 براي بهار
اعداد 4و5و 6 براي تابستان
اعداد 7 و 8و 9 پاييز
اعداد 10 و 11 و 12 زمستان

فكر كنم به خاطر تابع day احساس مي كني كه اشتباهه در صورتي كه درسته
مي توني با دستور زير چك كني
MsgBox Day(Label2) در اين صورت ما نبايد عددي بيشتر از 12 داشته باشيم
با اين دستور ماه
MsgBox Month(Label2)
با اين دستور روز رو ن

[look20]

در ضمن اصلا براي تغيير فصل كاري به روز نداريم فقط ملاك ما عدد ماه است
اعداد 1 و 2 و 3 براي بهار
اعداد 4و5و 6 براي تابستان
اعداد 7 و 8و 9 پاييز
اعداد 10 و 11 و 12 زمستان

فكر كنم به خاطر تابع day احساس مي كني كه اشتباهه در صورتي كه درسته
مي توني با دستور زير چك كني
MsgBox Day(Label2) در اين صورت ما نبايد عددي بيشتر از 12 داشته باشيم
با اين دستور ماه
MsgBox Month(Label2)
با اين دستور روز رو ن

ببخشید اگه بخوام
مثلا بخوام ماه 1-3 بود بهار
واگه ماه4-6 بود تابستان
اگه7-9 بود پاییز
اگه 10-12 بود زمستان
اونوقت چکار کنم
من بجای day از month استفاده کردم

[look20]

با سلام از On Error GoTo استفاده کردم ولی مشکل برطرف نمیشه
یعنی هر فصل یه تصویر رو نمیاره توی روزهای
31 اردیبهشت-31 تیر-31شهریور ارور میده از On Error GoTo استفاده میکنم فقط میشه برای 31 اردیبهشت مشکل رو برطرف کرد

[look20]

ببخشید کسی میتونه این مشکلو حل کنه

[ali682344]

با سلام از On Error GoTo استفاده کردم ولی مشکل برطرف نمیشه
یعنی هر فصل یه تصویر رو نمیاره توی روزهای
31 اردیبهشت-31 تیر-31شهریور ارور میده از On Error GoTo استفاده میکنم فقط میشه برای 31 اردیبهشت مشکل رو برطرف کرد

سلام

اين كدو چك كن ببين رفع شد

Private Sub Form_Load()
On Error GoTo label
Label1 = To_Hejri(Date, 0)
Label2 = To_Hejri(Date, 1)
Label3 = To_Hejri(Date, 2)
Label4 = To_Hejri(Date, 3)
Me.Caption = To_Time(Date)
If Month(Label1) = "1" Or Month(Label1) = "2" Or Month(Label1) = "3" Then Image1.Picture = LoadPicture(App.Path & "\Spring.jpg")
If Month(Label1) = "4" Or Month(Label1) = "5" Or Month(Label1) = "6" Then Image1.Picture = LoadPicture(App.Path & "\Summer.jpg")
If Month(Label1) = "7" Or Month(Label1) = "8" Or Month(Label1) = "9" Then Image1.Picture = LoadPicture(App.Path & "\Autumn.jpg")
If Month(Label1) = "10" Or Month(Label1) = "11" Or Month(Label1) = "12" Then Image1.Picture = LoadPicture(App.Path & "\Winter.jpg")
label:
If Err.Number = 13 And Month(Date) = "5" Then
Image1.Picture = LoadPicture(App.Path & "\Spring.jpg")
Else
Image1.Picture = LoadPicture(App.Path & "\Summer.jpg")
End If
End Sub

[look20]

سلام رفیق خوبم متاسفانه جواب نمیده

[ali682344]

سلام رفیق خوبم متاسفانه جواب نمیده

همون مشگل قبلي رو داره؟
با اين كدي كه فرستادم باز ارور مي ده؟

[look20]

همون مشگل قبلي رو داره؟
با اين كدي كه فرستادم باز ارور مي ده؟

آره با این کد جدید ارور نمیده ولی مشکل رو حل نمیکنه

[ali682344]

آره با این کد جدید ارور نمیده ولی مشکل رو حل نمیکنه

اين كدو بزار
Private Sub Form_Load()
On Error GoTo label
Label1 = To_Hejri(Date, 0)
Label2 = To_Hejri(Date, 1)
Label3 = To_Hejri(Date, 2)
Label4 = To_Hejri(Date, 3)
Me.Caption = To_Time(Date)
If Month(Label1) = "1" Or Month(Label1) = "2" Or Month(Label1) = "3" Then Image1.Picture = LoadPicture(App.Path & "\Spring.jpg")
If Month(Label1) = "4" Or Month(Label1) = "5" Or Month(Label1) = "6" Then Image1.Picture = LoadPicture(App.Path & "\Summer.jpg")
If Month(Label1) = "7" Or Month(Label1) = "8" Or Month(Label1) = "9" Then Image1.Picture = LoadPicture(App.Path & "\Autumn.jpg")
If Month(Label1) = "10" Or Month(Label1) = "11" Or Month(Label1) = "12" Then Image1.Picture = LoadPicture(App.Path & "\Winter.jpg")
label:
If Err.Number = 13 And Month(Date) = "5" Then
Image1.Picture = LoadPicture(App.Path & "\Spring.jpg")
ElseIf Err.Number = 13 Then
Image1.Picture = LoadPicture(App.Path & "\Summer.jpg")
End If
End Sub

[look20]

با سلام دوباره تو تا فایل براتون میزارم البته اولی رو دوستم ali682344 انجام داده و دومی رو هم با کمک کدی ali682344 که ارائه کرد خودم ساختم
اولی مربوط به تغییر عکس با تغییر فصل
دومی مربوط به تغییر عکس با تغییر ماه البته ماههای شمسی