การเขียนโปรแกรมวินชวลเบสิก2005

อย่างแรกเลยต้องมีโปรแกรม Visual Basic

โหลดได้จากsoftware.thaiware.com/9283-Visual_Studio_2005_Express_Editions_FREE.html

แล้วติดตั้งก่อน

เรื่อง การใช้คอนโทรลในการเขียนโปรแกรมด้วย Visual Basic 

วัตถุประสงค์ : เมื่อจบบทปฏิบัติการนี้แล้วนักศึกษาสามารถ

1. บอกหน้าที่ของคอนโทรลพื้นฐานใน โปรแกรม Visual Basic  ได้อย่างถูกต้อง

2. เลือกใช้คอนโทรลต่าง ๆ เพื่อช่วยในการเขียนโปรแกรมได้อย่างถูกต้องและเหมาะสม

ขั้นตอนการปฏิบัติ (100 นาที)

1. ศึกษาหน้าที่ของคอนโทรลพื้นฐานในโปรแกรม Visual Basic (25 นาที)

2. ศึกษาวิธีการเขียนโปรแกรมโดยใช้คอนโทรลพร้อมเขียนโปรแกรม (35 นาที)

3. ทําแบบฝึกหัดตามตัวอย่างที่กําหนด (40 นาที) 

1. ศึกษาหน้าที่ของคอนโทรลพื้นฐานในโปรแกรม Visual Basic  (25 นาที)

        

1.1       Common Controls เป็นคอนโทรลพื้นฐาน ประกอบด้วย

Pointer        = สำหรับเลือกวัตถุที่ต้องการ

Button         = ปุ่มกด

Checkbox   = เป็นการแสดงทางเลือกโดยสามารถเลือกได้มากกว่า 1 รายการ

CheckedListBox        = แสดงรายการเลือกโดยเช็คที่หน้ารายการนั้น

Combo Box = แสดงรายการเลือกคล้ายกับ list Box โดย คลิกที่            คอนโทรล เพื่อแสดงรายการทั้งหมด

DateTimePicker       = แสดงวันที่และเวลา

Label          = แสดงข้อความบนจอภาพ

Link Label  = แสดงข้อความที่เป็นตัวเชื่อมโยงบนจอภาพ

List Box      = แสดงรายการเลือกโดยสามารถแสดงได้มากกว่า 1รายการ และเลื่อนดูรายการที่ต้องการได้

List View    = เหมือนกับ List box แต่ List view จะแสดงรูปภาพประกอบ หัวข้อด้วย ทำให้สื่อความหมายได้ง่ายยิ่งขึ้น

Masked Textbox        = ใช้ Mask ข้อมูลนำเข้า

Month Calendar          = แสดงปฎิทิน

Notify Icon  = แสดงไอคอนในพื้นที่ที่แจ้งไว้ ฝั่งขวาของ windows taskbar ขณะรันโปรแกรม

NumericUpDown      = แสดงรายการตัวเลข สามารถเลื่อนขึ้นลงได้

Picture Box                 = สําหรับแสดงผลกราฟิกและภาพกราฟิกต่าง ๆ

Progress Bar      = แสดงสถานะการทำงาน

Radio Button     = แสดงรายการเลือกโดยสามารถเลือกได้เพียง 1 รายการ

Rich Textbox   = กล่องข้อความขนาดใหญ่สามารถเพิ่มขนาดได้ตามต้องการ

Textbox           = แสดงข้อความที่ได้จัดเก็บไว้และรับข้อมูลผ่านทางหน้าจอ

ToolTip           = ใช้แสดงข้อมูลเมื่อผู้ใช้เลื่อนเม้าท์วางบนคอนโทรลที่ เรียกใช้งาน ToolTip อยู่

Tree View         = สำหรับ สร้างคอนโทรลเมนูหรือแสดงรายการเลือกแบบ  Tree View

Web Browser    = ใช้ แสดงหน้า web page

            2. ศึกษาวิธีการเขียนโปรแกรมโดยใช้คอนโทรลพร้อมเขียนโปรแกรม (35 นาที)

                                                       2.1  โปรแกรมนาฬิกาตัวเลข

- ให้ทําการสร้าง Project ใหม่โดย ไปเลือกที่เมนู File >> New Projects และเลือกที่ Windows   Application ตั้งชื่อโปรเจคใหม่เป็น Lab02_1 ในช่อง Name

                     -  สร้าง User Interface ตามตัวอย่างหน้าจอต่อไปนี้

     - กําหนด Properties ให้แต่ละคอนโทรลตามหมายเลขที่ระบุไว้ ดังนี้

1. Label – สําหรับแสดงข้อความที่เป็น Title

Text = โปรแกรมนาฬิกาดิจิตอล

กําหนดรูปแบบตัวอักษร สี ตามต้องการ

2. Label - สําหรับแสดงตัวเลขนาที

Name = Label Minute

Text   = 0

กําหนดรูปแบบตัวอักษร สี ตามต้องการ

3. Label – สําหรับแสดงข้อความ

Text   = :

กําหนดรูปแบบตัวอักษร สี ตามต้องการ

4. Label - สําหรับแสดงตัวเลขวินาที

Name = Label Sec

Text   = 00

กําหนดรูปแบบตัวอักษร สี ตามต้องการ

5. Button – เป็นปุ่มสําหรับกําหนดการเริ่มต้น

Name = Button Start

Text   = เริ่มต้น

กําหนดรูปแบบตัวอักษรตามต้องการ

6. Button - เป็นปุ่มสําหรับหยุดชั่วคราว

Name = Button Pause

Text   = หยุดชั่วคราว

กําหนดรูปแบบตัวอักษรตามต้องการ

7. Button - เป็นปุ่มสําหรับแสดงต่อเนื่องจากที่หยุด

ชั่วคราวไปแล้ว

Name = Button Next

Text   = แสดงต่อ

กําหนดรูปแบบตัวอักษรตามต้องการ

8. Button - เป็นปุ่มจบการทํางาน

Name = Button End

Text   = ออกจากโปรแกรม

กําหนดรูปแบบตัวอักษรตามต้องการ

9. Timer - นับจํานวนรอบการแสดงเวลา

Name     = Timer Clock

Enabled = False

Interval   = 1000 (ประมาณ 1 วินาที)

                        - ให้เขียนคำสั่งโปรแกรมตามคำสั่งต่อไปนี้

โปรแกรมนาฬิกาดิจิตอล

Public Class Form1

Dim intMinute As Integer

Dim intSec As Integer

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

intMinute = 0

intSec = 0

End Sub

Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click

TimerClock.Enabled = True

intMinute = 0

intSec = 0

LabelMinute.Text = "0"

LabelSec.Text = "00"

TimerClock.Enabled = True

End Sub

Private Sub ButtonPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonPause.Click

TimerClock.Enabled = False

End Sub

Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNext.Click

TimerClock.Enabled = True

End Sub

Private Sub ButtonEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnd.Click

End

End Sub

Private Sub TimerClock_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerClock.Tick

intSec = intSec + 1

If intSec < 10 Then

LabelSec.Text = "0" & intSec

ElseIf intSec = 16 Then

LabelSec.Text = "00"

intSec = 0

intMinute = intMinute + 1

Else

LabelSec.Text = intSec

End If

LabelMinute.Text = intMinute

End Sub

End Class

2.2 โปรแกรมการสอบถามข้อมูล

- ให้ทําการสร้าง Project ใหม่โดย ไปเลือกที่เมนู File >> New Projects และเลือกที่Windows Application ตั้งชื่อโปรเจคใหม่เป็น Lab02_2 ในช่อง Name

 - สร้าง User Interface ตามตัวอย่างหน้าจอต่อไปนี้

-                   ให้เขียนโปรแกรม ตามตัวอย่างต่อไปนี้ (โดยให้กําหนดชื่อคอนโทรลจากโปรแกรม)

แบบสอบถาม

Public Class Form1

Private Sub ButtonEnd_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonShow.Click

Dim strText As String

strText = "สวัสดีครับคุณ:" & TextBoxName.Text & Chr(13)

If RadioButtonMale.Checked = True Then

strText = strText & "คุณเป็นผู้ชาย" & Chr(13)

End If

If RadioButtonFemale.Checked = True Then

strText = strText & "คุณเป็นผู้หญิง" & Chr(13)

End If

If Val(TextBoxAge.Text) > 1 Then

strText = strText & "ขณะนี้อายุ" & TextBoxAge.Text & "ปี" & Chr(13)

End If

If ComboBoxEduc.Text <> "โปรดเลือก" Then

strText = strText & "การศึกษาของคุณอยู่ในระดับ" & ComboBoxEduc.Text & Chr(13)

End If

If CheckBox1.Checked = True Or + _

CheckBox3.Checked = True Or + _

CheckBox2.Checked = True Or + _

CheckBox4.Checked = True Then

strText = strText & "งานอดิเรกของคุณได้แก่"

If CheckBox1.Checked = True Then

strText = strText & CheckBox1.Text & " "

End If

If CheckBox3.Checked = True Then

strText = strText & CheckBox3.Text & " "

End If

If CheckBox2.Checked = True Then

strText = strText & CheckBox2.Text & " "

End If

If CheckBox4.Checked = True Then

strText = strText & CheckBox4.Text & " "

End If

End If

MsgBox(strText)

End Sub

Private Sub ButtonEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEnd.Click

End

End Sub

End Class