رفتن به مطلب

majid08

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

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

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

  • روز های برد

    2

تمامی مطالب نوشته شده توسط majid08

  1. سلام من یه برنامه دارم که با بیسیک نوشته شده الان اپدیتش رو با فلاتر نوشتم ولی امضای بیسیک رو میزارم روش موقع نصب مینویسه برنامه نصب نشد کسی راهی بلده که بشه کلید رو تبدیل کرد برای اندورید استودیو تشکر
  2. 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
  3. سلام نمیشه رنگ هر ایتم رو تغییر داد فکر کنم از این استفاده کنید خیلی بهتر هست و راحت تر https://www.b4x.com/android/forum/threads/b4x-xui-xcustomlistview-cross-platform-customlistview.84501/
  4. majid08

    کتابخانه irSocket.io

    سلام من این کابخونه خوب رو چک کردم یه مشکل داره انگار البته خود کتابخونه مشکلی نداره فقط روی تارگت بالای 26 به سرور وصا نمیشه
  5. سلام خود سمپل رو هم ران میکنم با اینکه فونتش توی فایل ها هست ولی بازم ارور میده
  6. سلام و خسته نباشیدموقع کلیک ارور میده 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
  7. سلام بسیار عالی فقط یه سوال برای نمایش دادن عکس ها موقع انتخاب از چی استفاده کردین(منظورم گلاید هست یا چیز دیگه ای) چون من یه چنتا کتابخونه پیدا کردم برای انتخاب عکس به صورت چنتایی از گالری ولی همه با گلاید مشکل داشتن
  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 ممنونم
  16. سلام چرا با کتابخانه OkHttp مشکل داره؟ Convert byte code - optimized dex. Error Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokhttp3/internal/platform/JdkWithJettyBootPlatform$JettyNegoProvider; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$1; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$2; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/AsyncTimeout$Watchdog; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Base64; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer$1; Uncaught translation error: java.lang.IllegalArgumentException: already added: Lokio/Buffer$2; UNEXPECTED TOP-LEVEL EXCEPTION: java.lang.RuntimeException: Translation has been interrupted at com.android.dx.command.dexer.Main.processAllFiles(Main.java:689) at com.android.dx.command.dexer.Main.runMultiDex(Main.java:368) at com.android.dx.command.dexer.Main.run(Main.java:277) at com.android.dx.command.dexer.Main.main(Main.java:247) at com.android.dx.command.Main.main(Main.java:106) Caused by: java.lang.InterruptedException: Too many errors at com.android.dx.command.dexer.Main.processAllFiles(Main.java:681) ... 4 more
  17. سلام یک مسل دارم فقط اونم اینه که موقع اپلود فایل درصد که میخام بگیرم بجاش انگاز سایز اپلود میده نه درصد پطور درصد بگیرم ازش؟
  18. سلام با تشکر از کتابخانه خوبتون میشه این مشکل اپلود فایل من رو حل کنید کدهای بیسیک Dim pr As PersianFastNetwork Private upl As UploadRequest pr.initialize("pr") upl=pr.BuildUploadQuery(all_D_cod.hostname&"/up_image_post.php","image_post1") upl.addMultipartFile("image",fp) upl.startUploadAsJSONObject Sub pr_onJSONObjectUploadOK(JsonString As String , Tag As String ) ProgressDialogHide Log(JsonString) End Sub و طرف php <?php // Path to move uploaded files $target_path = "up_image_post/"; // array for final json respone $response = array(); // final file url that is being uploaded if (isset($_FILES['image']['name'])) { $target_path = $target_path . basename($_FILES['image']['name']); try { // Throws exception incase file is not being moved if (!move_uploaded_file($_FILES['image']['tmp_name'], $target_path)) { // make error flag true $response['error'] = true; $response['message'] = 'Could not move the file!'; } } catch (Exception $e) { // Exception occurred. Make error flag true $response['error'] = true; $response['message'] = $e->getMessage(); } } echo json_encode($response); ?> ممنونم میشم راهنمایی کنید
  19. ا خب این واه کتابخانه زرین پال هست و متد هاش دست من نیست ایا امکانش هست که برای این کتابخانه زرین پال رو درست کنید 1 دونه کلاس اماده هست
  20. سلام بله حله فقط این رو من میخام تبدیل کنم ارور میده میشه راهنمایی کنید Private Sub getPaymentRequestJson(ZPaymentRequest As ZPaymentRequest) As JSONGenerator 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 Dim SP As HttpJob SP.Initialize("StartPayment",Me) vPayment = ZPaymentRequest SP.PostString(PAYMENT_REQUEST_URL,getPaymentRequestJson(ZPaymentRequest)) SP.GetRequest.SetContentType("application/json") این با کتابخانه httputils بوده میخام عوض کنم ارور میده این رو نوشتم Dim download As PersianFastNetwork download.initialize("download").BuildPostQuery(PAYMENT_REQUEST_URL,"StartPayment") _ .addJSONParametrs(getPaymentRequestJson(ZPaymentRequest)) _ .executRequesAsString
  21. سلام و خسته نباشید واقعلا کتابخونه پرسرعت وعالی هست دارم توی چنتا پروژه بزرگ استفاده میکنم فقط الان یه چیزی کم داره
  22. سلام و خسته نباشید واقعلا کتابخونه پرسرعت وعالی هست دارم توی چنتا پروژه بزرگ استفاده میکنم فقط الان یه چیزی کم داره SetContentType("application/json") این قسمت رو نداره نمیشه SetContentType کرد اگر لطف کنید اضافه کنید عالی میشه ممنونم
  23. سلام مجدد خدمت استاد اگر لطف کنید باشه بهتره چون برای استفاده از Api گوگل برای اینکه هدر زبان فارسی بفرستیم و مقادیر برگشتی فارسی باشه لازمه ممنونم از لطف شما
  24. سلام یک سوال داشتم من نیاز دارم که بتونم یه هدر هایی رو بفرستم موقع دانلود SetHeader کنم ایا امکانش هست
  25. سلام میگم نمیشه برای AriaAsyncTaskDownloader یک هدر ست کرد این رو SetHeader("Accept-Language", "FA") ممنونم
×
×
  • جدید...