mahdi tahan

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

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

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

این چیه؟ی لاگ بگیر ببین چی مینویسه

میتونی شرط بزاری اگ ابعادش از ی حدی بزرگتر شد طور دیگ نشون بده

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

خوب جوابشو پیدا کردم میزارم شاید بدرد کسی خورد با اینکه مشخص نبود ولی مث اینکه وقتی تو جایی ذخیره میشه ی فضای خالی هم میگیره که اون فضای خالی رو با این دستور php حذف کردم و اوکی شد $cod=trim($cod);

با سلام خیلی وقته به مشکل عجیبی خوردم من با post ایتدا یک رشته رو از دیتابیسم با کتابخوه پرشین میگیرم به این نحو(هم از فایل تکست تست کردم هم از SharedPrefrence) Dim jh As String = Result If jh.EndsWith("ok") Then Dim str1() As String str1 = Regex.Split("/",jh) Dim strp As String=str1(0) File.WriteString(File.DirInternal,"jjkh.txt",strp) Dim msequr As M_Secure_SharedPrefrence msequr.initialize("12345678") msequr.savesecurString("okj",strp) تو یه اکتیویتی همین کد رو post میکنم تا تو سرور با فیلد همون دیتابیس مقایسه بشه به این نحو Dim postquery As PostRequest=prf.BuildPostQuery("http:****","actied") * postquery.addParametrs("cod",File.ReadString(File.DirInternal,"jjkh.txt")) * postquery.addParametrs("cod",msequr.getsecurString("okj","")) postquery.executRequest ستاره ک گذاشتم ینی با هردوروش تست کردم. مشکل اینجاست که تو فایل php با اینکه هردو رشته کاملا شبیه همن ولی میگه شبیه هم نیستن و اینو بگم که مشکل تو فایل php نیست چرا که وقتی میخوام رشته رو پست کنم اگر مستقیم به این نحو بنویسم بدون مشکل کار میکنه postquery.addParametrs("cod","pfsy8gm4nb5o6ri") پس مشکل اینطوریه که وقتی رشته میره تو تابع به مشکل میخوره. *البته تو php از (==/===/strcasecmp /strcmp)استفاده کردم و نتیجه همشون یکی بود

بلع واقعا لازم بود این تاپیک من خودم به شخصه تو تمام برنامه هام ی 7-8 تا کتابخونه پرشین هست و لازم میبینم تشکر کنم هم برای جوابگوییشون و هم تلاشی که میکنن و خیلی از ضعفای بیسیک با تلاش ایشون کمرنگ شده

بدون مجوز ک قطعا نمیشه

این مورد خیلی بحث شده و تا اونجایی ک میدونم کسی جوابی نداشته

ی دنیا تشکر

چه اروری میده؟

فک نمیکنم تو لیست ویو پیشفرض بشه هر ایتم رو جداگانه تغییر داد بهتره از ریسکالرویو استفاده کنید

سلام استاد برای ست کردن اندازه لیبل با متن طبق اموزشتون این کدارو میزارم ولی هیچ متنی نشون نمیده اکتیویتی Sub Activity_Create(FirstTime As Boolean) db.Initialize lItem=db.ListItems rec_Layout.Builder("rec").NormalRecycler.BALayout.ListView.RecyclerView _ .withDefaultDividier(rec_Layout.Oriantation_Vertical).Build Activity.AddView(rec_Layout,0,0,100%x,100%y) rec_Layout.ShowRecycler end sub Private Sub rec_getItemCount As Int Return lItem.Size End Sub Private Sub rec_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int) As Object Dim pnl As Panel=layoutitem pnl.Width=100%x Dim item As tSMS=lItem.Get(position) Dim lbl As Label=pnl.GetView(0) pnl.Color=Colors.Blue lbl.Gravity=Gravity.CENTER Dim ht As Int=getLableHeight(item.Scontent,lbl,20) Dim btnLike As Button=pnl.GetView(1) btnLike.Top=lbl.Height+lbl.Top+10dip btnLike.Height=60dip btnLike.Text="like" Return ht+btnLike.Height+20dip End Sub Private Sub rec_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object Dim pnl As Panel=layoutitem Dim lbl As Label lbl.Initialize("") pnl.AddView(lbl,0,0,100%x,0) Dim btnLike As Button btnLike.Initialize("") pnl.AddView(btnLike,50%x-50dip,100dip,100dip,0) Return Null End Sub Sub getLableHeight(txt As String,leb As Label,size As Int) As Float Dim ht As Int leb.text=txt Log(txt) leb.TextSize=size leb.TextColor=Colors.White leb.Gravity=Gravity.CENTER ht = StrUtil.MeasureMultilineTextHeight(leb , txt) leb.Height = ht+40dip Return leb.Height End Sub داخل Sub getLableHeight متن رو لاگ میگیرم نشون میده ولی به اداپتور نمیده اینم کلاس دیتابیس Public Sub Initialize ' Dim str1() As String = Regex.Split("<#>",File.ReadString(File.DirAssets,"ac.txt")) Try If File.Exists(File.DirInternal,"smsdb.db")=False Then File.Copy(File.DirAssets,"smsdb.db",File.DirInternal,"smsdb.db") End If If sql.IsInitialized = False Then sql.Initialize(File.DirInternal,"smsdb.db",True) End If Catch Log(LastException) End Try End Sub Sub getListItems As List Dim cur As Cursor Dim list1 As List list1.Initialize cur = sql.ExecQuery("SELECT * from smsdb") For i=0 To cur.RowCount-1 cur.Position = i Dim t1 As tSMS t1.Initialize t1.Sid = cur.GetInt("id") t1.Scontent = cur.GetString("sms") list1.Add(t1) Next Return list1 End Sub