ببینید من یه چیزی شبیه صلوات شمار درست کردم که این کداشه .
Sub Globals
Dim Int1 As Int
Int1 = 0
Private Button1 As Button
Private Button2 As Button
Private Label1 As Label
Dim Salavat As Int
Private Label2 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("roozshomar")
Label1.Text="0"
If File.Exists(File.DirInternal,"1.txt") = False Then
File.Copy(File.DirAssets,"1.txt",File.DirInternal,"1.txt")
End If
Salavat = File.ReadString(File.DirInternal,"1.txt")
Label1.Text= Salavat
Int1 = Salavat
End Sub
Sub Button2_Click
File.WriteString(File.DirInternal,"1.txt",Label1.Text)
StartActivity(fehrest)
Activity.Finish
End Sub
Sub Button1_Click
Int1=0
Label1.Text=Int1
End Sub
Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
If Action<>0 Then Return
Int1=Int1+1
Label1.Text=Int1
If Int1>40 Then
Int1=0
Label1.Text=Int1
End If
End Sub
این شمارشگر جوریه که وقتی روی پنل تاچ میشه عدد میشمره و وقتی که روی دکمه شروعش میزنم دوباره شمارش رو از صفر شروع میکنه و وقتی که روی دکمه ذخیرش میزنم آخرین عدد رو ذخیره میکنه که وقتی از نرم افزار خارج شدم و دوباره بازش کردم آخرین عدد شمرده شده رو نشون بده و از همونجا شروع به ادامه شمردن کنه .
حالا این هیچ مشکلی نداره . اما وقتی دیباگ میکنم به این خطش ارور میده :
سوال
mahfelsoft 130
بچه ها میشه یه راهنمایی بدید ؟
ببینید من یه چیزی شبیه صلوات شمار درست کردم که این کداشه .
Sub Globals Dim Int1 As Int Int1 = 0 Private Button1 As Button Private Button2 As Button Private Label1 As Label Dim Salavat As Int Private Label2 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("roozshomar") Label1.Text="0" If File.Exists(File.DirInternal,"1.txt") = False Then File.Copy(File.DirAssets,"1.txt",File.DirInternal,"1.txt") End If Salavat = File.ReadString(File.DirInternal,"1.txt") Label1.Text= Salavat Int1 = Salavat End Sub Sub Button2_Click File.WriteString(File.DirInternal,"1.txt",Label1.Text) StartActivity(fehrest) Activity.Finish End Sub Sub Button1_Click Int1=0 Label1.Text=Int1 End Sub Sub Panel1_Touch (Action As Int, X As Float, Y As Float) If Action<>0 Then Return Int1=Int1+1 Label1.Text=Int1 If Int1>40 Then Int1=0 Label1.Text=Int1 End If End Subاین شمارشگر جوریه که وقتی روی پنل تاچ میشه عدد میشمره و وقتی که روی دکمه شروعش میزنم دوباره شمارش رو از صفر شروع میکنه و وقتی که روی دکمه ذخیرش میزنم آخرین عدد رو ذخیره میکنه که وقتی از نرم افزار خارج شدم و دوباره بازش کردم آخرین عدد شمرده شده رو نشون بده و از همونجا شروع به ادامه شمردن کنه .
حالا این هیچ مشکلی نداره . اما وقتی دیباگ میکنم به این خطش ارور میده :
ارور invalid double
میشه خواهش کنم کمک کنید مشکلم حل شه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.