سوال در مورد ارسال پیامک

[Kazem Forghani 2,927]

سلام دوستان .

اگر من یک for تعریف کنم و بزارم مثلا 50 تا . بعد توش بنویسم که پیامک رو بفرسته به فلان شماره با فلان متن .

آیا این کار ممکنه ؟؟؟؟

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

تایمر رو برای همین مواقع استفاده میشه

یه همچین کدی میشه:

Sub Globals

Dim p As PhoneSms
Dim T As Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	t.Initialize("T",1000)
	t.Enabled = True
End Sub
Sub T_Tick
	p.Send("989338810122","Basic4Android.Org")
End Sub

[sganji 678]

بله میشه.

ساختار حلقه for رو که بلدید دیگه نمی نویسم...ولی خب کد ارسال پیامک اینه (کتابخونه Phone یادت نره)

	Dim p As PhoneSms

	p.Send("شماره","متن")

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

یک ایرادی هم داره اینه که احتمال هنگ کردن گوشی هم زیاده.

و اگه بتونید با یک تایمر وقفه بندازید خوبه.

و یا اصلا بدون حلقه هم میتونید انجام بدید.به چندین شمل میشه.

[Kazem Forghani 2,927]

چطوری می تونم کاری کنم که مثلا هر یک ثانیه یکی بفرسته ؟؟؟

ممنون از همه ی دوستان

[Kazem Forghani 2,927]

 

تایمر رو برای همین مواقع استفاده میشه

یه همچین کدی میشه:

Sub Globals

Dim p As PhoneSms
Dim T As Timer
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	t.Initialize("T",1000)
	t.Enabled = True
End Sub
Sub T_Tick
	p.Send("989338810122","Basic4Android.Org")
End Sub

سلام

این خط : t.Initialize("T",1000) واحدش به چیه . میلی ثانیه یا ؟؟

[hossein92 74]

بله 

هر هزار تا میشه یک ثانیه