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

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


hamed2h

سوال

ا سلام و وقت بخیر خدمت اساتید

 

بنده یک سورس خیلی ساده نوشتم برای ذخیره مخاطبین بصورت رنجی که کاربر وارد میکنه ، یعنی مثلا از 09121111111 تا 09129999999 

سورس توی گوشی هواوی بدون مشکله اما توی گوشی سامسونگ شماره هارو 10 تا 10 تا ذخیره میکنه یعنی به اینصورت 09121111111 - 09121111121 - 09121111131

میخواستم بپرسم که مشکل کجاست ؟

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

 

 

rpm_capture.jpg

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

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

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

در 1 دقیقه قبل، basic 4 android گفته است :
#Region  Project Attributes 
	#ApplicationLabel: Contact Save
	#VersionCode: 1
	#VersionName: 1
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: True
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText

	Private EditText3 As EditText

	Private EditText2 As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("lm")


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click
	
	Dim mu As miscUtil, c As Contact
	mu.Initialize
	Dim name As String, phoneNr As String, phoneType As Int, mail As String, mailType As Int
	Dim i As Long
	Dim z As Int
	z = 0



	If (EditText1.Text <> "" And EditText2.Text <> "") Then
		
		If EditText1.Text < EditText2.Text Then
			For i = EditText1.Text To EditText2.Text Step 1
				
			
			
				name = z & i
				phoneNr = z & i
			
				phoneType = c.PHONE_HOME
				mail = ""
				mailType = c.EMAIL_HOME
				mu.createContactEntry(name, phoneNr, phoneType, mail, mailType)
			
				
			Next
			
			
		End If

		ToastMessageShow("در مخاطبین ذخیره شد",False)
	Else
		Msgbox("لطفا مقادیر را وارد نمایید","خطا")
	End If
		
End Sub

















 

 

 

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

 

 

Capture_2017_09_20_00_37_15_958.thumb.png.3378d1d8fbc9dc6c5dda09f1f967c4ba.png

ممنون از جوابتون ولی من میخوام همشون به یک نام ذخیره بشن مثلا همشون با نام b4a

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

در هم اکنون، basic 4 android گفته است :

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

 

شرمنده

سپاسگزار از جوابتون عزیز ، دشمنتون شرمنده

 

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

سلام

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

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

بایگانی شده

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

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

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