تبدیل رشته به عدد

[siroos12 14]

سلام،

دوستان دو تا متغیر دارم یکی string و یکی دیگه intحالا چطور int رو برابر string قرار بدم؟

[siroos12 14]

سلام

به این شکل تست کنید :

Dim str As String
	str = StrNextFile.Replace("z","")
	str = str.Replace("(","")
	str = str.Replace(")","")
	Dim i As Int 
	If IsNumber(str) Then
	 i = str
	 i = i+1
	End If

آقا من تست کردماما نتیجه نداد

[علی علایی 161]

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

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

[AMiN.M7892 1,029]

 

آخه نمیدونم چرا کار نمیکنه،

Sub Label1_LongClick
	Dim v As Label
	v=Sender
	mm.Initialize2("mm")
	mm.Load(File.DirAssets,(v.Tag& ".amr"))''''''''''''''''اینج هم برا لیبل
mm.Play
If mm.IsPlaying Then
m.Pause
Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"ios7-pause.jpg"))
Else
Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"Star-Full-icon.png"))
End If
StrNextFile = v.Tag
End Sub

Sub mm_Complete
	Dim str As String
	str = StrNextFile.Replace("z","")
	str = str.Replace("(","")
	str = str.Replace(")","")
	Dim i As Int 
	i = str''''''''''''''''اینجا
	i = i+1
	If i = 59 Then
		Msgbox2("دعا ها تمام شد.","خدا رو شکر","تایید","","",Null)
	Else
	If File.Exists(File.DirAssets,"z("&i&").amr") = False Then
		i = i + 1
		mm.Load(File.DirAssets,"z("&i&").amr")
		mm.Play
	Else
		mm.Load(File.DirAssets,"z("&i&").amr")
		mm.Play
	End If
	End If
End Sub

سلام

این قطعه کد رو من براتون نوشته بودم فک کنم؟؟

مشکلی نداشت!

تست کردم و کاملا درست عمل کرد و مشکلی نداشت؟!

تغییری دادید تو کد؟

[yasin011 285]

سلام 

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

[Elyas Erfani 3,582]

بله لازم نیست مثل‌ جاوا از to.String() یا integer.toString() استفاده کنید

خود بیسیک محاسبه و تبدیل میکنه String و int رو

[siroos12 14]

آخه نمیدونم چرا کار نمیکنه،

Sub Label1_LongClick
	Dim v As Label
	v=Sender
	mm.Initialize2("mm")
	mm.Load(File.DirAssets,(v.Tag& ".amr"))''''''''''''''''اینج هم برا لیبل
mm.Play
If mm.IsPlaying Then
m.Pause
Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"ios7-pause.jpg"))
Else
Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"Star-Full-icon.png"))
End If
StrNextFile = v.Tag
End Sub

Sub mm_Complete
	Dim str As String
	str = StrNextFile.Replace("z","")
	str = str.Replace("(","")
	str = str.Replace(")","")
	Dim i As Int 
	i = str''''''''''''''''اینجا
	i = i+1
	If i = 59 Then
		Msgbox2("دعا ها تمام شد.","خدا رو شکر","تایید","","",Null)
	Else
	If File.Exists(File.DirAssets,"z("&i&").amr") = False Then
		i = i + 1
		mm.Load(File.DirAssets,"z("&i&").amr")
		mm.Play
	Else
		mm.Load(File.DirAssets,"z("&i&").amr")
		mm.Play
	End If
	End If
End Sub

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

Dim i As Int i = str''''''''''''''''اینجا i = i+1

سلام. چه خطایی میده بهتون؟

[siroos12 14]

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

من میخوام مثلا لیبل 5رو لانگ کلیک زدم،بیاد آهنگ لیبل پنجم و بقیه لیبلامو بخونه.

[مهدی ایزدی 9,203]

شما مقدار String رو میتونید به صورت مستقیم برابر Int قرار بدید

اما مقدار Int رو نمیتونید برابر یک String قرار بدید(اگه توش حروف باشه و فقط عدد نباشه)

شما قبل از اینکه بیایی i = str قرار بدی بیا یک log از str بگیر ببین مقدارش چیه ؟؟؟ احتمال زیاد هنوز به صورت رشته هست

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

سلام

به این شکل تست کنید :

	Dim str As String
	str = StrNextFile.Replace("z","")
	str = str.Replace("(","")
	str = str.Replace(")","")
	Dim i As Int 
	If IsNumber(str) Then
	 i = str
	 i = i+1
	End If

[siroos12 14]

علیک سلام برادر من،ی مشکل کوچک داشت اونم فقط آنگ بعدی لیبلمو میخوند و هونو تکرار میکرد،در کد هم تغیری ندادم فکر کنم.