اضافه شدن عدد

[mostafa.kasiri 115]

سلام من یک صلوات شمار درست کردم عدد edit text1 داخل لیبل بره

من سه تا دکمه درست کردم یکی بعدی 

یکی قبلی

و یکی صفر شدن

وقتی روی بعدی بزنه یکی اضافه میهشه

وقتی روی قبلی بزنه یکی کم میشه

وقتی روی صف ر میزنه عدد صفذ میشه

وقتی در ادیت تگس عدد نوشت بره تو لیبل

اما وقتی بعدی رو میزنم از 0 شروع میکنه 

من چه کدی بهش بدم که از آن عددی که از ادیت تگس رفته رو لیبل یکی بهش اضافه بشه؟

اینم کد هام

#Region  Project Attributes 
#ApplicationLabel: صلوات شمار
#VersionCode: 1
#VersionName: 
#SupportedOrientations: portrait
#End Region
#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: true
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private ImageView1 As ImageView
Dim Font As Typeface = Typeface.LoadFromAssets("2DAVAT.ttf")
Private Label2 As Label
Dim i As Int
Dim a As Int
Private Label1 As Label
Private Button1 As Button
Private Button2 As Button
Private Button3 As Button
Private EditText1 As EditText


End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L1")
ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))
Label1.Text = i
EditText1.Text = a
a = 0
i = 0
Label2.Typeface = Font
Button1.Typeface = Font
Button2.Typeface = Font
Button3.Typeface = Font

End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
i = i + 1
Label1.Text = i
If i = 20 Then
Msgbox("التماس دعا","خطا")
End If

End Sub
Sub Button2_Click
    If i > 0 Then
i = i - 1
Label1.Text = i
End If
End Sub
Sub Button3_Click
i = i - i
     Label1.Text = i
End Sub
Sub EditText1_TextChanged (Old As String, New As String)
Label1.Text = New
End Sub
Sub Label1_textchanged (old As String , New As String)
EditText1.Text = New
End Sub

[amirsafari 116]

 

سلام من یک صلوات شمار درست کردم عدد edit text1 داخل لیبل بره

من سه تا دکمه درست کردم یکی بعدی 

یکی قبلی

و یکی صفر شدن

وقتی روی بعدی بزنه یکی اضافه میهشه

وقتی روی قبلی بزنه یکی کم میشه

وقتی روی صف ر میزنه عدد صفذ میشه

وقتی در ادیت تگس عدد نوشت بره تو لیبل

اما وقتی بعدی رو میزنم از 0 شروع میکنه 

من چه کدی بهش بدم که از آن عددی که از ادیت تگس رفته رو لیبل یکی بهش اضافه بشه؟

اینم کد هام

#Region  Project Attributes 

#ApplicationLabel: صلوات شمار

#VersionCode: 1

#VersionName: 

#SupportedOrientations: portrait

#End Region

#Region  Activity Attributes 

#FullScreen: False

#IncludeTitle: true

#End Region

Sub Process_Globals

End Sub

Sub Globals

Private ImageView1 As ImageView

Dim Font As Typeface = Typeface.LoadFromAssets("2DAVAT.ttf")

Private Label2 As Label

Dim i As Int

Dim a As Int

Private Label1 As Label

Private Button1 As Button

Private Button2 As Button

Private Button3 As Button

Private EditText1 As EditText

 

 

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("L1")

ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"7.png"))

Label1.Text = i

EditText1.Text = a

a = 0

i = 0

Label2.Typeface = Font

Button1.Typeface = Font

Button2.Typeface = Font

Button3.Typeface = Font

 

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click

i = i + 1

Label1.Text = i

If i = 20 Then

Msgbox("التماس دعا","خطا")

End If

 

End Sub

Sub Button2_Click

    If i > 0 Then

i = i - 1

Label1.Text = i

End If

End Sub

Sub Button3_Click

i = i - i

     Label1.Text = i

End Sub

Sub EditText1_TextChanged (Old As String, New As String)

Label1.Text = New

End Sub

Sub Label1_textchanged (old As String , New As String)

EditText1.Text = New

End Sub

 

میشه کدت رو درست تو قالب کد بزاری؟

 

------------------------------------------

 

قرار دادم برادر

[امین پوراباذری 1,045]

آخه داداش این چه طرز سوال کردن هست معما طرح کردی کدهات هم که همین جا نوشتی .

[mostafa.kasiri 115]

اقا من میخوام عددی که در edittext داخل لیبل میره میخوام اون عدد + 1 بشه نه دوباره از صفر شروع کنه 

من چی کار کنم؟

[کاربر ناشناس 2,148]

یک متغیر از نوع String تعریف کن

بعد عدد رو برابر کن با String

برای مثال :

dim shayan as string

edittext.text = shayan

shayan = shayan +1

label1.text = shayan

[مجید آرتا 5,875]

http://answercenter.ir/topic/1315-%D8%B5%D9%84%D9%88%D8%A7%D8%AA-%D8%B4%D9%85%D8%A7%D8%B1-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%A8%D8%B3%DB%8C%D8%A7%D8%B1-%D8%B3%D8%A7%D8%AF%D9%87/

 

http://answercenter.ir/topic/1797-%D8%B5%D9%84%D9%88%D8%A7%D8%AA-%D8%B4%D9%85%D8%A7%D8%B1-%D8%A8%D8%A7-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%88-%D8%A8%D8%A7%D8%B2%DB%8C%D8%A7%D8%A8%DB%8C/

[mostafa.kasiri 115]

اقا ببخشیدا 

اینجوری شما متوجه نمیشید

کسی یک شماره واتساپ تلگرام اسکاپی بگه تا تو انجا بگم