اجرا روی گوشی

[Far Est 0]

برنامه ای که b4a نوشتم بدون مشکل در شبیه ساز اجرا میشه و پیام خطا هم نمیده.بعد از نصب APK روی گوشی، اجرا نمیشه و بلافاصله بیرون میپره

[Far Est 0]

#Region  Project Attributes 
    #ApplicationLabel: رزیدنتی
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: true
#End Region

#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.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'Private Hsv1 As HorizontalScrollView
    'Dim jo As JavaObject
    Dim ht2 As HttpJob
    Dim j As JSONParser
    Private Label1 As Label
    Private lblj1 As Label
    Private lblj2 As Label
    Private lblj3 As Label
    Private lblj4 As Label
    Private pnlsoal As Panel
    Dim x1 As Int 
    Dim map_soal As Map
    Dim list As List
    Dim ShomareSoal=1 As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("soal")

    'Hsv1.Panel.LoadLayout("Layout")
    'Hsv1.Panel.Width=300%x
    'CallSubDelayed(Me,"setSV_Right")
    'Msgbox(Hsv1.ScrollPosition,"")
    'Msgbox (Hsv1.Panel.Width,"")
    'Dim r As Reflector
    'r.Target = Hsv1
    'r.RunMethod2("setHorizontalScrollBarEnabled", False, "java.lang.boolean")
    ht2.Initialize("read",Me)
    ht2.Download("http://shabhayeroshan.ir/read.php")
'    Dim Tolerance=50 As Int
'    Dim x1 As Int
'    Dim y1 As Int
    pnlsoal.Width=95%x
    pnlsoal.Left=2.5%x
    pnlsoal.Height=95%y
    pnlsoal.Top=2.5%x
    Label1.Width=pnlsoal.Width
    Label1.Height=pnlsoal.Height* 0.5
    Label1.top=0
    Label1.left=0
    lblj1.Top=Label1.Height+1%y
    lblj1.Width=pnlsoal.Width
    lblj1.Height=10%y
    lblj1.Left=0
    lblj2.Top=lblj1.Height+Label1.Height+2%y
    lblj2.Width=pnlsoal.Width
    lblj2.Height=10%y
    lblj2.Left=0
    lblj3.Top=lblj1.Height+Label1.Height+3%y+lblj2.Height
    lblj3.Width=pnlsoal.Width
    lblj3.Height=10%y
    lblj3.Left=0
    lblj4.Top=lblj1.Height+Label1.Height+4%y+lblj2.Height+lblj3.Height
    lblj4.Width=pnlsoal.Width
    lblj4.Height=10%y
    lblj4.Left=0
End Sub
Sub jobdone(job As HttpJob)
    If job.Success=True Then
        j.Initialize(job.GetString)
        list=j.NextArray
        map_soal = list.Get(0)
        'ToastMessageShow(list.Size,True)
        Label1.Text=map_soal.Get("soal")
        lblj1.Text=map_soal.Get("j1")
        lblj2.Text=map_soal.Get("j2")
        lblj3.Text=map_soal.Get("j3")
        lblj4.Text=map_soal.Get("j4")
    Else
        ToastMessageShow("خطا در برقرای اتصال",False)
    End If

End Sub
'Sub JobDone (job As HttpJob)
'    If job.Success=True Then
'        If job.JobName="read" Then
'            'ProgressDialogHide
'            Label1.Text=ht2.GetString
'            
'        End If
'    Else
'        ToastMessageShow("خطا در برقرای اتصال",False)
'    End If
'End Sub
Sub setSV_Right
    'Hsv1.scrollPosition = Hsv1.Panel.Width
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    xui.MsgboxAsync("Hello world!", "B4X")
End Sub

Private Sub Activity_Touch (Action As Int, X As Float, Y As Float)
    
        ToastMessageShow(X,False)

End Sub

 Sub pnlsoal_Touch (Action As Int, X As Float, Y As Float)
    Dim pnlsoal As Panel = Sender
    Select Action
        Case Activity.ACTION_DOWN
            x1 = X 
            'ToastMessageShow(X,False)
        Case Activity.ACTION_UP
            'ToastMessageShow(X,False)
            If x1> x + 50 Then
                'ToastMessageShow(ShomareSoal,False)
                ShomareSoal=ShomareSoal+1
                If ShomareSoal=list.Size Then
                    ShomareSoal=ShomareSoal-1
                    ToastMessageShow("تموم شد",False)
                    Return
                End If
                map_soal=list.Get(ShomareSoal)
                'ToastMessageShow(list.Size,True)
                Label1.Text=map_soal.Get("soal")
                lblj1.Text=map_soal.Get("j1")
                lblj2.Text=map_soal.Get("j2")
                lblj3.Text=map_soal.Get("j3")
                lblj4.Text=map_soal.Get("j4")
            Else if x1< x - 50 Then
                'ToastMessageShow(ShomareSoal,False)
                ShomareSoal=ShomareSoal-1
                If ShomareSoal=-1 Then
                    ShomareSoal=ShomareSoal+1
                    ToastMessageShow("تموم شد",False)
                    Return
                End If
                map_soal=list.Get(ShomareSoal)
                'ToastMessageShow(list.Size,True)
                Label1.Text=map_soal.Get("soal")
                lblj1.Text=map_soal.Get("j1")
                lblj2.Text=map_soal.Get("j2")
                lblj3.Text=map_soal.Get("j3")
                lblj4.Text=map_soal.Get("j4")
              Else 
            End If
        Case Activity.ACTION_MOVE
    End Select
End Sub

[Amir01 612]

سلام دوست عزیز،

احتمالا نسخه اندروید شبیه سازتون پایین تر از 6 هست اما نسخه اندروید گوشی تون بالاتر از 6 هست و شما دارید روی دستگاه کاربر عملیاتی انجام میدین(مثل کار با حافظه، دوربین، کار با میکروفون و...) که در اندرویدهای بالاتر از 6 به مجوز دسترسی نیاز دارن که باید از طریق runtime permission گرفته بشه. برای اطمینان از این موضوع به صورت دستی برنامه ای رو که نصب کردین روی گوشی تون به اطلاعات برنامش برین و به بخش دسترسی ها برین و ببینین چه دسترسی نیاز داره و خاموشه! اونو روشن کنید بعد ببینید دوباره فورس کلوز میده؟

[Far Est 0]

ممنون. امتحان میکنم. تنها دسترسی که برنامه داره اینترنته.

تو منیفست هم این کدها رو زدم

AddPermission(android.permission.INTERNET)
AddPermission(android.permission.ACCESS_NETWORK_STATE)

کار دیگه باید کرد؟

[Amir01 612]

در ۱۴۰۰/۶/۱۱ در ۱۳:۳۷، Far Est گفته است:

ممنون. امتحان میکنم. تنها دسترسی که برنامه داره اینترنته.

تو منیفست هم این کدها رو زدم

AddPermission(android.permission.INTERNET)
AddPermission(android.permission.ACCESS_NETWORK_STATE)

کار دیگه باید کرد؟

باید کدهاتون رو قرار بدین. همینطوری نمیشه اظهار نظر کرد.