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

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

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

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


saeed120m

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

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

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

  • روز های برد

    1

آخرین بار برد saeed120m در فروردین 22

saeed120m یکی از رکورد داران بیشترین تعداد پسند مطالب است !

اعتبار در سایت

10 متوسط

درباره saeed120m

  • درجه
    کاربر

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

82 بازدید کننده نمایه
  1. saeed120m

    خطای force close

    try ************ catch ************ end try در همه ساب ها بهتره ک استفاده بشه منم همین مشکل رو داشتم برای خودم کار میکرد ولی مایکت قبول نمیکرد میگفت فورس کلوز میده همه ساب های ماین رو تری کش کردم ok شد قبول کردن
  2. با تشکر از تمامی دوستان ، اعضا ، و تمامی اساتید سایت بعد از تقریبا 5 ماه بالاخره اولین برنامه رو منتشر ( تو مایکت ) توضیحات برنامه برنامه بی طبیب کتابی آموزشی در موضوعات پزشکی سنتی و پزشکی نوین و همچنین مطالب مذهبی می باشد. ‏سعی می شود که این برنامه حداقل هفته ای یک بار به روزرسانی شود. ‏نرم افزارهای بسیاری با این موضوعات ساخته و منتشر شده که هر کدام شامل فصل های مختصری می باشد. ‏در کتاب بی طبیب سعی بر این است تا در موضوعات مختلفی مطلب جمع آوری و منتشر شود. ‏بی طبیب تا کنون شامل فصل های زیر می باشد ‏+ عطاری ‏- خواص و روش تهیه انواع عرقیات ‏- خواص روغن ها ‏- خواص گیاهان دارویی و روش استفاده از آنها ‏- خواص انواع میوه ها ‏- نسخه های گیاهی ‏- دمنوش ها ‏+ پزشکی ‏- ویتامین ها و مواد معدنی ‏- اطلاعات عمومی ‏- متخصص قلب و عروق ‏- متخصص چشم پزشک ‏- دهان و دندان ‏- متخصص ارتوپدی ‏- متخصص غدد ‏- گوارش و کبد ‏- متخصص مغز و اعصاب ‏- متخصص گوش و حلق و بینی ‏- متخصص کلیه و مجاری ادراری ‏- پزشکی خون ‏- انکولوژی ( سرطان شناسی ) ‏+ سقاخانه ‏- سوره هایی از قرآن کریم ‏- دعاها و زیارت ها ‏- نمازها ‏- دعاهای ماه رمضان ‏و بخش داروخانه با بیش از 1400 مطلب و دارو و بخش های دیگر که به زودی به بی طبیب افزوده خواهد شد ‏تمام مطالب سقاخانه فعال و رایگان می باشند ‏بخش عطاری و پزشکی نیز از هر موضوع 5 مطلب به صورت رایگان دارد و برای استفاده از مابقی مطالب باید نسخه کامل برنامه خریداری شود ‏بخش داروخانه نیز به زودی به صورت رایگان ارایه خواهد شد ‏پس از به روز رسانی برنامه اگر اطلاعات و تغییرات جدید را مشاهده نکردید یک بار در تنظیمات گوشی دیتای بی طبیب را حذف کنید. و یا نسخه قبلی را حذف کرده و سپس اقدام به نصب نسخه جدید کنید. ‏در این صورت اگر نسخه اصلی را خریداری و فعال کرده اید پس از حذف دیتا، دوباره نیاز به فعال سازی خواهید داشت که با انتخاب گزینه خرید، بدون نیاز به هر گونه پرداختی برنامه برای شما فعال خواهد شد. لینک برنامه در مایکت دانلود برنامه بی طبیب از بازار اندرویدی مایکت فقط نتونستم برای پرداخت درون برنامه امنیت رو پیاده سازی کنم ولی با لاکی پچر امتحان کردم هک نشد اگه میشه امتحان کنید برام فقط با لاکی هک نشه برام کافیه اگه هک کردید لطفا پاکش کنید با تشکر
  3. مرسی بابت نظرتون ولی nox دیوایس و اندرویدای مختلف رو نمیشه روش امتحان کرد
  4. سلام میخاستم از جنی موشن استفاده کنم . نسخه 3 رو دانلود و نصب کردم ولی اصلا باز نمیشه Oracle VM VirtualBox رو هم نصب کردم لبتاب من از vt_x پشتیبانی نمیکنه شاید به این دلیل باشه که جنی باز نمیشه راهی هست از از جنی استفاده کنم و یا یه شبیه ساز دیگه که به vt نیاز نداشته باشه و البته حتما مثل جنی از دیوایس ها و اندرویدهای مختلف پشتیبانی کنه لطفا راهنمایی کنید
  5. سلام دوستان یه کتاب دارم پرداخت درون برنامه مایکت رو توش قرار دادم با BillingManager3 رو سامسونگ j3 با اندروید 5.1 راحت کار میکنه ولی رو سونی xperia p با اندروید 4.1 و سامسونگ j5 با اندروید 6 امتحان کردم برنامه باز نمیشه امتحان کردم مشکل از کدای درون پرداخت هست ، این کدارو که حذف میکنم برنامه راحت باز میشه از این کتابخانه استفاده میکنم MyketIAP اینم کدهام AddPermission(ir.mservices.market.BILLING) 'دسترسی درون پرداخت مایکت Sub Process_Globals Private key As String ="MIG" Dim oBillingManager As BillingManager3 End Sub Sub Activity_Create(FirstTime As Boolean) If FirstTime Then oBillingManager.Initialize("BillingManager", key) oBillingManager.DebugLogging = False End If End Sub Sub BillingManager_BillingSupported(Supported As Boolean, Message As String) If Supported=True Then Else ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False) End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button_premium_Click oBillingManager.RequestPayment("premium", "inapp", "Developer Payload") End Sub Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success= True Then ToastMessageShow("با تشکر، خرید با موفقیت انجام شد",True) cur=s.ExecQuery("select * from tbl ") S.ExecNonQuery("UPDATE tbl SET premium = 1 ") Else If Success=False Then ToastMessageShow("خرید انجام نشد، دوباره تلاش کنید" , True) End If End Sub اگه میشه راهنمایی کنید
  6. سلام دوستان چطوری بعد از خرید و فعال کردن برنامه ، دکمه خرید حذف بشه یعنی Button_premium.Visible = False توی ساب عملیات پس از خرید، حذفش کردم ( در اکتیویتی main ) ولی وقتی یک مطلب باز میکنم و دوباره به صفحه اصلی برمیگردم دکمه خرید رو دوباره نشون میده باید کدی باشه که احتمالا در Activity_Create نوشته بشه ؟؟؟
  7. اینم فایل zip project_khvasMeve اینم چند تا کتابخونه که لازم میشن Lib_khavas
  8. ممنون بابت راهنمایی دوستان ولی من هر کاری میکنم درست نمیشه فقط این پیام رو میده (باید نسخه کامل را خریداری کنید) کل اکتیویتی رو براتون میزارم لطفا کد درست و کامل رو بهم بدید اینم عکس دیتابیسم میخام اگه premium یک بود مطلب باز بشه اگه 0 بود پیغام بده #Region Activity Attributes #FullScreen: false #IncludeTitle: false #End Region Sub Process_Globals Dim s As SQL Dim idonvan As String Dim pr As Int End Sub Sub Globals Dim cur As Cursor Private ListView1 As ListView Dim ani As ICOSScaleAnimation Private ScrollView_onvanha As ScrollView Private Label_onvan As Label Private ImageView_onvan As ImageView Private Panel_onvan As Panel Private Image_fav As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("l_onvan") afrazlab.DatabesCopy(s,"nafas.db",True) onvanMatnha(ScrollView_onvanha) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Activity_KeyUp (KeyCode As Int) As Boolean If KeyCode=KeyCodes.KEYCODE_BACK Then StartActivity(attari) Activity.Finish End If End Sub Sub onvanMatnha(ScroollNeme As ScrollView) afrazlab.DatabesCopy(s,"nafas.db",True) Activity.Color=0xFF586A60 cur=s.ExecQuery("select * from tbl_khavas WHERE mozo = 2 ") Dim h As Int=1%y For i =0 To cur.RowCount-1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") p1.LoadLayout("l_panel_onvan") p1.Color=0xFF586A60 ImageView_onvan.Bitmap=LoadBitmap(File.DirAssets,cur.GetString("aks")&".png") Label_onvan.Text=cur.GetString("onvan") Label_onvan.TextColor=Colors.Black Label_onvan.TextSize=20 Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT) Label_onvan.Tag=cur.GetInt("id") Dim b As Bitmap b.Initialize(File.DirAssets,"fav"&cur.GetString("fav")& ".png") Image_fav.Bitmap=b Image_fav.Tag=cur.GetString("id") ani.ScaleCenterIn("ani",1500) ani.StartAnim(Image_fav) Dim aniInt As Int aniInt=Rnd(0,1) If aniInt=0 Then ani.ScaleFromRight("ani",1500) ani.StartAnim(p1) Else ani.ScaleFromLeft("ani",1500) ani.StartAnim(p1) End If ScroollNeme.Panel.AddView(p1,0,h,100%x,100%y) h=h+14%y Next ScroollNeme.Panel.Height=h+5%y End Sub Sub Panel_onvan_Click End Sub Sub Label_onvan_Click ' Dim l As Label ' l=Sender ' idonvan=l.Tag ' StartActivity(matnha) Log(cur.GetInt("premium")) Dim l As Label l=Sender pr=l.Tag If pr = 1 Then StartActivity(matnha) Else ToastMessageShow("باید نسخه کامل را خریداری کنید",True) End If End Sub Sub Image_fav_Click Dim img As ImageView img=Sender cur=s.ExecQuery("select * from tbl_khavas ") cur.Position=img.Tag If cur.GetInt("fav")=1 Then Dim b As Bitmap b.Initialize(File.DirAssets,"fav0.png") img.Bitmap=b s.ExecNonQuery("UPDATE tbl_khavas SET fav =0 WHERE id ="&cur.GetInt("id")) Else if cur.GetInt("fav")=0 Then Dim b As Bitmap b.Initialize(File.DirAssets,"fav1.png") img.Bitmap=b s.ExecNonQuery("UPDATE tbl_khavas SET fav =1 WHERE id ="&cur.GetInt("id")) End If End Sub
  9. پیشنهاد من به شما برای ساختن کتاب استفاده از این سورس هست خودم دارم از همین سورس استفاده میکنم عالیه البته من تا حالا کلی تغییرات توش دادم شما هم با تغییرات میتونید با این سورس یه کتاب خیلی خوب بسازید
  10. ممنون بابت راهنماییتون برای اولین کد که نوشتید لوگ گرفتن که گفتید رو بلد نیستم ----------------------- هر کد رو کلی کم و زیاد کردم ولی به هیچ صراطی مستقیم نمیشن ممنون میشم بیشتر راهنمایی کنید یه سوال اون pr چی هست
  11. سلام یه دیتابیس داریم با مثلا یه ستون به اسم premium مطالبی که در دیتابیس هستن 5تای اول با premium با مقدار 1 باز هستن و قابل استفاده بقیه مطالب با premium با مقدار 0 قفل هستن حالا ما باید بعد از پرداخت درون برنامه و خرید تمام مطالب 0 رو به 1 تغییر بدیم تا باز بشن فعلا کاری به آپدیت دیتابیس بعد از خرید نداریم تو اکتیویتی main اینارو داریم Sub Process_Globals Private key As String ="*********" Dim PREMIUM As String = "premium" Dim oBillingManager As BillingManager3 End Sub Sub Activity_Create(FirstTime As Boolean) If FirstTime Then Log("Initialize billing manager") oBillingManager.Initialize("BillingManager", key) oBillingManager.DebugLogging = True End If End Sub Sub Button_premium_Click oBillingManager.RequestPayment("premium", "inapp", "Developer Payload") End Sub Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then ToastMessageShow("خرید انجام شد.",False) Else If Success=False Then ToastMessageShow("خرید انجام نشد" , True) End If End Sub بعد از تو main با یه دکمه میریم تو اکتیویتی onvanha اونجا هم اینارو داریم Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("l_onvan") afrazlab.DatabesCopy(s,"nafas.db",True) onvanMatnha(ScrollView_onvanha) End Sub Sub onvanMatnha(ScroollNeme As ScrollView) afrazlab.DatabesCopy(s,"nafas.db",True) Activity.Color=0xFF586A60 cur=s.ExecQuery("select * from tbl_xxx WHERE mozo = 2 ") Dim h As Int=1%y For i =0 To cur.RowCount-1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") p1.LoadLayout("l_panel_onvan") p1.Color=0xFF586A60 ImageView_onvan.Bitmap=LoadBitmap(File.DirAssets,cur.GetString("aks")&".png") Label_onvan.Text=cur.GetString("onvan") Label_onvan.TextColor=Colors.Black Label_onvan.TextSize=20 Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT) Label_onvan.Tag=cur.GetInt("id") Dim b As Bitmap b.Initialize(File.DirAssets,"fav"&cur.GetString("fav")& ".png") Image_fav.Bitmap=b Image_fav.Tag=cur.GetString("id") ani.ScaleCenterIn("ani",1500) ani.StartAnim(Image_fav) Dim aniInt As Int aniInt=Rnd(0,1) If aniInt=0 Then ani.ScaleFromRight("ani",1500) ani.StartAnim(p1) Else ani.ScaleFromLeft("ani",1500) ani.StartAnim(p1) End If ScroollNeme.Panel.AddView(p1,0,h,100%x,100%y) h=h+14%y Next ScroollNeme.Panel.Height=h+5%y End Sub Sub Panel_onvan_Click End Sub Sub Label_onvan_Click 'اینجا مشکل دارم If cur.GetInt("premium") = 0 Then ToastMessageShow("باید نسخه کامل را خریداری کنید",True) End If If cur.GetInt("premium") = 1 Then Dim l As Label l=Sender idonvan=l.Tag StartActivity(matnha) End If End Sub با کلیک کردن Label_onvan اگر premium برابر 1 بود که مطلب باید باز بشه ولی اگر 0 بود پیغام (خرید کن) رو بده و مطلب رو باز نکنه با این کدها هر کدوم از مطالب رو که کلیک میکنم (باید نسخه کامل را خریداری کنید) نشون میده . چه premium اون مطلب 1 باشه چه 0 باشه چیکار کنم که شرط دوم درست کار کنه
  12. بلد نیستید ؟ مهم نیست
  13. درون پرداخت معمولا خیلی راحت هک میشه اگه لایسنس باشه که خیلی بهتره ======================================================== کسی بلد نیست لطفا ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
×