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

[pradit25]

มีประโยชน์มากครับ น้องๆที่สนใจก็ดูเป็นตัวอย่างได้ครับเผื่ออนาคตข้างหน้าอยากเป็นโปรแกรมเมอร์

[วิหค]

ขอแสดงความนับถือ ในน้ำใจ และการเสี่ยสละเวลา เพื่อถ่ายทอดความรู้ โดยไม่ได้รับค่าตอบแทนใดๆ
เป็นประโยชน์มากมาย กับนักศึกษา และผู้ที่สนใจ(รวมผมเข้าไปด้วย )

เยี่ยมมากครับท่าน




ปล.เชียร์ให้ปักหมุดด้วยคนครับ

[sak2005]

ความรู้เกี่ยวกับ ProgressBar Percentage(Timer)
เป็นการประยุกต์ใช้งานไฟล์สคริ๊ป Control Properties สร้าง Fontตัวเลข % ขึ้นมาบน progressbar ดังรูป
Download Project:http://upload.one2car.com/download.aspx?pku=416A0D38A52[SZU5FVGCJJO9BC6Y1F


--------------------------------------------------------
อันนี้เป็นการเขียนโค๊ดเพิ่มเติม เพื่อที่จะนำไปประยุกต์ใช้ สั่งติดตั้งโปรแกรมต่างๆแบบอัตโนมัติ

[nearvc81]

ติดตามผลงานอยู่นะครับ ขอบคุณที่แบ่งปันความรู้ครับ^^

[Momo]

ขอบคุณครับบบ

[spykids01]

อ่าา อาจารย์ครับ

เวลาเราเซฟงานเนี่ย(เช่นลงแฟลชไดรฟ์)

แล้วเราจะเอาไปเปิดเครื่องอื่นต่อ

มีปัญหาแทบทุกครั้งเลยครับ

บางที Open Project แล้ว มีแต่หน้า โค้ด

บางทีมีแต่หน้า design

บางทีก็เปิดไม่ขึ้นเลยซักอย่าง = =

มีวิธีเซฟงานแล้วเอาไปเปิดเครื่องอื่นมั้ยครับ

[sak2005]

อ่าา อาจารย์ครับ

เวลาเราเซฟงานเนี่ย(เช่นลงแฟลชไดรฟ์)

แล้วเราจะเอาไปเปิดเครื่องอื่นต่อ

มีปัญหาแทบทุกครั้งเลยครับ

บางที Open Project แล้ว มีแต่หน้า โค้ด

บางทีมีแต่หน้า design

บางทีก็เปิดไม่ขึ้นเลยซักอย่าง = =

มีวิธีเซฟงานแล้วเอาไปเปิดเครื่องอื่นมั้ยครับ

---------------------------------------------
การนำผลงานที่ออกแบบด้วยVB.NETไปใช้งานกับเครื่องอื่น ที่ไม่ได้ลงโปรแกรมโปรแกรมVB.NETไว้..ต้องbuildงานออกมาก่อน ซึ่งหมายถึง ทำออกมาเป็นโปรแกรม สกุล .exe ถึงจะนำไปใช้งานกับเครื่องอื่นได้ตามปกติ

[spykids01]

แล้วในกรณีที่ลง Visual Studio ไว้แล้ว

แต่เวลาเรียกเปิด มันจะมีให้คอมไพล์อะไรสักอย่างนี่แหละครับ

บางทีเปิดได้แต่โค้ด

บางทีได้แต่หน้าดีไซน์

บางที error ไปเลย o_O

********************
Edit : ตอนนี้มีปัญหาใหม่ยิ่งกว่า ลง VS2005 ไม่ได้ครับ ทำทุกวิถีทางละ

ทั้งเปิดจากแผ่น / ก็อปลงเครื่องแล้วลง / เปลี่ยนแผ่นอื่น(ที่ใช้ได้) ก็แล้ว ขึ้นแบบนี้ตลอดเลยครับ

[sak2005]

แล้วในกรณีที่ลง Visual Studio ไว้แล้ว

แต่เวลาเรียกเปิด มันจะมีให้คอมไพล์อะไรสักอย่างนี่แหละครับ

บางทีเปิดได้แต่โค้ด

บางทีได้แต่หน้าดีไซน์

บางที error ไปเลย o_O

**************************************
Edit : ตอนนี้มีปัญหาใหม่ยิ่งกว่า ลง VS2005 ไม่ได้ครับ ทำทุกวิถีทางละ

ทั้งเปิดจากแผ่น / ก็อปลงเครื่องแล้วลง / เปลี่ยนแผ่นอื่น(ที่ใช้ได้) ก็แล้ว ขึ้นแบบนี้ตลอดเลยครับ

น่าจะเกิดจาก การไม่เข้าใจการลงโปรแกรม หรือลงไม่ถูกต้อง หรือมีปัญหาที่แผ่นติดตั้ง(เคยเจอ)
ลองเปลี่ยนมาลง VB2008 ดูครับ(แผ่นละไม่กี่ตังค์) น่าจะลงได้ง่ายกว่า
วิธีการติดตั้งก็ไม่ยากอะไร ขั้นแรกให้ติดตั้ง framework 3.5 sp1 ลงไปในเครื่องก่อน
แล้วติดตั้งVB2008 ตามลงไป เพียงเท่านี้ก็ใช้งานได้แล้ว

[san303]

ความรู้ทั้งนั้น
ขอบคุณมากครับ

[sak2005]

ขยายความเรื่องคำสั่งControl Loop แปลเป็นไทยก็หมายความว่า.. ทำซ้ำๆกันหลายๆครั้งวนไปวนมา
คำสั่ง Loop บางคำสั่ง ก็มีจุดสิ้นการทำงาน เช่น คำสั่ง For Next
และบางคำสั่ง ก็ไม่มีจุดสิ้นสุดการทำงาน ทำไปเรื่อยๆ จนกว่าเราจะสร้างเงื่อนไขให้หยุด
เช่น คำสั่ง While หรือ DO เป็นต้น ..ถ้าเราหัดใช้คำสั่งLoopให้เป็น จะมีประโยชน์อย่างมากในการเขียนโปรแกรม
-----------------------------------------------------------------
การเขียนคำสั่งต่างๆ ให้สามารถทำงานได้นั้น ขั้นแรกเราจะต้องทำความเข้าใจ ในรูปแบบคำสั่งต่างๆเหล่านั้นเสียก่อน
ไม่งั้นก็จะเขียนกันผิดๆ ..เมื่อเขียนผิด ก็จะเกิดข้อผิดพลาด(Error!)ตามมา
หลักการก็ง่ายๆขอให้ท่านจำไว้ ดังนี้
1.ถ้ามีการใช้ 'ตัวแปร' ก็ต้องมีการ 'ประกาศ' ตัวแปร ทุกครั้งให้ถูกต้อง
2.จำรูปแบบคำสั่งต่างๆไว้ให้ได้ว่า.. เขียนอย่างไร? จึงไม่เกิด Error!
3.จัดลำดับคำสั่งที่เขียนให้ถูกต้อง เพราะถ้าจัดวางไว้ผิด แต่เขียนได้ครบถูกต้อง ก็เป็นสาเหตุให้เกิด Error! ได้เช่นกัน

[nearvc81]

สอบเส็ดจามาอ่านให้ละเอียดเลยครับ

[sak2005]

เพื่อความกระจ่างชัด ใน Control Loop แบบต่างๆดังที่กล่าวมา ผมจะอธิบายให้ท่านเข้าใจ ในความหมายของรูปแบบอีกครั้ง
ตัวอย่างแรก: For...Next Statements
รูปแบบ:
โค๊ด:

For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next

-----------------------------------------------------------
คำอธิบาย:
counter คือตัวแปรที่เรากำหนดขึ้น ส่วนมากจะใช้ตัวอักษร i หรือ x หรือตัวอักษรใดๆก็ได้ที่ต้องไม่ตรงกับคำที่สงวนไว้เป็นคำสั่ง
statements คือคำสั่งที่ถูกควบคุมการทำงานโดย Loop
---------------------------------------------------------------------------
ยกตัวอย่างจากการสั่งให้ Progressbar ทำงาน เขียนได้ดังนี้
เริ่มต้นด้วยการประกาศตัวแปร เพราะเราจำเป็นต้องใช้ตัวแปร
Dim x As Interger
รูปแบบการประกาศก็มีให้เลือกประกาศได้หลายแบบ เช่น
For x As Interger = 1 To 100
Dim x As Interger = 0
------------------------------------------------
ต่อไปก็ใส่คำสั่ง statements ลงไป ถ้าเป็น Progressbar เขียนได้ดังนี้
ProgressBar1.Value += 1
ProgressBar1.Value = ProgressBar1.Value + 1
-------------------------------------------------------
ถ้าเป็นตัวแปร ซึ่งเป็นเงื่อนไขใน statements มักจะใช้สัญญลักษณ์ต่างๆเป็นตัวดำเนินการ จะไม่มีการประกาศตัวแปรใดๆ เช่น
= หมายถึง เท่ากับ
< " น้อยกว่า
> " มากกว่า
<= " น้อยกว่าเท่ากับ
>= " มากกว่าเท่ากับ
-------------------------------------------------------
การใช้งานตัวดำเนินการ ก็ต้องใช้ให้เหมาะสมกับโค๊ดคำสั่งนั้นๆ บางตัวถ้าใส่ไว้ไม่เหมาะสม ก็จะทำให้เกิด Error! ได้

[sak2005]

While...End While Statement
รูปแบบ:

While condition
    [ statements ]
    [ Exit While ]
    [ statements ]
End While

-----------------------------------------------
คำอธิบาย:
condition หมายถึง เป็นคำสั่งที่ให้ statements เริ่มต้นการทำงาน โดยระบุไว้ว่า..ให้ทำไปถึงไหน? แล้ววนกลับมาเริ่มต้นทำใหม่
วนไปวนมาอยู่อย่างนี้ไปเรื่อยๆ เช่น
While < 100 หมายถึง ถ้า statements น้อยกว่า 100 จริง ให้ทำไปจนครบ 100 และเมื่อครบ 100 แล้วก็ให้วนกลับมาเริ่มต้นทำใหม่ ซ้ำไปซ้ำมาอยู่เรื่อยๆ
---------------------------------------------------
ส่วนคำสั่ง Exit เช่น Exit For , Exit While เป็นคำสั่งที่ต้องการให้ statements
ที่กำลังทำงานอยู่ หยุด หรือ หลุดออกจากการ วน Loop (กระโดด)
---------------------------------------------------
คำแนะนำ: คำสั่งที่เขียนเต็มรูปแบบ ได้ลงไว้ให้ดาวน์โหลดข้างต้นแล้ว ลองนำไปศึกษาเปรียบเทียบดู

[sak2005]

เรามาดูกันซิว่า..เมื่อเราใส่คำสั่ง Exit ลงไปใน Statement แล้วจะเกิดอะไร?ขึ้น ดั่งตัวอย่าง
ตัวอย่าง:

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 Exit For         '<----คำสั่งที่ใส่เพื่อทดสอบ----<<
            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 วิ่งมาถึงครึ่งทางแล้วหยุดลง