اضافه کردن 1واحد به meghdar

parham01 · 6 دی، ۱۳۹۵

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

میخوام button_1 و 2

وفتی کلیک میشن یک واحد به meghdar تو اکتیویتی اضافه یا کم بشه

(آخر سورس یه چیزایی نوشتم ولی کار نکرد)

سورس :

#Region  Activity Attributes 
	#FullScreen: true
	#IncludeTitle: false
#End Region

Sub Process_Globals
	Dim num As Int
	Dim sql2 As SQL
	Dim meghdar As Int
End Sub

Sub Globals
	Dim st As StringUtils
	Private ScrollView1 As ScrollView
	Private lbl As Label
	Dim fara As Farakhani
	Dim cur As Cursor
	Private share As Button
	Private fontsize As Spinner
	Private copy As Button
	Dim s As AriaLib
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("reading")
	ScrollView1.Panel.LoadLayout("text")
	Activity.Color = Colors.RGB(221,81,130)
	
	
	lbl.Gravity = Gravity.CENTER
	lbl.TextColor = Colors.White
	lbl.TextSize = 25
	lbl.Typeface = Typeface.LoadFromAssets("W_yekan Bold_p30download.com_0.ttf")
	lbl.Height = -2
	
	fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
	
'	fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
	
	
	If File.Exists(File.DirInternal,"fs.txt") = False Then
		File.copy(File.DirAssets,"fs.txt",File.DirInternal,"fs.txt")
	End If
	
	
	lbl.TextSize = File.ReadString(File.DirInternal,"fs.txt")
	
	
	lbl.Height = st.MeasureMultilineTextHeight(lbl,lbl.Text)
	ScrollView1.Panel.Height = st.MeasureMultilineTextHeight(lbl,lbl.Text)
	
	
	fontsize.Add("اندازه فونت")
	For i = 21 To 55
		fontsize.Add(i)
	Next
	
	
	Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
 
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
	File.WriteString(File.DirInternal,"fs.txt",lbl.TextSize)
End Sub



'Sub copy_Click
'	s.SetClipboardText(lbl.Text)
'	ToastMessageShow("کپی شد!",False)
'End Sub
Sub fontsize_ItemClick (Position As Int, Value As Object)
	If Position = 0 Then
		lbl.TextSize = 20
	Else
		lbl.TextSize = Position
	End If
	lbl.Height = st.MeasureMultilineTextHeight(lbl,lbl.Text)
	ScrollView1.Panel.Height = st.MeasureMultilineTextHeight(lbl,lbl.Text)
End Sub
Sub share_Click
	StartActivity(s.ShareText(lbl.Text,"ارسال توسط :"))
End Sub
Sub load

End Sub
Sub Button1_Click
	num = meghdar+1
	meghdar = num
End Sub
Sub Button2_Click
	num = meghdar-1
	meghdar = num
End Sub

reza644 · 6 دی، ۱۳۹۵

سلام

یه سوال مهم:

میخوای با زدن دکمه ها فقط عدد بالا پایین شه؟

اتفاق دیگه ای نیوفته؟

مثلا فراخوانی متن؟

Gray Mind · 6 دی، ۱۳۹۵

meghdar = meghdar+1

meghdar = meghdar-1

parham01 · 6 دی، ۱۳۹۵

در 24 دقیقه قبل، reza644 گفته است :

سلام

یه سوال مهم:

میخوای با زدن دکمه ها فقط عدد بالا پایین شه؟

اتفاق دیگه ای نیوفته؟

مثلا فراخوانی متن؟

سلام

تو اکتیویتی

fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")

meghdar داریم

که با + - شدن میره به مطالب قبلی و بعدی

خودم کل بالارو زیر

meghdar+1 و meghdar-1

قرار دادم جوابم داد ولی فکر کنم اصولی نیست

reza644 · 6 دی، ۱۳۹۵

در 36 دقیقه قبل، parham01 گفته است :
سلام

تو اکتیویتی
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
meghdar داریم

که با + - شدن میره به مطالب قبلی و بعدی

خودم کل بالارو زیر

meghdar+1 و meghdar-1

قرار دادم جوابم داد ولی فکر کنم اصولی نیست

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

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

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

Sub Button1_Click
	meghdar = meghdar+1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
End Sub
Sub Button2_Click
	meghdar = meghdar-1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
End Sub

نکته بعد اینه که تو رویداد craete باید عدد متغیر meghdar رو هم معین کنید

meghdar=1

نیازی هم به num نیست

parham01 · 6 دی، ۱۳۹۵

در 45 دقیقه قبل، reza644 گفته است :
بله خوب دستور create یک بار اجرا میشه اونم وقتی اکتیوتی باز میشه

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

شما باید دستور فراخوانی رو به رویداد اضافه کنید
Sub Button1_Click
	meghdar = meghdar+1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
End Sub
Sub Button2_Click
	meghdar = meghdar-1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
End Sub
نکته بعد اینه که تو رویداد craete باید عدد متغیر meghdar رو هم معین کنید
meghdar=1
نیازی هم به num نیست

تشکر بابت این تاپیک

استاد یه تاپیک جدید میزنم مرتبط با همینه

میخوام مقدار اولین ID و آخرین ID برو بگیرم

واسه دستور if

if meghdar = 20

20 مثلا ID آخره

button1.enabled = false

:|

reza644 · 6 دی، ۱۳۹۵

در 26 دقیقه قبل، parham01 گفته است :

تشکر بابت این تاپیک

استاد یه تاپیک جدید میزنم مرتبط با همینه

میخوام مقدار اولین ID و آخرین ID برو بگیرم

واسه دستور if

if meghdar = 20

20 مثلا ID آخره

button1.enabled = false

:|

نیازی به تاپیک جدید نیست

نیازی هم نیست نرم افزار تعداد ردیف هارو بگیره

Sub Button1_Click
if meghdar=x then
meghdar = meghdar+1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
Button1.visable=false
else
meghdar = meghdar+1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
Button1.visable=true
end if

End Sub
Sub Button2_Click
if meghdar=2 then
	meghdar = meghdar-1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
Button2.visable=false
else
meghdar = meghdar-1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
Button2.visable=true
end if
End Sub

x میشه یدونه کمتر از بالاترین آی دی

مثلا آخرین آی 20 باشه باید بنویسی 19

parham01 · 6 دی، ۱۳۹۵

در 17 دقیقه قبل، reza644 گفته است :

نیازی به تاپیک جدید نیست

نیازی هم نیست نرم افزار تعداد ردیف هارو بگیره


Sub Button1_Click
if meghdar=x then
meghdar = meghdar+1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
Button1.visable=false
else
meghdar = meghdar+1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
Button1.visable=true
end if

End Sub
Sub Button2_Click
if meghdar=2 then
	meghdar = meghdar-1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
Button2.visable=false
else
meghdar = meghdar-1
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,Label1,"name")
fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")
Button2.visable=true
end if
End Sub

x میشه یدونه کمتر از بالاترین آی دی

مثلا آخرین آی 20 باشه باید بنویسی 19

آخه تعدادش ثابت نیست

شاید یه بار 50 تا باشه یه بار 70 تا

reza644 · 6 دی، ۱۳۹۵

به جایه ایکسمون

cur.RowCount -1

ورود

اضافه کردن 1واحد به meghdar

سوال

parham01 82

لینک ارسال

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

8 پاسخ به این سوال تاکنون داده شده است

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

reza644 435

لینک ارسال

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

Gray Mind 913

لینک ارسال

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

parham01 82

لینک ارسال

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

reza644 435

لینک ارسال

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

parham01 82

لینک ارسال

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

reza644 435

لینک ارسال

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

parham01 82

لینک ارسال

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

reza644 435

لینک ارسال

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

بایگانی شده

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

فهرست بخش ها

فعالیت ها

فروشگاه