مشکل اضافه کردن عدد هنگام کلیک

[imantrojan 10]

سلام

مشکل من= من 1 button ساختم میخوام وقتی روی button کلیک کردم به text من یک عدد اضافه شه

خب من Label1.Text="0"

و برای button نیز تعریف کردم که 1 عدد به Label1 اضافه کنه

اما وقتی button میزنم اینجوری اضافه میشه

1.0

!

بار دیگه میزنم

2.0

چجوری 0. ببرم!؟*تعجب*

[ارمین رمضانی دلیجانی 381]

سلام تو کلیک باتن این رو بنویس

label1.text = "0"

[imantrojan 10]

1

این کد گزاشته بودم!

2 در باتون هم گزاشتم ولی وقتی اضافه میزنم

باز جواب اینجوری نشان میده

1.0

[Farzad Musavi 576]

سلام

مشکل من= من 1 button ساختم میخوام وقتی روی button کلیک کردم به text من یک عدد اضافه شه

خب من Label1.Text="0"

و برای button نیز تعریف کردم که 1 عدد به Label1 اضافه کنه

اما وقتی button میزنم اینجوری اضافه میشه

1.0

!

بار دیگه میزنم

2.0

چجوری 0. ببرم!؟*تعجب*

با replace حذفشون کن

[ارمین رمضانی دلیجانی 381]

فرزدا احتیاج به replace نیست !! شما با b4a برنامه مینویسین؟ من الان نوشتم مشکلی نداره این کل کد

#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.

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.

   Private Button1 As Button
   Private Label1 As Label
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("main")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
   Label1.Text = "1"
End Sub

[imantrojan 10]

خب حرف شما درست در کد شما button زدیم شد 1

اما دوباره button زدیم که 1 اضافه شد باز 1 نیشان میده

adad1=Label1.Text

"adad2 = "1"

javab=adad1 + adad2

Label1.Text=javab

من این کد نوشتم بازم مشکل قبلی

[ارمین رمضانی دلیجانی 381]

شما میخای هربار کلیک کردی اون 1 یکی بهش اضافه شه؟

[imantrojan 10]

بله جناب رمضانی

[Farzad Musavi 576]

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

  Label1.Text.Replace(".0","")

[imantrojan 10]

خیر بازم مشکل قبلی 1.0

2.0

3.0

4.0

....

[nicetitle 18]

این ک کاری نداره...

کافیه عددتو بعنوان اینتیجر معرفی کنی...

[imantrojan 10]

میشه در موردش توصیح دهید؟

[ارمین رمضانی دلیجانی 381]

شما این کد رو بزار زیر اون کد label.text

Label1.Text = Label1.Text.Replace(".0" ,"")

[Farzad Musavi 576]

آرمین جای .0 رو برعکس نوشتی بیا واست نوشتم

یه ساب به اسم خودتم توش ساختم:دی

http://www.uplooder.net/cgi-bin/dl.cgi?key=761a9cbb32bafa18a36d82297e236aa3

[ارمین رمضانی دلیجانی 381]

یعنی طرف این هم نمیتونه اینور اونور کنه ؟ اینا رمز کار هستن که یه دات رو حداقل جابجا کنن

[Farzad Musavi 576]

یعنی طرف این هم نمیتونه اینور اونور کنه ؟ اینا رمز کار هستن که یه دات رو حداقل جابجا کنن

هرکار کردم نتونستم اسپم ندم الان*خنده**خنده**خنده**خنده**خنده* *خنده**خنده**خنده**خنده**خنده**خنده**خنده**خنده**خنده**خنده*

[imantrojan 10]

مشکل حل شد!

خیلی هم مچکرم از همه ی شما به خصوص farzad879

با تشکر *خنده**خنده*

[رضا جابرپور 179]

Sub Globals
Dim i As Int=0
Private label1 As Label
Private Button1 As Button
End Sub

(Sub Activity_Create(FirstTime As Boolean
( " Activity.LoadLayout(" form1

End Sub

Sub Button1_Click
i = i
tm
End Sub

Sub tm
label1.Text = i
i = i+1
End Sub

[dostmobile 329]

تو ویژال بیسیک یه خاصیتی داره بنام MawXenght اگه تو بیسیک اندروید هم هست اونو بزار یک

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