تبليغاتX
آموزش ويژوال بيسيك و برنامه های موبایل
پاسخ به سوالات ( تاريخ هجري قمري – آقا بهزاد و قضيه Interval كنترل Timer - جناب همراه )

با سلام

 

سوال آقا بهزاد

 

چطور میشه تاریخ هجری قمری ساخت؟یه سورس بزار.

 

پاسخ » اگر درست متوجه شده باشم منظور آقا بهزاد برنامه اي براي تبديل تاريخ هجري شمسي به هجري قمري است . سورس كد اين برنامه را براي آقا بهزاد آماده كرده ام كه اميدوارم بتواند به ايشان كمك كند .

 

سورس كد تبديل تاريخ شمسي به تاريخ قمري

 

 

سوال جناب همراه

 

آقا چطوری میشه Interval تایمر رو به بیست دقیقه، نیم ساعت یا یک ساعت تنظیم کرد؟ طوری که نیم ساعت بعد کامپیوتر خاموش بشه...
میخوام برنامه ای بنویسم که پس از مدت مشخصی که روی چند تا option نوشته شده میشه انتخاب کرد به طور خودکار تمام پنجره ها (مخصوصا مدیا پلیر!) بسته بشه و کامپیوتر خاموش بشه.....
البته اگه زمان خاموش شدن کامپیوتر توسط کاربر مشخص بشه که چه بهتر....

 

پاسخ » همانطور كه ميدانيد كنترل تايمر براي اجراي يك دستور در فاصله هاي زماني ثابت استفاده مي شود .

خاصيت Interval  تايمر اين بازه زماني را مشخص مي كند اين مقدار بر حسب ميلي ثانيه مي باشد و حداكثر مقداري كه ميتواند بپذيرد مقدار 65535 است يعني حداكثر حدود 65 ثانيه .

براي استفاده از تايمر در فاصله هاي زماني طولاني تر مي توانيم خاصيت Interval آن را برابر 60000  قرار دهيم كه معادل يك دقيقه است و يك متغير درون آن تعريف كرد تا تعداد تكرار كار تايمر را مشخص كند .

 

مثال » برنامه اي كه پس از نيم ساعت كامپيوتر را خاموش مي كند .

 

پروژه جديدي بسازيد و يك كنترل تايمر به فرم بيفزاييد . خاصيت Enabled تايمر را برابر با True قرار داده و خاصيت Hnterval  آن را برابر با  60000 قرار دهيد . حال در قسمت  General  متغير Inttime  را بصورت زير تعريف كنيد :

 

Dim IntTime As Integer

 

حال روي كنترل تايمر دابل كليك كنيد و در رويداد Timer آن دستورات زير را درج نماييد :

 

If inttime = 30 Then

Timer1.Enabled = False

Shell ("shutdown.exe -s -t 0")

Else

inttime = inttime + 1

End If

 

اميدوارم توانسته باشم به سوالات شما عزيزان پاسخ درستي داده باشم .

موفق باشيد.

 

/ نوشته شده در دوشنبه بیست و هشتم آبان 1386 و ساعت 7:40 در ارتباط با موضوع ویژوال بیسیک |