اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


rbageherih

کاربر عادی
  • تعداد ارسال ها

    19
  • تاریخ عضویت

  • آخرین بازدید

درباره rbageherih

  • درجه
    کاربر

آخرین بازدید کنندگان نمایه

78 بازدید کننده نمایه
  1. عدم ارسال tag از اکتیویتی اول به اکتیوتی دوم

    حل شد با فایلینگ درست کردم
  2. عدم ارسال tag از اکتیویتی اول به اکتیوتی دوم

    سلام بله imgvijeh.Tag=i در حلقه هست جالبه وقتی می نویسی Msgbox (testdata,"") مقدارش درسته ولی تو اکتیوتی دوم صفر بر می گرده
  3. سلام من کد های زیر را نوشتم برای اکتویتی اول(deskshop) Sub Process_Globals Dim testdata As Int End Sub Sub imgvijeh_Click Dim imgclk As ImageView imgclk = Sender testdata=imgclk.Tag StartActivity(viewkala) End Sub و در اکتیوتی دوم(viewkala) این کد ها را Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") Msgbox (deskshop.testdata,"") End Sub چرا مقدار deskshop.testdata صفر بر می گرده ؟
  4. سلام بعد با این دستورات در اکتیویتی اول ، از روی هاست خروجی json گرفتم که و داخل بانک اطلاعاتی ذخیره می کنه Sub Globals Dim sql1 As SQL Dim json As JSONParser Dim con1,con2 As MC7Http End Sub Sub Activity_Create(FirstTime As Boolean) ' Activity.LoadLayout("main_logo") If File.Exists(File.DirInternal, "db.db") Then File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db") End If sql1.Initialize(File.DirInternal, "db.db", True) con1.Initialize("req2","nreq2", 2000 , Me) con1.PostString("http://chbit.ir/shop/cf.php","") con2.Initialize("req1","nreq1", 2000 , Me) con2.PostString("http://chbit.ir/shop/1.txt","") End Sub Sub Req1_ReqDone(Req As MC7Http) Dim Cursor2 As Cursor Dim m1,m2,m3 As String Public m As Map Public bas As List If Req.RName="nreq1" Then json.Initialize(Req.GetString) m=json.NextObject bas=m.Get("chbit") For i=0 To bas.Size-1 m=bas.Get(i) m1=m.Get("id") m2=m.Get("name") m3=m.Get("price") sql1.ExecNonQuery("INSERT INTO maintbl (idx,name,price) VALUES ('"&m1&"','"&m2&"','"&m3&"')") Next StartActivity(deskshop) Activity.Finish End If Req.StopAllRequest end Sub بعد توی اکتیویتی دوم این کد را نوشتم که مقداری را به get_namekala(i) می فرسته پیام خطایی که میده میاد اون سطری را که رنگش را سبز کردم ایراد می گیره ، در واقع مقدار برگشتی را خالی بر می گردونه انگار . در ضمن تعداد رکورد های ذخیره شده با مقدار حلقه مساوی هست Sub Globals Dim sql1 As SQL Dim lblsellvijeh,lblnamevijeh As Label End Sub Sub Activity_Create(FirstTime As Boolean) 'Activity.LoadLayout("l_deskshop") end Sub Sub slider_vijeh For i=1 To 4 lblsellvijeh.Initialize("lblsellvijeh") lblnamevijeh.Initialize("lblnamevijeh") get_namekala(i) next end Sub Sub get_namekala(indexdata As Int) Dim Cursor As Cursor Cursor = sql1.ExecQuery("SELECT name,price FROM maintbl ") Cursor.Position = indexdata lblnamevijeh.Text=Cursor.GetString("name") lblsellvijeh.Text=Cursor.GetString("price") End Sub
  5. کتابخانه MC7Http

    ممنون مهندس حل شد . کجا می تونم کل کتابخانه هایی که شما اصلاح کردین را دریافت کنم
  6. چرا وقتی دستور دادم که اکتیوتی فعال بسته بشه و اکتیویتی بعدی باز بشه مدام میره توی اکتیوتی بعدی و دوباره بر می گرده توی اکتیوتی فعلی و همین طور دوباره تکرار میشه آخرش هم برنامه خطا میده ؟ اینم کدش: con1.Initialize("con1",Me) con1.PostString("http://chbit.ir/shop/cf.php","") con2.Initialize("con2",Me) con2.PostString("http://chbit.ir/shop/1.txt","") Sub Jobdone (job As HttpJob) Dim Cursor2 As Cursor Dim m1,m2,m3 As String Public m As Map Public bas As List If job.JobName="con2" Then json.Initialize(job.GetString) m=json.NextObject bas=m.Get("chbit") For i=0 To bas.Size-1 m=bas.Get(i) m1=m.Get("id") m2=m.Get("name") m3=m.Get("price") sql1.ExecNonQuery("INSERT INTO maintbl (idx,name,price) VALUES ('"&m1&"','"&m2&"','"&m3&"')") ' Spinner1.Add(m.Get("id")) ' ListView1.AddTwoLines(m.Get("name"), m.Get("price")) Next Activity.Finish StartActivity(deskshop) End If End Sub
  7. سوال در مورد dip و %x,y

    سلام به نظرم فقط از %X , y% استفاده کنید .حل میشه
  8. آموزش json به صورت کامل

    سلام و عرض ادب از دوستان کسی آموزش کامل JSON را نداره این آموزش ها که توی انجمن هستن را اونجایی که من چک کردم کامل توضیح نداده اگر کسی آدرس دقیق تری داره توی انجمن ها لطفا لینکش را اعلام کنه اگر هم سورس باشه که بهتر ممنون
  9. پیغام خطا هنگام اجرای برنامه

    حل شد مشکل توی کتابخانه مرکزی بود
  10. پیغام خطا هنگام اجرای برنامه

    همه چیز آپدیته ولی بازم این پیام میاد در ضمن ویندوز سیستم من 7 هست avac 1.8.0_172 src\b4a\example\starter.java:17: error: cannot find symbol ServiceHelper.StarterHelper.startServiceFromReceiver (context, in, true, BA.class); ^ symbol: method startServiceFromReceiver(Context,Intent,boolean,Class<BA>) location: class StarterHelper Note: src\b4a\example\starter.java uses or overrides a deprecated API. Note: Recompile with -Xlint:deprecation for details. 1 error
  11. پیغام خطا هنگام اجرای برنامه

    سلام بله خالی هم که ران می گیرم همین پیام میاد اول B4A رو آپدیت کنید. ( آپدیت 8.3) API رو تغییر بدید. android.jar انجام دادم
  12. آموزش کتابخانه شمارش معکوس TimeCountDown

    سلام بله میشه توی رویداد Sub tcd_CountingEnd Log("پایان شمارش") End Sub
  13. سلام خطای زیر را چه طور رفع کنم هر دو نسخه jdk را هم جدا نصب کردم و تست کردم حل نشد با jdk1.8.X اینه (آخرین نسخه بوده که دانلود کردم و نصب کردم ) javac 1.8.0_172 shell\src\b4a\example\main_subs_0.java:24: error: incompatible types: void cannot be converted to Throwable throw Debug.ErrorCaught(e); ^ 1 error با jdk1.7.X هم اینه avac 1.7.0_80 shell\src\b4a\example\main_subs_0.java:24: error: incompatible types throw Debug.ErrorCaught(e); ^ required: Throwable found: void 1 error با تشکر
  14. سلام کد زیر برای نشان دادن نام کالا از بانک اطلاعاتی آنلاین هست ( روی هاست ) مشکلی که هست فراخوانی مقدار از بانک اطلاعاتی فقط برای آیتم آخر اتفاق می افته بقیه خالی هستن این کد افزودن هست Sub slider_vijeh '************پانل ویژه cssview.Initialize2(Colors.RGB(247,247,247),5,1,Colors.White) panel_vijeh_shadow.Initialize("panel_vijeh_shadow") panel_vijeh.Initialize("panel_vijeh") panel_vijeh.Background=cssview cssview.Initialize2(Colors.LightGray,5,1,Colors.LightGray) panel_vijeh_shadow.Background=cssview Dim label_vijeh As Label label_vijeh.Initialize("label_vijeh") label_vijeh.Text="پیشنهاد ویژه" label_vijeh.TextSize=6.5dip label_vijeh.Typeface=Typeface.LoadFromAssets("IRANSansMobile.ttf") label_vijeh.Gravity=Gravity.RIGHT label_vijeh.TextColor=Colors.Black panel_vijeh.AddView(label_vijeh,0%x,1%y,98%X,5%y) scrolvijeh.Initialize(356%x,"scrolvijeh") Dim i As Int Dim leftvijeh As Int connect1.Initialize("getdataname",Me) leftvijeh=0 For i=1 To 8 imgvijeh.Initialize("imgvijeh") tagvijeh.Initialize("tagvijeh") tagvijeh.Bitmap=LoadBitmap(File.DirAssets,"vijeh.png") tagvijeh.Gravity=Gravity.FILL Picasso1.LoadUrl("http://chbit.ir/components/com_jshopping/files/img_products/20cb2df290e884b370e06d9da29b1767.jpg").IntoImageView(imgvijeh) imgvijeh.Tag=i+1 panel_dor.Initialize("") Dim cssdor As ColorDrawable cssdor.Initialize2(Colors.White,5,2,Colors.LightGray) panel_dor.Background=cssdor scrolvijeh.Panel.AddView(panel_dor,PerXToCurrent((i*3.5)+leftvijeh),2%y,39%x,30%y) lblsellvijeh.Initialize("lblsellvijeh") lblnamevijeh.Initialize("lblnamevijeh") lblsellvijeh.Text="150000"&" "&"تومان" lblnamevijeh.Tag=i+1 این هم کد ارسال connect1.PostString ("http://chbit.ir/shop/getdata.php","") lblsellvijeh.TextColor=Colors.Red lblnamevijeh.TextColor=Colors.Black lblsellvijeh.TextSize=7dip lblnamevijeh.TextSize=7dip lblsellvijeh.Typeface=Typeface.LoadFromAssets("SHOMA.TTF") lblnamevijeh.Typeface=Typeface.LoadFromAssets("SHOMA.TTF") lblsellvijeh.Gravity=Gravity.CENTER_HORIZONTAL lblnamevijeh.Gravity=Gravity.CENTER_HORIZONTAL scrolvijeh.Panel.AddView(imgvijeh,PerXToCurrent((i*3.5)+leftvijeh+0.5),3%y,38%x,19%y) scrolvijeh.Panel.AddView(lblsellvijeh,PerXToCurrent((i*3.5)+leftvijeh),27.5%y,38%x,18%y) scrolvijeh.Panel.AddView(tagvijeh,PerXToCurrent((i*3.5)+leftvijeh+24),2%y,15%x,7.5%y) Dim ln As Label ln.Initialize("") ln.TextSize=7dip ln.Text="___________________" ln.TextColor=Colors.Gray ln.Gravity=Gravity.CENTER scrolvijeh.Panel.AddView(ln,PerXToCurrent((i*3.5)+leftvijeh+0.5),24%y,38%x,6%y) Dim csslblnamevijeh As ColorDrawable csslblnamevijeh.Initialize(Colors.RGB(28,201,236),10) 'lblnamevijeh.Background=csslblnamevijeh Dim lnname As StringFunctions Dim clnname As Int clnname=lnname.Len(lblnamevijeh.Text) 'If clnname>20 Then scrolvijeh.Panel.AddView(lblnamevijeh,PerXToCurrent((i*3.5)+leftvijeh+0.5),22%y,38%x,6%y) 'Else 'scrolvijeh.Panel.AddView(lblnamevijeh,PerXToCurrent((i*3.5)+leftvijeh+0.5),23%y,38%x,6%y) ' End If leftvijeh=leftvijeh+41 Next panel_vijeh.AddView(scrolvijeh,0%x,5%y,100%x,34%y) 'main_scrol.Panel.AddView(panel_vijeh_shadow,0%x,mheight+PerYToCurrent(42.5),100%x,40%y) main_scrol.Panel.AddView(panel_vijeh,0%x,mheight+PerYToCurrent(40),100%x,40%y) '*********************************************************************' Sub Jobdone (job As HttpJob) If job.JobName="getdataname" Then lblnamevijeh.Text=connect1.GetString End If End Sub ولی مشکلی که هست به این شکل هست
  15. سلام Activity.LoadLayout("l2") Dim sss As String Dim i As Int Dim s() As ImageView For i=1 To 5 Dim s(i) As ImageView Next For i=0 To 4 sss="b"&(i+1) s(i).Initialize(sss) Activity.AddView(s(i),1%x,(i)*12%y,25%x,10%y) s(i).Bitmap=LoadBitmap(File.DirAssets,"images.png") s(i).Gravity=Gravity.FILL Next کد بالا چند تا ایمیج ویو درست می کنه که نام گذاریشون توی متغیر هست که به صورت sss="b"&(i+1) s(i).Initialize(sss) هست حالا اگه بخوایم تعیین کنیم که روی هر کدوم که کلیک کردیم کد مربوط به همون اجرا بشه باید چیکار کنیم دونه دونه میشه تعیین کرد ولی اگه زیاد باشه و نامعلوم چه چوری باید خصوصیت کلیک را تعریف کرد ؟