shahab.es

صدای قشنگ منو که تو پست اول هستش.... ویدیو هم دارم کم حجم میکنم که زودتر اپ بشه و زودترم دانلود.... توصیه میکنم به تمام دوستان که حتما صدای قشنگ و زیبای من رو بگوشید حتما :|

نسخه 3.4 فراخوانی به پست اول اضافه شد ♥

ممنون بچه ها، شرمنده میکنید ♥ قرارش دادم، یکم ریزه کاری داره، انجام شه توی تاپیک میذارمش... قربانت مطلبی که گفتی(عکس توی پوشه اسِتس) رو ردیف کردم، یه ذره دارم بهینه اش میکنم و بعد تو تاپیک میذارم کتابخونه رو ...

به نام خدا خوب دوستان اپدیت 3.4 اماده شد -قرار دادن تصاویر به شکل افلاین در لیست ویو(تصاویر از قبل قرار میگیرن در پوشه Assets) -گرفتن لیست از یک ستون با ایندکس مشخص(که میشه توی مولتی پنل یا اریالیست ویو یا هر جایی از این لیست استفاده کرد... -اضافه شدن sub getList اگر بازم چیزی به ذهنتون رسید بگید دانلود کتابخانه فراخوانی نسخه 3.4 دانلود سورس نمونه داناود اموزش ویدیویی رمز فایل فشرده www.answercenter.ir به نام خدا سلام دوستان خوب، اپدیت 3.2 کتابخونه فراخوانی هم اماده شده و برای دوستانی که کار با دیتابیس انلاین براشون سخت هست و مشکل دارن، میتونه مفید باشه قابلیت ها -ارسال اطلاعات و دریافت نتایج از وب سرویس و قرار دادن در لیست ویو -لیست ویو تک خطی لیست ویو دو خطی -تنها با 2 خط کد فقط حتما توجه کنید که کتابخونه AriaHttp رو توی کتابخونه هاتون داتشه باشید برای دانلود AriaHttp کلیک کنید... لینک دانلود کتابخانه فراخوانی نسخه 3.2 دانلود فیلم اموزشی این نسخه دانلود فایل php موجود در اموزش دانلود نمونه سورس رمز فایل های فشرده www.answercenter.ir امیدوارم براتون مفید باشه...

سلام فایل زیر رو قرار بدید در ادرس پایین فایل aapt.exe E:\android\b4a\a\platform-tools\

سلام باید xml بنویسید که برای بیسیک اصلا منطقی نیست :|!!!

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

نایس وان عالی استاد شاهدی دنبالش بودم ♥ بعدا باید بگید چجوری اینا رو رپ میکنیدا مرسی برای تمام زحماتتون :gol: ....

سلام دوستم الان شما تو اکت اول مولتی پنل داری، میخوای بری اکت دوم وصلش کنی به اریا لیست ویو تا ایه هارو بیاره خوب ای دی سوره رو از اکت اول میگیری با تگ و سندر ، میریزی توی یه متغیر پراسس گلوبال توی اکت دوم هم که همونطور که استاد شاهدی اموزش دادن، اطلاعات اون ای دی رو از دیتابیس میگیری و میریزی توی اریا لیست ویو....

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

سلام دلاور شما خوب فقط از اکتیوتی دوم استفاده کن.... 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 Button1 As Button Private EditText1 As EditText Dim id As Int 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("content") 'meghdar be edit text baraye viraayeh' cur = sql.ExecQuery("SELECT * FROM mytbl WHERE id = 2") cur.Position = 0 EditText1.Text = cur.GetString("content") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click''''emaal taghirat va viraayesh'''' Dim a As Int a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null) If a = DialogResponse.POSITIVE Then 'injaa vaarede data base mikonim' sql.ExecNonQuery("UPDATE mytbl SET content = '"& EditText1.Text &"' WHERE id = '"& "2" &"'") ToastMessageShow("sabt shod",False) 'dobare edittetx ro load mikonam ta taghirat maloom beshe' EditText1.Text = "" cur = sql.ExecQuery("SELECT * FROM mytbl WHERE id = 2") cur.Position = 0 EditText1.Text = cur.GetString("content") End If End Sub

سلام و خسته نباشید به همه دوستان با وجود اموزش های زیادی که توی انجمن موجود هست ، خیلی از دوستان هنوز مشکل دارن با دیتابیس این سورس زیر، از طریق کتابخونه sql با دیتابیس کار میکنه و 4 عمل سلکت، اپدیت، اینسرت و دیلت رو باهاش انجام میدیم... سعی کردم خیلی خیلی ساده و روون کد بزنم که دوستانی که مشکل دارن راحت متوجه بشن... غیر از دیتابیس دو سه تا چیز دیگه هم تو سورس هست: دیزاینر اسکریپت کاملا انجام شده. مسیج باس 2 رو استفاده کردیم و قبل از هر کاری از کاربر میپرسیم مطمئن هست یا نه و چک میکنیم که فیلد ها خالی هستن یا نه که در صورت خالی بودن، چیزی ثبت نمیشه و کاربر اخطار دریافت میکنه موفق تر باشید دانلود سورس و دیتابیس.... www.answercenter.ir تصاویر محیط نرم افزار main activity Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim sql As SQL Dim cur As Cursor Dim meghdar 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 Button1 As Button Private EditText1 As EditText Private EditText2 As EditText 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("main") 'avval bayad database ro copy konim va bad initialize sh konim' If File.Exists(File.DirInternal,"db.db") = False Then File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db") End If If sql.IsInitialized = False Then sql.Initialize(File.DirInternal,"db.db",True) End If 'bayad ettelaate data base ro bekhoonam o berizam tooye list view' cur = sql.ExecQuery("SELECT * FROM mytbl") For i = 0 To cur.RowCount - 1 cur.Position = i ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id")) Next 'ye shart mizaram ke age chizi too list view nabood masalan be karbar begiim ' 'ke ettelaate jadid ra vared konid o in harfa...' If ListView1.Size = 0 Then Msgbox("ettelaati mojood nist"&CRLF&"az paiin safhe vared konid","answercenter.ir-->shahab.es") End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object)'''''''''''''in ghesmat , id ro mifreste be 1 activity dg''''''' meghdar = Value StartActivity(content) End Sub Sub ListView1_ItemLongClick (Position As Int, Value As Object)'''''''in ghesmat baray hazfe ettelaat az data base hastesh'''' 'dar in ghesmat hazf ettelaato anjam midim' Dim a As Int a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null) If a = DialogResponse.POSITIVE Then 'injaa vaarede data base mikonim' sql.ExecNonQuery("DELETE FROM mytbl WHERE id = '"& Value &"'") ToastMessageShow("hazf shod",False) 'dobare list view ro load mikonam ta taghirat maloom beshe' ListView1.Clear cur = sql.ExecQuery("SELECT * FROM mytbl") For i = 0 To cur.RowCount - 1 cur.Position = i ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id")) Next End If End Sub Sub Button1_Click'''''''insert dar database''''''' 'dar inja ettelaate jadid ro vaarede database mikonimmm' 'avval check mikonam ke edittext haa khali nabashan' 'bad az karbar miporsam ke motmaeennnid???' If EditText1.Text = "" Or EditText2.Text = "" Then ToastMessageShow("matni vaared nashode ast",False) Else Dim a As Int a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null) If a = DialogResponse.POSITIVE Then 'injaa vaarede data base mikonim' sql.ExecNonQuery("INSERT INTO mytbl (id,title,content) VALUES (null,'"& EditText1.Text &"','"& EditText2.text &"')") ToastMessageShow("sabt shod",False) 'dobare list view ro load mikonam ta taghirat maloom beshe' ListView1.Clear cur = sql.ExecQuery("SELECT * FROM mytbl") For i = 0 To cur.RowCount - 1 cur.Position = i ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id")) Next End If End If End Sub content activity 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 Button1 As Button Private EditText1 As EditText Dim id As Int 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("content") id = Main.meghdar 'meghdar be edit text baraye viraayeh' Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id) Main.cur.Position = 0 EditText1.Text = Main.cur.GetString("content") End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click''''emaal taghirat va viraayesh'''' Dim a As Int a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null) If a = DialogResponse.POSITIVE Then 'injaa vaarede data base mikonim' Main.sql.ExecNonQuery("UPDATE mytbl SET content = '"& EditText1.Text &"' WHERE id = '"& id &"'") ToastMessageShow("sabt shod",False) 'dobare edittetx ro load mikonam ta taghirat maloom beshe' EditText1.Text = "" Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id) Main.cur.Position = 0 EditText1.Text = Main.cur.GetString("content") End If End Sub

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

اره دیگه گفتم چجوریه کار بهتره با روش اصلی بری البته این کار یه ذره مشکل داره و اذیتت میکنه ، تجربه ثابت کرده....

سلام دوست عزیز با این کتابخونه نمیتونید اینکار رو انجام بدید فک کنم منظورت از اپدیت افلاین اینه که فایل دیتابیس دانلود میکنی درسته؟ کجاش افلاینه هموطن فراخوانی همه ی کد ها از جمله کپی و اینیشیالایز دیتابیس قبلی رو خودش یک بار واسه همیشه انجام میده برای همین نمیتونید دستی این کدهارو کنترل کنید، بشکنید یا چیزی البته اگه فایل دیتابیس رو همنام فایل دیتابیس قبلی کرده و توی DirInternal کپی و جایگذاری کنید کنید، احتمالا بعد از باز شدن دوباره برنامه، بشه از این بانک جدید استفاده کرد اگر منظور دیگه ای دارید، بگید که بهتر راهنماییتون کنم اگه بتونم