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

[parham01 82]

سلام و درود

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

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

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

[shahab.es 5,429]

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

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

خدمت شما

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

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

 

خدمت شما

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

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

[parham01 82]

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

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

نه؟

[shahab.es 5,429]

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

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

[parham01 82]

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

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

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

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

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

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

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

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

یه تست کنید

ممنون

[parham01 82]

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

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

خدمت شما

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

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

 

خدمت شما

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

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

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

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

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

عالی بود

زنده باشی

[مجید آرتا 5,874]

سلام

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

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

[parham01 82]

 

سلام

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

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

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

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

[shahab.es 5,429]

سلام عزیزم

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 لیست ویو بشینه

موفق باشید

 

استاد ارتا

[parham01 82]

سلام عزیزم

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 لیست ویو بشینه

موفق باشید

 

استاد ارتا

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

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

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

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

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

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

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

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

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

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

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

[shahab.es 5,429]

خواهش میکنم

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

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

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

[parham01 82]

خواهش میکنم

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

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

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

#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

خدمتتون

[shahab.es 5,429]

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

Sinle Line 2 بذار

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

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

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

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

[parham01 82]

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

Sinle Line 2 بذار

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

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

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

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

 

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

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

برداشتم

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

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

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

[parham01 82]

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

[shahab.es 5,429]

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

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

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

 

 

خوب

 

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

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

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

 

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

[parham01 82]

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

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

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

 

 

خوب

 

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

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

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

 

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

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

[shahab.es 5,429]

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

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

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

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

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

[parham01 82]

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

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

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

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

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

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

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

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

[shahab.es 5,429]

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

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

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

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

 

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

[parham01 82]

l.Initialize("")

sendbtn.Initialize("send")

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

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

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

 

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

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

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

آماتور هستم

. . .

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

. . .