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

hamedddr

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

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

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

درباره hamedddr

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

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

  • تلگرام
    hirsaddr

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

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمیشود.

  1. hamedddr

    جستجو برای دیتابیس1000تای

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

    جستجو برای دیتابیس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. hamedddr

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

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

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

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

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

    اخرم کسی جواب مارو نداد
  8. hamedddr

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

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

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

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

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

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

    tt.zip

  12. hamedddr

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

    عوض کردم ارور داد برنامه
  13. hamedddr

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

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

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

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

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

    اینجا اون شرط کفتم 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
×