حلقه ی تعداد

[alipc1 0]

با سلام خدمت اساتید محترم

من توی ساخت یک حلقه موندم

ممنون میشم کمکم کنید

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

#Region  Project Attributes 
	#ApplicationLabel: فاضل تماس
	#VersionCode: 1
	#VersionName: 5.2.1
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
	Dim inerval As Int
End Sub

Sub Globals
	Private start As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private EditText3 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("L1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub start_Click
	Dim ph As String=EditText1.Text.Trim
	If ph.Contains("911111111")=False Then
		If EditText1.Text.Trim<>"" And EditText2.Text.Trim<>"" Then
			If EditText3.Text.Trim<>"" Then
				inerval=EditText3.Text.Trim
				inerval=inerval*1000
			Else
				inerval=9000
			End If
			Dim res As Int=Msgbox2("اکنون شروع می شود!"&CRLF&"لطفا تا پایان عملیات به هیچ کجای دستگاه موبایل دست نزنید!!!","","شروع","لغو","",Null)
			If res=DialogResponse.POSITIVE Then
				CallSubDelayed3(process,"start",ph,EditText2.Text.Trim)
			Else
				ToastMessageShow("لغو شد!",False)
			End If
		Else
			ToastMessageShow("موراد بالا را پر کنید!",False)
		End If
		
	Else
		ToastMessageShow("به این شماره تلفن نمی توانید آزاری برسانید!",False)
	End If
	
End Sub

 

میخوام به چند شماره به ترتیب میس زده شه اما هرکاری کردم اون ph رو نتونستم به تعداد برسونم

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

ممنون میشم لطف کنین و کاملش کنین

 

الان میخوام از ادیت تکس 1 تعداد شماره بگیره نه یکی و به هر کدوم مثلا 5 بار میسکال بزنه

 

اگه لطف کنین ممنون میشم از کمکتون

[alipc1 0]

دوستان کمی کمک!