رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase
  • 0

یک خطا عجیب کمک کنید

afraz11

سوال شده توسط afraz11,

سوال

afraz11

afraz11 246

ارسال شده در
ارسال شده در

با سلام

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

اصلا از خطا برنامه چیزی نفهمیدم لطفا یکی عکس رو نگاه کنه و بگه مشکلش چیه

تشکر

26_05_2015_01_38_17_%D8%A8_%D8%B8.png

لینک ارسال
به اشتراک گذاری در سایت های دیگر

16 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

mahdi tahan

mahdi tahan 723

ارسال شده در
ارسال شده در

تا اونجایی که من میدونم خطا با خط قرمز میاد.فک نکنم خطا باش.انگار یک باتن ساختی که روش کلید کنی یک اکتیویتی دیگ رو باز میکن؟درسته ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر
sganji

sganji 678

ارسال شده در
ارسال شده در

سلام

یه گوشه ای از کد ها رو بذار.

والا فکر نکنم خطا باشه از رو عکس هم نمیتونم تشخیص بدم.

لینک ارسال
به اشتراک گذاری در سایت های دیگر
afraz11

afraz11 246

ارسال شده در
  • سازنده
ارسال شده در

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر
afraz11

afraz11 246

ارسال شده در
  • سازنده
ارسال شده در

اینم کد صفحه که وقتی روی دکمش کلیک میکنم ارور میده البته اینو بگما بعضی وقتا ارور میده

#Region  Activity Attributes 
   #FullScreen: False 
   #IncludeTitle:False
#End Region

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.




End Sub




Sub Globals


   Private Label1 As Label
   Dim menu As SideMenuBar
   Dim a As Typeface
   Dim b As Bitmap
   Dim i As Int = 0
   Private btnShow As Button


   Private ImageView1 As ImageView
   Private Panel2 As Panel
   Private Label2 As Label
   Private ImageView2 As ImageView
   Private Panel3 As Panel
   Private Label3 As Label
   Private ImageView3 As ImageView
   Private Panel4 As Panel
End Sub


Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("l_menu1")
   Try
b.Initialize(File.DirAssets,"logo.png")
a=Typeface.LoadFromAssets("BYekan.ttf")    
menu.Initialize("gh",Me,230dip,True,a,Colors.Green,b,1,Colors.Black)
menu.menulv.AddTwoLinesAndBitmap2("تنظیمات","",LoadBitmap(File.DirAssets,"setting.png"),1)
menu.menulv.AddTwoLinesAndBitmap2("علاقه مندیها","",LoadBitmap(File.DirAssets,"fav1.png"),2)
menu.menulv.AddTwoLinesAndBitmap2("جستجو","",LoadBitmap(File.DirAssets,"search.png"),3)
menu.menulv.AddTwoLinesAndBitmap2("درباره من","",LoadBitmap(File.DirAssets,"man.png"),4)
menu.menulv.AddTwoLinesAndBitmap2("منابع","",LoadBitmap(File.DirAssets,"manbah.png"),5)
menu.menulv.AddTwoLinesAndBitmap2("ایمیل به نویسنده","",LoadBitmap(File.DirAssets,"Mail.png"),6)
menu.menulv.AddTwoLinesAndBitmap2("نظر دادن","",LoadBitmap(File.DirAssets,"nazar.png"),7)
menu.menulv.AddTwoLinesAndBitmap2("خروج","",LoadBitmap(File.DirAssets,"exit.png"),8)

Dim lb As Label
lb=menu.menulv.TwoLinesAndBitmap.Label
lb.Gravity=Gravity.RIGHT
lb.Left=lb.Left-80dip

menu.menulv.TwoLinesAndBitmap.Label.TextSize=17
menu.menulv.TwoLinesAndBitmap.ItemHeight=56dip


menu.make(Activity)
Catch
End Try


   End Sub


Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Activity_KeyPress (KeyCode As Int) As Boolean

End Sub


Sub btnShow_Click  
If i = 0 Then
menu.show      
Else
menu.hide      
End If
End Sub


Sub gh_Opened()
   i = 1
End Sub

Sub gh_Closed()
   i = 0
End Sub


Sub gh_Click(Item As Object)

If Item=1 Then
   StartActivity("setting")
       Activity.Finish
End If

If Item=2 Then
   StartActivity("Act_fav1")
       Activity.Finish
End If

If Item=2 Then
   StartActivity("search")
       Activity.Finish
End If




If Item=4 Then
   StartActivity("about")
       Activity.Finish
End If



If Item=5 Then
   Msgbox("www.afraz.com","منابع")

End If    




If Item=6 Then


Try
Dim email1 As Email
email1.To.Add("[email protected]")
StartActivity(email1.GetIntent)


Catch
End Try


End If      
If Item=7 Then

End If

If Item=7 Then

End If

End Sub




Sub Label1_Click
   StartActivity("mataleb")


End Sub


Sub Label2_Click
   StartActivity("mataleb2")


End Sub


Sub Label3_Click
   StartActivity("mataleb3")

End Sub

لینک ارسال
به اشتراک گذاری در سایت های دیگر
mahdi tahan

mahdi tahan 723

ارسال شده در
ارسال شده در

اگ من باشم دوباره کد هارو با دقت مینویسم.نمونه کدتو بزار

لینک ارسال
به اشتراک گذاری در سایت های دیگر
sganji

sganji 678

ارسال شده در
ارسال شده در

ببین با دیدن این کد ها بدتر گیج شدم.

تازه بستگی داره تو صفحه قبلش چیکار کرده باشی.

اگه میتونی سورس رو بزار.*akhii*

لینک ارسال
به اشتراک گذاری در سایت های دیگر
sganji

sganji 678

ارسال شده در
ارسال شده در

دوست عزیز یه دقیقه اسپم نده تا بررسی کنم

اگه یه مدیر اینجا بود باهات برخورد میکرد*laugh2*

لینک ارسال
به اشتراک گذاری در سایت های دیگر
مجید آرتا

مجید آرتا 5,874

ارسال شده در
ارسال شده در

دوست من صبور باشید بهتون جواب میدن چرا اسپم میدین همش!*r24*

دوست من این بخاطر عکس هاست و حاقظه رمو پر کرده این لوگ رو میده.

شما طبق این تاپیک عمل کنید مشکلتون حل میشه

http://answercenter.ir/thread2959.html#post18655

لینک ارسال
به اشتراک گذاری در سایت های دیگر
afraz11

afraz11 246

ارسال شده در
  • سازنده
ارسال شده در 

[right][color=#333333][font=Tahoma]#Region Activity Attributes [/font][/color]
[color=#333333][font=Tahoma]#FullScreen: False [/font][/color]
[color=#333333][font=Tahoma]#IncludeTitle:False[/font][/color]
[color=#333333][font=Tahoma]#End Region[/font][/color]


[color=#333333][font=Tahoma]Sub Process_Globals[/font][/color]
[color=#333333][font=Tahoma]'These global variables will be declared once when the application starts.[/font][/color]
[color=#333333][font=Tahoma]'These variables can be accessed from all modules.[/font][/color]




[color=#333333][font=Tahoma]End Sub[/font][/color]




[color=#333333][font=Tahoma]Sub Globals[/font][/color]


[color=#333333][font=Tahoma]Private Label1 As Label[/font][/color]
[color=#333333][font=Tahoma]Dim menu As SideMenuBar[/font][/color]
[color=#333333][font=Tahoma]Dim a As Typeface[/font][/color]
[color=#333333][font=Tahoma]Dim b As Bitmap[/font][/color]
[color=#333333][font=Tahoma]Dim i As Int = 0[/font][/color]
[color=#333333][font=Tahoma]Private btnShow As Button[/font][/color]







[color=#333333][font=Tahoma]Private ImageView1 As ImageView[/font][/color]
[color=#333333][font=Tahoma]Private Panel2 As Panel[/font][/color]
[color=#333333][font=Tahoma]Private Label2 As Label[/font][/color]
[color=#333333][font=Tahoma]Private ImageView2 As ImageView[/font][/color]
[color=#333333][font=Tahoma]Private Panel3 As Panel[/font][/color]
[color=#333333][font=Tahoma]Private Label3 As Label[/font][/color]
[color=#333333][font=Tahoma]Private ImageView3 As ImageView[/font][/color]
[color=#333333][font=Tahoma]Private Panel4 As Panel[/font][/color]
[color=#333333][font=Tahoma]End Sub[/font][/color]


[color=#333333][font=Tahoma]Sub Activity_Create(FirstTime As Boolean)[/font][/color]
[color=#333333][font=Tahoma]Activity.LoadLayout("l_menu1")[/font][/color]
[color=#333333][font=Tahoma]Try[/font][/color]
[color=#333333][font=Tahoma]b.Initialize(File.DirAssets,"logo.png")[/font][/color]
[color=#333333][font=Tahoma]a=Typeface.LoadFromAssets("BYekan.ttf")	[/font][/color]
[color=#333333][font=Tahoma]menu.Initialize("gh",Me,230dip,True,a,Colors.Green ,b,1,Colors.Black)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("تنظیمات" ,"",LoadBitmap(File.DirAssets,"setting.png"),1)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("علاقه مندیها","",LoadBitmap(File.DirAssets,"fav1.p ng"),2)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("جستجو","", LoadBitmap(File.DirAssets,"search.png"),3)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("درباره من","",LoadBitmap(File.DirAssets,"man.png"),4)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("منابع","", LoadBitmap(File.DirAssets,"manbah.png"),5)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("ایمیل به نویسنده","",LoadBitmap(File.DirAssets,"Mail .png"),6)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("نظر دادن","",LoadBitmap(File.DirAssets,"nazar.png" ),7)[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.AddTwoLinesAndBitmap2("خروج","",Lo adBitmap(File.DirAssets,"exit.png"),8)[/font][/color]




[color=#333333][font=Tahoma]Dim lb As Label[/font][/color]
[color=#333333][font=Tahoma]lb=menu.menulv.TwoLinesAndBitmap.Label[/font][/color]
[color=#333333][font=Tahoma]lb.Gravity=Gravity.RIGHT[/font][/color]
[color=#333333][font=Tahoma]lb.Left=lb.Left-80dip[/font][/color]


[color=#333333][font=Tahoma]menu.menulv.TwoLinesAndBitmap.Label.TextSize=17[/font][/color]
[color=#333333][font=Tahoma]menu.menulv.TwoLinesAndBitmap.ItemHeight=56dip[/font][/color]












[color=#333333][font=Tahoma]menu.make(Activity)[/font][/color]
[color=#333333][font=Tahoma]Catch[/font][/color]
[color=#333333][font=Tahoma]End Try[/font][/color]


[color=#333333][font=Tahoma]End Sub[/font][/color]


[color=#333333][font=Tahoma]Sub Activity_Resume[/font][/color]


[color=#333333][font=Tahoma]End Sub[/font][/color]


[color=#333333][font=Tahoma]Sub Activity_Pause (UserClosed As Boolean)[/font][/color]


[color=#333333][font=Tahoma]End Sub[/font][/color]




[color=#333333][font=Tahoma]Sub Activity_KeyPress (KeyCode As Int) As Boolean[/font][/color]




[color=#333333][font=Tahoma]End Sub[/font][/color]








[color=#333333][font=Tahoma]Sub btnShow_Click[/font][/color]

[color=#333333][font=Tahoma]If i = 0 Then[/font][/color]


[color=#333333][font=Tahoma]menu.show[/font][/color]

[color=#333333][font=Tahoma]Else[/font][/color]


[color=#333333][font=Tahoma]menu.hide[/font][/color]

[color=#333333][font=Tahoma]End If[/font][/color]


[color=#333333][font=Tahoma]End Sub[/font][/color]




[color=#333333][font=Tahoma]Sub gh_Opened()[/font][/color]
[color=#333333][font=Tahoma]i = 1[/font][/color]
[color=#333333][font=Tahoma]End Sub[/font][/color]


[color=#333333][font=Tahoma]Sub gh_Closed()[/font][/color]
[color=#333333][font=Tahoma]i = 0[/font][/color]
[color=#333333][font=Tahoma]End Sub[/font][/color]




















[color=#333333][font=Tahoma]Sub gh_Click(Item As Object)[/font][/color]

[color=#333333][font=Tahoma]If Item=1 Then[/font][/color]
[color=#333333][font=Tahoma]StartActivity("setting")[/font][/color]
[color=#333333][font=Tahoma]Activity.Finish[/font][/color]
[color=#333333][font=Tahoma]End If[/font][/color]



[color=#333333][font=Tahoma]If Item=2 Then[/font][/color]
[color=#333333][font=Tahoma]StartActivity("Act_fav1")[/font][/color]
[color=#333333][font=Tahoma]Activity.Finish[/font][/color]
[color=#333333][font=Tahoma]End If[/font][/color]



[color=#333333][font=Tahoma]If Item=2 Then[/font][/color]
[color=#333333][font=Tahoma]StartActivity("search")[/font][/color]
[color=#333333][font=Tahoma]Activity.Finish[/font][/color]
[color=#333333][font=Tahoma]End If[/font][/color]




[color=#333333][font=Tahoma]If Item=4 Then[/font][/color]
[color=#333333][font=Tahoma]StartActivity("about")[/font][/color]
[color=#333333][font=Tahoma]Activity.Finish[/font][/color]
[color=#333333][font=Tahoma]End If[/font][/color]



[color=#333333][font=Tahoma]If Item=5 Then[/font][/color]
[color=#333333][font=Tahoma]Msgbox("www.afraz.com","منابع")[/font][/color]

[color=#333333][font=Tahoma]End If	[/font][/color]




[color=#333333][font=Tahoma]If Item=6 Then[/font][/color]


[color=#333333][font=Tahoma]Try[/font][/color]
[color=#333333][font=Tahoma]Dim email1 As Email[/font][/color]
[color=#333333][font=Tahoma]email1.To.Add("[email protected]")[/font][/color]
[color=#333333][font=Tahoma]StartActivity(email1.GetIntent)[/font][/color]


[color=#333333][font=Tahoma]Catch[/font][/color]
[color=#333333][font=Tahoma]End Try[/font][/color]


[color=#333333][font=Tahoma]End If	[/font][/color]





[color=#333333][font=Tahoma]If Item=7 Then[/font][/color]









[color=#333333][font=Tahoma]End If[/font][/color]



[color=#333333][font=Tahoma]If Item=7 Then[/font][/color]







[color=#333333][font=Tahoma]End If[/font][/color]


[color=#333333][font=Tahoma]End Sub[/font][/color]




[color=#333333][font=Tahoma]Sub Label1_Click[/font][/color]
[color=#333333][font=Tahoma]StartActivity("mataleb")[/font][/color]


[color=#333333][font=Tahoma]End Sub[/font][/color]


[color=#333333][font=Tahoma]Sub Label2_Click[/font][/color]
[color=#333333][font=Tahoma]StartActivity("mataleb2")[/font][/color]


[color=#333333][font=Tahoma]End Sub[/font][/color]


[color=#333333][font=Tahoma]Sub Label3_Click[/font][/color]
[color=#333333][font=Tahoma]StartActivity("mataleb3")[/font][/color]

[color=#333333][font=Tahoma]End Sub[/font][/color][/right]

لینک ارسال
به اشتراک گذاری در سایت های دیگر
مجید آرتا

مجید آرتا 5,874

ارسال شده در
ارسال شده در

از LoadBitmapSample استفاده کنید.

در ضمن بنده گفتم به این تاپیک هم سر بزنید:

http://answercenter.ir/thread2959.html#post18655

لینک ارسال
به اشتراک گذاری در سایت های دیگر
afraz11

afraz11 246

ارسال شده در
  • سازنده
ارسال شده در

خوب داداش مجید به اون تاپیک رفتم و طبق آموزش اونا رفتم ولی مشکلم حل نشود برنامه باز ارور میده:S

لینک ارسال
به اشتراک گذاری در سایت های دیگر
ali2

ali2 115

ارسال شده در
ارسال شده در

دوست عزیز این مشکل فقط به خاطر حجم عکس هاست و ربطی به کدنویسی نداره

فقط باید حجم عکس های به کار برده شده در برنامه رو کم کنید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر
afraz11

afraz11 246

ارسال شده در
  • سازنده
ارسال شده در

حجم عکسها پایینه داداش یعنی با فتوشاپ خیلی حجمشونو کم کردم

کاش آقای ایزدی اینجا بودن اون حتما میتونست مشکل منو حل کنه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

رفتن به لیست سوال ها

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...