رفتن به مطلب
  • 0

ساخت علاقه مندی مالتی تیبل


nasim

سوال

سلام دوستان

من یه کتاب دارم شامل چندین فصله میخوام واسش قسمت علاقه مندی بذارم ولی بلد نیستم یعنی وقتی کتاب یه قسمتی میشه راحته و توی StartActivity  میگی کدوم فعال بشه ولی وقتی چندتا اکتیویتی داری برای نشون دادن متن هات اونوق باید چیکار کرد؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • پاسخ ها 42
  • ایجاد شده
  • آخرین پاسخ

ارسال‌های توصیه شده

خواهش میکنم

بینید کد ماژولارو براتون میذارم؛تو یه بیسیک جدید ازقسمت project؛قسمت add existing modules رو انتخاب کنید واین ماژولهایی که پیوست کردم را به برنامه اضافه کنید بعد برنامه رو تو یه  پوشه سیو کنید ومحتویات پوشه فایل برنامه خودتونو داخل پوشه فایل این کپی کنید وبرنامه رو اجرا کنید؛اینم کد ماژولها:

New folder.rar

 

راستی من که گفتم فقط علاقه مندی قسمت سارافون؛دامن،و مانتو رو درست کردم بقیشو خودتون درست کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ببین باید تو تمام اون اکتیویهات به جای کد زیر

cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbsarafon.fast)

این کدو بذاری:

cur=kolle mataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kolle mataleb.fast)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود،

متاسفانه بنده سوال شما رو درست متوجه نشدم

در رابطه با لیست علاقه مندی بحث های زیادی صورت گرفته، لطفا جستجو کنید.

 

http://answercenter.ir/topic/4850-%D8%AF%D9%88%D8%B1%D9%87-%D8%A2%D9%85%D9%88%D8%B2%D8%B4%DB%8C-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C/

 

http://answercenter.ir/topic/404-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D9%87%D8%A7-%D8%AF%D8%B1-basic4android/

 

http://answercenter.ir/topic/6291-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D9%87%D8%A7/

 

کتابی که من نوشتم این مدلیه

این اکتیویتی هاشه

guou0jm8dswac0hz74n1.png

 

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

این عکس دیتا بیسمه

kf661it61i9kgbxaf1h6.png

 

و اینم دیزاینش

 

2xkjpz6rwxrdc52iboj3.png

 

که شامل چندین متن و عکس هستش یعنی کتابم عکس و متن باهمه و طبق آموزش زیر این کتاب رو ساختم

 

http://answercenter.ir/topic/6970-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%88%DB%8C%D8%AF%DB%8C%D9%88%DB%8C%DB%8C-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%AF%D8%B1-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A8%D8%B3%DB%8C%D8%A7%D8%B1-%D9%85%D9%87%D9%85/

 

 

اما فصل های کتاب متن طبق آموزش به این صورت از هم جدا میشن

b2ek6zag5onwamjn7ht0.png

 

اگه دقت کنین مشخص کردم مثلا فیلد 9 تا 16 رو توی این اکتیوتی نشون بده

و برای نشون دادن متن وعکس مورد نظر توی دیتا بیس از این کدها استفاده کردم

 

olksgq7vb6q8orfsmwvr.png

 

gzho1dqwx98y0ejrhu6q.png

 

الان مشکلم لیست صفحه علاقه مندیه؟اگه من یه لیست ساختم بگم وقتی روی آیتم مورد نظر کلیک شد بره از کدوم اکتیویتی اونو بخونه یعنی کدوم روStartActivity کنم چون واسه مانتو یکی دارم واسه دامن یکی؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

حجم فایل زیاد بود نمیشد آپلودش کرد؛همه اکتیویتی هارو میذارم خودت کپی کن:

اکتیویتی main؛menuوzanane رو تغیر ندادم؛بعدشم قسمت مانتو،دامن و سارافونو درست کردم؛ببقیشو خودت درست کن،بقیه اکتیویتی ها اینطوری:

اکتیویتی dbsarafon:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim fast As String

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 ListView1 As ListView

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("fehrest")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
	
	Dim cur As Cursor
	cur=sql1.ExecQuery("SELECT * FROM tbl1 where id Between 0 AND 46")
	For s=0 To cur.RowCount-1
	cur.Position=s
	
	ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.White
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.TextSize = 24
	ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
	ListView1.SingleLineLayout.Label.Width = -2
	ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))
	
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
	Dim cur1 As Cursor
	cur1=sql1.ExecQuery("SELECT * FROM tbl1 WHERE id=" &Value)
	cur1.Position=0
	
	For i = 0 To 9
	If cur1.GetString("pic"&i) <> Null Then
	zanane.bitmap1(i).InitializeSample(File.DirAssets,cur1.GetString("pic"&i)&".jpg",Activity.Height,Activity.Width)
	End If
	fast=Value

StartActivity(dbsarafon2)	
Next
End Sub

اکتیویتیdbsarafon2:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

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.
	Dim lable1 As Label
    Private ScrollView1 As ScrollView
	Dim i1 As PhoneIntents
	Private Button1 As Button
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("frm3")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If dbsarafon.sql1.IsInitialized=False Then
	dbsarafon.sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
   Dim cur As Cursor 
   cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbsarafon.fast)
   cur.Position =0
   
	Dim h As Int
	For i = 0 To 9
	If cur.GetString("matn"&i) <> Null Then
	lable1.Initialize("Lable1")
	lable1.Text=cur.GetString("matn"&i)
	lable1.TextColor=Colors.Black
	lable1.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	lable1.TextSize=20
	lable1.Gravity=Gravity.CENTER
	
	ScrollView1.Panel.AddView(lable1,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
	Dim su As StringUtils
	lable1.Height=su.MeasureMultilineTextHeight(lable1,lable1.Text)+10
	h = h+ su.MeasureMultilineTextHeight(lable1,lable1.Text)+30
	ScrollView1.Panel.Height=h
	End If
	
	If cur.GetString("pic"&i) <> Null Then
	Dim image As ImageView
	image.Initialize("imageview")
	image.Tag=cur.GetString("pic"&i)
	
	ScrollView1.Panel.AddView(image,0,h,ScrollView1.Width,ScrollView1.Height)
	image.Bitmap=zanane.bitmap1(i)
	 
	If zanane.bitmap1(i).width > 100%x Then
	image.Width=100%x
	image.Height=(image.Width/zanane.bitmap1(i).width)*zanane.bitmap1(i).height	
	image.Gravity=Gravity.CENTER 
	
	Else
	 image.Width=zanane.bitmap1(i).width
	 image.Width=zanane.bitmap1(i).height
	 image.Left=(100%x - image.Width)/2
	 End If
	
	h= h + image.Height + 38
	ScrollView1.Panel.Height=h
	End If 
	 Next

End Sub
'Sub Button2_Click
'    Dim  cur As Cursor
'	cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbsarafon.fast)
'	cur.Position=0
'	
'	If cur.GetString("Type")= "gheyre"  Then
'	StartActivity(i1.OpenBrowser(cur.GetString("Link")))
'	End If
'End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
   Dim cur As  Cursor
    cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&dbsarafon.fast)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    dbsarafon.sql1.ExecNonQuery("UPDATE tbl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    Button1.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    dbsarafon.sql1.ExecNonQuery("UPDATE tbl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    Button1.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    Next
    cur.Close
End Sub

اکتیویتیdbdaman:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim fast As String

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 ListView1 As ListView

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("fehrest")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
	
	Dim cur As Cursor
	cur=sql1.ExecQuery("SELECT * FROM tbl1 where id Between 30 AND 42")
	For s=0 To cur.RowCount-1
	cur.Position=s
	
	ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.White
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.TextSize = 24
	ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
	ListView1.SingleLineLayout.Label.Width = -2
	ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))
	
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
	Dim cur1 As Cursor
	cur1=sql1.ExecQuery("SELECT * FROM tbl1 WHERE id=" &Value)
	cur1.Position=0
	
	For i = 0 To 9
	If cur1.GetString("pic"&i) <> Null Then
	zanane.bitmap1(i).InitializeSample(File.DirAssets,cur1.GetString("pic"&i)&".jpg",Activity.Height,Activity.Width)
	End If
	
	fast=Value
StartActivity(dbdaman2)	
Next
End Sub

اکتیویتیdbdaman2:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

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.
	Dim lable1 As Label
    Private ScrollView1 As ScrollView
	Dim i1 As PhoneIntents
	Private Button1 As Button
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("frm3")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	If dbdaman.sql1.IsInitialized=False Then
	dbdaman.sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
   Dim cur As Cursor 
   cur=dbdaman.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbdaman.fast)
   cur.Position =0
   
   
	Dim h As Int
	For i = 0 To 9
	If cur.GetString("matn"&i) <> Null Then
	lable1.Initialize("Lable1")
	lable1.Text=cur.GetString("matn"&i)
	lable1.TextColor=Colors.Black
	lable1.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	lable1.TextSize=20
	lable1.Gravity=Gravity.CENTER
	
	ScrollView1.Panel.AddView(lable1,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
	Dim su As StringUtils
	lable1.Height=su.MeasureMultilineTextHeight(lable1,lable1.Text)+10
	h = h+ su.MeasureMultilineTextHeight(lable1,lable1.Text)+30
	ScrollView1.Panel.Height=h
	End If
	
	If cur.GetString("pic"&i) <> Null Then
	Dim image As ImageView
	image.Initialize("imageview")
	image.Tag=cur.GetString("pic"&i)
	
	ScrollView1.Panel.AddView(image,0,h,ScrollView1.Width,ScrollView1.Height)
	image.Bitmap=zanane.bitmap1(i)
	 
	If zanane.bitmap1(i).width > 100%x Then
	image.Width=100%x
	image.Height=(image.Width/zanane.bitmap1(i).width)*zanane.bitmap1(i).height	
	image.Gravity=Gravity.CENTER 
	
	Else
	 image.Width=zanane.bitmap1(i).width
	 image.Width=zanane.bitmap1(i).height
	 image.Left=(100%x - image.Width)/2
	 End If
	
	h= h + image.Height + 38
	ScrollView1.Panel.Height=h
	End If 
	 Next

End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
  Dim cur As  Cursor
 
    cur=dbdaman.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&dbdaman.fast)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    dbdaman.sql1.ExecNonQuery("UPDATE tbl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    Button1.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    dbdaman.sql1.ExecNonQuery("UPDATE tbl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    Button1.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    Next
    cur.Close
End Sub

اکتیویتیdbmanto:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim fast As String

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 ListView1 As ListView

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("fehrest")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
	
	Dim cur As Cursor
	cur=sql1.ExecQuery("SELECT * FROM tbl1 where id Between 1 AND 8")
		For s=0 To cur.RowCount-1
	cur.Position=s
	
	ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.White
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.TextSize = 24
	ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
	ListView1.SingleLineLayout.Label.Width = -2
	ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))
	
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
	Dim cur1 As Cursor
	cur1=sql1.ExecQuery("SELECT * FROM tbl1 WHERE id=" &Value)
	cur1.Position=0
	
	For i = 0 To 9
	If cur1.GetString("pic"&i) <> Null Then
	zanane.bitmap1(i).InitializeSample(File.DirAssets,cur1.GetString("pic"&i)&".jpg",Activity.Height,Activity.Width)
	End If
	fast=Value
StartActivity(dbmanto2)	
Next
End Sub

Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	sql1.ExecNonQuery("UPDATE tbl1 SET fav=1 Where fav=0 AND id=" & Value)
	ToastMessageShow("به علاقه مندی ها اضافه شد!",False)
End Sub

اکتیویتیdbmanto2:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

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.
	Dim lable1 As Label
    Private ScrollView1 As ScrollView
	Dim i1 As PhoneIntents
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("frm3")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If dbmanto.sql1.IsInitialized=False Then
	dbmanto.sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
   Dim cur As Cursor 
   cur=dbmanto.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbmanto.fast)
   cur.Position =0
   
	Dim h As Int
	For i = 0 To 9
	If cur.GetString("matn"&i) <> Null Then
	lable1.Initialize("Lable1")
	lable1.Text=cur.GetString("matn"&i)
	lable1.TextColor=Colors.Black
	lable1.Typeface=Typeface.LoadFromAssets("byekan.ttf")
	lable1.TextSize=20
	lable1.Gravity=Gravity.CENTER
	
	ScrollView1.Panel.AddView(lable1,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
	Dim su As StringUtils
	lable1.Height=su.MeasureMultilineTextHeight(lable1,lable1.Text)+10
	h = h+ su.MeasureMultilineTextHeight(lable1,lable1.Text)+30
	ScrollView1.Panel.Height=h
	End If
	
	If cur.GetString("pic"&i) <> Null Then
	Dim image As ImageView
	image.Initialize("imageview")
	image.Tag=cur.GetString("pic"&i)
	
	ScrollView1.Panel.AddView(image,0,h,ScrollView1.Width,ScrollView1.Height)
	image.Bitmap=zanane.bitmap1(i)
	 
	If zanane.bitmap1(i).width > 100%x Then
	image.Width=100%x
	image.Height=(image.Width/zanane.bitmap1(i).width)*zanane.bitmap1(i).height	
	image.Gravity=Gravity.CENTER 
	
	Else
	 image.Width=zanane.bitmap1(i).width
	 image.Width=zanane.bitmap1(i).height
	 image.Left=(100%x - image.Width)/2
	 End If
	
	h= h + image.Height + 38
	ScrollView1.Panel.Height=h
	End If 
	 Next

End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
  Dim cur As  Cursor
     cur=dbmanto.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&dbmanto.fast)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    dbmanto.sql1.ExecNonQuery("UPDATE tbl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    Button1.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    dbmanto.sql1.ExecNonQuery("UPDATE tbl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    Button1.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    Next
    cur.Close
End Sub

اکتیویتیkoll:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

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.
	Dim lable1 As Label
    Private ScrollView1 As ScrollView
	Dim i1 As PhoneIntents
	Private Button1 As Button
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("frm3")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If koll2.sql1.IsInitialized=False Then
	koll2.sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
   Dim cur As Cursor 
   cur=koll2.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&koll2.fast)
   cur.Position =0
   
	Dim h As Int
	For i = 0 To 9
	If cur.GetString("matn"&i) <> Null Then
	lable1.Initialize("Lable1")
	lable1.Text=cur.GetString("matn"&i)
	lable1.TextColor=Colors.Black
	lable1.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	lable1.TextSize=20
	lable1.Gravity=Gravity.CENTER
	
	ScrollView1.Panel.AddView(lable1,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
	Dim su As StringUtils
	lable1.Height=su.MeasureMultilineTextHeight(lable1,lable1.Text)+10
	h = h+ su.MeasureMultilineTextHeight(lable1,lable1.Text)+30
	ScrollView1.Panel.Height=h
	End If
	
	If cur.GetString("pic"&i) <> Null Then
	Dim image As ImageView
	image.Initialize("imageview")
	image.Tag=cur.GetString("pic"&i)
	
	ScrollView1.Panel.AddView(image,0,h,ScrollView1.Width,ScrollView1.Height)
	image.Bitmap=zanane.bitmap1(i)
	 
	If zanane.bitmap1(i).width > 100%x Then
	image.Width=100%x
	image.Height=(image.Width/zanane.bitmap1(i).width)*zanane.bitmap1(i).height	
	image.Gravity=Gravity.CENTER 
	
	Else
	 image.Width=zanane.bitmap1(i).width
	 image.Width=zanane.bitmap1(i).height
	 image.Left=(100%x - image.Width)/2
	 End If
	
	h= h + image.Height + 38
	ScrollView1.Panel.Height=h
	End If 
	 Next

End Sub
'Sub Button2_Click
'    Dim  cur As Cursor
'	cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbsarafon.fast)
'	cur.Position=0
'	
'	If cur.GetString("Type")= "gheyre"  Then
'	StartActivity(i1.OpenBrowser(cur.GetString("Link")))
'	End If
'End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
   Dim cur As  Cursor
    cur=koll2.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&koll2.fast)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    koll2.sql1.ExecNonQuery("UPDATE tbl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    Button1.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    koll2.sql1.ExecNonQuery("UPDATE tbl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    Button1.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    Next
    cur.Close
End Sub

اکتیویتیkoll2:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim fast As String

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 ListView1 As ListView

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("fehrest")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
	
	Dim cur As Cursor
	cur=sql1.ExecQuery("SELECT * FROM tbl1 where id Between 0 AND 46")
	For s=0 To cur.RowCount-1
	cur.Position=s
	
	ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.White
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.TextSize = 24
	ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
	ListView1.SingleLineLayout.Label.Width = -2
	ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))
	
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
	Dim cur1 As Cursor
	cur1=sql1.ExecQuery("SELECT * FROM tbl1 WHERE id=" &Value)
	cur1.Position=0
	
	For i = 0 To 9
	If cur1.GetString("pic"&i) <> Null Then
	zanane.bitmap1(i).InitializeSample(File.DirAssets,cur1.GetString("pic"&i)&".jpg",Activity.Height,Activity.Width)
	End If
	fast=Value
StartActivity(koll)	
Next
End Sub

اکتیویتیfav1:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	
	Dim sql1 As SQL
	Dim cur As Cursor

End Sub

Sub Globals
	
	Private Lab As Label
	Private ListView1 As ListView
		Private im1 As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	

	Activity.LoadLayout("fehrest")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
	
	 sql1.Initialize(File.DirInternal,"newf3.db",True)
	cur=sql1.ExecQuery("SELECT * FROM tbl1 WHERE fav = 1")
	For s=0 To cur.RowCount-1
	cur.Position=s
	
	ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.White
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.TextSize = 24
	ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
	ListView1.SingleLineLayout.Label.Width = -2
	ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))

		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)

dbsarafon.fast = Value
dbdaman.fast = Value
dbmanto.fast = Value
koll2.fast = Value	
   StartActivity(koll)
   
 

End Sub

تمام :S

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

ببین باید تو تمام اون اکتیویهات به جای کد زیر

cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbsarafon.fast)

این کدو بذاری:

cur=kolle mataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kolle mataleb.fast)

یه همچین اروری میده

 

tplv3pn0c9cb6cmrfj2h.png

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

بابا این که لیست علاقه مندیت درسته که؟

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

یکی اکتیویتی fav که کدهاش اینطوری میشه،همینو کپی کن تو سورست:


Sub Process_Globals


Dim sql1 As SQL
Dim cur As Cursor


End Sub


Sub Globals


Private Lab As Label
Private ListView1 As ListView
Private im1 As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)




Activity.LoadLayout("fehrest")
If File.Exists(File.DirInternal , "newf3.db")=False Then
File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
End If


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal , "newf3.db" , False)
End If


sql1.Initialize(File.DirInternal,"newf3.db",True)
cur=sql1.ExecQuery("SELECT * FROM tbl1 WHERE fav = 1")
For s=0 To cur.RowCount-1
cur.Position=s


ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.SingleLineLayout.Label.TextColor=Colors.White
ListView1.SingleLineLayout.ItemHeight=10%y
ListView1.SingleLineLayout.Label.TextSize = 24
ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
ListView1.SingleLineLayout.Label.Width = -2
ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))


Next
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)






   StartActivity(kolle mataleb)
   




End Sub

اکتیویتی kolle mataleb هم اکتیویتی هست که همه مطالبتو توش از دیتابیس فراخوانی کردی

 

 

تا اینجااا یه دنیااا ممنوون

حالا اکتیوتی گل مطالب رو چجوری بنویسم؟:(((

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

والا من که سر درد شدم :D

ببینید من کل کدهارو چک نکردم و نمیتونم بگم درست بودن یا غلط بودنشو.

یکسری نکته میگم خوبه که بدونید و در راس کارتون قرار بدین.

ببینید برای استفاده از SQL  و دیتابیس شما احتیاج ندارید که توی هر اکتیویتی جداگونه بیایید تعریف کنید و هی اینیشیالیز کنید و هی چک کنید فایل دیتابیس موجوده یا نه.پس شما کافیه توی اولین اکتویتی متغییر SQL  رو   در Proccess_Globals  تعریف کنید و توی کل پروژه ازش استفاده کنید.

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

حالا این پروژتون رو تا هرجا پیش بردید و دیدید به نتیجه نمی رسید فقط کافیه پست رو گزارش کنید تا بنده رسیدگی کنم.چون در جریانش نیستم که دقیقا الان چکاری کردید.

موفق باشید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

تو آیتم کلیک button1 به جای این کد

    cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&dbsarafon.fast)

اینو بذار:

    cur=kolle mataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&kolle mataleb.fast)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

یه راه واسه ساختن کتاب های چند فصلی

خودم ازش استفاده کردم هم حجم برنامه تا 80 درصد کمتر میشه و هم سرعتش بیشتره

مثلا میخای کتاب اشپزی بسازی

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

و یه ستون اخر همه درست میکنی به نام مثلا Type جلو هر کدوم نوع یا هون Type رو مینویسی مثلا اب گوشت-سوپ و ...

و در کد های بیسیک میری یه اسپینر میزاری و همین اطلاعات رو توش میزیاری منظورم اب گوشت و سوپ اینا هست و در کد هات مینویسی که همه اطلاعات جدول رو بگیره و نشون بده 

اینجا مییای شرط میزاری 

مثال

یه لیبل با کد درست کنید و در اسپینر بنویسید

Sub Spinner1_ItemClick (Position As Int, Value As Object)
	1Label1.Initialize("Label")
	Label1.Text=Value
End Sub

بعد کوئری sql 

 Cr = s90.ExecQuery("SELECT * FROM tbl1  WHERE type='"&Label.Text&"' ")

اینی نوشتم گفتیم به شرطی Type = Label1.text باشه که لیبل همون مقدار اسپینر هست یعنی اگر مقدا اسپینر سوپ باشه این هر ریدیفی که که مقدار Type اون سوپ باشه نشون میده

به همین راحتی

لینک ارسال
به اشتراک گذاری در سایت های دیگر

حجم فایل زیاد بود نمیشد آپلودش کرد؛همه اکتیویتی هارو میذارم خودت کپی کن:

اکتیویتی main؛menuوzanane رو تغیر ندادم؛بعدشم قسمت مانتو،دامن و سارافونو درست کردم؛ببقیشو خودت درست کن،بقیه اکتیویتی ها اینطوری:

اکتیویتی dbsarafon:

:S

دستتت گلتون درد نکنه اسباب زحمت شد شرمنده

ولی بازم نشد...

وقتی میزنم مطلب رو نشون بده توی قسمت لیست ویو علاقه مندی ها یه همچین اروری رو میده

 

8jxcg3jh1wd6mlzqc9tc.png

 

به این خطش گیر میده

	image.Bitmap=zanane.bitmap1(i)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

بابا این که لیست علاقه مندیت درسته که؟

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

یکی اکتیویتی fav که کدهاش اینطوری میشه،همینو کپی کن تو سورست:

Sub Process_Globals


Dim sql1 As SQL
Dim cur As Cursor


End Sub


Sub Globals


Private Lab As Label
Private ListView1 As ListView
Private im1 As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)




Activity.LoadLayout("fehrest")
If File.Exists(File.DirInternal , "newf3.db")=False Then
File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
End If


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal , "newf3.db" , False)
End If


sql1.Initialize(File.DirInternal,"newf3.db",True)
cur=sql1.ExecQuery("SELECT * FROM tbl1 WHERE fav = 1")
For s=0 To cur.RowCount-1
cur.Position=s


ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.SingleLineLayout.Label.TextColor=Colors.White
ListView1.SingleLineLayout.ItemHeight=10%y
ListView1.SingleLineLayout.Label.TextSize = 24
ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
ListView1.SingleLineLayout.Label.Width = -2
ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))


Next
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)






   StartActivity(kolle mataleb)
   




End Sub

اکتیویتی kolle mataleb هم اکتیویتی هست که همه مطالبتو توش از دیتابیس فراخوانی کردی

 

 

دمت گرم مشکل گشا بود

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

تو آیتم کلیک button1 به جای این کد

    cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&dbsarafon.fast)

اینو بذار:

    cur=kolle mataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = "&kolle mataleb.fast)

منم دقیقا همون جا نوشتم چون قبل اون که یه جا همین کد رو داشت عوض میکنم کلا متن رو نشون نمیده

توی  آیتم کلیک button1 گذاشتم

خودتون یه بار امتحان کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

اکتیویتی کل مطلب کدش اینطوری میشه

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim fast As String

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 ListView1 As ListView

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("fehrest")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
	
	Dim cur As Cursor
	cur=sql1.ExecQuery("SELECT * FROM tbl1 where id Between 0 AND 46")
	For s=0 To cur.RowCount-1
	cur.Position=s
	
	ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.White
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.TextSize = 24
	ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
	ListView1.SingleLineLayout.Label.Width = -2
	ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))
	
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
	Dim cur1 As Cursor
	cur1=sql1.ExecQuery("SELECT * FROM tbl1 WHERE id=" &Value)
	cur1.Position=0
	
	For i = 0 To 9
	If cur1.GetString("pic"&i) <> Null Then
	zanane.bitmap1(i).InitializeSample(File.DirAssets,cur1.GetString("pic"&i)&".jpg",Activity.Height,Activity.Width)
	End If
	fast=Value
StartActivity(dbsarafon2)	
Next
End Sub

یه نکته ای که وجود داره اینه که تو اکتیویتی fav باید تو قسمت آیتم کلیک لیست ویو به تعداد اکتیدیتی های که مثل اکتیویتیdbsarafonهستن یه value بنویسی اینطوری:

Sub ListView1_ItemClick (Position As Int, Value As Object)

dbsarafon.fast = Value
   StartActivity(kolle mataleb)
   
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

یه راه واسه ساختن کتاب های چند فصلی

خودم ازش استفاده کردم هم حجم برنامه تا 80 درصد کمتر میشه و هم سرعتش بیشتره

مثلا میخای کتاب اشپزی بسازی

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

و یه ستون اخر همه درست میکنی به نام مثلا Type جلو هر کدوم نوع یا هون Type رو مینویسی مثلا اب گوشت-سوپ و ...

و در کد های بیسیک میری یه اسپینر میزاری و همین اطلاعات رو توش میزیاری منظورم اب گوشت و سوپ اینا هست و در کد هات مینویسی که همه اطلاعات جدول رو بگیره و نشون بده 

اینجا مییای شرط میزاری 

مثال

یه لیبل با کد درست کنید و در اسپینر بنویسید

Sub Spinner1_ItemClick (Position As Int, Value As Object)
	1Label1.Initialize("Label")
	Label1.Text=Value
End Sub

بعد کوئری sql 

 Cr = s90.ExecQuery("SELECT * FROM tbl1  WHERE type='"&Label.Text&"' ")

اینی نوشتم گفتیم به شرطی Type = Label1.text باشه که لیبل همون مقدار اسپینر هست یعنی اگر مقدا اسپینر سوپ باشه این هر ریدیفی که که مقدار Type اون سوپ باشه نشون میده

به همین راحتی

یعنی چه چجوری نفهمیدم

والا من مثل خودتون حرفه ای نیستم عکس دیتا بیسمم گذاشتم

میشه جوری بگید که توی همین برنامه نویسی مشخص کنیم وقت ی روش کلیک میشه بره از رده چندم تا چندم دیتا بیس مثلا یک تا بیست رو بخونه

مثل اونی که آقا مهدی گفتن

اگه مکن باشه

شرمنده انقد اذیت کردم واقعیتش متوجه نمیشم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

اکتیویتی کل مطلب کدش اینطوری میشه

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	Dim sql1 As SQL
	Dim fast As String

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 ListView1 As ListView

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("fehrest")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
	
	Dim cur As Cursor
	cur=sql1.ExecQuery("SELECT * FROM tbl1 where id Between 0 AND 46")
	For s=0 To cur.RowCount-1
	cur.Position=s
	
	ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
	ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	ListView1.SingleLineLayout.Label.TextColor=Colors.White
	ListView1.SingleLineLayout.ItemHeight=10%y
	ListView1.SingleLineLayout.Label.TextSize = 24
	ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
	ListView1.SingleLineLayout.Label.Width = -2
	ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))
	
		Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
	Dim cur1 As Cursor
	cur1=sql1.ExecQuery("SELECT * FROM tbl1 WHERE id=" &Value)
	cur1.Position=0
	
	For i = 0 To 9
	If cur1.GetString("pic"&i) <> Null Then
	zanane.bitmap1(i).InitializeSample(File.DirAssets,cur1.GetString("pic"&i)&".jpg",Activity.Height,Activity.Width)
	End If
	fast=Value
StartActivity(dbsarafon2)	
Next
End Sub

یه نکته ای که وجود داره اینه که تو اکتیویتی fav باید تو قسمت آیتم کلیک لیست ویو به تعداد اکتیدیتی های که مثل اکتیویتیdbsarafonهستن یه value بنویسی اینطوری:

Sub ListView1_ItemClick (Position As Int, Value As Object)

dbsarafon.fast = Value
   StartActivity(kolle mataleb)
   
End Sub

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

"SELECT * FROM tbl1 where id Between 0 AND 46")

از صفر تا 46 رو

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بنده خودم هم دارم کمی گیج می شوم! ببینید روش من برای کتاب های چند فصلی مناسب نیست چرا که وقتی تعداد فصل ها بالا می رود به اکتیویتی بیش تری برای منو و مطالب نیاز است و وقتی تعداد اکتیویتی های مشابه بالا می رود حجم برنامه بالا و سرعت برنامه کم می شود ! بهتر است از روشی که آقای آرتا توضیح دادند و من نحوه جیگزینی آن را با آن روش گفتم استفاده کنید. موفق تر باشید!

لینک ارسال
به اشتراک گذاری در سایت های دیگر

برنامه رو یه بار حذف کن دوباره نصب کن ،اگه درست نشد کدهای آیتم کلیک button1 رو بذار ببینیم مشکلش چیه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شما باید آی دی آیتمی که روی آن کلیک شده است را در یک Value بریزید و سپس شرط بگزارید که برای مثال اگر آی دی بین 1 تا 10 بود صفحه مطالب مخصوص به آن سری از آی دی را باز کند ، اگر آی دی بین 11 تا 20 بود صفحه مطالب مخصوص به آن سری از آی دی ها را باز کند.این کد ها باید در ساب کلیک لیست ویو قرار بگیرد.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خواهش میکنم

بینید کد ماژولارو براتون میذارم؛تو یه بیسیک جدید ازقسمت project؛قسمت add existing modules رو انتخاب کنید واین ماژولهایی که پیوست کردم را به برنامه اضافه کنید بعد برنامه رو تو یه  پوشه سیو کنید ومحتویات پوشه فایل برنامه خودتونو داخل پوشه فایل این کپی کنید وبرنامه رو اجرا کنید؛اینم کد ماژولها:

attachicon.gifNew folder.rar

 

راستی من که گفتم فقط علاقه مندی قسمت سارافون؛دامن،و مانتو رو درست کردم بقیشو خودتون درست کنید

یکککککککک دنیااا ممنون

درستت شد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

برنامه رو یه بار حذف کن دوباره نصب کن ،اگه درست نشد کدهای آیتم کلیک button1 رو بذار ببینیم مشکلش چیه

بفرمایین

Sub Button1_Click
   Dim cur As  Cursor
     cur=kollemataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb.fast)
'	 cur=dbsarafon.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&dbsarafon.fast)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    dbsarafon.sql1.ExecNonQuery("UPDATE tbl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    Button1.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    dbsarafon.sql1.ExecNonQuery("UPDATE tbl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    Button1.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    Next
    cur.Close
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.

×
×
  • اضافه کردن...