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

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

hamedddr

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

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

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

درباره hamedddr

  • تاریخ تولد تعیین نشده

شما در شبکه های اجتماعی

  • تلگرام
    hirsaddr
  1. جستجو برای دیتابیس1000تای

    با سلام الان نمونه کدد از نوع هست من کتابم تکمیل همینش مونده بعد خیلی گشتم هیچ نمونه ازش تو اینترنت نیست بخدا گیج شده الان چند روز دارم کار میکنم با لیست یو درست کردم ارور داده چون کتاب با مولتی پنل درست کردم
  2. جستجو برای دیتابیس1000تای

    کسی نیست جواب بده:|
  3. با سلام نت زیررو کردم یک جا نتونستم اموزش درست کردن یک جستجو برای دیتابیس 1000تایی پیدا کنم این کد نوشتم ولی وتی سرچ میکنم ارور میده از برنامه خارج میشه یکی کمک کنه این مشگل حل کنم ScrollView1.Panel.RemoveAllViews top = ScrollView1.Height - ScrollView1.Height + 2%y ScrollView1.ScrollPosition = top 'cur = sql.ExecQuery("Select * From Matn Where Matn Like '%" & EditText1.Text & "%'") 'cur = Main.SQL.ExecQuery("SELECT * FROM Matn WHERE Titr LIKE '"&EditText1.Text&"%' ") ' cur = Main.SQL.ExecQuery("SELECT Titr,Favo FROM MatnWHERE Titr ='"& Value &"'") cur=sql.ExecQuery("SELECT * FROM Matn WHERE Titr Like '%"&EditText1.Text&"%' OR Matn Like '%"&EditText1.Text&"%' ") For i = 0 To cur.RowCount -1 cur.Position = i Dim pnl As Panel pnl.Initialize("") ScrollView1.Panel.AddView(pnl,2%x,top,96%x,30%y) pnl.LoadLayout("multi") anim.InitializeScaleCenter("scale",0,0,1,1,Panel1) anim.Duration = 1000 anim.Start(Panel1) Label1.Text = cur.GetString("Titr") Label1.Tag = cur.GetString("id") Label1.Typeface = ACTMENU.typ Label1.TextSize = 20 Label1.TextColor = Colors.Black top = top + 15%y ScrollView1.Panel.Height = top + 3%y Next cur.Close
  4. با سلام من یک کتاب نوشتم با مولتی پنل بصورت لیمت 10تا د10 کاملا درست کار میکنه برایش رو لیست علاقه مندی درست کردم اونم درست کار میکنه علاقه منی دکمه میزنم ثبت میکنه دفعه بعد علاقه مندی هست مشگل اینه چکار کنم این علاقه مندی ها بصورت یک لیست در بیاد چون وقتی رکورد دیتابیس بالا باشه لازمه بصورت لیست مواردی که تو علاقه مندی هست باشه کد میزارم ببیند کجاشو اشتباه کردم چون لیست درست میشه ولی چیزی داخلش نیست Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("menu") If FirstTime Then If File.Exists(File.DirInternal,"porsesh_mohem_pasokh_kootah.db") = False Then File.Copy(File.DirAssets,"porsesh_mohem_pasokh_kootah.db",File.DirInternal,"porsesh_mohem_pasokh_kootah.db") End If sql1.Initialize(File.DirInternal,"porsesh_mohem_pasokh_kootah.db",False) cur1 = sql1.ExecQuery2("SELECT * FROM tbl_porsesh_mohem ORDER BY ID LIMIT ?",Array As String(10)) For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,96%x,30%y) size = size + 15%y p1.LoadLayout("formonvan") Label1.Text = cur1.GetString("onvan") Label1.Tag = cur1.GetInt("id") Label1.TextColor = Colors.White Label1.TextSize = 15 Label1.Gravity=Gravity.CENTER sv.Panel.Height = size+ 3%y ' If cur1.GetString("Fav") = "0" Then nfLbl.Bitmap = LoadBitmapSample(File.DirAssets,"f0.png",nfLbl.Width,nfLbl.Height) Else nfLbl.Bitmap = LoadBitmapSample(File.DirAssets,"f1.png",nfLbl.Width,nfLbl.Height) End If nfLbl.Tag = cur1.GetInt("id") ' inx = inx + 1 Next ' Activity.Title = "Total Loaded Records : " & inx cur1.Close End If ' CreatMenu sv.Panel.Color = Colors.Transparent '.................................. End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub sv_ScrollChanged(Position As Int) cur1 = sql1.ExecQuery2("SELECT * FROM tbl_porsesh_mohem OFFSET LIMIT ?,?",Array As String(TenRecordPlus,10))'<----------------------- نذاشتیOFFSET If sv.ScrollPosition + sv.Height = sv.Panel.Height Then '========================================================== For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,96%x,30%y) 'sv.Panel.AddView(Panel1,1%x,1%y,99%x,20%x) 'sv.Panel.AddView(p1,1%x,1%y,99%x,20%x) size = size + 15%y p1.LoadLayout("formonvan") 'Label1.Tag = i Label1.Text = cur1.GetString("onvan") Label1.Tag = cur1.GetInt("id") Label1.TextColor = Colors.White Label1.TextSize = 17 ' nfLbl.Text = cur1.GetString("onvan") nfLbl.Tag = cur1.GetInt("id") If cur1.GetString("Fav") = "0" Then nfLbl.Bitmap = LoadBitmapSample(File.DirAssets,"f0.png",nfLbl.Width,nfLbl.Height) Else nfLbl.Bitmap = LoadBitmapSample(File.DirAssets,"f1.png",nfLbl.Width,nfLbl.Height) End If sv.Panel.Height = size+ 3%y Next '========================================================= 'Activity.Title = "Total Loaded Records : " & size cur1.Close 'sv.Panel.Height = size DoEvents If IsNumber(TenRecordPlus) = True Then TenRecordPlus = TenRecordPlus + 10 End If End If End Sub Sub Label1_Click Dim i As Label i = Sender matn = i.Tag LogColor(matn,Colors.Red) StartActivity(test) End Sub Sub Button1_Click Activity.RemoveAllViews Activity.LoadLayout("ss") 'cur1 = sql1.ExecQuery("SELECT * FROM book WHERE Fav=1") cur1=sql1.ExecQuery("SELECT * FROM tbl_porsesh_mohem WHERE Fav=1") Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,96%x,30%y) size = size + 15%y p1.LoadLayout("aaa") ' nfLbl.Tag = cur1.GetInt("id") 'Label2.Text = cur1.GetString("onvan") Label2.Tag = cur1.GetInt("id") Label1.TextColor = Colors.White Label1.TextSize = 15 Label1.Gravity=Gravity.CENTER sv.Panel.Height = size+ 3%y End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event If (KeyCode = KeyCodes.KEYCODE_BACK) Then 'Activity.Finish StartActivity(list1) Return True End If End Sub Sub nfLbl_Click 'Activity.RemoveAllViews ' Activity.LoadLayout("aaa") Dim img As ImageView img = Sender Dim cr As Cursor cr = sql1.ExecQuery("SELECT Fav FROM tbl_porsesh_mohem WHERE id="&img.Tag) cr.Position = 0 If cr.GetString("Fav") = "0" Then sql1.ExecNonQuery("UPDATE tbl_porsesh_mohem SET Fav = '1' WHERE id="&img.Tag) img.Bitmap = LoadBitmapSample(File.DirAssets,"f1.png",img.Width,img.Height) ToastMessageShow("این آیتم به علافمندی ها اضافه شد ",False) ' Label1.Text=cur1.GetString("Fav") Else sql1.ExecNonQuery("UPDATE tbl_porsesh_mohem SET Fav = '0' WHERE id="&img.Tag) img.Bitmap = LoadBitmapSample(File.DirAssets,"f0.png",img.Width,img.Height) ToastMessageShow("این آیتم از علاقمندی ها حذف شد!",False) End If End Sub
  5. مشگل در لیمت دادن در مولتی پنل

    سلام داداش من تا حالا با offsrt کار نکردم کجای کد باید بزارم البته دارم تست میکنم ولی گیج شدم
  6. مشگل در لیمت دادن در مولتی پنل

    سلام داداشم 500تا رکورد داره بازم دستد درد نکنه داداشم
  7. مشگل در لیمت دادن در مولتی پنل

    اخرم کسی جواب مارو نداد
  8. مشگل در لیمت دادن در مولتی پنل

    سورس پروژه ارسال کردم یک نگاهی بهش کنید چون جواب نداد بازم cur.Close DoEvents tt.zip
  9. مشگل در لیمت دادن در مولتی پنل

    دستت در نکنه داداشم ولی هنوز 10تای اول بیشتر نمیاره بقیه نمیاره داداش انگار قرار نیست درست بشه "|
  10. مشگل در لیمت دادن در مولتی پنل

    سلام برات فرستادم tt.zip
  11. سلام داداش این پروژه من بخدا یک هفته دارم روش کار میکنم لیمیت نمیشه 

    tt.zip

  12. مشگل در لیمت دادن در مولتی پنل

    عوض کردم ارور داد برنامه
  13. مشگل در لیمت دادن در مولتی پنل

    دست درد نکنه داداشم فقط جای این خط For i = 0 To cur.RowCount -1 for i = 0 to total
  14. مشگل در لیمت دادن در مولتی پنل

    cur = sql.ExecQuery("SELECT * FROM tbl LIMIT 10") چطوری بایدلیمت بدم
  15. مشگل در لیمت دادن در مولتی پنل

    اینجا اون شرط کفتم Sub sv_ScrollChanged(Position As Int) If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then cur = sql.ExecQuery2("SELECT * FROM tbl LIMIT ?,?",Array As String(total,10))'<----------------------- نذاشتیOFFSET total = total + 10 '========================================================== For i = 0 To cur.RowCount -1 cur.Position = i Dim pnl As Panel pnl.Initialize("") ScrollView1.Panel.AddView(pnl,2%x,top,96%x,30%y) pnl.LoadLayout("multi") Label1.Text = cur.GetString("Titr") Label1.Tag = cur.GetInt("id") Label1.TextSize = 20 Label1.TextColor = Colors.Yellow Label1.Gravity=Gravity.CENTER top = top + 15%y ScrollView1.Panel.Height = top + 3%y Next '========================================================= cur.Close ProgressDialogHide End If
×