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

[hamed2h 0]

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

 

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

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

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

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

 

 

[hamed2h 0]

up

[hamed2h 0]

در 12 ساعت قبل، basic 4 android گفته است :

سورستون رو پیوست کنید برسی کنیم 

 

...

[hamed2h 0]

در 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

 

 

 

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

 

 

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

[hamed2h 0]

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

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

 

شرمنده

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

 

[پژمان نیکروان 6,055]

سلام

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

[hamed2h 0]