این ارور یعنی چی کجا مشکل دارم لطفا کمکم کنین

[sami0770 21]

سلام عیدتون مبارک

من دارم یه کتاب مینویسم و کم کم آخراشه و وقتی میخوام برنامه رو تست کنم این ارور میاد ابطه اولش ارور نمیده وقتی وارد صفحه پیام هاش مثلا میرم این ارور میاد

لطفا کمکم کنین که مشکل از کجاست

[ebham 232]

مشکل توی  قست علمی ارت هستش یه بار با دیباگر خروجی بگیر و ارور رو بگو تا دقیقتر ببینیم مشکل چیه 

[salar_blackdroid 408]

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

 

از کد میشه اشکال برنامه رو فهمید./

[محمد رشوند 1,208]

داخل ساب علمی آرت از یه کتابخانه بدرستی استفاده نکردی

ارور جاوا خط 443 مربوط به کلاس کد های جاوای داخل یک کتابخانه یا خود متغیر های برنامه است

تنها کاری که میتونی بکنی کد ساپ علمی آرت رو قرار بده تا بررسی بشه

[sami0770 21]

#Region Activity Attributes

#FullScreen: True

#IncludeTitle: False

#End Region

Sub Process_Globals

Dim SQL1 As SQL

Dim cursur1 As Cursor

End Sub

Sub Globals

Private Panel1 As Panel

Private Label1 As Label

Private btnnumber As Button

Private btnshare As Button

Private btncopy As Button

Private ScrollView1 As ScrollView

Private Button1 As Button

Private Label4 As Label

Private Label5 As Label

Dim myfont As Typeface

Dim text As String

Dim ht As Float

Dim StrUtil As StringUtils

Dim PanelHeight As Int

End Sub

Sub Activity_Create(FirstTime As Boolean)

If File.Exists(File.DirInternal,"chistan.db")=False Then

File.copy(File.DirAssets,"chistan.db",File.DirInternal,"chistan.db")

End If

If SQL1.IsInitialized = False Then

SQL1.Initialize(File.DirInternal,"chistan.db",True)

End If

cursur1 = SQL1.ExecQuery("SELECT elmi FROM chisti")

myfont = Typeface.LoadFromAssets("byekan.ttf")

Activity.LoadLayout("sv")

For i=0 To cursur1.RowCount-1

cursur1.Position=i

text= cursur1.GetString("elmi")

ScrollView1.Panel.Color = Colors.Transparent

Dim p1 As Panel

p1.Initialize("")

p1.LoadLayout("main")

ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100dip)

Label4.text="علمی"

Label4.Typeface=Typeface.LoadFromAssets("byekan.ttf")

btnshare.Tag = i

btncopy.Tag = i

btnnumber.text = i + 1

btnnumber.Typeface=Typeface.LoadFromAssets("byekan.ttf")

ht=art(text,Label1,myfont,20)

Label1.TextColor=Colors.Black

p1.Height=ht+70dip

PanelHeight=PanelHeight+ht+70dip

Next

ScrollView1.Panel.Height=PanelHeight

Label5.text="علمی"

Label5.Typeface=Typeface.LoadFromAssets("far_aman.ttf")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click

StartActivity(Main)

Activity.Finish

End Sub

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float

Dim before,after As Float

Dim Obj1 As Reflector

leb.text=txt

leb.TextSize=size

leb.Gravity=Gravity.CENTER

leb.Left=leb.Left

leb.Typeface=font

ht = StrUtil.MeasureMultilineTextHeight(leb , txt)

Obj1.Target = leb

before = Obj1.RunMethod("getLineHeight") 'Get the height of line BEFORE you change it

Obj1.Target = leb

Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float") 'Change the space between lines

Obj1.Target = leb

after = Obj1.RunMethod("getLineHeight") 'Get the height of line AFTER you change it

ht = ((after * ht)/before)

leb.Height = ht

Return ht

End Sub

Sub btnshare_Click

Dim cursor3 As Cursor

cursor3 = SQL1.ExecQuery("SELECT elmi FROM chisti")

Dim btn2 As Button

btn2=Sender

cursor3.Position =btn2.Tag

Dim matnsms As Label

matnsms.Initialize("")

matnsms.text=cursor3.GetString("elmi")

cursor3.Close

Dim share As Intent

share.Initialize(share.ACTION_SEND,"")

share.SetType("text/plain")

share.PutExtra("android.intent.extra.TEXT", matnsms.text)

share.WrapAsIntentChooser("به اشتراک گذاری چیستان...")

StartActivity(share)

End Sub

اینم کد

[محمد رشوند 1,208]

فکر کنم اینو برعکس نوشتی

این باید

leb.text=txt

اینطوری باشه

txt=leb.text

[sami0770 21]

فکر کنم اینو برعکس نوشتی

این باید

leb.text=txt

اینطوری باشه

txt=leb.text

خیلی ممنون مشکل همین بود درست شد