کتابخانه AriaLib (اشتراک گذاری)

[amirsafari 116]

باید بگم که شاهکاره. عالی .موفق باشید

[reza_banafi 0]

 

سلام به همه دوستان

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

شما که حرفه ای هستید ولی فکر کنم به درد تعدادی که در خواست سورس رو داده بودن , بخوره

لطفا سورس رو کامل کنید

با سپاس فراوان...

 

 

*پست ویرایش شد :

کد زیر رو هم به Manifest Editor اضافه کنید (برای تست اینترنت):

Addpermission("android.permission.ACCESS_NETWORK_STATE")

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

[امین شاهدی 5,765]

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

 

از کلس AriaMarkets استفاده کنید

[حمید زارع 331]

آقا واسه من OpeninCafebazaar رو نداره چه کار کنم ؟

[salar_blackdroid 408]

آقا واسه من OpeninCafebazaar رو نداره چه کار کنم ؟

 

این متود در ورژن جدید تغییر نام داده شده !

[yasin011 285]

سلام دوستان به مشکل منم رسیدگی کنین لطفا. 

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

Sub Globals
Dim i As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll")
Dim top As Int = 10%y
For i=1 To 8
ImageView1.Initialize("")
p.Initialize("")
p.LoadLayout("menu")
ScrollView1.Panel.AddView(p,10%x,top,80%x,70%y)
ImageView1.Bitmap = LoadBitmap(File.DirAssets,i&".jpg")
ImageView1.Gravity = Gravity.FILL
ImageView1.Tag = i
top = top + 100%y 
ScrollView1.Panel.Height = top
NextEnd Sub

Sub ImageView1_Click
Dim x As ImageView
x= Sender
ersal.SharePic(File.DirAssets,x.Tag &".jpg","share pic whith:")
End Sub

نمیدونم چرا کار نمیکنه 

[امین شاهدی 5,765]

این متد رو توی startactivity بزارین 

startactivity(ersal.SharePic(File.DirAssets,x.Tag &".jpg","share pic whith:"))

[alirezn 68]

شما که این همه زحمت کشیدین

خوب یه فیلم آموزشی هم مساختین

[Elyas Erfani 3,582]

شما که این همه زحمت کشیدین

خوب یه فیلم آموزشی هم مساختین

 

این از اوزش قسمت های مهم

 

http://answercenter.ir/topic/4690-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%82%D8%B3%D9%85%D8%AA-%D9%87%D8%A7%DB%8C-%D9%85%D9%87%D9%85-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-arialib/

 

دوما میتونید خودتون میتونید فانکشن هارو ببینید و کار کنید

[parhamahmadi78 93]

ممنون از کتابخونه 

 

url ها رو پشتیبانی میکنه؟

[jen0099 22]

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

لطفا درصورت امکان مارکت پلازا را هم به کتابخانه اضاف کنید (صفحه نظرات و ...)

با تشکر

[امین شاهدی 5,765]

ممنون از کتابخونه 

 

url ها رو پشتیبانی میکنه؟

میشه منظورتون رو واضح تر بگید ؟ 

 

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

لطفا درصورت امکان مارکت پلازا را هم به کتابخانه اضاف کنید (صفحه نظرات و ...)

با تشکر

 

ممنون ، مارکت پلازا اینتنتی برای ارجاع بهش نداره .

[asajadi84 567]

سلام.

اگه میشه یه امکانی بهش اضافه کنید که خودش بپرسه توی چه مارکتی عملیات انجام بشه!

مثل این عکس:

[امین شاهدی 5,765]

سلام.

اگه میشه یه امکانی بهش اضافه کنید که خودش بپرسه توی چه مارکتی عملیات انجام بشه!

مثل این عکس:

 

این امکان توی چند تا ورژن قبلی اضافه شده بود ، از این متد استفاده کنید : 

Dim AM As AriaMarkets
AM.AllMarkets_SafheBarname(package)

[sajjadrastin 100]

کد این که یک عکس رو بلا فاصله به گالری اضافه کنیم چیه؟

[farshid71 3]

سلام

من کارهایی که گفتین انجام دادم اما وقتی برنامه رو اجرا میکنم این ارور رو میده

این تصویر ارور

http://up.pupmusic.ir/view/1126117/صوره_20160107_090319.jpg

 

اینم کد برنامه که نوشتم

#Region Project Attributes
#ApplicationLabel: ساخت شماره مجازی
#VersionCode: 1
#VersionName: 1.0.0
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private ListView1 As ListView
Dim intent1 As AriaMarkets

End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("menu")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ساخت منو''''''''
ListView1.AddSingleLine2(" آموزش دریافت شماره مجازی",1)
ListView1.AddSingleLine2(" دانلود برنامه مورد نیاز",2)
ListView1.AddSingleLine2(" آموزش استفاده از شماره در تلگرام",3)
ListView1.AddSingleLine2(" درباره ما",4)
ListView1.AddSingleLine2(" سایر برنامه ها",5)
ListView1.AddSingleLine2(" خروج",6)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
　
End Sub
　
Sub ListView1_ItemClick (Position As Int, Value As Object)
Select Case Value
Case 1
StartActivity(a)
Case 2
StartActivity(danlod)
Case 3
StartActivity(b)
Case 4
Msgbox("این برنامه با تلاش های شبانه روزی بدست آمده پس خواهشاً نسخه اصلی رو خریداری کنید و اگر نسخه رایگان دریافت کردید از طریق تماس با ما در میان بگذارید","درباره ما")
Case 5
Dim am As AriaMarkets
Try
am.Cafebazaar_SafheToseDahande("pupmusic")
Catch
ToastMessageShow("برنامه بازار بر روی گوشی شما نصب نمیباشد",False )
End Try
Case 6
Dim ext As Int
ext = Msgbox2("آیا قصد خروج دارید؟","","بلی","نظر سنجی","خیر",Null)
If ext = -1 Then
ExitApplication
Else If ext =-3 Then
Try
intent1.Cafebazaar_SafheNazar("ir.pupmusicir.amozesh")
Catch
ToastMessageShow("برنامه بازار بر روی گوشی شما نصب نمیباشد",False )
End Try
'intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id= ir.pupmusicir.amozesh_d_sh_m")
' StartActivity(intent1)
End If
Activity.Finish

End Select
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim ext As Int
ext = Msgbox2("آیا قصد خروج دارید؟","","بلی","نظر سنجی","خیر",Null)
If ext = -2 Then
ExitApplication
Else If ext =-3 Then
Try
intent1.Cafebazaar_SafheNazar("ir.pupmusicir.amozesh")
Catch
ToastMessageShow("برنامه بازار بر روی گوشی شما نصب نمیباشد",False )
End Try 'intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id= ir.pupmusicir.amozesh_d_sh_m")
'StartActivity(intent1)
End If
Activity.Finish
End If

​ممنون میشم راهنمایی کنید

[امین شاهدی 5,765]

سلام ، اولا کد هاتون رو توی تگ قرار بدین ما بفهمیم چیه حداقل ! !

 

شما کد های آریا مارکت رو توی try catch قرار دادین و ارور نمیده هیچوقت ، ارور شما از اونا نیست 

[farshid71 3]

ممنون بدون کتابخانه حل شد با intent

ولی مشکل از کتابخانه بود

چون وقتی Dim رو پاک کردم برنامه بالا اومد ولی وقتی dim بود از برنامه خارج میشد

[101011 50]

سلام خسته نباشید
من کتابخانه Arialib  رو دارم ورژن 5.1 ولی وقتی این دوتا متغییر رو نمیتونم تعریف کنم

کسی میتونه راهنمایی کنه

Dim P As PackageManager2
  
 Dim d As ListLineClear
ممنون میشم راهنمایی کنید

اگه کتابخانه دیگه ای نیاز داره برام آپ کنید و یا اگر نسخه دیگری از کتابخانه اریا هست بهم بدید.تشکر

[امین شاهدی 5,765]

سلام خسته نباشید

من کتابخانه Arialib  رو دارم ورژن 5.1 ولی وقتی این دوتا متغییر رو نمیتونم تعریف کنم

کسی میتونه راهنمایی کنه

Dim P As PackageManager2

  

 Dim d As ListLineClear

ممنون میشم راهنمایی کنید

اگه کتابخانه دیگه ای نیاز داره برام آپ کنید و یا اگر نسخه دیگری از کتابخانه اریا هست بهم بدید.تشکر

 

دلاور اینا اصلا ربطی به این کتابخونه نداره که