کمک در تعداد لمس

[abbas2142 557]

با سلام

من می خواستم وقتی تعداد عددی ( تعداد لمس ) که توی label یا خود button نمایش داده می شه به عدد خاصی که برسه دیگه بالاتر نره و همون عدد بمونه ؟؟؟؟؟؟

بعدش هم می خوام وقتی به اون عدد رسید یه ویبره ای یا زنگی چیزی بزنه ؟؟؟؟؟؟؟

می شه تعداد عدد رو توی نوار ابزار یا نوتیفیکیشن ( گوشه بالا ) دید ؟؟؟؟؟؟

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

می شه وقتی برنامه بالا میاد خود به خود یه آهنگی پخش کنه ؟؟؟؟؟؟

ممنون

[abbas2142 557]

این کدها رو تو باتونت قرار بده:

n=n+1
button1.Text=n
If n=10 Then
button1.Enabled=False
Dim v As PhoneVibrate
v.Vibrate(1000)
End If

یک واحد به n اضافه میکنه.

n رو داخل باتون نشون میده.

اگه به 10 رسید باتون رو غیر فعال میکنه.

به مدت 1ثانیه ویبره میزنه. + کتابخانه phone هم تیک بزن.

دادا ممنون که جواب دادی ، این کدی که دادی کار کرد و تا ده که رسید باتون غیرفعال شد ،،،، ولی من می خوام که نوشته داخلش صفر بشه و از صفر شروع بشه

خیلی فکر کردم روش یه کدی هم به ذهنم رسید ولی کار نکرد

If Label1.Text="10" Then 
  Label1.Text="0"    
End If  

If label1.text = "0" then
label1.text = "a
End If

که a از نوع

Dim a As Int

و بهش گفته بودم که

a = a+1

[پژمان نیکروان 6,055]

دوتا خط دیگه به کد اضافه کردم واسه 0 شدن:

n=n+1
button1.Text=n
If n=10 Then

n=0
button1.Text=0

button1.Enabled=False
Dim v As PhoneVibrate
v.Vibrate(1000)
End If  

[مهدی ایزدی 9,203]

ادرود

چند تا سوال رو توی یک تاپیک مطرح میکنید؟ *fekr*

سوال اول: با یک دستور شرطی ساده میتونید این عمل رو متوقف کنید

سوال دوم و سوم: میشه همزمان نوتیفیکشن نشون بده و ویبره هم بزنه

سوال چهارم: بله . میتونید از MediaPlayer استفاده کنید. توی انجمن بارها در موردش بحث شده و سورس کد و کد موجوده

[abbas2142 557]

من تازه کارم اگه لطف کنید کدهاشونو بهم بدی ممنون میشم

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

سلام

ما روی تازه کارها هنوز حساس تریم.چرا؟ چون که شما چند مبحثو مطرح کردید که نیازه هر کدومو برید دنبالشو یادش بگیرید.

توی انجمن بگردید ضرر نمیکنید و چیزای بهتری هم یاد می گیرید.

[مهدی ایزدی 9,203]

اگه بنده تمام کدهاشو در اختیارتون قرار بدم که بازم هیچی یاد نمیگیرید *fekr*

تمام کدهایی که میخواهید تحت عناوین خودشون توی انجمن چندین بار تکرار شده و آموزش داده شده

جست و جو کنید

[abbas2142 557]

تشکر ممنون

[abbas2142 557]

آقا من کد ویبره براش گذاشتم ولی هر کار میکنم مقدار رو صفر نمیکنه مثلا میخام وقتی رسید به 10 اون لیبل صفر بشه یا همون 10 بمونه و جلوتر نره

If Label1.Text="10" Then 
  Label1.Text="0"    
End If

این کد رو زدم ولی عمل نمیکنه و به 9 که میرسه صفر میشه ولی دوباره از 11 شروع میشه

[kamysanj 34]

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

[پژمان نیکروان 6,055]

این کدها رو تو باتونت قرار بده:

n=n+1
button1.Text=n
If n=10 Then
button1.Enabled=False
Dim v As PhoneVibrate
v.Vibrate(1000)
End If

یک واحد به n اضافه میکنه.

n رو داخل باتون نشون میده.

اگه به 10 رسید باتون رو غیر فعال میکنه.

به مدت 1ثانیه ویبره میزنه. + کتابخانه phone هم تیک بزن.