حرکت متن به صورت تایپی

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

به نام خدا

توقسمت

  Sub Globals
dim mtn As String
dim count As Int
Dim timer1 as timer
Dim timer2 as timer
End Sub

در قسمت Activity_Create

  Label1.Text = ""
       count = 1
       mtn = "I love U  Plz Kiss Me:$ iranian Team Programmer  "
  timer1.Initialize("timer1",100)
     timer2.Initialize("timer2",10000)
  timer1.Enabled = True
     timer2.Enabled = True

درونه timer1_Tick

Sub timer1_Tick
           If Label1.Text.Length = mtn.Length Then
               timer1.Enabled = False
Else
         count = count + 1
     Label1.Text = mtn.Substring2(0, count)

End If
 End Sub
 Sub timer2_Tick

Label1.Text = ""
       count = 1
       mtn= "I love U  Plz Kiss Me:$ iranian Team Programmer  "

  timer1.Enabled = True

 End Sub

باتشکر

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

سلام و خسته نباشید به آرمین جان

یک راه ساده تری هم داره که از یک تایمر استفاده کنیم:

Sub Globals
Dim timer1 As Timer
Dim count As Int
Dim str As String
Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("a")
   str="In Matn Jehat Test mibashad"&CRLF&"Basic4Android.Org"
   timer1.Initialize("timer1",120)
   timer1.Enabled=True
End Sub

Sub timer1_Tick
If Label1.Text.Length=str.Length Then
Label1.Text=""
count=0
Else
Label1.Text=str.SubString2(0,count)
count=count+1
End If
End Sub

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

مجید آرتا جان خیلی ممنون اما اگه توجه کنی کدی که بنده گذاشتم 2 تا تکست رو به صورت تایپی مینویسه اما برای شما 1 متن رو

موفق باشی

[amardia 18]

دوستان من تو این زمین ی مشکلی دارم ، کدی که آقای آرتا گفت رو وارد کردم ، اما بعد از اینکه بصورت تایپی همه متن رو نوشت دوباره شروع میکنه ازاول نوشتن و هی تکرار میشه .

می خوام اگه میشه راهنماییم کنید اگه بخوام همون بار اول که متن بصورت تایپی نوشته شد دیگه دوباره پاک نشه و این پروسه تکرار نشه و متن بصورت ثابت باقی بمونه چه باید بکنم ؟؟

مرسی از لطفتون

[حاج حسین 2,098]

سلام

ببین تو این خط

count=count+1

+1 پاک ببین کارت را میفته هر چی هست زیر سر این count که به معنی شمارنده است

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

شما میتونید این کد رو :

Sub timer1_Tick
If Label1.Text.Length=str.Length Then
Label1.Text=""
count=0
Else
Label1.Text=str.SubString2(0,count)
count=count+1
End If
End Sub

به اینصورت بنویسید :

Sub timer1_Tick
If Label1.Text.Length=str.Length Then
timer1.Enabled = False
Else
Label1.Text=str.SubString2(0,count)
count=count+1
End If
End Sub

[amardia 18]

آقا مجید ، واقعاً ممنونم !

می تونم قاطعانه بگم ، این سایت بهترین سایت در زمینه ی آموزش اندرویده که مدیراش ، واقعاً با حوصله و در اسرع وقت به مشکلات کاربرا رسیدگی می کنن !

ممنونم از راهنمایی هاتون

[amardia 18]

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

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

اما بعد از گذاشتن برنامه تو بازار ، بازم بعضیا اومدن نظر دادن که آقا فونتش تو در تو و ناخوانا نشون داده میشه

اگه میشه راهنمایی کنید دوستان

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

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

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

اما بعد از گذاشتن برنامه تو بازار ، بازم بعضیا اومدن نظر دادن که آقا فونتش تو در تو و ناخوانا نشون داده میشه

اگه میشه راهنمایی کنید دوستان

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

سعی کنید از فونت های عمومی و پرکاربرد استفاده کنید و مطمئن باشید روی گوشی ها پشتیبانی میشوند *fekr*

[majid08 266]

سلام

میگم میشه به همین صورت چند متن رو تایپ کرد

مثلا 10 متن رو

[Radius 89]

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

 

میخواستم بدونم میشه سرعت تایپ کردن رو افزایش داد؟؟

[shahab.es 5,429]

سلام

بله ، زیر خاکی اوردید بالا

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

موفق باشید

[reza155 2]

خیلی سایته خوبیه واقعا