خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را
دستور Do...Loop در ویژوال بیسیک دات نت
دستور Do...Loop در ویژوال بیسیک، یک بلوک از کدها را مدام تکرار می کند و تا زمانیکه قسمت شرط دستور برقرار باشد (True باشد) این تکرار ادامه خواهد یافت. دستور Do...Loop برای نوشتن حلقه ها در ویژوال بیسیک کاربرد دارد.
از دستور Do...Loop زمانی استفاده کنید که تعداد دفعات تکرار مشخص نباشد و در واقع بر اساس واقع شدن شرط خاصی حلقه پایان می یابد. اگر تعداد دفعات تکرار مشخص باشد از دستور دیگری با نام For...Next استفاده نمایید.
شما میتوانید بنا به نیازتان از While و یا Until استفاده کنید، اما بصورت همزمان نمی توانید از هر دوی اینها استفاده نمایید.
شما می توانید قسمت شرط حلقه (condition) را در ابتدا و یا انتهای حلقه بررسی کنید، اگر شرط حلقه در انتهای آن بررسی شود شما مطمئن هستید که حداقل یکبار حلقه شما اجرا خواهد شد، اما اگر شرط حلقه در ابتدای حلقه بررسی شود، ممکن است حلقه شما هرگز اجرا نشود.
شما می توانید دستور Do...Loop را بصورت تو در تو نیز بنویسید.
دستور Exit Do زمانی کاربرد دارد که به هر دلیل (مثلا بر اساس شرط خاصی داخل بدنه کدهای حلقه) می خواهید اجرای حلقه پایان یابد. وقتی دستور Exit Do اجرا شود، کنترل اجرای برنامه به اولین خط کد بعد از پایان حلقه شما می رود.
شما به هرتعداد Exit Do که لازم باشد می توانید در داخل بدنه دستور Do...Loop داشته باشید.
وقتی از حلقه های تو در تو استفاده می کنید، دستور Exit Do شما را از درونی ترین حلقه خارج می سازد.
متن زیر قابل کپی کردن می باشد.
نحوه نگارش (Syntax) دستور Do...Loop
تشریح قسمتهای مختلف دستور Do...Loop
-
Do : شروع دستور می باشد.
-
While : تا زمانی که condition برابر False باشد حلقه را ادامه می دهد.
-
Until : تا زمانیکه condition برابر True حلقه را ادامه می دهد.
-
condition : شرط حلقه در این قسمت قرار می گیرد. اگر مقدار شرط Nothing باشد ویژوال بیسیک آن را به False تبدیل می کند.
-
statements : دستورات داخل بدنه حلقه، در واقع این دستورات هستند که تکرار می شوند.
-
Continue Do : کنترل اجرای برنامه را به مرتبه بعدی اجرای حلقه می برد و از ادامه دادن ردیف جاری در حلقه صرفنظر می کند.
-
Exit Do : از حلقه خارج می شود.
-
Loop : خاتمه دستور Do...Loop می باشد.
توضیحات دستور Do...Loop
از دستور Do...Loop زمانی استفاده کنید که تعداد دفعات تکرار مشخص نباشد و در واقع بر اساس واقع شدن شرط خاصی حلقه پایان می یابد. اگر تعداد دفعات تکرار مشخص باشد از دستور دیگری با نام For...Next استفاده نمایید.
شما میتوانید بنا به نیازتان از While و یا Until استفاده کنید، اما بصورت همزمان نمی توانید از هر دوی اینها استفاده نمایید.
شما می توانید قسمت شرط حلقه (condition) را در ابتدا و یا انتهای حلقه بررسی کنید، اگر شرط حلقه در انتهای آن بررسی شود شما مطمئن هستید که حداقل یکبار حلقه شما اجرا خواهد شد، اما اگر شرط حلقه در ابتدای حلقه بررسی شود، ممکن است حلقه شما هرگز اجرا نشود.
شما می توانید دستور Do...Loop را بصورت تو در تو نیز بنویسید.
دستور Exit Do
دستور Exit Do زمانی کاربرد دارد که به هر دلیل (مثلا بر اساس شرط خاصی داخل بدنه کدهای حلقه) می خواهید اجرای حلقه پایان یابد. وقتی دستور Exit Do اجرا شود، کنترل اجرای برنامه به اولین خط کد بعد از پایان حلقه شما می رود.
شما به هرتعداد Exit Do که لازم باشد می توانید در داخل بدنه دستور Do...Loop داشته باشید.
وقتی از حلقه های تو در تو استفاده می کنید، دستور Exit Do شما را از درونی ترین حلقه خارج می سازد.
مثال از نحوه استفاده دستور Do...Loop
متن زیر قابل کپی کردن می باشد.
Dim index As Integer = 0
Do
Debug.Write(index.ToString & " ")
index += 1
Loop Until index > 10
Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10
Do
Debug.Write(index.ToString & " ")
index += 1
Loop Until index > 10
Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10
مثال از نحوه استفاده دستور Do...Loop
Dim index As Integer = 0
Do While index <= 10
Debug.Write(index.ToString & " ")
index += 1
Loop
Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10
Do While index <= 10
Debug.Write(index.ToString & " ")
index += 1
Loop
Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10
مثال از نحوه استفاده دستور Do...Loop
Dim index As Integer = 0
Do While index <= 100
If index > 10 Then
Exit Do
End If
Debug.Write(index.ToString & " ")
index += 1
Loop
Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10
Do While index <= 100
If index > 10 Then
Exit Do
End If
Debug.Write(index.ToString & " ")
index += 1
Loop
Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10
مثال از نحوه استفاده دستور Do...Loop
Private Sub ShowText(ByVal textFilePath As String)
If System.IO.File.Exists(textFilePath) = False Then
Debug.WriteLine("File Not Found: " & textFilePath)
Else
Dim sr As System.IO.StreamReader = System.IO.File.OpenText(textFilePath)
Do While sr.Peek() >= 0
Debug.WriteLine(sr.ReadLine())
Loop
sr.Close()
End If
End Sub
If System.IO.File.Exists(textFilePath) = False Then
Debug.WriteLine("File Not Found: " & textFilePath)
Else
Dim sr As System.IO.StreamReader = System.IO.File.OpenText(textFilePath)
Do While sr.Peek() >= 0
Debug.WriteLine(sr.ReadLine())
Loop
sr.Close()
End If
End Sub
دسته بندی مطالب خوش آموز
نمایش دیدگاه ها (0 دیدگاه)
دیدگاه خود را ثبت کنید: