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

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

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

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


omid-j

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

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

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

اعتبار در سایت

28 خوب

درباره omid-j

  • درجه
    کاربر باسابقه

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

391 بازدید کننده نمایه
  1. سلام دوستان میخوام یک آموزش یاد بدم که خود یاد گرفتم و خیلی هم زیبا و مورد نیاز بعضی از دوستان هستش تو این آموزش یاد میگیریم که اسلایدر سفارشی بسازیم مصل فایل پایین (توجه کنید) اول کتابخونه PagerBullet رو که زیر پیوست کردم دریافت کنید. PagerBullet v2 ابتدا دو متغیر تعریف میکنیم Dim slide1 As PagerBulletAdapter Dim PB As PagerBullet متغیر خط اول برای تنظیمات پنل داخل اسلایدر هستش که میتونیم تنظیمات هر صفحه رو انجام بدیم(اگه نفهمیدید در ادامه میفهمید :دی) متغیر خط دوم هم برای کل اسلایدر هستش که شامل افکت و رنگ نقطه های اسلایدر میشه در مرحله اول PBA رو اینیشیالایز میکنیم Slied1.Initialize خب حالا باید چیز هایی که می خوایم تو صفحه لود بشه (البته همه چی میشه لود کنیم از عکس گرقته تا باتن و....) خب من مثل GIF که بالا گذاشتم یه عکس میزارم و روی عکس یک لیبل لود میکنم و آن وقت اونو میزارم تو یه حلقه FOR که چند تا اسلاید رو همزمان برای ما لودکنه شما اگه میخواید هر اسلاید طراحی منحصر به فرد داشته باشید یکی کی طراحی نماید. برای کد نویسی و طراحی دو حالت داریم برای طراحی اسلایدمی تونیم طراحی کنیم 1- میتونیم پنل اد کنیم تو اسلایدی یک لایوت طراحی کنیم و توش لود کنیم (راحته دیگه خودتون بلدید) 2- ویو ها رو بصورت کد دستی اد کنیم (من این کار و کردم چون هم با کلاس تره هم خیلیا بلد نیستن یاد میگیرن ) For i = 1 To 4 Dim pnl As Panel Dim lbl As Label pnl.Initialize("") lbl.Initialize("") pnl.SetBackgroundImage(LoadBitmap(File.DirAssets,i&".jpg")) lbl.Typeface = Font lbl.Text = " " & "این متن تست است." lbl.TextColor = Colors.White lbl.TextSize = 16 lbl.Color = Colors.ARGB(155,0,0,0) lbl.Gravity = Gravity.CENTER_VERTICAL pnl.AddView(lbl,0,22%y,100%x,100%y) lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text) + 1%y lbl.RemoveView pnl.AddView(lbl,0,35%y - lbl.Height,100%x,lbl.Height + 1%y) PBA.AddPage(pnl) Next خب خط اول که حلقه فورهستش خط دوم و سوم یک پنل و یک لیبل معرفی کردم خط چهار و پنج هم لیبل و پنل رو اینشیلایز کردم خط ششم هم پس زمینه برای پنل انتخاب کردیم که اسم عکس اسلاید اول 1 هست و.. تا 4 خط هفتم فونت لیبل ، هشتم متن لیبل و نهم رنگ متن رو تعیین کردم خط دهم سایز متن لیبل رو مشخص کردم خط یازدهم یک رنگ پس زمینه برای لیبل انتخاب کردم که بر حسب ARGB انتخاب کردم خب RGB رو که همه بلدن چی هست تو فتوشاپ هم کار کردن A هم آلفای رنگ پس زمینه هستش که شفافش کردیم و اگه میخواید هیچ شفافیتی نداشته باشه اون رو برابر 255 قرار بدید یا از Color.RGB(0,0,0) استفاده کنید. خط دوازده تعیین کردم که متن ما چجور قرار بگیره که CENTER_VERTICAL بشه منظورم اینکه وسط قرار بگیره اما وسط از نوع عمودیش قرار بگیره خط سیزده تا پانزدهم یک کار خوب انجام شد بصورت حرفه ایی و زیبا میخواستم که متن کامل توی پنل جا بشه مثلا اگه متن طولانی شد رفت خط دوم ارتفاع لیبل زیاد بشه su هم متغییری از جنس StringUtils هست که با اون میشه متن داد و ارتفاع گرفت اما چون تو کد addview ارور میده و جواب نمیده من یکبار ویو رو اد کردم بعد ارتفاعش رو گرفتم ریختم تو lbl.height بعد دوباره که اد کردم در خط 16 موقع اد کردن لیبل گفتم که تاپ لیبل که میشه بالاآن اول 35%y که ارتفاع اسلایدر ما هست، باشه (در ادامه تعیین کردم) و به اندازه ارتفاع متن لیبل که قبلا گرفتم ازش کم کردم یعنی الان متن لیبل خیلی قشنگ جا میشه و هیچیش هم محو نمیشه خط بعدی هم که به اسلاید اضافش کردم (اگه درکش براتون سخت بود لایوت بسازید و با کد pnl.loadlayout اون رو تو پنل لود کنید. خب بعد از حلقه فور میریم به اسلایدر مون افکت بدیم اسلاید رو زیبا و بسیار حرفه ایی کنیم PB.Initialize(slid1,"pb1") PB.setDotsColor(Colors.white,Colors.LightGray) PB.Transition = PB.DEFAULT بالا هم اول اصل خود اسلایدر رو اینیشیالایز کردیم بعدش رنگ نقطه هاشو تعیین کردیم که نقطه ای که اسلاید روش بود سفید باشه نقطه ی بقیه اسلاید های توسی روشن(نقطه هایی که موقعیت اسلاید رو نشون میدن) خط بعدی هم افکت رفتن به اسلاید بعدی رو بهش دادیم که من حالت پیش فرض رو دادم حالت های زیبای زیادی دارد حالا که اسلایدرمون اماده شد میایم و اون رو به اکتیویتی مون اد میکنیم sc.Panel.AddView(PB,0,0,100%x,35%y) ارتفاع اسلاید که بالا گفتم اینجا تعیین کردم حالا اگه بخوام که خود به خود اسلاید عوض شه اول یه تایمر معرفی میکنم بعد تو تایمر تیک مینویسیم بره اسلاید بعدی با کد : PB.GotoPage(2) موفق و پیروز باشید.
  2. omid-j

    بررسی اتصال اینترنت

    سلام شما از کتابخانه AriaLib استفاده کنید Sub Process_Globals Dim aria As AriaLib End Sub If aria.TestInterntConnection = False Then ToastMessageShow("اینترنت شما وصل نیست",False) Else If aria.TestInterntConnection = True Then ToastMessageShow("اینترنت وصل است ",False) End If
  3. با سلام من دنبال یک راهنما جهت ساخت برنامه چت آنلایت مثل فتوپیامک و یا مثل باهم میخوام که بتونم ارسال فایل همراه با متن بکنم و یا متن تنها ارسال کنم بدون عکس ایراد نگیره البته من یک مقدارشو نوشتم ولی متاسفانه از اینکه عکس همراه متن نفرستم ایراد میگیره بلد نیستم که از چه دستوراتی استفاده کنم که اگر بخوام فقط متن بفرستم ارسال بشه و اگر بخوام متن همراه با عکس ارسال کنم هم بفرسته آموزش ارسال فایل و اطلاعات را از بخش فروشگاه خریداری کردم ولی مشکل منو حل نکرد
  4. omid-j

    کمک در موردچت آنلاین (لطفا بخونید)

    کسی نیست از اساتید جواب منو بده حیاطی هستش خواهشنا کمک کنید
  5. سلام و درود به اساتید و جناب آقای ایزدی و دیگر دوستان من در حال برنامه نویسی یک برنامه چت هستم لکین یک مشکل کوچیک دارم از هر دستور که فکرش و میکنین من استفاده کردم نشد واتساپ رو در نظر بگیرید وقتی که میخواید متنی را ارسال کنید به محض اینکه ارسال شد نمایش میده من چنین چیزی میخوام که اگر متن مورد نظر خودم ارسال کردم بلافاصله در برنامه نمایش بده لازم به ذکر هست که از مالتی پنل برای نمایش متن استفاده کردم لطفا ً کمک کنید و این پروژه زیبا به اتمام برسانم و قول میدم با کسب اجاز از آقای ایزدی مدیر محترم سایت سورس برنامه هم کاملا رایگان در اختیار دوستان بگذارم
  6. این روش کاملا صحیح است البته برای لیست ویو من از لیست ویو استفاده نکردم از multi panel استفاده کرده که در مالتی پنل از چند لیبیل برای نمایش اطلاعات استفاده کردم که سورس برنامه همراه با دیتابیس برای شما ارسال میکنم لطفا راهنمایی فرمایید تا انشالله بنده و این برنامه به نتیجه برسد .
  7. دوست عزیز توضیح اینکه فرض کنید یک برنامه دفترچه تلفن دارین وقتی ی10 شخص وارد و ذخیره میکنید بعد متوجه میشید که یکی از این 10 تا یکی را به اشتباه وارد کردید میخواهید آن را حذف کنید باید چه کار کرد شما دفترچه تلفن موبایل رو نگاه کنید وقتی اضافه میکنید می تونید پاک هم بکنید دیگه
  8. دوست گرامی با این دستور که شما فرمودید تست کردم متاسفانه نشد ممکنه است سورس برنامه برای شما ارسال کنم مشکلشو حل کنید
  9. کسی نیست جواب بده از اساتید محترم کسی تشریف ندارد
  10. عکس جدول که دارم حالا میخوام یک رکورد از جدول حذف کنم مثلا رکورد شماره یک را حذف کنم در صورتی که رکورد بعد در جدول بماند یعنی رکورد شماره یک از جدول حذف شود ولی رکورد شماره 2 حذف نشود در کل منظور بنده بصورت جداگانه تک تک رکورد حذف شود نه با هم دیگه یعنی هر رکورد که بخواهم حذف کنم
  11. کسی نیست ما را جواب بده از اساتید محترم کسی نیست
  12. با سلام اساتید محترم عرض ادب در خواست کمک در خصوص حذف اطلاعات در دیتابیس آفلاین ازطریق برنامه این هم سورس برنامه که نوشتم فقط تو حذف اطلاعات مشکل دارم #Region Project Attributes #ApplicationLabel: دفتراندیکاتور همراه #VersionCode: 59865986 #VersionName: 1.0 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: True #End Region #Region Activity Attributes #FullScreen: True #IncludeTitle: False #End Region Sub Process_Globals Dim sql As SQL End Sub Sub Globals Dim cur As Cursor Private Button2 As Button Private EditText1 As EditText Private EditText2 As EditText Private EditText3 As EditText Private EditText4 As EditText Private Panel1 As Panel Private Button3 As Button Private Label5 As Label Dim i As Int Private Label10 As Label Private Label11 As Label Private Label12 As Label Private Label9 As Label Private Button4 As Button Private Button1 As Button ' Dim aria As AriaLib Dim num As String Private EditText5 As EditText Private Label14 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("text") If File.Exists(File.DirInternal,"Daftar-andikator.db") = False Then File.Copy(File.DirAssets,"Daftar-andikator.db",File.DirInternal,"Daftar-andikator.db") End If If sql.IsInitialized = False Then sql.Initialize(File.DirInternal,"Daftar-andikator.db",False) End If ' If aria.TestInterntConnection = False Then ' Msgbox("اینترنت شما وصل نیست","") ' Else If aria.TestInterntConnection = True Then ' Msgbox("اینترنت وصل است ","") ' End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button2_Click Try sql.ExecNonQuery("INSERT INTO tbl(shoarah,envan_namah,sharh,payvast,deta) VALUES('"&EditText5.Text&"','"&EditText1.Text&"','"&EditText2.Text&"','"&EditText3.Text&"','"&EditText4.Text&"')") ToastMessageShow("اطلاعات ثبت شد",False) EditText1.Text="" EditText2.Text="" EditText3.Text="" EditText4.Text="" EditText5.Text="" EditText1.RequestFocus Catch ToastMessageShow("اطلاعات ثبت نشد",False) End Try End Sub Sub Button3_Click Dim cur As Cursor Try cur=sql.ExecQuery("SELECT * FROM tbl") cur.Position = i i= i+1 Label9.Text = cur.GetString("shoarah") Label10.Text = cur.GetString("envan_namah") Label11.Text = cur.GetString("sharh") Label12.Text = cur.GetString("payvast") Label14.Text = cur.GetString("deta") Catch i = 0 End Try End Sub Sub Button4_Click sql.ExecNonQuery("DELETE FROM tbl WHERE shoarah =1")''''' در این قسمت مشکل دارم نمی دانم از چه دستوری استفاده کنم End Sub Sub Button1_Click Dim ext As Int ext = Msgbox2("آیا قصد خروج را دارید؟","خروج از برنامه","بله","خیر","",LoadBitmap(File.DirAssets,"exit.png")) If ext= DialogResponse.POSITIVE Then ExitApplication End If End Sub
  13. با سلام و احترام به اساتید من دنبال یک آموزش در خصوص اینکه به توانم عکس از طریق برنامه به دیتابیس آنلاین و آفلاین ارسال کنم که هر وقت کاربر برنامه مخصوص دریافت تصاویر را باز کرد بتوان تصاویر از بانک اطلاعات در خود برنامه مشاهد کند بهتر بگم فرض کنیم یک برنامه ی آنلاین داریم می خوام از طریق برنامه یک تصویر به دیتابیس آنلاین ارسال کنم لطفا راهنمایی کنید با تشکر از همه اساتید محترم سایت
×
×
  • جدید...