رفتن به مطلب

majid08

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

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

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

  • روز های برد

    2

آخرین بار برد majid08 در 30 خرداد 1398

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

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

266 عالی

6 دنبال کننده

درباره majid08

  • درجه
    کاربر رو به رشد
  • تاریخ تولد تعیین نشده

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

  • محل تولد
    فارس

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

3,390 بازدید کننده نمایه
  1. majid08

    drag and drop

    سلام ببین ویو رو بزار توی یک پنل بعد کد زیر رو استفاده کنید Sub Panel_Touch (Action As Int, X As Float, Y As Float) Select Action Case Activity.ACTION_MOVE Label1.Left = X Label1.Top = Y End Select End Sub
  2. سلام نمیشه رنگ هر ایتم رو تغییر داد فکر کنم از این استفاده کنید خیلی بهتر هست و راحت تر https://www.b4x.com/android/forum/threads/b4x-xui-xcustomlistview-cross-platform-customlistview.84501/
  3. majid08

    کتابخانه irSocket.io

    سلام من این کابخونه خوب رو چک کردم یه مشکل داره انگار البته خود کتابخونه مشکلی نداره فقط روی تارگت بالای 26 به سرور وصا نمیشه
  4. سلام خود سمپل رو هم ران میکنم با اینکه فونتش توی فایل ها هست ولی بازم ارور میده
  5. سلام و خسته نباشیدموقع کلیک ارور میده java.lang.RuntimeException: Unable to start activity ComponentInfo{b4a.example/com.yuyh.library.imgsel.ui.ISListActivity}: java.lang.RuntimeException: Font asset not found iransansmobile.ttf
  6. سلام بسیار عالی فقط یه سوال برای نمایش دادن عکس ها موقع انتخاب از چی استفاده کردین(منظورم گلاید هست یا چیز دیگه ای) چون من یه چنتا کتابخونه پیدا کردم برای انتخاب عکس به صورت چنتایی از گالری ولی همه با گلاید مشکل داشتن
  7. سلام ببخشید من این ارور رو دارم چیکار کنم

    B4A Version: 8.00
    Parsing code.    (0.00s)
    Compiling code.    (0.38s)
    Compiling layouts code.    (0.01s)
    Organizing libraries.    (0.00s)
    Generating R file.    (13.22s)
    Compiling debugger engine code.    (9.58s)
    Compiling generated Java code.    Error
    B4A line: 56
    http.Execute(request,1)
    javac 1.8.0_131
    src\com\faradars\project1\main.java:414: error: cannot access ClientProtocolException
    _http.Execute(processBA,_request,(int) (1));
                 ^
      class file for org.apache.http.client.ClientProtocolException not found

    1. majid08

      majid08

      سلام به تلگرام من پیان بدین

      @goodarzi1

    2. sepidar1996

      sepidar1996

      دسستون درد نکنه♥

  8. سلام ممنونم این رو دارم اینی که دادم میاد از دانلودر خود گوشی استفاده میکنه که البته همینی شما دای هم از دانلودر گوشی استفاده میکنه منتها این برای اندروید های بالای 5 بهینه شده
  9. سلام این کتابخانه رو اگر میشه دانلود کنید تشکر https://www.b4x.com/android/forum/attachments/downloadprogressviewex-zip.38639/ https://www.b4x.com/android/forum/attachments/libdownloadprogressviewv1-0-2-zip.38640/
  10. سلام {"AdsPosts":[{"id":"1","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u0647","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u0641\u0644\u0633\u0637\u06cc\u0646","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"},{"id":"2","Title":"\u0627\u0633\u062a\u062e\u062f\u0627\u0645 \u0641\u0631\u0648\u0634\u0646\u062f\u06472","Image":"http:\/\/192.168.1.100\/Divar\/image\/1.png","Adress":"\u0645\u0634\u0647\u062f\u060c \u067e\u06cc\u0631\u0648\u0632\u06cc","Time":"0","Location":"0","Catagory":"\u0641\u0631\u0648\u0634\u0646\u062f\u0647","jobdone":"ok"}]}
  11. سلام اگر میشه این رو برام تبدیل کنید به PersianJson Dim parser As JSONParser parser.Initialize(Json) Dim root As Map = parser.NextObject Dim NewPosts As List = root.Get("NewPosts") For i = 0 To NewPosts.Size-1 Dim colNewPosts As Map = NewPosts.Get(i) Dim id As String = colNewPosts.Get("id") Dim onvan As String = colNewPosts.Get("onvan") Next ممنونم
  12. اموزش ساخت بازی امیرزا با بیسیک4اندروید

    1. arastooms

      arastooms

      آقاااااا
      شرمنده میکنید
      لینک رو هم قرار بدید پس

       

    2. majid08

      majid08

      سلام

      https://irb4x.ir

      توی سایت هست

  13. سلام

    چنتا برنامه با کیفیت دارم

    نیاز به کسی دارم که بتونه برنامه ها رو بیاره بالا توی پوشه

    و 60 درصد درامد رو میتونه بگیره تا 6 ماه

    درامد از پوش هست

    TelegramID: http://T.me/Goodarzi1

    1. farshid-k

      farshid-k

      متوجه نشدم درست بیشتر توضیح میدین؟

    2. Negan

      Negan

      مجید جان منطقی نیست اینجور :oops: بیست تومن بریزیم رو اپ اونوقت 60 درصد برای شیش ماه ؟

      اگ اپ هارو میفروشین درخدمتم 

    3. majid08
  14. سلام ایا امکان دانلود توی ترد هست یا خیر؟ دانلود یم صفحه معمولی php که جیسون میده
  15. سلام مجدد این کلاس واسه کتابخانه زدین پال هست توش از OkHttp استفاده شده که کتابخانه شما با این مشکل داره اگر زحمت بکشید کدهاش رو تبدیل کنید به کتبخانه خودتون ممنون میشم هم قسمت جیسونش و هم دانلودش 2 تا کتابخانه رو هم گرفتم این لینک گیت هاب GitHub - Seyyed-Morteza-SeyyedAghaei/ZarinPal-Sample-For-B4A اینم کدهاش #Event : ResultPaymentRequest(Result As ResultPaymentRequest) #Event : ResultVerificationPayment(Result As ResultVerificationPayment) Private Sub Class_Globals Private MERCHANT_ID_PARAMS = "MerchantID" As String Private AMOUNT_PARAMS = "Amount" As String Private DESCRIPTION_PARAMS = "Description" As String Private CALLBACK_URL_PARAMS = "CallbackURL" As String Private MOBILE_PARAMS = "Mobile" As String Private EMAIL_PARAMS = "Email" As String Private AUTHORITY_PARAMS = "Authority" As String Private PAYMENT_GATEWAY_URL = "https://www.zarinpal.com/pg/StartPay/" As String Private PAYMENT_REQUEST_URL = "https://www.zarinpal.com/pg/rest/WebGate/PaymentRequest.json" As String Private VERIFICATION_PAYMENT_URL = "https://www.zarinpal.com/pg/rest/WebGate/PaymentVerification.json" As String Type ResultPaymentRequest(Status As Int,Authority As String,Url As String,Intent As Intent) Type ResultVerificationPayment(IsPaymentSuccess As Boolean,RefID As String,Payment As ZPaymentRequest) Type ZPaymentRequest(MerchantID As String,Amount As Long,Description As String,CallbackURL As String,Email As String,Mobile As String,Authority As String) Private vPayment As ZPaymentRequest Private event As String Private target As Object End Sub 'Initializes the object. You can add parameters to this method if needed. Public Sub Initialize(EventName As String,TargetModule As Object) event = EventName target = TargetModule End Sub Private Sub getPaymentRequestJson(ZPaymentRequest As ZPaymentRequest) As String Dim jg As JSONGenerator jg.Initialize(CreateMap(MERCHANT_ID_PARAMS : ZPaymentRequest.MerchantID,AMOUNT_PARAMS : ZPaymentRequest.Amount,DESCRIPTION_PARAMS : _ ZPaymentRequest.Description,CALLBACK_URL_PARAMS : ZPaymentRequest.CallbackURL,MOBILE_PARAMS : ZPaymentRequest.Mobile, _ EMAIL_PARAMS : ZPaymentRequest.Email)) Return jg.ToString End Sub Public Sub StartPayment(ZPaymentRequest As ZPaymentRequest) Dim SP As HttpJob SP.Initialize("StartPayment",Me) vPayment = ZPaymentRequest SP.PostString(PAYMENT_REQUEST_URL,getPaymentRequestJson(ZPaymentRequest)) SP.GetRequest.SetContentType("application/json") End Sub Private Sub JobDone(Job As HttpJob) If Job.Success Then Dim jp As JSONParser jp.Initialize(Job.GetString) Dim Result As Map = jp.NextObject Select Job.JobName Case "StartPayment" Dim Intent As Intent,Url As String = PAYMENT_GATEWAY_URL&Result.Get("Authority") Intent.Initialize(Intent.ACTION_VIEW,Url) Dim ResultPayment As ResultPaymentRequest ResultPayment.Initialize ResultPayment.Authority = Result.Get("Authority") ResultPayment.Intent = Intent ResultPayment.Status = Result.Get("Status") ResultPayment.Url = Url vPayment.Authority = ResultPayment.Authority CallSub2(target,event&"_ResultPaymentRequest",ResultPayment) Case "VerificationPayment" Dim ResultVarification As ResultVerificationPayment ResultVarification.Initialize ResultVarification.IsPaymentSuccess = True ResultVarification.RefID = Result.Get("RefID") ResultVarification.Payment = vPayment CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification) End Select Else Select Job.JobName Case "StartPayment" Try Dim ResultPayment As ResultPaymentRequest ResultPayment.Initialize ResultPayment.Authority = Null ResultPayment.Intent = Null ResultPayment.Status = Result.Get("Status") ResultPayment.Url = Null CallSubDelayed2(target,event&"_ResultPaymentRequest",ResultPayment) Catch Log(LastException) End Try Case "VerificationPayment" Try Dim ResultVarification As ResultVerificationPayment ResultVarification.Initialize ResultVarification.IsPaymentSuccess = False ResultVarification.RefID = Null ResultVarification.Payment = vPayment CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification) Catch Log(LastException) End Try End Select End If Job.Release End Sub Public Sub VerificationPayment(Intent As Intent) If Intent = Null Or Not(Intent.IsInitialized) Then Return Dim r As Reflector r.Target = Intent r.Target = r.RunMethod("getData") If r.Target = Null Or vPayment = Null Or Not(r.RunMethod("isHierarchical")) Then Return Dim VP As HttpJob VP.Initialize("VerificationPayment",Me) Dim jg As JSONGenerator Dim vAuthority As String = r.RunMethod2("getQueryParameter","Authority","java.lang.String") If vAuthority <> vPayment.Authority Or Not(r.RunMethod2("getQueryParameter","Status","java.lang.String") = "OK") Then Dim ResultVarification As ResultVerificationPayment ResultVarification.Initialize ResultVarification.IsPaymentSuccess = False ResultVarification.RefID = Null ResultVarification.Payment = vPayment CallSubDelayed2(target,event&"_ResultVerificationPayment",ResultVarification) End If jg.Initialize(CreateMap(AUTHORITY_PARAMS : vPayment.Authority,MERCHANT_ID_PARAMS : vPayment.MerchantID,AMOUNT_PARAMS : vPayment.Amount)) VP.PostString(VERIFICATION_PAYMENT_URL,jg.ToString) VP.GetRequest.SetContentType("application/json") End Sub ممنونم
×
×
  • جدید...