بسته شدن خودکار نرم افزار

[kingdaniyal]

سلام دوستان
من میخوام یه کاری کنم که وقتی تو تکست باکس نوشتم 60 بعد از 60 دقیقه نرم افزار بسته بشه
چجوری اینکارو بکنم؟:متفکر:

[rezaprogrammer]

تو رویداد TextChange یه شرط بذار.

if textbox1.text = "60" then
application.close
end if

[s.hoseinpoor]

یه تایمر بذار. روی رویداد change تکست باکس بنویس:
timer.Enabled=true;
بهتره زمان برحسب دقیقه رو به 60ضرب کنی تا ثانیه بشه یام اینتروال تایمرت رو 60000 بذاری
حالا تورویداد تیک تایمرت بنویس که با هر بار تیک یه واحد کم کن وقتی صفر شد برنامه بسته بشه

[shahryari]

میتوانید از Thread.Sleep استفاده کنید
ابتدا :


Imports System.Threading

سپس در رویداد باتن کلیک یا تکست چنج تکست باکس کد زیر را بنویسید


Thread.Sleep(Val(TextBox1.text) * 1000)
End


بدون نیاز به تایمر

[kingdaniyal]

نشد من این کد دومو تو باتن گذاشتم اما وقتی روی دکمه کلیک میکنم برنامه هنگ میکنه

[SHD.NET]

بله . چون از thread اسلیپ استفاده شده . به نظر من بهترین راه همون تایمر هستش

:چشمک:\\\موفق باشید///:چشمک:

[tstsst]

سلام

با ترید و بدون هنگ یا قفل شدن فرم
اول اینو تو کلید یا هرچی میخوای بنویس

Dim tr As New Threading.Thread(AddressOf sleep)
tr.Start()

بعد..

Sub sleep()
Threading.Thread.Sleep(6000)
End
End Sub


هر جا بنویسی برنامه بعد 60 ثانیه بسته میشه
tr.Start()

[Ali_Fallah]

با سلام
میشه کدی نوشت که
در صورت حرکت نکردن موس بعد از مدت زمانیکه تعیین می کنیم (دقیقاً عین اسکرین سیور ویندوز)
فرم login باز بشه یا برنامه Close بشه یا هر کار دیگر... ؟
------
فقط حرکت نکردن موس
با تشکر

[tstsst]

با اینکه جاش اینجا نیست
برای مثال


Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
i = 0
End Sub
Dim i As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
i += 1
If i = 10 Then
End
End If
End Sub

[rezaprogrammer]

تو رویداد TextChange یه شرط بذار.

if textbox1.text = "60" then
application.close
end if

از تایمر استفاده کن: 97456
اول در رویداد لود فرم این کد رو بذار:
Timer1.Interval = 60000
Timer1.Enabled = False

یه تایمر بذار برای اینکه بتونی تو زمان مشخص برنامه بسته بشه و تو رویداد TextChange جعبه متن تایمر رو شروع کن به استارت کردن اینطوری:
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = "60" Then
Timer1.Enabled = True
End If
End Sub

اینم مربوط به رویداد تایمر:
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Application.Exit()
End Sub

[kingdaniyal]

سلام

با ترید و بدون هنگ یا قفل شدن فرم
اول اینو تو کلید یا هرچی میخوای بنویس

Dim tr As New Threading.Thread(AddressOf sleep)
tr.Start()

بعد..

Sub sleep()
Threading.Thread.Sleep(6000)
End
End Sub


هر جا بنویسی برنامه بعد 60 ثانیه بسته میشه
tr.Start()
دوست عزیز من کدو به شکلی که نیاز دارم تغییر دادم
اما درست کار نمیکنه

Sub sleep()
Threading.Thread.Sleep((TextBox1.Text) * 1000)
End
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tr As New Threading.Thread(AddressOf sleep)
tr.Start()
Button1.Enabled = False
End Sub

[tstsst]

دقیقا همین کد (تغییر یافته) شما رو من امتحان کردم درست جواب داد.
مشکلی در فرم کلوزین (FormClosing) ندارید ؟!
اگه نه بر نامه رو خط به خط اجرا کن ببین مشکل کجاست.

[kingdaniyal]

ببینید یه نکته هم بگم این کدو من تو یه فرم دیگه قرار دادم.مشکلی که نداره؟
ببینید من وقتی تو تکست باکس مینویسم 1 (یعنی 1 دقیقه) فرم پس از چند ثانیه بسته میشه.این مشکل منه.یعنی پس از 1 دقیقه نرم افزار بسته نمیشه

[tstsst]

کد داخل ترید رو تغییر بده (این قسمت رو)
Threading.Thread.Sleep((TextBox1.Text) * 60000)
هر 1000 تا 1 ثانیه س

[kingdaniyal]

درست شد ممنون