منفی در اعداد

[mostafa.kasiri 115]

سلام  من یک ماشین حساب درست کردم یک دکمه براش گذاشتم که اگر اون رو زد یکی کم شه ولی وقتی دکمه رو میزنه وقتی به صفر رسید یک بار دیگر زد منفی هم میره من چه کار کنم که منفی نره لطفا کد بگین بهتره

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

اونجایی که کم می کنی به این شکل عمل کن :

If i > 0 Then
 i = i - 1
End If

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

سلام

خب دوستم اعداد کوچکتر از صفر دیگه  منفی هستش.

میتونم دلیل اینکارتون رو بپرسم ؟

[mostafa.kasiri 115]

من نمی خوام در صلوات شمار منفی بره فقط میخوام مثبت یاشه

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

خب دلیلش چیه که کوچکتر ار صفر رو محاسبه کنید ؟

صلوات شمار اصولا از صفر شروع میشه و میره به بالا نه اینکه کم بشه!

در کل کار اصولی نیست که بخواییم متن رو بگیریم و پردازشش کنیم و - رو پاک کنیم.

[mostafa.kasiri 115]

مثلا یک بار یکی اشتباه دو بار بعدی رو میزنه تا یکی بش اضافه شه بعد میخواد یکی پاک کنه 

من نمی خوام منفی داشته باشه 

این کداش هست

#Region  Project Attributes
#End Region

#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: true
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Label1 As Label
Dim i As Int

End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L3")
Label1.Text = i
i = 0
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Button1_Click
i = i + 1
Label1.Text = i
End Sub
Sub Button2_Click
i = i - 1
Label1.Text = i
If i = 0 Then
Else
Return True
End If
End Sub
Sub Button3_Click
i = i - i
     Label1.Text = i
End Sub
Sub Button4_Click
StartActivity("main")
End Sub

من این کد ها رو بش دادم حالا چه کار کنم که منفی نداشته باشه

من منفی نمیخوام

[mostafa.kasiri 115]

مرسی مشکلم حل شد واقعا مرسی