ساخت دفترچه تلفن

[sis1367 9]

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

از دیتا بیس نمیخام استفاده کنم

 

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

[shahab.es 5,429]

سلام

این کدها...

اینم دیتابیس

Sub Process_Globals
Dim sql As SQL
Dim cur As Cursor
End Sub
Sub Globals
Dim ed,ed2,ed3 As EditText
Dim btn,btn2,btn3,btn4 As Button
Dim lbl As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
''''views
Activity.RemoveAllViews
ed.Initialize("")
ed2.Initialize("")
ed3.Initialize("")
btn.Initialize("btn")
btn2.Initialize("btn2")
btn3.Initialize("btn3")
btn4.Initialize("btn4")
lbl.Initialize("")
Activity.AddView(ed,0,0,100%x,50dip)
Activity.AddView(ed2,0,60dip,100%x,50dip)
Activity.AddView(btn,0,50%y,100%x,50dip)
Activity.AddView(btn2,0,50%y + 60dip,100%x,50dip)
ed.Hint = "name"
ed2.Hint = "number"
btn.Text = "save"
btn2.Text = "load"
''''views
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
End Sub
Sub btn_Click
	If ed.Text <> "" And ed2.Text <> "" Then
		Try
			sql.ExecNonQuery("INSERT INTO tbl (name,number) VALUES ('"&ed.Text&"','"&ed2.Text&"')")
			ToastMessageShow("1 record inserted",False)
		Catch
			ToastMessageShow("error insering data",False)
			Log(LastException)
		End Try
	Else
		ToastMessageShow("complete fields",False)
	End If
End Sub
Sub btn2_Click
	Activity.RemoveAllViews
	Activity.AddView(ed3,0,0,100%x,50dip)
	Activity.AddView(lbl,0,60dip,100%x,50dip)
	Activity.AddView(btn3,0,50%y,100%x,50dip)
	Activity.AddView(btn4,0,50%y + 60dip,100%x,50dip)
	btn3.Text = "load"
	btn4.Text = "save"
	lbl.Text = "nothing let"
	lbl.Color = Colors.Gray
	ed3.Hint = "enter the name"
	lbl.Gravity = Gravity.CENTER
	lbl.Textcolor = Colors.Black
End Sub
Sub btn3_Click
	If ed3.Text <> "" Then
		cur = sql.ExecQuery("SELECT * FROM tbl WHERE name = '"&ed3.Text&"'")
		cur.Position = 0
		lbl.Text = cur.GetString("number")
	End If
End Sub
Sub btn4_Click
	Activity_Create(True)
End Sub

[sis1367 9]

سلام مرسی

من همیشه از دیتا بیس ترس داشتم دیروز چنتا اموزش دیدم 

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

فقط یه چیز گیر کردم

http://s7.picofile.com/file/8239512492/save1.rar.html

 

 

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

 

 

کلی بگم

چجور اطلاعات یه ایدی رو با هم بگیریم

مرسی

[Nemesis 1,846]

کجا ذخیره کنه پس

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

[پژمان نیکروان 6,055]

سلام

دقیقا نمیدونم چرا همه از دیتابیس میترسن. البته خودمم اینجوری بودم

درکل انواع ذخیره سازی بحث شده تو انجمن... حالا فایل تکست ، دیتابیس و... سرچ کنید.

ضمنا عنوان تاپیکتون مناسب نیست برادر ویرایش شد.

[sis1367 9]

آخه دیتابیس خیلی بلد نیستم

مثلا با کتابخونه AriaSharedPreferences ک استاد شاهدی ساختن ذخیره کنه

[shahab.es 5,429]

سلام هموطن

Sub Activity_Create(FirstTime As Boolean)
If File.Exists(File.DirInternal,"numb.txt") = False Then
	File.Copy(File.DirAssets,"numb.txt",File.DirInternal,"numb.txt")
End If
'baraye save
save(0939011254)
'baraye load
Dim lv1 As ListView
lv1.Initialize("lv1")
read(lv1)
End Sub
Sub save (number As String)
	Dim str As String
	str = File.ReadString(File.DirAssets,"numb.txt")
	str = str & CRLF & number
	File.WriteString(File.DirInternal,"numb.txt",str)
End Sub
Sub read(lv As ListView)
	lv.Clear
	Dim str() As String
	str = Regex.Split(CRLF,File.ReadString(File.DirInternal,"numb.txt"))
	For i = 0 To str-1 
		lv.AddSingleLine(str(i))
	Next
End Sub 

با فایل مشکلی نداری؟

اینطوری کار کن مثلا

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

اول یه فایل درست کن به اسم مثلا num.txt

بذار توی پوشه فایل ها

---

دیتابیس هم مثه کَره میمونه، 2 روز کار کنی، این مشکلت رفع میشه

[sis1367 9]

دوستان بگین اسم این کاری میخام چیه خودم تو تایپکا میکردم

[Nemesis 1,846]

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

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

[sis1367 9]

دوستان کسی نمیدونه؟

[shahab.es 5,429]

راستیتش من متوجه نشدم شما میخوای چی کار کنی

میخوای اسم توی ادیت تکست بذاری

شماره رو توی لیبل بگیره؟

[sis1367 9]

راستیتش من متوجه نشدم شما میخوای چی کار کنی

میخوای اسم توی ادیت تکست بذاری

شماره رو توی لیبل بگیره؟

اره دقیقا

[shahab.es 5,429]

ای دی رو که داری

اسم ستون هاتم به این شکله مثلا

id name number

cur = sql.ExeQuery("SELECT * FROM tbl WHERE name = '"&edittext1.text&"'")
cur.position = 0
lbl.text = cur.getstring("number")

ببین به کارت میاد یا نه

sql و cursor خودت هم که از قبل اینیشیالایز شدن رو قرار بده...

[sis1367 9]

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

 

[shahab.es 5,429]

سلام هموطن

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

cur.position = 0

اگر گذاشتی و ارور داری باز، ممکنه پیدا نکرده باشه چیزی...

[sis1367 9]

سلام هموطن

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

cur.position = 0

اگر گذاشتی و ارور داری باز، ممکنه پیدا نکرده باشه چیزی...

گذاشتم اما نشده

تو چنجا دیدم این مشکل و دارن از حلقه for استفاده کردن مشکل حل شد از حلقم استفاده کردم نشد

 

یعنی راهی وجود نداره؟