فهمیدن تغییر ساعت

[Mohya_z332]

با سلام
میخواستم بدونم چه طوری میشه یه شرطی بزارم که اگه مثلا ساعت 11:59 شب شد برنامه به صورت خودکار بسته شه ؟ ممنون ...
این دفه تو تاپیک ها گشتم اما تاپیک با این موضوع پیدا نکردم اگه سوالم تکراری بود به بزرگواری خودتون ببخشید .

[scarce]

با سلام
میخواستم بدونم چه طوری میشه یه شرطی بزارم که اگه مثلا ساعت 11:59 شب شد برنامه به صورت خودکار بسته شه ؟ ممنون ...
این دفه تو تاپیک ها گشتم اما تاپیک با این موضوع پیدا نکردم اگه سوالم تکراری بود به بزرگواری خودتون ببخشید .
به این کد نگاه کنید.


If Time$ = "11:59:59" then End

[مهران رسا]

البته توجه داشته باشید که کد بالار رو در رویداد Timer مربوط به شی Timer باید بنویسید ...



Private Sub Timer1_Timer()

[Mohya_z332]

خیلی ممنون ولی جواب نداد اگه بشه با دستور بالا هم تو ساعت 11:59 صبح و هم شب این اتفاق می افته .

[hrj1981]

خوب شما مي توني از دستور TIME بدون $ استفاده كني و يا با دستور FORMAT نحوه نمايش زمان را بصورت PM ويا Am نمايش دهي.

[.:KeihanCPU:.]

if text1.text=11:59 PM=Time Then End

[majjjj]

اتفاقا به خاطر تنظیم های مختلف ویندوز ها این کار منطقی نیست مثلا روی سیستم خود من ساعت بصورت ق.ظ یا ب.ظ تنظیمه که با این کد جواب نمیده
پس اینجوری عمل کنید تا روی همه سیستمها جواب بده
از مسیر زیر تو رجیستری
HKEY_CURRENT_USER\Control Panel\International\sTimeFormat
تنظیم بودن زمان بصورت 12 ساعته یا 24 ساعته رو مشخص کنید
و از کلید HKEY_CURRENT_USER\Control Panel\International\s1159
و از کلید HKEY_CURRENT_USER\Control Panel\International\s2359
تنظیمات مربوط به زمان رو مشخص کنید حالا دیگه میتونید بقیه برنامتون رو کامل کنیدو روی همه سیستمها جواب بگیرید

[sjhosseini]

if format(text1.text,"HH:MM:SS")=format("11:59:59","HH:MM:SS") Then End

[scarce]

if format(text1.text,"HH:MM:SS")=format("11:59:59","HH:MM:SS") Then End
در هر حالتی که باشه (PM یا AM) جواب میده ؟

[.:KeihanCPU:.]

در هر حالتی که باشه (PM یا AM) جواب میده ؟

من پیشنهاد میدم یه کلاس واسش بنویسید
من قبلا یکی نوشته بودم که زمان ره به چند صورت نشون میداد
ولی الان واسه سیستم مشکلی پیش اومده که نمیشه
البته یه جستجو هم بکن شاید چیزی دستگیرت شد
به هر حال من سیستمم درست شه میذارم اینجا

[scarce]

من پیشنهاد میدم یه کلاس واسش بنویسید
من قبلا یکی نوشته بودم که زمان ره به چند صورت نشون میداد
ولی الان واسه سیستم مشکلی پیش اومده که نمیشه
البته یه جستجو هم بکن شاید چیزی دستگیرت شد
به هر حال من سیستمم درست شه میذارم اینجا
پس منتظرم . راستی در مورد کلاس یک توضیح کوتاهی بدین

[.:KeihanCPU:.]

راستی در مورد کلاس یک توضیح کوتاهی بدین

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

[Mohya_z332]

با تشکر از همتون
این جوری جواب داد هیچ فرقی هم نمیکنه به صورت ب.ظ باشه یا عصر یا PM
Private Sub Timer3_Timer()
If Format(Text2.Text, "HH:MM") = Format(Time, "HH:MM") Then End
End Sub
text2.text = 11:59 PM
interval timer2 = 5000
باز هم از همتون ممنون کمک شما نبود درست نمیشد .

[shahram_g]

دوست عزيزم بهترين روش استفاده از تابع Timer است.
اين تابع ميزان زمان سپري شده از لحظه 0 بامداد تا كنون را به ثانيه بر مي گرداند.
حال براي رسيدن به خواسته مورد نظر شما كافيست بنويسيد:


If Timer >= 86399 Then End