رفتن به مطلب

mahdi tahan

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

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

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

  • روز های برد

    12

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

  1. خطا نمیده.هیچ جوابی نمیده نه ارور ن جواب
  2. سلام استاد من اگ بخوام مث عکس پایین به api وصلل بشم چجوری میشه؟ اینطوری نوشتم ج نداد Dim per2 As UploadRequest per2=per.BuildUploadQuery("http://*****:10313","poost") per2.addHeader("access","Andriod") per2.addHeader("authorization",Result) per2.addHeader("content-type","multipart/form-data") per2.addMultipartParameter("code",kvs.GetSimple("addid")) per2.addMultipartParameter("subject","تست") per2.addMultipartParameter("body","jsj bady") per2.addMultipartParameter("email","[email protected]") per2.addMultipartFile("file",PathFile) per2.startUpload
  3. سلام استاد برای ست کردن اندازه لیبل با متن طبق اموزشتون این کدارو میزارم ولی هیچ متنی نشون نمیده اکتیویتی 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
  4. سلام استاد خسته نباشید برای اپلود وقتی مثل کد خودتون عکس رو انتخاب میکنیم.مشکلی نداره ولی وقتی بخوایم ادرس رو با کد بدیم ارور میده که فایل موجود نیس. مثلا اینطوری بنویسم با اینکه فایل هست ولی ارور میده و میگه نیست upl=pr.BuildUploadQuery("http://foot-print.ir/cr/kl.php","t2") upl.addMultipartParameter("username",username) upl.addMultipartParameter("pass",pass) upl.addMultipartParameter("email",email) upl.addMultipartFile("image.txt",File.DirInternal) upl.startUpload میخواستم بدونم نحوه ادرس دهی چطوریه؟
  5. سلام با این کتابخونه امکان این هست که نرم افزاری که الان در حال اجراس رو بگیریم؟نمیخوام لیست نرم افزار ها رو بگیرم.میخوام از سرویس نرم افزاری ک الان در حال اجراس رو بگیرم.
  6. سلام ورزن 2 کتابخونه رو گرفتم و نسخه قبلی رو ب کلی پاک کردم ولی بازم ورزنشو 1 میزنه و انگار اصلا فرقی نکرده البته از هردوپوشه لایبراری .کتابخونه رو پاک میکنم نمدونم مشکل از چیه
  7. با سلام قسمت تست اینترنت فک میکنم فقط دفعه اول درست کار میکنه و اگ بخوای دوباره چک کنی همون وضعیت قبلی رو میده
  8. باید حتما گوشی روت باشه؟
  9. ینی چی واضح تر بگید تو هواوی که بایدتو محاظت شده ها ببریش و تیکشو بزنه تو بیشترگوشیا میتونه اجازه رو بگیری اینم ی نمونه سورسه https://answercenter.ir/applications/core/interface/file/attachment.php?id=6079 این سایتم تمام برندا رو توضیح داده https://dontkillmyapp.com/ سایتش جالبه
  10. شما چطوری ست میکنید؟ دسترسیش توخیلی مدل ها یک دیالوگه که باز میشه وکاربر میزنه اجازه ایناها سیاست های خود اندرویده اون دوبرابر شدن برای الارم دودقیقه ایس.اگ تیک بعدیت فک میکنم زیر 15 دقیقه نباشه درست اجرا میشه
  11. بدون دسترسی که رو هواوی اصلا نمیشه بعضی گوشی هاهم ب قول شما یکی در میون و لا خیلی مطمین نیس ولی بادسترسی که نرم افزارخودم گرفتم الان نزدیک ده روز داره کار میکنه و دو تا سرویس دارم یکیش دایم کار میکنه یکیشم با همین الارممنیجر هر دودقیقه کار میکنه و مشکلی نداشته برا اینکه ببینم درست تیک میخوره هر بار ک ساعتش میشد تو ی فایل ساعتو مینوشتم فقط وقتایی که موقع تیک خوردنش گوشی خاموش بود زمان تیک بعدی دوبرابر میشد
  12. ب نظرم هر کاری هم بکنی محبوری اجازه دستی بگیری.بدون اون حتی اگ برا ۲۴ساعت اینده هم قرار باشه ی بار سرویست استارت بخوره بازم لازمه اجازه داده شده باشه.شما الارم و ست کن برا دوساعت دیگ.بدون اجازه مطمینن کار نمیکنه.بازم چک کن و قطعا هر برندی ی سیاستی در مورد پس زمینش داره
  13. فک میکنم باید sdk سازگار با androidx رو دانلود کنی
  14. سلام جناب شاهپیری من میخوام داخلش یک دوربین گرد لود کنم. اصلا ممکنه با این کتابخونه؟چون دوربین باید تو اکتیویتی استارت بشه برا همون میگم در ضمن پنل و هرکار کردم ست نمیشه ارور میده با xml
  15. کتابخونه رو تیک بزن Dim texl As TextLabelFitter texl.FitText(اسم لیبلت)
  16. با سلام استاد وقتی از متد prtt.scheduleAtFixedRate("app",prtt.TimeUnit_MILLISECONDS,1200,1100) استفاده میکنیم در صورتی ک تایمر رو کنسل کنیم یا shot down کنیم و دوباره اجرا کنیم سرعت تیک انگار دوبرابر میشه و این عمل هر بار تکرار بشه باز سرعت افزایش پیدا میکنه
  17. من هردورو خریدم و با هردو هم کلی کلنجار رفتم ب نظرم این کتابخونه بهتر کار میکنه تجربه خودمه رو چنتا گوشی ولی فقط مشکلش تنظیم بر مبنی یک زمان خاصه ک با کدی ک دادم دقیق سر همون زمان ست میشه اقای نیکروانم همین روشو توکتابخونش پیاده کرده کتابخونه رو بخری متوجه میشی.زمان و تشخیص میده امروزه یا فردا بعد فاصله رو میگیره
  18. منم همین مشکل رو داشتم ولی خوب یکم کلنجار رفتم وشد با این روش البته به دقیقه میتونی ست کنی اول این سابو اضافه کن Sub between(t1 As Long,t2 As Long) As String Dim t As Long=Abs(t1-t2) hours = Floor((t Mod DateTime.TicksPerDay) / DateTime.TicksPerHour) minutes = Floor((t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute) Return hours&minutes End Sub بعد هر جا خواستی زمان رو بدی اول باید چک کنی زمانت ی روز بعده یا همون روزه DateTime.TimeFormat="HH:mm:ss" Dim zaman As Long=DateTime.TimeParse("05:00:00") Dim ti As String If zaman>=DateTime.Now Then Log("today") ti=between( DateTime.Now , zaman)*60 Else Log("tomarow") ti=between( DateTime.Now , DateTime.Add(zaman,0,0,1))*60 End If حالا اینطوری دقیقه باقیمونده تا زمانو میگیریم Dim time3 As String=hours*60+minutes بعدشم بر مبنی دقیقه ست میکنی pralarm.setRepeating(pr1,pralarm.AlarmManager_RTC_WAKEUP,pralarm.FLAG_UPDATE_CURRENT,2,pralarm.TimeUnit_MINUTES,time3,1440) 1440 هم دقایق 24 ساعته ینی روز بعدم همون ساعت ست میشه. جناب شاهپیری چنتا سوال داشتم. تو تمام گوشی ها به قسمت باتری نمیره.چک کردم.(سامسونگ a10(اندروید9)) سوال بعدی اینه رو اندروید 5 تست کردم الارم خیلی دقیقه ولی تو اندروید 9 مثلا setRepeating ک کلا دو سه دقیقه بعد تر الارم میده مثلا اگ فاصله ما 2 دقیقه باشه 5 دقیقه میده و حتی با گذشت زمان این فاصله هی بیشتر میشه. با متد setExact بهتره ولی اونم ی دقیقه ای اختلاف داره و اگرم دستگاه خاموش باشه فاصله زمان دوبرابر میشه. اگ میشه ی توضیحی بدید.اگ دسرسی لازمه بگیریم.البته من دسرسی باطری زیادومیگیرم
  19. والا اصطلاحیه که خیلیا گفتن مثلا صدایه طرف از پشت تلفن رواکثر کتابخونه ها بی کیفیت ضبط میکنن و صدا خیلی ضعیفه یا اصلا شنیده نمیشه ولی بعضی نرم افزارا صدا رو با کیفیت ضبط میکنن حتی صدایه هنذفری رو میگیرن انگار صدایی که ازگوشی خارج بشه.بیت هاشو میگیره..نمدونم والا
  20. سلام خیلی ممنون و تشکر زیاد یک سوال صدایه درونی موبایل رو هم ضبط میکنه این؟ اکثر کتابخانه های بیسیک برای ضبط تماس مشکل دارن و خیلی بی کیفیت ضبط میکنن.
  21. Private pralarm As PersianAlarmManager Private prmodel As PersianAlarmModel Private pralarm1 As PersianAlarmManager Private prmodel1 As PersianAlarmModel prmodel.initialize(AlarmService) prmodel1.initialize(up2) Dim time As Int=30 Dim time1 As Int=40 prmodel.putStringExtra("key1","value1") prmodel1.putStringExtra("key1","value1") pralarm.setRepeating(prmodel,pralarm.AlarmManager_RTC_WAKEUP,pralarm.FLAG_UPDATE_CURRENT,2,pralarm.TimeUnit_MINUTES,time,time) pralarm1.setRepeating(prmodel1,pralarm1.AlarmManager_RTC_WAKEUP,pralarm1.FLAG_UPDATE_CURRENT,3,pralarm1.TimeUnit_MINUTES,time1,time1) اینطوری من ست میکنم یعنی کلا دوتا جدا از هم ولی درست جواب نمیده دفعه اول شاید در کار کنه ولی از دفعه بعد فق یک سرویس اجرا میشه
×
×
  • اضافه کردن...