رفتن به مطلب
  • 0

ارسال محتویات لیست ویو با sms


parham01

سوال

سلام و درود

دوستان من یک لیست ویو دارم با اسم LVDb

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

اگه کمکم کنید واقعا ممنونتون میشم

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

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

خواهش میکنم عزیزیم

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

خدمت شما

من دسترسی به گوشی ندارم اما دقیقا متنی که در مسیج باکس میبینید، ارسال خواهد شد...

http://s3.picofile.com/file/8229356968/2015_12_22_21_50_12.png

 

خدمت شما

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

http://s3.picofile.com/file/8229357068/SQLiteDemo.rar.html

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

شما این بخش رو نگاه کنید حتما

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

 

روشی هم که بهتون ارائه دادم، بی مشکل داره کار میکنه

اینم برای مثال نمایش ایتم ها توی یک مسیج باکس هست که بعدش ارسال میشه

http://s3.picofile.com/file/8229327534/2015_12_22_19_14_15.png

 

اینم سورس همین تصویر

خدمت شما

http://s6.picofile.com/file/8229327684/New_folder_5_.rar.html

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

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

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

من احساس میکنم

از اینه :

چون لیست ویو من سینگل لاینه

و واسه شما سینگل لاین 2

نه؟

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

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

اگه سینگل لاین هست، سینگل لاین 2 کنید و یه کامل بذارید بین قسمتی که از دیتابیس میگیریدش، دوباره قسمت قبل کالا رو کپی کنید...

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

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

اگه سینگل لاین هست، سینگل لاین 2 کنید و یه کامل بذارید بین قسمتی که از دیتابیس میگیریدش، دوباره قسمت قبل کالا رو کپی کنید...

قربان من خیلی وقتتون گرفتم

و شما واقعا خجالتم دادید

من سورس دادم خدمتتون

سورس اورجینال را

یه زحمت میکشید

تغییراتی که میفرمایین را بهش اضافه کنید

یه تست کنید

ممنون :gol:

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

خواهش میکنم عزیزیم

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

خدمت شما

من دسترسی به گوشی ندارم اما دقیقا متنی که در مسیج باکس میبینید، ارسال خواهد شد...

http://s3.picofile.com/file/8229356968/2015_12_22_21_50_12.png

 

خدمت شما

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

http://s3.picofile.com/file/8229357068/SQLiteDemo.rar.html

:gol:

شهاب خان خیلی آقایی

خیلی وقتت گرفتم

واقعا شرمندتم داداش

عالی بود

زنده باشی

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

سلام

خب بنده فرش رو بر این میگیرم که شما متن کل متن رو در لیست ویو نمایش میدید و با کلیک روی آِیتم میخوایید متنشو بع عنوان پیامک ارسال کنید به شکل زیر کد می نویسیم :

Dim Cr As Cursor
Cr = SQL.ExecQuery("SELECT * FROM tbl")
For i = 0 To Cr.RowCount - 1
 Cr.Position = i
 LvDb.AddSingleLine2(Cr.GetString("text"),Cr.GetString("text"))
Next
Cr.Close

و حالا آیتم کلیک :

Sub LvDb_ItemClick(Position As Int , Value As Object)
 Ok.SendSms("+989338810122",Value)
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

سلام

خب بنده فرش رو بر این میگیرم که شما متن کل متن رو در لیست ویو نمایش میدید و با کلیک روی آِیتم میخوایید متنشو بع عنوان پیامک ارسال کنید به شکل زیر کد می نویسیم :

Dim Cr As Cursor
Cr = SQL.ExecQuery("SELECT * FROM tbl")
For i = 0 To Cr.RowCount - 1
 Cr.Position = i
 LvDb.AddSingleLine2(Cr.GetString("text"),Cr.GetString("text"))
Next
Cr.Close

و حالا آیتم کلیک :

Sub LvDb_ItemClick(Position As Int , Value As Object)
 Ok.SendSms("+989338810122",Value)
End Sub

با سلام و تشکر فراوان

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

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

سلام عزیزم

Sub Globals
Dim l As ListView
Dim sendbtn As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
l.Initialize("")
sendbtn.Initialize("send")
End Sub



Sub send_Click
	Dim str As String
	For i = 0 To l.Size - 1
		str = str & "---" & l.GetItem(i)
	Next
	Dim p As PhoneSms
	p.Send2("093939393939",str,True,False)
End Sub

دقیقا مثل استاد ارتا، منم فک کردم شما میخوای یه ایتم سند شه :)

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

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

موفق باشید

 

استاد ارتا :gol:

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

سلام عزیزم

Sub Globals
Dim l As ListView
Dim sendbtn As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
l.Initialize("")
sendbtn.Initialize("send")
End Sub



Sub send_Click
	Dim str As String
	For i = 0 To l.Size - 1
		str = str & "---" & l.GetItem(i)
	Next
	Dim p As PhoneSms
	p.Send2("093939393939",str,True,False)
End Sub

دقیقا مثل استاد ارتا، منم فک کردم شما میخوای یه ایتم سند شه :)

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

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

موفق باشید

 

استاد ارتا :gol:

با سلام خدمت استاد عزیزم

ممنون از وقتی که گذاشتین

متاسفانه جواب نداد ارور میده

مسیج بادی البته به انگلیسی

ابته اینم عرض کنم

بخاطر آماتور بودنم تو زمینه برنامه نویسی

یه مروری از روند کارهام خدممتون میگم

1 - تغییر اسم "1" به نام لیست ویو خودم

2 - تغییر شماره به شماره خودم

جدا از بحث کپی کار دیگه ای اگه باید اعمال میکردم

اگه بگید منت به سرم گذاشتین

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

خواهش میکنم

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

یه تصویر از کدهاتون و ارور ی که میگیره قرار بدید

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

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

خواهش میکنم

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

یه تصویر از کدهاتون و ارور ی که میگیره قرار بدید

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

#Region Module Attributes
	#FullScreen: False
	#IncludeTitle: True
	#ApplicationLabel: SQLDemo
	#VersionCode: 1
	#VersionName: 
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

'Activity module
Sub Process_Globals
	Dim SQL1 As SQL
	Dim cursor1 As Cursor
End Sub

Sub Globals
	Dim txtUsername As EditText
	Dim txtPassword As EditText
	Dim LVDb As ListView
	Dim cmdAdd As Button
	Dim cmdDelete As Button
	Dim cmdEdit As Button
	Dim ID As String

End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("main")
	If File.Exists(File.DirInternal,"db.sql") = False Then
		File.Copy(File.DirAssets,"db.sql",File.DirInternal,"db.sql")
	End If
	
	If SQL1.IsInitialized = False Then
		SQL1.Initialize(File.DirInternal, "db.sql", False)
	End If
	
	DBload
	
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub DBload
LVDb.Clear'need to clear the list
cursor1 = SQL1.ExecQuery("SELECT * FROM tblUsers")
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
LVDb.AddSingleLine(cursor1.GetString("ID")& "|" &cursor1.GetString("Username")& " | " & cursor1.GetString("Password"))
LVDb.SingleLineLayout.ItemHeight = 40
LVDb.SingleLineLayout.Label.TextSize = 20
LVDb.SingleLineLayout.Label.TextColor = Colors.Black
LVDb.SingleLineLayout.Label.Color = Colors.White
Next
End Sub

Sub cmdAdd_Click
		
	If txtUsername.Text = "" OR txtPassword.Text = "" Then
		Msgbox("You have to enter all fields","Missed data field")
Else
	
	'Grab the last ID number which is the highest number
	cursor1 = SQL1.ExecQuery("SELECT ID FROM tblUsers")
	If cursor1.RowCount > 0 Then
		For i = 0 To cursor1.RowCount - 1	
	cursor1.Position = i
	
	Dim NewID As Int
	NewID = cursor1.GetInt("ID")
Next

End If
	NewID = NewID +1 ' add 1 to the ID number to make a new ID field
	SQL1.ExecNonQuery("INSERT INTO tblUsers VALUES('" & NewID & "','" & txtUsername.Text & "','" & txtPassword.Text & "')")
	DBload
	txtUsername.Text = ""
	txtPassword.Text = ""
	txtUsername.RequestFocus
End If


End Sub
Sub cmdDelete_Click
	
	
	SQL1.ExecNonQuery("DELETE FROM tblUsers where ID = '" &ID & "' ")
	DBload
	txtUsername.Text = ""
	txtPassword.Text =""
	
End Sub

Sub LVDb_ItemClick (Position As Int, Value As Object)' click on the entry in the list
Dim idvalue As String
Dim countIt As Int

idvalue = Value
countIt = idvalue.IndexOf("|") 'find location of sperator
idvalue = idvalue.SubString2(0,countIt) 'find first part of label text
ID = idvalue
cursor1 = SQL1.ExecQuery("SELECT * FROM tblUsers where ID = '" & ID & "' ")
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
	txtUsername.text=cursor1.getString("Username")
	txtPassword.text=cursor1.getString("Password")
Next
End Sub

Sub cmdEdit_Click
 If txtUsername.Text = "" OR txtPassword.Text = "" Then
		Msgbox("Select item to edit","Missed data item")
Else
	SQL1.ExecNonQuery("UPDATE tblUsers set Username ='"& txtUsername.text &"',Password ='"& txtPassword.text &"' WHERE ID = " & ID)
	DBload
End If

End Sub
Sub cmdExit_Click
	Activity.finish
	End Sub

خدمتتون

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

شما لیست ویویی که داری singleLine  هست و مثدار برگشتی نداره

Sinle Line 2 بذار

یه مقدار برگشتی میگیره 

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

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

نه تصویر ارورت رو هموطن...

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

شما لیست ویویی که داری singleLine  هست و مثدار برگشتی نداره

Sinle Line 2 بذار

یه مقدار برگشتی میگیره 

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

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

نه تصویر ارورت رو هموطن...

 

http://s3.picofile.com/file/8229299976/SQLiteDemo.zip.html

قربان کدی که شما دادین

برداشتم

این هم سورس اصلیش

واقعا ممنون میشم

تغییرات لازم را برام ایجاد کنید

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

دوستم نیاز نیست اسپم بدید :)

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

قبل از این زمان، اخطار میگیرید...

 

 

خوب

 

گوشی پیشم نیست منتاسفانه

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

کتابخونه phone هم حتما تیکش رو بزن..

 

http://s6.picofile.com/file/8229312118/SQLiteDemo.rar.html

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

دوستم نیاز نیست اسپم بدید :)

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

قبل از این زمان، اخطار میگیرید...

 

 

خوب

 

گوشی پیشم نیست منتاسفانه

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

کتابخونه phone هم حتما تیکش رو بزن..

 

http://s6.picofile.com/file/8229312118/SQLiteDemo.rar.html

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

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

من یه باتن دیگه اضافه کردم به لایه ات

حالا شما یه کدو از دکمه هات که کار میکنن رو ، کدهای این دکمه رو کپی کن توش

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

الان مشکل برنامه نویسی نداره

اگرم باشه مشکل منطقیه که باید تست کنی و مشکلات رو ببینی و برطرف کنیم..

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

من یه باتن دیگه اضافه کردم به لایه ات

حالا شما یه کدو از دکمه هات که کار میکنن رو ، کدهای این دکمه رو کپی کن توش

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

الان مشکل برنامه نویسی نداره

اگرم باشه مشکل منطقیه که باید تست کنی و مشکلات رو ببینی و برطرف کنیم..

داداش شما بالا کد

l.Initialize("")
sendbtn.Initialize("send")

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

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

l.Initialize("")
sendbtn.Initialize("send")

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

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

شما وفتی از توی دیزاینتر تعریف میکنید، اینیشیالایز لازم نداره

 

اگه با بعضی مفاهیم اشنا نیستید، بخش اموزش های مبتدی رو حتما دنبال کنید :gol:

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

l.Initialize("")

sendbtn.Initialize("send")

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

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

شما وفتی از توی دیزاینتر تعریف میکنید، اینیشیالایز لازم نداره

 

اگه با بعضی مفاهیم اشنا نیستید، بخش اموزش های مبتدی رو حتما دنبال کنید :gol:

ممنون از این که وقت گذاشتید

خدمتتون عرض کردم

آماتور هستم

. . .

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

. . .

:(

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

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...