معذرت می خوام یه مشکلی تو نوشتن برنامه جدیدم داشتم که ارورSyntax Error میده
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim p As Float
Dim q As Float
Dim m As Float
Dim f As Float
Dim r As Float
Private btn1 As Button
Private ed1 As EditText
Private ed2 As EditText
Private ed3 As EditText
Private ed4 As EditText
Private ed5 As EditText
Private img1 As ImageView
Private pnl As Panel
Private lbl1 As Label
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("get")
img1.SetLayout(10%x,5%y,90%x,30%y)
pnl.SetLayout(0,0,100%x,100%y)
ed1.SetLayout(5%x,50%y,40%x,5%y)
ed2.SetLayout(5%x,63%y,40%x,5%y)
ed3.SetLayout(5%x,70%y,40%x,5%y)
ed4.SetLayout(5%x,77%y,40%x,5%y)
lbl1.SetLayout(50%x,50%y,45%x,45%y)
btn1.SetLayout(5%x,80%y,47%x,15%y)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btn1_Click
End Sub
Sub ed4_TextChanged (Old As String, New As String)
r=ed4.Text
End Sub
Sub ed3_TextChanged (Old As String, New As String)
f=ed3.Text
End Sub
Sub ed2_TextChanged (Old As String, New As String)
q=ed2.Text
End Sub
Sub ed1_TextChanged (Old As String, New As String)
p=ed1.Text
End Sub
Sub ed5_TextChanged (Old As String, New As String)
m=ed1.Text
End Sub
Sub know
If p<>Null AND q<>Null Then
Dim kanoon As Float
kanoon=(q*p)/(q+p)
lbl1.Text=" کانون آینه: "&kanoon&" شعاع آینه: "&kanoon*2&" بزرگنمایی آینه " &q/p
Else If p<>Null AND f<>Null Then
End If
End Sub
امیدوارم که از روی خود کد متوجه شده باشین ولی اگه متوجه نشدین
دارم برنامه ای رو برای فیزیک طراحی می کنم که تو این 5 تکست ویو اعدادی رو میگیره(تنها 2 عدد کافیه)که شامل کانون و فاصله جسم از آینه و ... است و ممکنه اعشاری باشه
سوال
mverkiani 12
سلام خدمت اساتید و اعضای محترم انجمن بیسیک
معذرت می خوام یه مشکلی تو نوشتن برنامه جدیدم داشتم که ارورSyntax Error میده
Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim p As Float Dim q As Float Dim m As Float Dim f As Float Dim r As Float Private btn1 As Button Private ed1 As EditText Private ed2 As EditText Private ed3 As EditText Private ed4 As EditText Private ed5 As EditText Private img1 As ImageView Private pnl As Panel Private lbl1 As Label 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("get") img1.SetLayout(10%x,5%y,90%x,30%y) pnl.SetLayout(0,0,100%x,100%y) ed1.SetLayout(5%x,50%y,40%x,5%y) ed2.SetLayout(5%x,63%y,40%x,5%y) ed3.SetLayout(5%x,70%y,40%x,5%y) ed4.SetLayout(5%x,77%y,40%x,5%y) lbl1.SetLayout(50%x,50%y,45%x,45%y) btn1.SetLayout(5%x,80%y,47%x,15%y) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub btn1_Click End Sub Sub ed4_TextChanged (Old As String, New As String) r=ed4.Text End Sub Sub ed3_TextChanged (Old As String, New As String) f=ed3.Text End Sub Sub ed2_TextChanged (Old As String, New As String) q=ed2.Text End Sub Sub ed1_TextChanged (Old As String, New As String) p=ed1.Text End Sub Sub ed5_TextChanged (Old As String, New As String) m=ed1.Text End Sub Sub know If p<>Null AND q<>Null Then Dim kanoon As Float kanoon=(q*p)/(q+p) lbl1.Text=" کانون آینه: "&kanoon&" شعاع آینه: "&kanoon*2&" بزرگنمایی آینه " &q/p Else If p<>Null AND f<>Null Then End If End Subامیدوارم که از روی خود کد متوجه شده باشین ولی اگه متوجه نشدین
دارم برنامه ای رو برای فیزیک طراحی می کنم که تو این 5 تکست ویو اعدادی رو میگیره(تنها 2 عدد کافیه)که شامل کانون و فاصله جسم از آینه و ... است و ممکنه اعشاری باشه
و سپس بعد از محاسباتی اعداد دیگر رو تحویل میده.
حالا نمی دونم کجاش رو اشتباه کردم اگه میشه راهنمایی کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.