สอบเก็บคะแนนการเขียนโปรแกรม

Public Class Form1
Dim high As Integer
Dim base As Integer
Dim total As Double
--------------------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
base = TextBox1.Text
high = TextBox2.Text
total = 0.5 * base * high
MsgBox("พื้นที่สามเหลี่ยมมีค่าเท่ากับ" & total)
End Sub
--------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

End Class

แบบทดสอบท้ายบทflowchart

คำถามท้ายบท
1. อัลกอริทึม คืออะไร มีความหมายว่าอย่างไร
2. วิธีการทางคอมพิวเตอร์มีกี่ขั้นตอน อย่างไรบ้าง?
3. ให้นักเรียนเขียนแผนผังงาน flow chart เกี่ยวกับ การโยนเหรียญ พร้อมกัน สองเหรียญ โยนทั้งหมด 3 ครั้งโดยที่
3.1 ออกก้อยทั้งคู่ ได้ 10 บาท
3.2 ออกหัวทั้งคู่ได้ 5 บาท
3.3 ออกก้อยและหัวอย่างละ 1 เหรียญเสียเงิน 10 บาท
4. ให้นักเรียนสรุป ประโยชน์ของการเขียนผังงาน
5. ให้นักเรียนสรุปวิธีการเขียนผังงานที่ดีมาพอเข้าใจ

โปรแกรมคำนวณเกรด

1. ชื่อโปรเจ็ค (Project name) : โปรแกรมคำนวณเกรด(Check_grade)
2. Variable(ตัวแปรที่ใช้)

grade = Integer
Result = String

3. Object (วัตถุที่ใช้)

3.1 Label1 Text = โปรแกรมคำนวณเกรด

3.2 Label2 Text = กรุณากรอกคะแนนที่ได้

3.3 Label3 Text = ผลลัพธ์คือ visible = False

3.4 TextBox1
3.5 Button1 = คำนวณเกรด
3.6 Button2 = ออกโปรแกรม

4. Source Code(คำสั่งตัวควบคุม)

4.1 Public Class :

Dim grade As Integer
Dim Result As String

4.2 Button1 : If (grade >= 80) Then
Result = "เกรดของคุณคือ 4"
ElseIf (grade >= 70) Then
Result = "เกรดของคุณคือ 3"
ElseIf (grade >= 60) Then
Result = "เกรดของคุณคือ 2"
ElseIf (grade >= 50) Then
Result = "เกรดของคุณคือ 1"
Else : Result = "เกรดของคุณคือ 0"
End If
Label3.Text = Result
Label3.ForeColor = Color.Red
Label3.Visible = True
4.3 Button2 :

End

Flowchart grade

ดาวน์โหลดเอกสารเพื่อทำการเรียนการสอน

Algorithm และ Flowchart

http://www.4shared.com/document/mFyLtr7o/flowchart.html

หรือ
Algorithm & Flowcharts

หรือ


ลิงค์ไฟล์เอกสาร FlowchartAlgorithm & Flowcharts for Mediafire

โปรแกรมเปลี่ยนป้ายชื่อ(change_label)

1. ชื่อโปรเจ็ค (Project name) :
โปรแกรมเปลี่ยนป้ายชื่อ (Change_label)

2. Variable(ตัวแปรที่ใช้)
stdname = String

3. Object (วัตถุที่ใช้)

     3.1 Label1 Text = โปรแกรมเปลี่ยนป้ายชื่อ
     3.2 TextBox1
     3.3 Button1 Text = ตกลง
     3.4 Button2 Text = ออก

4. Source Code(คำสั่งตัวควบคุม)
     4.1 Public Class :
Dim Stdname As String
     4.2 Button1 :

          Label1.ForeColor = Color.Black
          Label2.BackColor = Color.White
          Stdname = TextBox1.Text
          MsgBox("สวัสดีครับคุณ " & stdname)

     4.3 Button2 :
End
----------------------------- จบ -----------------------------

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

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



- ให้เขียนโปรแกรม ตามตัวอย่างต่อไปนี้ (โดยให้กําหนดชื่อคอนโทรลจากโปรแกรม)
Public Class Form1
Dim name_std As String
Dim gender As String
Dim age As String
Dim Education As String
Dim hobby,hobby1, hobby2, hobby3, hobby4 As String
------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
name_std = "สวัสดีครับคุณ" & TextBox1.Text
If (RadioButton1.Checked) Then
gender = "คุณคือเพศชาย"
Else
gender = "คุณคือเพศหญิง"
End If
age = "อายุ" & TextBox2.Text & "ปี"
Education = "การศึกษาระดับ" & ComboBox1.Text
If CheckBox1.Checked = True Or + _
CheckBox2.Checked = True Or + _
CheckBox3.Checked = True Or + _
CheckBox4.Checked = True Then
If (CheckBox1.Checked) Then
hobby1 = CheckBox1.Text
Else : hobby1 = " "
End If
If (CheckBox2.Checked) Then
hobby2 = CheckBox2.Text
Else : hobby2 = " "
End If
If (CheckBox3.Checked) Then
hobby3 = CheckBox3.Text
Else : hobby3 = " "
End If
If (CheckBox4.Checked) Then
hobby4 = CheckBox4.Text
Else : hobby4 = " "
End If
hobby = hobby1 & " " & hobby2 & " " & hobby3 & " " & hobby4
End If
MsgBox(name_std & ControlChars.CrLf & gender & ControlChars.CrLf & age & ControlChars.CrLf & Education & ControlChars.CrLf & "งานอดิเรกคุณคือ" & hobby)
End Sub
-----------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

ศึกษาหน้าที่ของคอนโทรลพื้นฐานในโปรแกรม Visual Basic 2005 Express

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

Pointer = สำหรับเลือกวัตถุที่ต้องการ
Button = ปุ่มกด
CheckBox = เป็นการแสดงทางเลือกโดยสามารถเลือกได้มากกว่า 1 รายการ
CheckedListBox = แสดงรายการเลือกโดยเช็คที่หน้ารายการนั้น
ComboBox = แสดงรายการเลือกคล้ายกับ list Box โดยคลิกที่ คอนโทรลเพื่อแสดงรายการทั้งหมด
DateTimePicker = แสดงวันที่และเวลา
Label = แสดงข้อความบนจอภาพ
LinkLabel = แสดงข้อความที่เป็นตัวเชื่อมโยงบนจอภาพ
ListBox = แสดงรายการเลือกโดยสามารถแสดงได้มากกว่า 1 รายการ และเลื่อนดูรายการที่ต้องการได้
ListView = เหมือนกับ Listbox แต่ Listview จะแสดงรูปภาพ ประกอบหัวข้อด้วย ทำให้สื่อความหมายได้ง่ายยิ่งขึ้น
MaskedTextBox = ใช้ Mask ข้อมูลนำเข้า
MonthCalendar = แสดงปฎิทิน
NotifyIcon = แสดงไอคอนในพื้นที่ที่แจ้งไว้ ฝั่งขวาของ windows taskbar ขณะรันโปรแกรม
NumericUpDown = แสดงรายการตัวเลข สามารถเลื่อนขึ้นลงได้
PictureBox= สําหรับแสดงผลกราฟิกและภาพกราฟิกต่าง ๆ
ProgressBar = แสดงสถานะการทำงาน
RadioButton = แสดงรายการเลือกโดยสามารถเลือกได้เพียง 1 รายการ
RichTextBox = กล่องข้อความขนาดใหญ่สามารถเพิ่มขนาดได้ตามต้องการ
TextBox = แสดงข้อความที่ได้จัดเก็บไว้และรับข้อมูลผ่านทางหน้าจอ
ToolTip = ใช้แสดงข้อมูลเมื่อผู้ใช้เลื่อนเม้าท์วางบนคอนโทรลที่
เรียกใช้งาน ToolTip อยู่
TreeView = สำหรับสร้างคอนโทรลเมนูหรือแสดงรายการเลือกแบบ
TreeView
WebBrowser = ใช้แสดงหน้า web page