Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private EditText1 As EditText
Private Label1 As Label
Private Label2 As Label
Dim a As String
Dim time As Timer
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("ma")
time.Enabled = True
time.Initialize("time",500)
If File.Exists(File.DirInternal,"text.txt") = False Then
File.Copy(File.DirAssets,"text.txt",File.DirInternal,"text.txt")
End If
a = File.ReadString(File.DirInternal,"text.txt")
Label1.Text = a
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub time_Tick
File.WriteString(File.DirInternal,"text.txt",EditText1.Text)
Label2.Text = EditText1.Text
End Sub
وقتی برنامه رو اجرا میکنم یه ایرادی میگیرده در موبایل
سوال
alaghemand 82
مشکل این کد کجاست که ایذاد میگیرد ؟؟؟
وقتی برنامه رو اجرا میکنم یه ایرادی میگیرده در موبایل
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.