رفتن به مطلب

torab

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

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

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

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

18 خوب

درباره torab

  • درجه
    کاربر سایت
  • تاریخ تولد 9 اردیبهشت 1370

مشخصات پروفایل

  • محل زندگی
    Damghan

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

195 بازدید کننده نمایه
  1. خیلی ممنون خدا خیرتون بده سورس رو براتون فرستادم ببخشید باعث زحمت شدم
  2. ممنون از پاسخگویی تون کارم یکم بیخ پیدا کرده فکر کنم باید سورس رو بدم یه نگاه بندازین چون سه تا تیبل رو ریختم تو یه تیبل و اجرا کردم رو گوشی خودم جواب داد و همه ردیف ها مقدارشون از 0 به 1 تغییر کرد اما روی یه گوشی دیگه اجرا کردم روی 4 تا اکتیویتی اون ردیف ها که مقدارشون 0 هست وقتی کلیک می کنم پیام میده که درون پرداخت آماده نیست روی اکتیویتی اولی روی ردیف های 0 کلیک می کنم خطای زیر رو میده: java.lang.NullPointerException: Attempt to invoke virtual method 'void android.app.Activity.startIntentSenderForResult(android.content.IntentSender, int, android.content.Intent, int, int, int)' on a null object reference اگه سختتون نیست سورس بدم نگاه کنید
  3. مشکل این هست که من 3 تا تیبل دارم و وقتی پرداخت صورت میگیره فقط یک تیبل که مربوط به همون اکتیویتی میشه آپدیت میشه و مقادیرش از 0 به 1 تغییر می کنه ولی دوتا تیبل دیگه آپدیت نمیشه اینجوری خواستم هر سه تا تیبل رو آپدیت کنم ولی بازم جواب نداد: Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase) cr1=Main.sq1.ExecQuery("SELECT * FROM tblporang & tblomid & tblgolchin") If Success=True Then For i=0 To cr1.RowCount Main.sq1.ExecNonQuery("update tblporang & tblomid & tblgolchin set kharid=1 WHERE id="&i) Next ToastMessageShow("پرداخت با موفقیت انجام شد",False) ExitApplication Else ToastMessageShow("پرداخت انجام نشد",False) End If End Sub
  4. توی اکتیویتی اصلی به شکل زیر: If File.Exists(File.DirInternal,"sql1.db") =False Then File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db") End If sq1.Initialize(File.DirInternal,"sql1.db",False)
  5. سلام و عرض ادب مجدد بازم ممنون از جوابی که دادین اگه میشه یه راهنمایی دیگه بفرمایید مشکلی که برام ایجاد شده این هست که موقعی که خرید انجام میشه ستون خرید مقدارش از 0 به 1 تغییر نمی کنه و هر دفعه صفحه پرداخت رو میاره اینم کدهای قسمت پرداخت: Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase) cr1=Main.sq1.ExecQuery("SELECT * FROM tblporang WHERE id BETWEEN 1 AND 8 ") If Success=True Then For i=1 To 8 Main.sq1.ExecNonQuery("update tblporang set kharid=1 WHERE id="&i) Next ToastMessageShow("پرداخت با موفقیت انجام شد",False) Else ToastMessageShow("پرداخت انجام نشد",False) End If End Sub کدهای اکتیویتی کریت و ساب کلیک ایمیج ویو هم همون کدهای بالاست که فرمودین و ویرایش کردم... بازم ممنون
  6. داداش دستت درد نکنه مشکلم حل شد، خدا خیرت بده و ایشالله بری کربلا... اینجوری نوشتم حل شد: Sub Activity_Create(FirstTime As Boolean) cr1 = Main.sq1.ExecQuery For i = 0 To cr1.RowCount-1 cr1.Position = i Dim p As Panel p.Initialize("") Svtaraneh.Panel.AddView(p,0,h,100%x,100%y) h=h+40%y p.LoadLayout("item") Imgitem1.Bitmap=LoadBitmapSample(File.DirAssets,cr1.GetString("pporang1"),39%x,27%y) Imgitem1.Gravity=Gravity.FILL Imgitem2.Bitmap=LoadBitmapSample(File.DirAssets,cr1.GetString("pporang2"),39%x,27%y) Imgitem2.Gravity=Gravity.FILL Imgitem1.Tag=cr1.GetString("sporang1") & "#" & cr1.Getint("kharid") Imgitem2.Tag=cr1.GetString("sporang2") & "#" & cr1.Getint("kharid") Svtaraneh.Panel.Height=h+6%y next End sub Sub imgitem1_Click Dim im As ImageView im=Sender Dim StrCheck() As String = Regex.split("#",im.tag) If StrCheck(1) = 1 Then mp1.Load(File.DirAssets, StrCheck(0)) If mp1.IsPlaying = True Then mp1.Stop Else mp1.Play End If Else If isInappReady Then pardakht.RequestPayment("inapptarane","inapp","inapptarane1") Else ToastMessageShow("درون پرداخت آماده نیست",False) End If End If End Sub
  7. خیلی ممنون از وقتی که گذاشتید ولی تو پیاده سازیش به مشکل خوردم پست زیر رو هم دیدم ولی بازم نتونستم: https://answercenter.ir/topic/5695-استفاده-از-2تگ-در-باتن/#comment-37439 اگه براتون سخت نیست سورس رو براتون بفرستم یه نگاه بندازین چند روزه درگیرشم خیلی مطالب سایت رو هم دیدم ولی درست نشد...
  8. خیلی ممنون که جواب دادین حرفتون درسته ولی مشکل این هست که ایمیج ویوم یک تگ به این صورت داره: Imgitem1.Tag=cr1.GetString("sporang1") که آهنگ مربوط به اون ایمیج ویو رو پخش می کنه حالا چه جوری اون تگی که گفتید رو با هم اضافه کنم؟ یعنی در واقع یه تگ مربوط به آهنگ میشه و یه تگ مربوط به ستون خرید و هر دوتاش روی ایمیج ویو باید پیاده بشه دیگه
  9. لطفا کمک کنید فقط این بخشش مونده تا برنامه رو بذارم بازار چند ماهه درگیرشم دیگه حوصلم سر رفت از بس وقت گذاشتم براش اینم کدهام هست: Sub Globals Private Svtaraneh As ScrollView Private Pntaraneh As Panel Private Imgitem1 As ImageView Private Imgitem2 As ImageView Private pnitem As Panel '******************************************** Dim cr1 As Cursor Dim mp1 As MediaPlayer Dim h As Int=0 Dim offset As Int = 0 '******************************************* Dim pardakht As PersianBillingManager Dim key As String=".........." Private isInappReady As Boolean End Sub Sub Activity_Create(FirstTime As Boolean) pardakht.Initialize("pardakht",key) Activity.LoadLayout("taraneh") mp1.Initialize2("mp1") show("SELECT * FROM tblporang WHERE id BETWEEN 1 AND 8 LIMIT 8 OFFSET "&offset&"") End Sub Sub show(query As String) cr1 = Main.sq1.ExecQuery(query) For i = 0 To cr1.RowCount-1 cr1.Position = i Dim p As Panel p.Initialize("") Svtaraneh.Panel.AddView(p,0,h,100%x,100%y) h=h+40%y p.LoadLayout("item") Imgitem1.Bitmap=LoadBitmapSample(File.DirAssets,cr1.GetString("pporang1"),40%x,30%y) Imgitem1.Gravity=Gravity.FILL Imgitem2.Bitmap=LoadBitmapSample(File.DirAssets,cr1.GetString("pporang2"),40%x,30%y) Imgitem2.Gravity=Gravity.FILL Imgitem1.Tag=cr1.GetString("sporang1") Imgitem2.Tag=cr1.GetString("sporang2") Svtaraneh.Panel.Height=h+6%y Next End Sub Sub pardakht_BillingSupported (Supported As Boolean, Message As String) isInappReady=True End Sub Sub imgitem1_Click Dim im As ImageView im=Sender If cr1.Getint("kharid")=1 Then mp1.Load(File.DirAssets,im.Tag ) If mp1.IsPlaying = True Then mp1.Stop Else mp1.Play End If Else If isInappReady Then pardakht.RequestPayment("inapptarane","inapp","inapptarane1") Else ToastMessageShow("درون پرداخت آماده نیست",False) End If End If End Sub Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then For i=0 To cr1.RowCount-1 Main.sq1.ExecNonQuery("UPDATE tblporang SET kharid=1 WHERE id="&i) Next ToastMessageShow("پرداخت با موفقیت انجام شد",False) Else ToastMessageShow("پرداخت انجام نشد",False) End If End Sub اینم تصویر دیتابیسم:
  10. سلام و درود خدمت همه اساتید انسر سنتر بنده داخل برنامم یه مولتی پنل دارم که داخلش دوتا ایمیج ویو هست و وقتی روی اونا کلیک میشه آهنگ مخصوص اون پخش میشه اطلاعات رو هم از دیتابیس میگیرم و یه ستون به اسم خرید دارم که آهنگ های رایگان رو 1 دادم و قسمت پولی رو 0 ولی موقعی که روی آهنگا کلیک میشه برای همه میزنه باید پرداخت صورت بگیره یعنی فقط میاد آخرین ردیف از ستون خرید که 0 هست رو اجرا می کنه اگرم پرداخت صورت نگیره و دوباره روی یه آهنگ دیگه کلیک بشه خطا میده ممنون میشم راهنماییم کنید
×
×
  • جدید...