Loop Vb.net


Public Class Form1
 
 
    ''' <summary>
    '''  For Loop
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            TextBox1.Text = "" '' ล้างค่าถ้าไม่ทำ กดใหม่ มัน จะรันต่อไปเรื่อย ๆ
            For I As Integer = 1 To 100
                TextBox1.Text = TextBox1.Text & I.ToString() & ", "
            Next
            TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 2) '' ตัดตัว , ตัวสุดท้ายออก
        Catch ex As Exception
 
        End Try
    End Sub
 
    ''' <summary>
    ''' Do...While Loop
    ''' </summary>
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = "" '' ล้างค่าถ้าไม่ทำ กดใหม่ มัน จะรันต่อไปเรื่อย ๆ
        Dim I As Integer = 1 '' กำหนดค่าเริ่มต้นให้
        Do While I <= 100 '' กำหนดค่าเงื่อนไขเป็นจริง (ทำไปเรื่อย ๆ ถ้าเงื่อนไขยังเป็น True)
            TextBox1.Text = TextBox1.Text & I.ToString() & ", "
            I += 1 '' เพิ่มค่าตัวแปรที่ใช้เพื่อให้เงื่อนไขใกล้ความจริง ถ้าไม่เพิ่มค่าจะ Loop ยันลูกบวช
        Loop
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 2) '' ตัดตัว , ตัวสุดท้ายออก
    End Sub
 
 
    ''' <summary>
    ''' Do...Until Loop
    ''' </summary>
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = "" '' ล้างค่าถ้าไม่ทำ กดใหม่ มัน จะรันต่อไปเรื่อย ๆ
        Dim I As Integer = 1 '' กำหนดค่าเริ่มต้นให้
        Do Until I > 100 '' กำหนดค่าเงื่อนไขเป็นเท็จ (ทำไปเรื่อย ๆ จนกว่าเงื่อนไขเป็น False)
            TextBox1.Text = TextBox1.Text & I.ToString() & ", "
            I += 1 '' เพิ่มค่าตัวแปรที่ใช้เพื่อให้เงื่อนไขใกล้ความจริง ถ้าไม่เพิ่มค่าจะ Loop ยันลูกบวช
        Loop
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 2) '' ตัดตัว , ตัวสุดท้ายออก
    End Sub
 
 
#Region " อันนี้ไม่ต้อง ใส่ใจมากนะ ทำให้ดู เดี่ยวจะงงไปกันใหญ่ "
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = "" '' ล้างค่าถ้าไม่ทำ กดใหม่ มัน จะรันต่อไปเรื่อย ๆ
        If Not BackgroundWorker1.IsBusy Then
            BackgroundWorker1.RunWorkerAsync()
        End If
    End Sub
 
 
    Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        For I As Integer = 1 To 100
            BackgroundWorker1.ReportProgress(I)
            Threading.Thread.Sleep(100)
        Next
    End Sub
 
    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        TextBox1.Text = TextBox1.Text & e.ProgressPercentage.ToString() & ", "
    End Sub
 
    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 2) '' ตัดตัว , ตัวสุดท้ายออก
    End Sub
 
#End Region
 
End Class

Download : @Loop Source Code

ความเห็น

ความเห็น

Posted in ไม่มีหมวดหมู่