Far Est 0 ارسال شده در 11 شهریور، ۱۴۰۰ اشتراک گذاری ارسال شده در 11 شهریور، ۱۴۰۰ برنامه ای که b4a نوشتم بدون مشکل در شبیه ساز اجرا میشه و پیام خطا هم نمیده.بعد از نصب APK روی گوشی، اجرا نمیشه و بلافاصله بیرون میپره لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Far Est 0 ارسال شده در 25 شهریور، ۱۴۰۰ سازنده اشتراک گذاری ارسال شده در 25 شهریور، ۱۴۰۰ #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 لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
امیرحسین قاسمی 610 ارسال شده در 11 شهریور، ۱۴۰۰ اشتراک گذاری ارسال شده در 11 شهریور، ۱۴۰۰ سلام دوست عزیز، احتمالا نسخه اندروید شبیه سازتون پایین تر از 6 هست اما نسخه اندروید گوشی تون بالاتر از 6 هست و شما دارید روی دستگاه کاربر عملیاتی انجام میدین(مثل کار با حافظه، دوربین، کار با میکروفون و...) که در اندرویدهای بالاتر از 6 به مجوز دسترسی نیاز دارن که باید از طریق runtime permission گرفته بشه. برای اطمینان از این موضوع به صورت دستی برنامه ای رو که نصب کردین روی گوشی تون به اطلاعات برنامش برین و به بخش دسترسی ها برین و ببینین چه دسترسی نیاز داره و خاموشه! اونو روشن کنید بعد ببینید دوباره فورس کلوز میده؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Far Est 0 ارسال شده در 11 شهریور، ۱۴۰۰ سازنده اشتراک گذاری ارسال شده در 11 شهریور، ۱۴۰۰ ممنون. امتحان میکنم. تنها دسترسی که برنامه داره اینترنته. تو منیفست هم این کدها رو زدم AddPermission(android.permission.INTERNET) AddPermission(android.permission.ACCESS_NETWORK_STATE) کار دیگه باید کرد؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
امیرحسین قاسمی 610 ارسال شده در 12 شهریور، ۱۴۰۰ اشتراک گذاری ارسال شده در 12 شهریور، ۱۴۰۰ در ۱۴۰۰/۶/۱۱ در ۱۳:۳۷، Far Est گفته است: ممنون. امتحان میکنم. تنها دسترسی که برنامه داره اینترنته. تو منیفست هم این کدها رو زدم AddPermission(android.permission.INTERNET) AddPermission(android.permission.ACCESS_NETWORK_STATE) کار دیگه باید کرد؟ باید کدهاتون رو قرار بدین. همینطوری نمیشه اظهار نظر کرد. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
Far Est 0
برنامه ای که b4a نوشتم بدون مشکل در شبیه ساز اجرا میشه و پیام خطا هم نمیده.بعد از نصب APK روی گوشی، اجرا نمیشه و بلافاصله بیرون میپره
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.