PDA

View Full Version : تغییر عکس با تغییر فصل ها



look20
پنج شنبه 05 فروردین 1389, 21:44 عصر
با سلام یه فایل اکسس ضمیمه میکنم که میتونه براساس فصل عکس رو تغییر بده
اگه ممکنه اینو به ویژوال تبدیل کنید ممنون میشم

ali682344
جمعه 06 فروردین 1389, 01:00 صبح
با سلام

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

look20
جمعه 06 فروردین 1389, 11:39 صبح
با سلام

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

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

ali682344
جمعه 06 فروردین 1389, 12:48 عصر
تابع dayكه در برنامه استفاده شده مربوط به ماه است ،من بايد از طابع month استفاده مي كردم
ولي چون در اينجا از يك ماژول براي تبديل سال ميلادي به شمسي استفاده شده جاي month و day با هم عوض مي شوند
يعني ما 12 ما داريم كه هر سه ماه يكبار فصل عوض مي شود

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

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

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

look20
جمعه 06 فروردین 1389, 17:42 عصر
در ضمن اصلا براي تغيير فصل كاري به روز نداريم فقط ملاك ما عدد ماه است
اعداد 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
جمعه 06 فروردین 1389, 18:16 عصر
با سلام از On Error GoTo استفاده کردم ولی مشکل برطرف نمیشه
یعنی هر فصل یه تصویر رو نمیاره توی روزهای
31 اردیبهشت-31 تیر-31شهریور ارور میده از On Error GoTo استفاده میکنم فقط میشه برای 31 اردیبهشت مشکل رو برطرف کرد

look20
چهارشنبه 01 اردیبهشت 1389, 20:38 عصر
ببخشید کسی میتونه این مشکلو حل کنه

ali682344
پنج شنبه 02 اردیبهشت 1389, 09:45 صبح
با سلام از 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
پنج شنبه 02 اردیبهشت 1389, 10:25 صبح
سلام رفیق خوبم متاسفانه جواب نمیده

ali682344
پنج شنبه 02 اردیبهشت 1389, 10:48 صبح
سلام رفیق خوبم متاسفانه جواب نمیده

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

look20
پنج شنبه 02 اردیبهشت 1389, 11:52 صبح
همون مشگل قبلي رو داره؟
با اين كدي كه فرستادم باز ارور مي ده؟
آره با این کد جدید ارور نمیده ولی مشکل رو حل نمیکنه

ali682344
پنج شنبه 02 اردیبهشت 1389, 12: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")
ElseIf Err.Number = 13 Then
Image1.Picture = LoadPicture(App.Path & "\Summer.jpg")
End If
End Sub

look20
پنج شنبه 02 اردیبهشت 1389, 18:40 عصر
با سلام دوباره تو تا فایل براتون میزارم البته اولی رو دوستم ali682344 (http://barnamenevis.org/forum/member.php?u=16272) انجام داده و دومی رو هم با کمک کدی ali682344 (http://barnamenevis.org/forum/member.php?u=16272) که ارائه کرد خودم ساختم
اولی مربوط به تغییر عکس با تغییر فصل
دومی مربوط به تغییر عکس با تغییر ماه البته ماههای شمسی