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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


MasterMind

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

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

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

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

3 متوسط

درباره MasterMind

  • درجه
    کاربر
  1. توی این کدی که نوشتم نمیشه ... میخام رکورد های تکراری ستون inlet و outlet حذف بشن Sub DBload(q As String) Private condition As String q=q.Trim'remove spaces condition="WHERE tag LIKE '%" & Spinner1.SelectedItem & q & "'" cur = DB1.ExecQuery("SELECT * FROM pipe " & condition) ListView1.Clear'need to clear the list For i = 0 To cur.RowCount - 1 cur.Position = i ListView1.AddSingleLine(cur.GetString("inlet")) ListView1.SingleLineLayout.Label.TextSize = 12 ListView1.SingleLineLayout.Label.TextColor = Colors.DarkGray ListView1.SingleLineLayout.Label.Gravity=Gravity.FILL ListView1.SingleLineLayout.ItemHeight = 100 Next condition="WHERE tag LIKE '%" & Spinner1.SelectedItem & q & "'" cur = DB1.ExecQuery("SELECT * FROM pipe " & condition) ListView2.Clear'need to clear the list For i = 0 To cur.RowCount - 1 cur.Position = i ListView2.AddSingleLine(cur.GetString("outlet")) ListView2.SingleLineLayout.Label.TextSize = 12 ListView2.SingleLineLayout.Label.TextColor = Colors.DarkGray ListView2.SingleLineLayout.Label.Gravity=Gravity.FILL ListView2.SingleLineLayout.ItemHeight = 100 Next End Sub
  2. درود، توی دیتابیسم توی یه ستون چند تا رکورد تکراری هستن و وقتی اونارو وارد برنامه میکنم، توی لیست ویو همه تکراریارو نشون میده. حالا چطوری میتونم اگه رکوردی تکراری بود ، بجاش هیچی نشون نده؟ باید توی دیتابیس تغییر ایجاد بدم یا توی کد؟
  3. سلام من از این آموزش استفاده کردم انیمیشن هم اجرا میشه اما تا انیمیشن تموم نشه، لی اوت اکتیویتی بعدی لود نمیشه، که جالب نیست چجوری میشه موقع اجرای انیمشن لی اوت رو لود کرد؟
  4. MasterMind

    متریال دیالوگ

    کسی کمک نمیکنه؟
  5. MasterMind

    متریال دیالوگ

    themes.xml رو کجا کپی کنم؟ توی values? یا values-v23
  6. MasterMind

    متریال دیالوگ

    سلام من هم همین مشکل رو دارم ولی هرکاری میکنم درست نمیشه اینم یه قسمتی از ارور C:\Users\mr.DANIAL\AppData\Local\Android\android-sdk\support\v7\appcompat\res\values-v23\styles_base.xml:20: error: Error retrieving parent for item: No resource found that matches the given name 'android:Widget.Material.Button.Colored'. C:\Users\mr.DANIAL\AppData\Local\Android\android-sdk\support\v7\appcompat\res\values-v23\styles_base_text.xml:19: error: Error retrieving parent for item: No resource found that matches the given name 'android:TextAppearance.Material.Widget.Button.Inverse'.
  7. MasterMind

    پوشه Support-23

    میگه رمز اشتباهه __________________ پیداش کردم حذف شد ، برای دانلود این فایل ، از تاپیک های مشابه استفاده کنید - حسین دوست
  8. درود میخوام یه برنامه بسازم که یه ویجت داشته باشه و توی اون ویجت یه button باشه که وقتی روش کلیک میکنیم عکس بگیره ویجت رو بلدم بسازم اما نمیدونم چجوری باید با کلیک عکس بگیرم چجوری میشه همچین کاری کرد؟ اصن امکانش هست؟
  9. خیلی ممنون دوست عزیز )) فهمیدم مشکلم کجا بود اون عکس جستجو و لایک ، برای این بودن که ببینم برنامه کار میکنه یا نه ، هدفم یه چیز دیگه س باز هم خیلی ممنون cur=visit.ExecQuery("Select * from visit") For i = 0 To cur.RowCount-1 cur.Position=i Dim panel1 As Panel panel1.Initialize("panel1") SV.Panel.addview(panel1,0,stop,100%x,100%y) stop=stop+25%y panel1.LoadLayout("p1") label1.Text=cur.GetString("name") label2.Text=cur.GetString("abt") label3.Text=cur.GetString("like") imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,cur.GetString("pic"))) SV.panel.height=stop Next
  10. هر کاری میکنم درست نمیشه :| میگه بیتمپ نمیتونه لود شه دانلود
  11. خیلی ممنون از کمک ولی یه مشکل دیگه پیش اومده ، موقع اجرا برنامه میگه کرسر باید initialize بشه ... Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim visit As SQL End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private SV As ScrollView Private TB As TabHost Dim panel1 As Panel Dim label1 As Label Dim label2 As Label Dim label3 As Label Dim imageview1 As ImageView Dim imageview2 As ImageView Dim imageview3 As ImageView Dim cur As Cursor Private img3 As ImageView Dim stop As Int = 3%y End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") If FirstTime = True Then If File.exists (File.dirinternal,"creative.db") = False Then File.copy (File.DirAssets,"creative.db" , File.dirinternal,"creative.db") End If End If If visit.IsInitialized=False Then visit.Initialize(File.dirinternal,"creative.db",False) End If Activity.LoadLayout("L1") TB.AddTab("لوگو","Scroll") TB.AddTab("کارت ویزیت","scroll") TB.AddTab("بیلبورد","scroll") TB.AddTab("پوستر","scroll") TB.AddTab("عکاسی","scroll") SV.Panel.LoadLayout("p1") For i = 1 To cur.RowCount-1 cur.Position=i Dim p As Panel p.Initialize("p") SV.panel.addview(p,0,stop,100%x,100%y) p.LoadLayout("p1") label1.Text=cur.GetString("name") label2.Text=cur.GetString("abt") label3.Text=cur.GetString("like") imageview1.Bitmap=picture(i) Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub picture (ID As String) As Bitmap Dim cur As Cursor cur=visit.ExecQuery("SELECT pic FROM visit WHERE ID ='"& ID & "'") cur.Position=0 Dim bytes()As Byte bytes = cur.GetBlob("pic") Dim input As InputStream input.InitializeFromBytesArray(bytes,0,bytes.Length) Dim b As Bitmap b.Initialize2(input) input.Close Return(b) End Sub باز هم ممنون از کمک
  12. کسی قصد کمک کردن نداره ؟ لطفا ؟
  13. سلام چجوری میشه عکس رو از دیتابیس فراخوانی کرد و توی لیست ویو نمایش داد؟ قبل از من یکی دیگه همین سوال رو پرسیده بود ، در پاسخ ها چیزی دستگیرم نشد. در ضمن ، ارور توی قسمت For i = 1 To 100 cur.Position=i ListView1.AddTwoLinesAndBitmap("VisitCard"& cur.GetString("ID"),"By"& cur.GetString("abt"),picture ) Next نمیدونم چجوری باید فراخوانی کرد Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private SV As ScrollView Private TB As TabHost Private ListView1 As ListView Dim prim As SQL Dim cur As Cursor End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") If FirstTime = True Then If File.exists (File.dirinternal,"creative.db") = False Then File.copy (File.DirAssets,"creative.db" , File.dirinternal,"creative.db") End If End If If prim.IsInitialized=False Then prim.Initialize(File.dirinternal,"creative.db",False) End If Activity.LoadLayout("L1") TB.AddTab("لوگو","Scroll") TB.AddTab("کارت ویزیت","scroll") TB.AddTab("بیلبورد","scroll") TB.AddTab("پوستر","scroll") TB.AddTab("عکاسی","scroll") SV.Panel.LoadLayout("p1") SV.Panel.Height=ListView1.height For i = 1 To 100 cur.Position=i ListView1.AddTwoLinesAndBitmap("VisitCard"& cur.GetString("ID"),"By"& cur.GetString("abt"),picture ) Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub picture (name As String) As Bitmap Dim bytes()As Byte bytes = cur.GetBlob("IMAGE") Dim input As InputStream input.InitializeFromBytesArray(bytes,0,bytes.Length) Dim b As Bitmap b.Initialize2(input) input.Close Return(b) End Sub
×
×
  • جدید...