تایپ خودکار

[تک1 71]

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

ابتدا یک فایل تکست در پوشه پروژه قرار دهید و هر متنی که خواستید در آن بنویسید بعد آن را با نام test  ذخیره کنید البته این نام فایل منه نام فایل به دلخواه خودتان هست

بعد یک دیزاینر باز کنید و یک لیبل اضافه کنید و مختصات آن را تمام صفحه قرار دهید و این کد پایین را بنویسید برنامه را اجرا کرده و لذت ببرید

Sub Globals
	Private Label1 As Label
	Private a,a2 As Int
	Private timer1,timer2 As Timer 
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
	timer1.Initialize("timer1",80)
	timer1.Enabled=True
	timer2.Initialize("timer2",120)
	timer2.Enabled=True
End Sub

Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)
	timer1.Enabled=False
	timer2.Enabled=False
End Sub

 Sub Timer1_Tick
	Dim R As String 
	Label1.Text=File.ReadList(File.DirAssets ,"test.txt")
	R=Label1.text
 Try
	If Val (a) > Len(Label1) Then a = 1
	a = Val(a) + 1
	Label1.text = Mid (R, 1, Val(a))
	
	Catch
	End Try
	
End Sub

 Sub Timer2_Tick
 Try
	If Val (a2) > Len(Activity.Title) Then a2 = 1
	a2 = Val(a2) + 1
		Activity.Title = Mid (" HI MR EREL ", 1, Val(a2))
	Catch
	End Try
End Sub

Sub Mid(Text As String, Start As Int, Length As Int) As String
    If Text.Length > 0 Then
        If Start + Length <= Text.Length Then
            Return Text.SubString2(Start-1, Start + Length - 1)
        End If
	 End If
End Sub

Sub Len(Text As String) As Long
    Return Text.Length
End Sub

Sub Val(Text As String) As Int
Return Text
End Sub

موفق باشید