سورس دفترچه یادداشت ساده

[Gray Mind 913]

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

 

رمز فایل : answercenter.ir

memo(answercenter.ir).rar

SLLVOnScroll Library.rar

[cloner01001 38]

سلام دوستان

سورس یه دفترچه یادداشت ساده که سه عمل درج حذف ویرایش رو انجام میده

اینو خیلی وقت پیش تمرینی نوشته بودم :دی 

گذاشتم دوستانی که لازم دارن استفاده کنن

 

 

memo.gif

 

 

رمز فایل : answercenter.ir

 

memo(answercenter.ir).rar

 

 

این خط رو SV قرمز هست مشکل چیه؟

Dim SV As SLLVOnScroll

[Gray Mind 913]

 

این خط رو SV قرمز هست مشکل چیه؟

Dim SV As SLLVOnScroll

 

کتابخانه SLLVOnScroll Library لازم بود که نذاشته بودم

تو پست اول گذاشتم

[cloner01001 38]

سلام دوستان

سورس یه دفترچه یادداشت ساده که سه عمل درج حذف ویرایش رو انجام میده

اینو خیلی وقت پیش تمرینی نوشته بودم :دی

گذاشتم دوستانی که لازم دارن استفاده کنن

 

memo.gif

رمز فایل : answercenter.ir

memo(answercenter.ir).rar

SLLVOnScroll Library.rar

 

 

فوق العاااااااااااااااده خوبه ، واقعا ممنون     

فقط یه سوال میخوام وقتی کاربر وقتی رو یه آیتم لیست ویو کلیک کرد اونجا که محتوا نمایش داده میشه یه باتن باشه که بشه متن یادداشت رو اشتراک گذاری کرد ، میشه کمک کنید؟ممنون

[Gray Mind 913]

فوق العاااااااااااااااده خوبه ، واقعا ممنون     

فقط یه سوال میخوام وقتی کاربر وقتی رو یه آیتم لیست ویو کلیک کرد اونجا که محتوا نمایش داده میشه یه باتن باشه که بشه متن یادداشت رو اشتراک گذاری کرد ، میشه کمک کنید؟ممنون

 

یه نگاه به لینک پایین بنداز 

http://answercenter.ir/topic/2682-%D9%86%DB%8C%D8%A7%D8%B2-%D8%A8%D9%87-%D8%B3%D9%88%D8%B1%D8%B3-%DA%A9%D8%AF-%D8%A7%D8%B4%D8%AA%D8%B1%D8%A7%DA%A9-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C-%D9%85%D8%AA%D9%86-%D9%88-%DA%A9%D9%BE%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D9%85%D8%AA%D9%86/#entry17367

 

اگه نتونستی بهتره یه تاپیک بزنی

[cloner01001 38]

سلام دوستان

سورس یه دفترچه یادداشت ساده که سه عمل درج حذف ویرایش رو انجام میده

اینو خیلی وقت پیش تمرینی نوشته بودم :دی

گذاشتم دوستانی که لازم دارن استفاده کنن

 

memo.gif

رمز فایل : answercenter.ir

memo(answercenter.ir).rar

SLLVOnScroll Library.rar

 

 

 

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

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	ListView1.Clear
	
	CDPressed.Initialize(Colors.Gray,0)
	CDNormal.Initialize(Colors.white,0) 
	ListView1.SingleLineLayout.Label.Width=98%x
	Dim SV As SLLVOnScroll
	SV.Initialize(ListView1,"ListView1",CDPressed,CDNormal)
	If File.Exists(File.DirInternal,"database.db") = False Then
		File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db")
	End If	
	
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"database.db",True)
	End If
	cur = sql.ExecQuery("SELECT subject,id FROM memo")
	For i = cur.RowCount - 1 To 0 
		cur.Position = i
	Next
	cur=sql.ExecQuery("SELECT subject,id FROM memo")
	For i=cur.RowCount - 1 To 0
		cur.Position = i
	    ListView1.AddSingleLine2(cur.GetString("subject"),cur.GetInt("id"))
		ListView1.SingleLineLayout.Label.TextColor=Colors.Black
		Next
End Sub

Sub Activity_Resume
	ListView1.Clear
		cur = sql.ExecQuery("SELECT subject,id FROM memo")
		For i = cur.RowCount - 1 To 0 
			cur.Position = i
			ListView1.AddSingleLine2(cur.GetString("subject"),cur.GetInt("id"))
		Next
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
	StartActivity("setting")
End Sub

Sub Button1_LongClick
	ToastMessageShow("تنظیمات",False)
End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
	meghdar = Value
	StartActivity("edittext")
	
	
End Sub


Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	Dim a As Int
	a=Msgbox2("آیا مطمئن هستید؟","حذف کردن","بله","","خیر",Null)
	If a = DialogResponse.POSITIVE Then
		sql.ExecNonQuery("DELETE FROM memo WHERE id = '"& Value &"'")
		ToastMessageShow("حذف شد!",False)
		
		ListView1.Clear
		cur = sql.ExecQuery("SELECT subject,id FROM memo")
		For i = cur.RowCount - 1 To 0
			cur.Position = i
			ListView1.AddSingleLine2(cur.GetString("subject"),cur.GetInt("id"))
		Next
		
	End If
End Sub

Sub Button2_Click
	StartActivity("addmemo")
End Sub

[cloner01001 38]

 

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

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	ListView1.Clear
	
	CDPressed.Initialize(Colors.Gray,0)
	CDNormal.Initialize(Colors.white,0) 
	ListView1.SingleLineLayout.Label.Width=98%x
	Dim SV As SLLVOnScroll
	SV.Initialize(ListView1,"ListView1",CDPressed,CDNormal)
	If File.Exists(File.DirInternal,"database.db") = False Then
		File.Copy(File.DirAssets,"database.db",File.DirInternal,"database.db")
	End If	
	
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"database.db",True)
	End If
	cur = sql.ExecQuery("SELECT subject,id FROM memo")
	For i = cur.RowCount - 1 To 0 
		cur.Position = i
	Next
	cur=sql.ExecQuery("SELECT subject,id FROM memo")
	For i=cur.RowCount - 1 To 0
		cur.Position = i
	    ListView1.AddSingleLine2(cur.GetString("subject"),cur.GetInt("id"))
		ListView1.SingleLineLayout.Label.TextColor=Colors.Black
		Next
End Sub

Sub Activity_Resume
	ListView1.Clear
		cur = sql.ExecQuery("SELECT subject,id FROM memo")
		For i = cur.RowCount - 1 To 0 
			cur.Position = i
			ListView1.AddSingleLine2(cur.GetString("subject"),cur.GetInt("id"))
		Next
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
	StartActivity("setting")
End Sub

Sub Button1_LongClick
	ToastMessageShow("تنظیمات",False)
End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
	meghdar = Value
	StartActivity("edittext")
	
	
End Sub


Sub ListView1_ItemLongClick (Position As Int, Value As Object)
	Dim a As Int
	a=Msgbox2("آیا مطمئن هستید؟","حذف کردن","بله","","خیر",Null)
	If a = DialogResponse.POSITIVE Then
		sql.ExecNonQuery("DELETE FROM memo WHERE id = '"& Value &"'")
		ToastMessageShow("حذف شد!",False)
		
		ListView1.Clear
		cur = sql.ExecQuery("SELECT subject,id FROM memo")
		For i = cur.RowCount - 1 To 0
			cur.Position = i
			ListView1.AddSingleLine2(cur.GetString("subject"),cur.GetInt("id"))
		Next
		
	End If
End Sub

Sub Button2_Click
	StartActivity("addmemo")
End Sub

 

 

 

این مشکل رو نمیشه حل کرد؟

[حاج حسین 2,098]

برای لود از آخر به اول در دیتابیس

SELECT * FROM tblname ORDER BY id DESC

[vistamobile 1,700]

چه دنیای عجیبیه. 40 دریافت و 4 تشکر !!   دوستان زدن دکمه تشکر هیچ هزینه مادی نداره و نهایت زمانش فکر کنم چند دهم ثانیه باشه. بی انصافیه این همه دریافت و فقط چندتا تشکر. 

م

ت 

ا

س

ف

م

[caesar.f 0]

در در 1395/05/05, 20:09:45، Gray Mind گفته است :

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

 

 

 

رمز فایل : answercenter.ir

memo(answercenter.ir).rar

 

 

SLLVOnScroll Library.rar

سلام خسته نباشید، ببخشید در بخشی از آموزش شما، b4a سیستم من یه ارور میده ممکنه لطفاً کمک کنید مشکل رو پیدا کنم ؟

متن ارور :

edittext_activity_create (B4A line: 32)
id = Main.meghdar
java.lang.NumberFormatException: Invalid double: ""
    at java.lang.StringToReal.invalidReal(StringToReal.java:63)
    at java.lang.StringToReal.parseDouble(StringToReal.java:267)
    at java.lang.Double.parseDouble(Double.java:301)
    at b4a.example.edittext._activity_create(edittext.java:380)
    at java.lang.reflect.Method.invoke(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:372)
    at anywheresoftware.b4a.BA.raiseEvent2(BA.java:191)
    at b4a.example.edittext.afterFirstLayout(edittext.java:104)
    at b4a.example.edittext.access$000(edittext.java:17)
    at b4a.example.edittext$WaitForLayout.run(edittext.java:82)
    at android.os.Handler.handleCallback(Handler.java:739)
    at android.os.Handler.dispatchMessage(Handler.java:95)
    at android.os.Looper.loop(Looper.java:145)
    at android.app.ActivityThread.main(ActivityThread.java:6917)
    at java.lang.reflect.Method.invoke(Native Method)
    at java.lang.reflect.Method.invoke(Method.java:372)
    at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:1404)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1199)

این ارور در ارتباط با اکتیویتی edittext  و مربوط به بخش activity_create هستش لاین های 26 تا 29 :

 

     id = Main.meghdar
     
    Main.cur = Main.sql.ExecQuery("SELECT * FROM memo WHERE id = " & id)
    Main.cur.Position = 0

 

مقادیر داخل کد بالا : 

dim id as int

dim meghdar as string

main activity module

dim cur as cursor