เรียนลัด VB.NET เบื้องต้น

[sak2005]

ถ้าใส่ตัวดำเนินการ ที่เป็นเครื่องหมาย = และตามด้วยจำนวนตัวเลข% ล่ะ! ..จะเกิดอะไร?
-----------------------------------------------------------------------

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 1
        ProgressBar1.Value = 0
        Dim x As Integer
        For x = 1 To 100
            x += 1
            ProgressBar1.Value += 1
            ProgressBar1.PerformStep()
            Threading.Thread.Sleep(50)
            If x = 50 Then                        
           MsgBox("BarCurrent = 50%", MsgBoxStyle.Information, "")   '<-Message ยืนยันการทำงาน ตามเงื่อนไข-<
            End If
            Next x
        If ProgressBar1.Value >= 100 Then
            Threading.Thread.Sleep(500)
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

---------------------------------------------------------
ผลที่ได้..progressbar วิ่งมาถึง 50% ก็จะหยุดวิ่งชั่วคราว แล้วมี Message ขึ้นมาบอกเงื่อนไข%
ถ้าเราคลิ๊ก ok ยืนยันเงื่อนไข ..progressbar ก็จะวิ่งต่อไปจนครบ 100%

[sak2005]

อันนี้เป็นการใส่ Counter หรือ Value% ลงบนฟอร์ม ใช้ Timer ควบคุมการทำงาน
Size:64.7 KB
Download:Sample Project
http://upload.one2car.com/download.aspx?pku=17872B285CI8HPINAT7KO9YOH6I6C[

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        If ProgressBar1.Value < 100 Then
            Label1.Text = "Installing.." & ProgressBar1.Value.ToString() & "%"
            ProgressBar1.PerformStep()
            i = i + 1
            If ProgressBar1.Value >= 100 Then
               Timer1.Enabled = False
                MsgBox("Completed.", MsgBoxStyle.Information, "")
                ProgressBar1.Value = 0
                Label1.Text = "Installing..0%"
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Close()
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

[sak2005]

ความรู้เกี่ยวกับ Timer Component

ลักษณะการทำงานของ Timer ก็คล้ายๆกับการใช้คำสั่ง Loop ..ปกติ Timer จะอยู่ในตำแหน่ง Off ..เมื่อต้องการให้ Timer เริ่มทำงาน(ON) ก็ใช้คำสั่ง.. Timer.Enable = True ..ตรงกันข้าม เมื่อต้องการให้ Timer หยุด ก็ใช้คำสั่ง.. Timer.Enable = False
Timer สามารถกำหนดอัตราความเร็วด้วยคำสั่ง.. Interval ..ปรับได้ใน Properties ของ Timer ..ซึ่งปกติถูกตั้งไว้ที่ 100 หรือจะเขียนเป็นคำสั่งลงไปก็ได้ เช่น Timer.Interval = 150 เป็นต้น

[tack]

เรียนท่าน อาจารย์ ครับ

ลิงค์ตัวอย่างหน้า 1 ที่อาจารย์ทำให้ดูเป็นตัวอย่าง บางลิ้งค์ ไม่สามารถ ดาว์นโหลดไม่ได้ครับ

ขอความกรุณาแก้ไขให้ ผมหน่อยนะ ครับ

ด้วยความเคารพอย่างสูง ที่รบกวนอาจารย์ ครับ

[sak2005]

เรียนท่าน อาจารย์ ครับ

ลิงค์ตัวอย่างหน้า 1 ที่อาจารย์ทำให้ดูเป็นตัวอย่าง บางลิ้งค์ ไม่สามารถ ดาว์นโหลดไม่ได้ครับ

ขอความกรุณาแก้ไขให้ ผมหน่อยนะ ครับ

ด้วยความเคารพอย่างสูง ที่รบกวนอาจารย์ ครับ

---------------------------------------------
รับทราบครับ เดี๋ยวอาจารย์จะนำมาลงให้ใหม่
ถ้ามีปัญหาที่ลิ๊งคไหน ก็สามารถแจ้งได้อีก จะได้แก้ไขให้

[kul_kup]

อยากเห็นตัวอย่างการใช้ VB ติดต่อและควบคุมกับอุปกรณ์ต่างๆภายในเครื่อง เช่น กล้องWebcam เป็นต้น พอคร่าวๆนะครับเผื่อผมจะได้เอาไปประยุกต์ใช้

[sak2005]

แทนลิ๊งค์เก่าที่มีปัญหา ตามคำขอ
D/L:Auto Installer & Silent Mode_Project
คลิ๊กที่นี่

[Bes]

ขยันจริง ๆ เลยครับ เขียนเองหมดเลยเหรอครับเนี่ย

[immortalpao]

ขออนุญาติเอาไปเผยแพร่ต่อนะครับ ^^

[sak2005]

ขยันจริง ๆ เลยครับ เขียนเองหมดเลยเหรอครับเนี่ย

----------------------------------------------------------------------
ศึกษาค้นคว้าและนำมาเขียนเองหมดเลยครับท่าน ความรู้ที่ผมนำมาเผยแพร่ บางอย่างก็ไม่มีในตำราเรียน
เรียกว่า..ใช้ความคิดสร้างสรรค์เอง ว่างั้นเหอะ หัดคิดนอกกรอบ ก็จะได้ความรู้ใหม่ๆออกมา

[sak2005]

ขออนุญาติเอาไปเผยแพร่ต่อนะครับ ^^

----------------------------------------------------------------------
ตามสบายเลยครับท่าน ยังอัพเดทความรู้ลงในบทความให้เรื่อยๆ
ตราบใดที่ยังมีตังค์จ่ายค่า HiSpeed Internet 590/เดือน ไม่รวม VAT

[tmpcs]

นับถือ จริงๆๆ

[sak2005]

ความรู้เกี่ยวกับ การควบคุม ปุ่ม (button) ด้วย If statement
เป็นวิธีการใช้ปุ่มเพียงปุ่มเดียว ให้สามารถควบคุมการทำงานได้หลายๆหน้าที่ ..ลองดาวน์โหลดโปรเจ็คไปศึกษาดูครับ
Download:http://upload.one2car.com/download.aspx?pku=35CBC743A5N4NRGB[5JCHOGOB248XF

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "A" Then
            MsgBox("คุณกดปุ่ม A", MsgBoxStyle.Information, "")
            MsgBox("เปลี่ยนจาก Control-A เป็น Control-B", MsgBoxStyle.Information, "")
            Button1.Text = "B"
        Else
            If Button1.Text = "B" Then
                MsgBox("คุณกดปุ่ม B", MsgBoxStyle.Information, "")
                MsgBox("เปลี่ยนจาก Control-B เป็น Control-C", MsgBoxStyle.Information, "")
                Button1.Text = "C"
            ElseIf Button1.Text = "C" Then
                MsgBox("คุณกดปุ่ม C", MsgBoxStyle.Information, "")
                MsgBox("เปลี่ยนจาก Control-C ย้อนเป็น Control-A", MsgBoxStyle.Information, "")
                Button1.Text = "A"
            End If
        End If
    End Sub
End Class

[teraphon]

เป็นประโยชน์มากครับตอนนี้กำลังทำโปรเจ็คจบพอดี

[baquzza]

ไม่มีอีกแล้วหรอครับ เสียใจจัง เพิ่งจะได้มาเริ่มเขียน vb.net