فراخوانی

[hosseinji 17]

سلام 

یه خواهش دیگه داشتم این که من میخام با کتابخانه فراخوانی یک کتاب بسازم چند تا راهنمایی میخاستم.
1. کد رو از دیتابیس بگیره و اونارو به دکمه  در اسکرول ویو تبدیل کنه

2.روی هر دکمه که در اسکرول ویو وجود داره کلیک شد تکست داخل دیتا بیس رو باز کنه

[shahab.es 5,429]

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

1-دیتابیس شما id نداره(ستونی گذاشتید به اسم کد، که 16 شروع کردید -> مشکلی نداره اینکار اما خوب همونطور که توی کدها توضیح دادم، شما باید اسم ستون ای دی رو بدید به فراخوانی نه اسم ستون متن رو )

2-متغیر مقدار هم در گلوبال تعریف کردید که باید در Process Global تعریف بشه

سورستون

test.rar

[shahab.es 5,429]

سلام

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

از لیست ویو استفاده کن

لیست ویو رو اضافه کن به دیزاینرت

بعد هم تعریف کن

یه دیتابیس بساز که سه تا ستون id    titr     matn رو درونشون داشته باشی

خوب

اینو توی Sub Procees Globals بریز

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

--------------

اینا رو توی اکتیویتی کریت مینویسی

دیتابیست رو هم از تب فایل ، اضافه کن به پوشه فایل ها

Dim fara As Farakhani
fara.initialize("databasename.db","tableName",True)
fara.SingleLineTitr(listview1,"esme sotoon titr","esme sotoone id")

در رویداد کلیک لیست ویو(اگه بلد نیستی ساخت رویداد رو ، در دیزاینر روی لیست ویو راست کلیک کم، Generate رو بزن و کلیک و همینطور گزینه اول یعنی اسم لیست ویو رو اضافه کن)

به شکل زیر عمل کن

Sub list1_ItemClick (Position As Int, Value As Object)
	meghdar = Value
	StartActivity(matn)
End Sub

اسم اکتیویتی که این کدهارو توش مینویسم، هست مثلا titr_act و اسم اکتیویتی که قرار متنت رو توش داشته باشی هست matn

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

در ضمن، قبلش هم یه اسکرول ویو رو توی دیزاینرت تعریف کن و معرفیش بکن به اکتیویتی matn

 

Dim fara As FarakhaniDim lbl As Labellbl.Initialize("")fara.initialize("databasename.db","tableName",True)fara.FarakhaniMatn("esme sotoon id",titr_act.meghdar,lbl,"esme sotoon matn")fara.SetScroll(lbl,scroll1)

 

موفق باشید

[hosseinji 17]

داداش این سورسه برنامس یه چکی کن ممنونtest.rar

[hosseinji 17]

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

1-دیتابیس شما id نداره(ستونی گذاشتید به اسم کد، که 16 شروع کردید -> مشکلی نداره اینکار اما خوب همونطور که توی کدها توضیح دادم، شما باید اسم ستون ای دی رو بدید به فراخوانی نه اسم ستون متن رو )

2-متغیر مقدار هم در گلوبال تعریف کردید که باید در Process Global تعریف بشه

سورستون

test.rar

داداش حد اقل سورسمو ردیف میکردی از روش یاد میگرفتم   

اینجوری بهتر نبود؟؟ چون تو بخش مبتدیا از فراخوانی ندیدم ممنون

[shahab.es 5,429]

داداش حد اقل سورسمو ردیف میکردی از روش یاد میگرفتم   

اینجوری بهتر نبود؟؟ چون تو بخش مبتدیا از فراخوانی ندیدم ممنون

عزیزم دقت نکردید به پست

براتون سورس رو پیوست کردم

این قسمت مشکلی نداره

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

http://answercenter.ir/topic/4379-آموزش-ساخت-دیتابیس-با-navicat-در-خواستی/

http://answercenter.ir/topic/3790-آموزش-ساخت-و-کار-با-پایگاه-داده-database-تصویری-سورس/

http://answercenter.ir/topic/126-ساخت-database-با-برنامه-navicat-for-sqlite-و-استفاده-در-اندروید

http://answercenter.ir/topic/121-ساخت-database-با-برنامه-navicat-for-sqlite-و-استفاده-در-اندروید/

 

برای کتابخونه فراخوانی هم که میتونید به لینک تاپیکش برید، هم فیلم هست، هم سورس

http://answercenter.ir/topic/6098-کتابخانه-farakhani-نسخه-3/

 

به نظرم به پاسختون رسیدید، سوال های دگتون رو در تاپیک های جدید، مطرح کنید

[hosseinji 17]

 

سلام

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

از لیست ویو استفاده کن

لیست ویو رو اضافه کن به دیزاینرت

بعد هم تعریف کن

یه دیتابیس بساز که سه تا ستون id    titr     matn رو درونشون داشته باشی

خوب

اینو توی Sub Procees Globals بریز

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

--------------

اینا رو توی اکتیویتی کریت مینویسی

دیتابیست رو هم از تب فایل ، اضافه کن به پوشه فایل ها

Dim fara As Farakhani
fara.initialize("databasename.db","tableName",True)
fara.SingleLineTitr(listview1,"esme sotoon titr","esme sotoone id")

در رویداد کلیک لیست ویو(اگه بلد نیستی ساخت رویداد رو ، در دیزاینر روی لیست ویو راست کلیک کم، Generate رو بزن و کلیک و همینطور گزینه اول یعنی اسم لیست ویو رو اضافه کن)

به شکل زیر عمل کن

Sub list1_ItemClick (Position As Int, Value As Object)
	meghdar = Value
	StartActivity(matn)
End Sub

اسم اکتیویتی که این کدهارو توش مینویسم، هست مثلا titr_act و اسم اکتیویتی که قرار متنت رو توش داشته باشی هست matn

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

در ضمن، قبلش هم یه اسکرول ویو رو توی دیزاینرت تعریف کن و معرفیش بکن به اکتیویتی matn

 

Dim fara As FarakhaniDim lbl As Labellbl.Initialize("")fara.initialize("databasename.db","tableName",True)fara.FarakhaniMatn("esme sotoon id",titr_act.meghdar,lbl,"esme sotoon matn")fara.SetScroll(lbl,scroll1)

 

موفق باشید

 

Public Sub Initialize
If File.Exists(File.DirInternal,"mydb.db") = False Then
File.Copy(File.DirAssets,"mydb.db",File.DirInternal,"mydb.db")
End If
sql1.Initialize(File.DirInternal,"mydb.db",False)
End Sub

دیگه اینارو ننویسم؟؟

[hosseinji 17]

داداش میشه اینو توضیح بدی متوجه نمیشم
اینم کد این قسمت ک ارور داد
 

fara.initialize("mydb.db","tbl_list",True)
fara.SingleLineTitr(ListView1,"content","code")

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

[shahab.es 5,429]

 

 

دیگه اینارو ننویسم؟؟

نه دیگه

 

 

 

 

 

داداش میشه اینو توضیح بدی متوجه نمیشمUntitled.png

اینم کد این قسمت ک ارور داد

 

fara.initialize("mydb.db","tbl_list",True)
fara.SingleLineTitr(ListView1,"content","code")

 

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

[hosseinji 17]

نه دیگه

 

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

اینیشیالایز کردم الان صفحه مشکی میاد و ارور نمیده 

 

Sub Activity_Create(FirstTime As Boolean)
ListView1.Initialize("")
Dim fara As Farakhani
fara.initialize("mydb.db","tbl_list",True)
fara.SingleLineTitr(ListView1,"content","code")
End Sub

مشکلی چیزی داره بگید ممنوون

ببخشید دیگه بالاخره منم تازه کارم دگ  

[shahab.es 5,429]

Sub Activity_Create(FirstTime As Boolean)
ListView1.Initialize("")
activity.addview(Listview1,0,0,100%x,100%y)
Dim fara As Farakhani
fara.initialize("mydb.db","tbl_list",True)
fara.SingleLineTitr(ListView1,"content","code")
End Sub

شما مگه از توی دیزاینر ویو هارو اد نمیکنید دوستم؟

[hosseinji 17]

Sub Activity_Create(FirstTime As Boolean)
ListView1.Initialize("")
activity.addview(Listview1,0,0,100%x,100%y)
Dim fara As Farakhani
fara.initialize("mydb.db","tbl_list",True)
fara.SingleLineTitr(ListView1,"content","code")
End Sub

شما مگه از توی دیزاینر ویو هارو اد نمیکنید دوستم؟

من کلٌاٌ دو تا فرم ساختم که یکیش لیست ویو و اونیکی اسکرول ویو   

اینطوری میاد بر عکسه و داخل نمیره

[shahab.es 5,429]

خوب

ببین، شما تا شب هم بپرسی من یکی به شخصه کالا خوصله دارم و کم نمیارم (از نظر علمی نع، از نظر حوصله) و تا جایی که بلد باشم به سوالات شما پاسخ میدم

یه پیشنهاد که به نفعته انجام بدی(اگه انجام دادی، بازم انجام بده) 

http://answercenter.ir/forum/37-آموزش-های-گام-به-گام-برای-مبتدی-ها/

خیلی زیاد کمک میکنه بهتون

خوب

 

حالا سوالت، 

ببین، لیست ویو، نیاز به اسکرول ویو نداره و خودش اسکرول میشه

شما ، اول از هر کدی که داری توی Activity Create باید بیای و لایه ای که ساختی و میخوای نمایش بدی رو ، لود کنی(فک کنم برای ویندوز مینوشتی، اینجا نمیگیم فرم، میگیم لایه)

activity.loadlayout("esme laye")

بعد بقیه کدارو مینویسی

[hosseinji 17]

خوب

ببین، شما تا شب هم بپرسی من یکی به شخصه کالا خوصله دارم و کم نمیارم (از نظر علمی نع، از نظر حوصله) و تا جایی که بلد باشم به سوالات شما پاسخ میدم

یه پیشنهاد که به نفعته انجام بدی(اگه انجام دادی، بازم انجام بده) 

http://answercenter.ir/forum/37-آموزش-های-گام-به-گام-برای-مبتدی-ها/

خیلی زیاد کمک میکنه بهتون

خوب

 

حالا سوالت، 

ببین، لیست ویو، نیاز به اسکرول ویو نداره و خودش اسکرول میشه

شما ، اول از هر کدی که داری توی Activity Create باید بیای و لایه ای که ساختی و میخوای نمایش بدی رو ، لود کنی(فک کنم برای ویندوز مینوشتی، اینجا نمیگیم فرم، میگیم لایه)

activity.loadlayout("esme laye")

بعد بقیه کدارو مینویسی

دمت گرم خدایی منم از سوال کم نمیارما حالا یه سوال دیگه  این کد واس matn  ببین کجاش مشکل داره متن رو نمیاره اصن باز نمیکنه

 

Sub Globals
Dim fara As Farakhani
Dim lbl As Label
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("matn")
lbl.Initialize("")
fara.initialize("mydb.db","Button1",True)
fara.FarakhaniMatn("code",Main.meghdar,lbl,"content")
fara.SetScroll(lbl,ScrollView1)

End Sub

[shahab.es 5,429]

رنگ لیبل رو هم تغییر بده

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

ارور نداری؟

[hosseinji 17]

رنگ لیبل رو هم تغییر بده

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

ارور نداری؟

ارور نمیده اصلا صفحه متن رو باز نمیکنه

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

[shahab.es 5,429]

اره اون درسته

بذار سورست رو یه چک بکنم

[hosseinji 17]

اره اون درسته

بذار سورست رو یه چک بکنم

چک شد؟؟  

[shahab.es 5,429]

چک شد؟؟  

اسپم، نذار دوستم که بسته نشه تاپیکت

یه ریرگول نذاشتم

بذار سورست رو ، یه چک بکنم(یعنی سورست رو قرار بده)

[hosseinji 17]

اسپم، نذار دوستم که بسته نشه تاپیکت

یه ریرگول نذاشتم

بذار سورست رو ، یه چک بکنم(یعنی سورست رو قرار بده)

Sub Globals
	Private ListView1 As ListView
	Dim meghdar As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("list1")
ListView1.Initialize("")
Activity.AddView(ListView1,0,0,100%x,100%y)
Dim fara As Farakhani
fara.initialize("mydb.db","tbl_list",True)
fara.SingleLineTitr(ListView1,"title","content")
End Sub

اینم واسه متن

Sub Globals
Dim fara As Farakhani
Dim lbl As Label
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("matn")
fara.initialize("mydb.db","tbl_list",True)
lbl.Initialize("")
fara.FarakhaniMatn("title",Main.meghdar,lbl,"content")
fara.SetScroll(lbl,ScrollView1)

End Sub