محمدرضا شاهپیری

از شما دوست عزیز و همچنین دوستی که نقد کردن کتابخونه رو تشکر میکنیم و از همه دوستان تقاضا میشه که اگر نقدی دارن ( به شرط سازنده بودن نه به نیت تخریب ) استقبال کامل میشه. همونطوری که بقیه کتابخونه های بنده نیز به همین منوال بوده و اشکالاتشون با کمک دوستان برطرف شده.

اما درخصوص نقدهایی که وارد شده باید عرض کنم که بعضا درست وبعضا درست نیست. هر کسی سلیقه متفاوت داره تو ساختن کتابخونه و کلا سبکهای برنامه نویسی هرکسی با شخص دیگه قطعا متفاوته. اینکه کلاسه زیادن یا کمن کاملا به سلیقه شخص بستگی داره و این رو نمیشه ضعف دونست برای کتابخونه به خاطر اینکه هر کسی بعداز کار با کتابخونه بعد از یه مدت به متدها و کلاسهاش مسلط میشه.

اینکه کتابخونه بدون لیست نمیتونه فعالیت کنه مطلب درستی هست و قطعا تو ورژن های بعدی علاوه بر امکانات زیاد دیگه ای که قرار هست اضافه بشه این موارد هم اصلاح میشه.

درمورد بقیه نقدها هم باید بگم که هموی موارد درون کتابخونه انجام میشه. notify ها و getitemcount به صورت خودکار بعد از اعمال توی بیسیک به وسیله کتابخونه انجام میشه.

موفق و پیروز باشید.

در 36 دقیقه قبل، sourse گفته است :

 

{"ok":true,"result":{"user":{"id":42521,"is_bot":false,"first_name":"محقق","language_code":"en-US"},"status":"left"}}

 

Dim pr As PersianJSONOBject
pr.initialaizJsonString("YOURJSON")
'''''''''''''''''''''''''''''''''''''''جیسون اصلی 

Dim ok As Boolean=pr.getBoolean("ok")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim result As PersianJSONOBject=pr.getJsonObject("result")
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''' آبجکت result
Dim user As PersianJSONOBject=result.getJsonObject("user")
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' آبجکت user

Dim id As Int=user.getInt("id")
Dim is_bot As Boolean=user.getBoolean("is_bot")
Dim first_name As String=user.getString("first_name")
Dim language_code As String=user.getString("language_code")
'''''''''''''''''''''''''''''''''''''''''''''''''''
Dim status As String =result.getString("status")

کتابخونه آپدیت شد عزیز. متد اضافه شده. تبدیل مپ به جیسون ابجکت.

نحوه استفاده.

Dim m As Map
m.Initialize
m.Put("key1","value1")
m.Put("key2","value2")
m.Put("key3","value3")
m.Put("key4","value4")
Dim pr As PersianJSONOBject
Dim prj2 As PersianJSONOBject=pr.mapToObject(m)
Label1.Text= prj2.toString

در 41 دقیقه قبل، arastooms گفته است :

 

سلام و درود.

توضیح اینکه xml چی هست که بحث طولانی هست و توی این تاپیک نمیگنجه.

به صورت خلاصه درصد خیلی زیادی از برنامه ی اندرویدی رو xml تشکیل میده و کار اون ذخیره اطلاعات حالا چه بصری و چه داده های متنی توی اندروید هست و بدون اون واقعا اپهای اندروید ضعفهای زیادی دارن.

علت اینکه بنده توصیه میکنم حتما از xml برای طراحی لیوت استفاده کنید به خاطر سرعت و انعطاف بالای این زبان هست. لیوتهای بیسیک به هیچ وجه استاندارد نیستن و مموری زیادی برای لود کردن اونا اشغال میشه به همین خاطر استفاده از اونها برای طراحی لیوت استفاده نمیشه.

انشالا توی آموزشها خودتون تفاوتها رو میبینید و متوجه اصرار بنده میشید.

در 2 ساعت قبل، dostmobile گفته است :

 

apk به خاطر یه سری مسائل گذاشته نمیشه عزیز.

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

در هم اکنون، davoodebrahimi گفته است :

فعلا فیلم رو ندیدم؛منظورم حداقل ای پی آی بود؛؛همهء ای پی آی هارو ساپورت میکنه؟

4 به بالا رو مطمئنم ساپورت میکنه چون خودم تست کردم. که فکر کنم کافی هم باشه. برای بقیه هم بعید میدونم مورد خاصی داشته باشه چون ریسورس خاصی نداره که بخواد مورد اینجاد کنه .دیگه الان اندروید زیر 4 واقعا تعدادش محدوده و میشه ازش چشم پوشی کرد. به هر حال اگه مشکل خاصی توی ورژن خاصی هم بود اگه بتونم حتما برطرفش میکنم.

در 5 دقیقه قبل، davoodebrahimi گفته است :

دست شما درد نکنه جناب شاهپیری عزیز؛یکی از نیازهای اساسی بیسیک بود

کتابخونه های مشابه محدودیت ورژن اندروید دارن؛؛این که شما ارایه دادین چطور؟؟(ای پی آی چند به بالا رو ساپورت میکنه؟یا روی همه شون کار میکنه؟)

خیر دوست عزیز. محدودیتی نداره. توی فیلم آموزشی هم اگه ببینید ورژن اندروید برای تست 7.1.1 هست که میشه گفت الان آخرین نسخه هست.

هر وقت گوگل کتابخونه رو آپدیت کنه بنده هم کتابخونه رو به آخرین ورژن گوگل ارتقا میدم که دوستان بتونن از آخرین ویژگی های این کتابخونه عظیم بهره ببرن

در در 1396/06/16, 16:16:18، Ebi99 گفته است :

 

نسخه جدید و نحوه استفاده اضافه شد عزیز.

در ۱ ساعت قبل، rasool.g گفته است :

 

خیر عزیز گرفتن خروجی apk نیاز به دسترسی روت نداره.

در ۱ ساعت قبل، arastooms گفته است :

 

بله به کتابخونه اضافه میشه انشالا. زمان دقیقشو نمیدونم ولی نهایتا یکی دوروز آینده.

بنده باید تشکر کنم از شما که با صبر و حوصله مشکلات و کمبودهای کتابخونه رو به به بنده تذکر دادید. بنده که انجام وظیفه کردم عزیز. موفق باشید

نسخه جدید کتابخونه PersianJson آپلود شد عزیز.

متدهای اضافه شده.

isKeyExsit

isKeyisArray

isKeyisNull

If pr.isKeyExsit("key") Then
	ToastMessageShow("exist  ",False)
	Else
	ToastMessageShow("not exist",False)
	
End If

در 17 دقیقه قبل، arastooms گفته است :

 

تا شب آماده میشه عزیز. درگیر ریسایکلر ویوام فعلا

در 9 دقیقه قبل، arastooms گفته است :

آیا روشی هست که مثلا اگر مقدار رسیده message اصلا وجود نداشت در جی سان
یا خالی بود و یا یک آرایه بود متوجه بشیم و بگیم

دو خط بالا هم کافی بود عزیزم

متدش هست که چک کنه فلان کلید وجود داره یا نه.

اعمال میکنم و میتونید دریافت کنید

پسوند فایل تاثیری تو روند برنامه نداره عزیز.

من با فیلم 900 مگابایتی با پسوند mkv تست کردم. موردی نداره و آپلود میکنه.

آدرسها رو چک کنید.

اگه اروری چیزی میده هم ذکر کنید که راهنمایی بهتر صورت بگیره

نسخه جدید اضافه شد.
مثال استفاده برای جیسون خودتون.

{"as":"AS12874 Fastweb","city":"Turin","country":"Italy","countryCode":"IT","isp":"Fastweb","lat":45.05,"lon":7.6667,"org":"Fastweb","query":"93.36.162.171","region":"21","regionName":"Piedmont","status":"success","timezone":"Europe/Rome","zip":"10127"}

Dim prjs As PersianJSONOBject
prjs.initialaizJsonString(JsonString)

Dim root As Map =prjs.MapObject

Dim zip As String = root.Get("zip") 
Dim country As String = root.Get("country") 
Dim city As String = root.Get("city") 
Dim org As String = root.Get("org") 
Dim timezone As String = root.Get("timezone") 
Dim isp As String = root.Get("isp") 
Dim query As String = root.Get("query") 
Dim regionName As String = root.Get("regionName") 
Dim lon As Double = root.Get("lon") 
Dim as As String = root.Get("as") 
Dim countryCode As String = root.Get("countryCode") 
Dim region As String = root.Get("region") 
Dim lat As Double = root.Get("lat") 
Dim status As String = root.Get("status") 

اضافه میشه این امکان. بررسی میکنم.

ارور که مشخصه عزیز. JSONException به وجود اومده. چیزی که گرفتین جیسون نبوده و شما به عنوان جیسون استفاده کردین.

اما شما منظورتون از موقع ارسال یعنی چی؟ کجا این اتفاق افتاده؟

این همه مشکل عجیب غریب از کجا میاد خدایی؟

سورسشو نوشتم براتون.

test_arastoo.rar

در در 1396/06/16, 15:59:44، Ebi99 گفته است :

 

برای بیسیک امکانش نیست فعلا عزیز. فعلا لیوت coordinator برای بیسیک نیومده.

در هم اکنون، arastooms گفته است :

 

خیلی سادس که.

Sub senddata(url As String)
	PersianFastNetwork_1.initializeforSSLSupport("persianfastnetwork")
	PostRequest_1=PersianFastNetwork_1.BuildPostQuery(url,"tag1")
	Dim json As String =("{'client_request':'get_city_data','country_key':'21'}").replace("'",QUOTE)
	Dim prjs As PersianJSONOBject
	prjs.initialaizJsonString(json)
	PostRequest_1.addJSONParametrs(prjs.DefaultJsonObject)
	PostRequest_1.executeRequesAsJSONObjectt
End Sub

در هم اکنون، amir386 گفته است :

 

تست کردم موردی نداره عزیز. تایمر رو هم روی 2 ثانیه گذاشتم و بدون هیچ مشکلی روی سه تا دیوایس اطلاعات رو میگیره.

شما دقت داشته باشین حتما از initializeforSSLSupport برای اینشیالایز کردن استفاده کنید چون سایت ssl داره 

این مطالبی که فرمودین چه ربطی به کتابخونه داره عزیز؟ 

شما وقتی از متد initializString استفاده میکنید هر جیسونی رو به عنوان ورودی میتونید بدید. 

مشکل اینه که شما نمیتونید جیسون رو به سادگی به صورت یه متغیر استرینگ توی بیسیک در بیارید. شما میتونید جیسونی که میخواین رو توی یه فایل تکست بزارین و با دستور file.readstring اونو بخونید و به کتابخونه بدین بدون هیچ مشکلی.

در ۱ ساعت قبل، amir386 گفته است :

 

Api ها رو بدین بررسی کنم.

بعید میدونم مشکل از کتابخونه باشه. شاید تلگرام محدودیت گذاشته