اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

- برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


*.*

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

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

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

5 دنبال کننده

درباره *.*

  • درجه
    Senior Member

آخرین بازدید کنندگان نمایه

833 بازدید کننده نمایه
  1. درود کلید برگشت ، برای بازگشت به یک اکتیویتی خاص Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = 4 Then StartActivity(page) End If Return False End Sub برای خروج از نرم افزار با دو بار لمس Sub Process_Globals Dim tmExit As Timer Dim intExit As Byte = 0 End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean Select KeyCode Case KeyCodes.KEYCODE_BACK If intExit = 1 Then StopService(Starter)' سرویس رو هم استوپ کردیم ExitApplication else if intExit = 0 Then intExit = intExit + 1 ToastMessageShow("لطفاً کلید بازگشت را مجدداً فشار دهید",False) tmExit.Enabled = True Return True End If End Select End Sub Sub tmExit_Tick intExit = 0 tmExit.Enabled = False End Sub
  2. درود جدول رو وارد نکردین مثلا "select * from tbl1 "
  3. درود با استفاده از مولتی پنل ساختین ؟ مطالب رو از دیتابیس گرفتین؟
  4. درود خدمت شما اینم یک سورس بسیار ساده ساخت اسلاید منو با کتابخانه AHnavigtiondrawer slidmenu0
  5. درود به اینصورت کدهارو وارد کنید Dim iz As Button iz=Sender mp.Load(File.DirAssets,iz.Tag) If mp.IsPlaying Then mp.Stop Else mp.Play End If در کل میشه گفت که کدهای کلی اینا هستن Sub Process_Globals Dim sql1 As SQL End Sub Sub Globals Dim mp As MediaPlayer Private ScrollView1 As ScrollView Private Panel1 As Panel Private Button1 As Button Private Label1 As Label Dim cur1 As Cursor Dim stop As Int = 3%y End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("scroll_lay") If File.Exists(File.DirInternal,"mp3.db") = False Then File.Copy(File.DirAssets,"mp3.db",File.DirInternal,"mp3.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"mp3.db",True) End If cur1 = sql1.ExecQuery("SELECT * FROM tbl1") For i = 0 To cur1.RowCount-1 cur1.Position = i Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,0,stop,100%x,100%y) p.LoadLayout("panel_lay") Label1.Text=cur1.GetString("matn") Label1.Gravity=Gravity.CENTER stop=stop+35%y ScrollView1.Panel.Height=stop Button1.Text="play" Button1.Tag = cur1.GetString("mp3") mp.Initialize2("mp") Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Dim iz As Button iz=Sender mp.Load(File.DirAssets,iz.Tag) If mp.IsPlaying Then mp.Stop Else mp.Play End If End Sub اسم دیتابیس mp3.db هستش نام جدول داخل دیتابیس tbl1 واس تکست لیبل هم از ستون matn استفاده شده تکست باتن ها play درضمن اسم آهنگهارو با پسوند قرار دادم صد درصد هم جواب داده و تست شده هستش
  6. درود به نظرم که همچین برنامه ای وجود نداشته باشه،شما میتونید از طریقه ی ساختشون فقط الهام بگیرید و در نرم افزارهای خودتون مشابه اونارو بسازید ، چون اونوقت خیلیا زحمت برنامه نویسیشو نمیکشیدن و انواع نسخه هارو یکمی تغییر میدادن و میزدن به اسم خودن ، شما فقط میتونی به بعضی از قسمتهای نرم افزار ها دسترسی داشته باشین ، مثل لایه ها ، که اونم باز کدهای دیزاین داخلش نیست و اکتیویتی ها رو هم به صورت فایلهایی با پسوند .smali و یا دیتابیس و فایلهای متنی و ... ، میتونید از این امکاناتشون استفاده کنید ، البته باید فایل apk رو دیکامپایل کنید .
  7. شما ابتدا قوانین انجمن رو مطالعه کنید ، سپس منتظر پاسخ دوستان باشید
  8. شما خودتون نباید به حرفش گوش میدادین و میرفتین تو تل ، اینجور مسایل رو لطفا در انجمن مطرح نکنید
  9. درود منظورتون از استخراج چیه ؟ یعنی تو اکتیویتی ها از کدهایی که استفاده کرده ، بتونید استفاده کنید یا اینکه نه ، میخواین ببینید داخل پروژش چه چیزهایی هستش ، مثل دیتابیس و ... البته باید اینو هم بگم که بخش سوالتون ، باید بحث آزاد بشه ، نه پرسش و پاسخ (بیسیک 4 آندروید)
  10. درود دوست عزیز ، این جور سوالات رو در بخش بحث آزاد مطرح کنید تا به جوابتون برسید ، بخشی که الان شما انتخاب کردین ، مخصوص پرسش و پاسخ (بیسیک 4 آندروید هستش ) و اینکه یک تاپیک ایجاد کنید ، نه دو تا ، اینا اسپم محسوب میشه و واستون دردسر ساز . قوانین انجمن رو هم مطالعه نمایید
  11. خسته نباشید ، واقعا عالیه
  12. درود و خسته نباشید بر همگی یک سورس بسیار ساده ، برای اونایی که میخوان از حداقل تعداد اکتیویتی استفاده کنن و مطالبشونو از دیتابیس بگیرن و داخل لیست ویو نمایش بدن و با کلیک بر روی هر آیتم ، مطلب مربوطه بر اون آیتم نمایش داده بشه همونطور که در تصویر هم مشخصه ، برای هر جدول ، از یک باتن استفاده شده و با کلیک بر روی هر باتن ، عنوان رو از جدول مربوطه میگیرم و با آیتم کلیک هم ، متن هر عنوان رو از جدول میگیریم . البته میتونید با سلیقه ی خودتون تغییرش بدین و مثل بنده ، شلخته نسازید کمبودی هم داشت ، خودتون بشینید و کاملش بکنید listview
  13. آغا هرکی خواست منم بهش ستاره و نظر میدم البته خشکه حساب میکنم Gray Mind در جریانه
  14. یه روز خوب میاد که ما همو راهنمایی کنیم ، به هم بیخیالی نکنیم

    با هم رفیق باشیم و سورسهامونو بدیم به هم ، آها:DD:

    مثل روزای لایک گرفتنمون ، هیچکدوممونم نیستیم بی پروژه ، در حال ساخت پروژه ی جدید

    واسه اینکه خسته نشیم ، من سورس میذارم ، تو پیشنهاد

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

    دیگه از فورس کلوز پر نمیشه پروژه هامون ، مثل پروژه های عمو خلیل

    طرفدار بکوب نظرتو بلا به دور ، رضا امشبو واسمون دعا کن ...

    کاملا اختصاصی از همه کس:oops:

    1. نمایش نظر قبلی  بیشتر 3
    2. Gray Mind

      Gray Mind

      آره اسمش یه روز خوب میاد

    3. *.*

      *.*

      البته شهاب جون اینو لطف کردم و رپش کردم:oops: 

    4. شهاب اسکندری
  15. دوست عزیز اینکه کاری نداره شما تو اکتیویتیتون که لایوت scrscn رو لود کردین و متنتون رو داخل لیبل Labeltxt فراخانی میکنید ، بیاین و از یک متد جاوا هستش که خود لیبل رو اسکرول میکنه ( بدون نیاز به اسکرول ویو ) استفاده کنید ، مشکلتون به کل حل میشه اینو به اکتیویتیتون اضافه کنید #if java import android.widget.TextView; import android.text.method.ScrollingMovementMethod; public void rez (TextView x) {x.setMovementMethod(new ScrollingMovementMethod());} #end if و بعد از گرفتن متنتون این کد رو قرار بدین Dim jo As JavaObject jo.InitializeContext.RunMethod("rez",Array As Object(Labeltxt)) البته اگر درست متوجه شده باشم