مشکل با تایمر

[cloner01001 38]

سلام من یه صفحه دارم با یه باتن ، میخوام یه تایمر تعریف کنم (تایمر 4 ثانیه هست ومیخوام از 4 بیاد تا 0 یعنی برعکس بیاد) و بگم اگه تا 4 ثانیه (4 تاوقتی بشه 0)رو باتن کلیک نشد یه مسیج باکس نشون بده و اگه رو باتن کلیک شد تایمر دوباره بشه 4 ( مثلن اگه تایمراز 4 شده بود 2 ولی رو باتن کلیک کرد دوباره بشه 4 وبه صورت خودکار بازم بیاد به سمت صفر)...

لطفن کمکم کنید

 

من میخوام صفحه که باز شد مقدار تایمر از 4 بیاد به سمت صفر و اگه تو این 4 ثانیه رو باتن کلیک نشد یه مسیج باکس نشون بده

و اگه رو باتن کلیک شد مقدار تایمر دوباره بشه 4 و بیاد به سمت صفر و اگه بازم رو باتن کلیک شد یا نشد چرخه فوق تکرار شه(کلیک نشد=مسیج باکس نشون بده،کلیک شد=تایمر دوباره بشه 4)

[cloner01001 38]

+ با کمی تغییر تو کد شما مشکلم حل شد

خیلی ممنون

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim tmr As Timer
tmr.Initialize("timer1",1000)
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim but As Button
Dim ed As EditText 


End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l1")
tmr.Enabled = True
	ed.Text = 4
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub but_click
	
	ed.Text = 4
	tmr.Enabled = True
End Sub

Sub timer1_tick
	ed.text = ed.Text-1
	If ed.Text ="0.0" Then
		Msgbox("msg","title")
		tmr.Enabled = False
	End If
	
End Sub

[dr.mohammad 68]

#Region Project Attributes

#ApplicationLabel: B4A Example

#VersionCode: 1

#VersionName:

'SupportedOrientations possible values: unspecified, landscape or portrait.

#SupportedOrientations: unspecified

#CanInstallToExternalStorage: False

#End Region

#Region Activity Attributes

#FullScreen: False

#IncludeTitle: True

#End Region

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

Dim tmr As Timer

tmr.Initialize("timer1",1000)

End Sub

Sub Globals

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

Dim but As Button

Dim ed As EditText = 4

End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Activity.LoadLayout("l1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub but_click

tmr.Enabled = True

End Sub

Sub timer1_tick

ed.text = ed.Text-1

If ed.Text = 0 Then

Msgbox("msg","title")

tmr.Enabled = False

End If

End Sub

[cloner01001 38]

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim tmr As Timer
tmr.Initialize("timer1",1000)
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim but As Button
Dim ed As EditText = 4
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub but_click
	
	tmr.Enabled = True
End Sub

Sub timer1_tick
	ed.text = ed.Text-1
	If ed.Text = 0 Then
		Msgbox("msg","title")
		tmr.Enabled = False
	End If
	
End Sub

 

 

 

ممنون ولی ارور داد

B4A version: 5.80
Parsing code.    (0.00s)
Compiling code.    (0.14s)
	
ObfuscatorMap.txt file created in Objects folder.
Compiling layouts code.    (0.00s)
Generating R file.    (0.11s)
Compiling generated Java code.    Error
B4A line: 26
Dim ed As EditText = 4
javac 1.6.0_04
src\b4a\example\main.java:351: inconvertible types
found   : int
required: android.widget.EditText
mostCurrent._ed.setObject((android.widget.EditText)(4));
                                                   ^
1 error

[cloner01001 38]

من میخوام صفحه که باز شد مقدار تایمر از 4 بیاد به سمت صفر و اگه تو این 4 ثانیه رو باتن کلیک نشد یه مسیج باکس نشون بده

و اگه رو باتن کلیک شد مقدار تایمر دوباره بشه 4 و بیاد به سمت صفر و اگه بازم رو باتن کلیک شد یا نشد چرخه فوق تکرار شه(کلیک نشد=مسیج باکس نشون بده،کلیک شد=تایمر دوباره بشه 4)

[dr.mohammad 68]

اینجوری تاییرش بده ببین چی میشه کارت راه افتاد پسندیدم یادت نره

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim tmr As Timer
tmr.Initialize("timer1",1000)
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim but As Button
Dim ed As EditText 


End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub but_click
	
	tmr.Enabled = True
	ed.Text = 4
End Sub

Sub timer1_tick
	ed.text = ed.Text-1
	If ed.Text = 0 Then
		Msgbox("msg","title")
		tmr.Enabled = False
	End If
	
End Sub

[cloner01001 38]

 

اینجوری تاییرش بده ببین چی میشه کارت راه افتاد پسندیدم یادت نره

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim tmr As Timer
tmr.Initialize("timer1",1000)
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim but As Button
Dim ed As EditText 


End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("l1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub but_click
	
	tmr.Enabled = True
	ed.Text = 4
End Sub

Sub timer1_tick
	ed.text = ed.Text-1
	If ed.Text = 0 Then
		Msgbox("msg","title")
		tmr.Enabled = False
	End If
	
End Sub

 

 

شما فک کنم منظورم رو اشتباه متوجه شدید

من میخوام وقتی صفحه اکتیوتی بالا اومد تایمر شروع بکار کنه و 4 ثانیه(از4 تا صفر) به کاربر وقت بده ک رو باتن کلیک کنه و اگه نکرد مسیج باکس نشون بده و اگه کرد تایمر دوباره بشه 4 و چرخه فوق تکرار شه

_مشکل کد شما اینه تایمر از صفر پایین تر میره منفی هم میشه ولی مسیج باکس نشون نمیده

 

+خیلی ممنون ک جواب میدین