ใบงาน เรื่อง ความรู้เบื้องต้นเกี่ยวกับ VB

1.ความหมาย ของ VB

ตอบ Visual Basic เป็นภาษาคอมพิวเตอร์ (Programming Language)

2.ความเป็นมาของ VB

ตอบ Visual Basic เป็นภาษารุ่นที่สามในการเขียนโปรแกรมแบบ event-driven programming (การเขียนโปรแกรมที่ขึ้นกับเหตุการณ์) ซึ่งมาพร้อมกับเครื่องมือพัฒนาจาก Microsoft เปิดตัวครั้งแรกในปี 1991 และได้รับการพัฒนาให้ดีมากขึ้นจนถึงปี 2008 โดย ภาษา Visual Basic นั้นถูกออกแบบมาเพื่อให้ง่ายต่อการเรียนรู้และง่ายต่อการใช้งาน

ภาษา Visual Basic นั้นถูกพัฒนามาจากภาษา Basic ภาษาเขียนโปรแกรมที่เข้าใจง่ายสำหรับผู้เริ่มต้น ซึ่งสนับสนุนการพัฒนาโปรแกรมแบบ rapid application development (RAD) และ graphical user interface (GUI) การเข้าถึงฐานข้อมูล และอื่นๆ ที่ทำงานภายใต้ .NET Framework เวอร์ชันล่าสุดของ Visual Basic นั้นสนับสนุนการเขียนโปรแกรมเชิงวัตถุอย่างเต็มรูปแบบ

3.ตัวอย่างโปรแกรม

ตอบ

สร้างโปรเจ็ค Visual Basic

หลังจากที่คุณติดตั้ง Visual Studio แล้ว ต่อไปเราจะมาสร้างโปรเจ็คสำหรับการเขียนโปรแกรมภาษา Visual Basic ในบทเรียนนี้การเขียนโปรแกรมจะเป็นแบบ Console Application นี่เป็นขั้นตอนการสร้างโปรเจ็คใน Visual Studio

เปิดโปรแกรม Visual Basic ขึ้นมาแล้วไปที่ File -> New -> Project... หรือ Ctrl+Shift+N ซึ่งจะมีหน้าต่าง New project ขึ้นมา
ใน Template คลิกเลือกภาษาเป็น Visual Basic และเลือก Console Application หลังจากนั้นตั้งชื่อและเลือกที่อยู่ของโปรเจ็คและคลิก OK

รูปวิธีการสร้างโปรเจ็ค Console Application สำหรับ Visual Basic

หลังจากที่สร้างโปรเจ็คแล้วในหน้าต่างๆ Solution Explorer คือหน้าต่างในการทำงานของเรา นามสกุลไฟล์ของภาษา Visual Basic คือ .vb ที่จะใช้สำหรับในการเขียนโปรแกรม

ในบทนี้ เราอธิบายพื้นฐานและแนวคิดการทำงานของภาษากับ .Net framework และได้สร้างโปรเจ็คสำหรับเขียนโปรแกรมภาษา Visual Basic ด้วยโปรแกรม Visual Studio ในบทต่อไปคุณจะได้เห็นตัวอย่างและรูปแบบของภาษา Visual Basic

โปรแกรมคำนวณดัชนีมวลกาย(BMI) ด้วยโปรแกรม visual basic

1. สร้าง form ขึ้นมาด้วยโปรแกรม visual basic แล้วทำออกแบบ ดังรูป

visual basic รูป 1 ออกแบบ form

2. เขียนโค้ดลงในปุ่ม คำนวณดัชนีมวลกาย(BMI) โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อคำนวณค่าออกมา ดังนี้

Private Sub Button_BMI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_BMI.Click

Dim High As Double "ประกาศตัวแปร"

Dim result As Double "ประกาศตัวแปร"

Dim BMI As Double "ประกาศตัวแปร"

High = Val(TextBox_High.Text) / 100

result = High * High

BMI = Val(TextBox_Weight.Text) / result

Label_result_BMI.Text = Format(BMI, "#0.00")

If Label_result_BMI.Text < 18.5 Then

Label_result.Text = "ผอมเกินไป"

Label_result_counsel.Text = "ต้องเพิ่มน้ำหนัก และรับประทานอาหารที่มีประโยชน์"

ElseIf Label_result_BMI.Text > 18.5 And Label_result_BMI.Text < 25 Then

Label_result.Text = "น้ำหนักปกติ"

Label_result_counsel.Text = "ต้องเริ่มควบคุมน้ำหนัก ควบคุมอาหาร และออกกำลังกาย"

ElseIf Label_result_BMI.Text >= 25 And Label_result_BMI.Text < 30 Then

Label_result.Text = "น้ำหนักเกิน"

Label_result_counsel.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"

ElseIf Label_result_BMI.Text >= 30 And Label_result_BMI.Text < 40 Then

Label_result.Text = "อ้วน"

Label_result_counsel.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"

ElseIf Label_result_BMI.Text >= 40 Then

Label_result.Text = "อ้วนมาก"

Label_result_counsel.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"

Else

End If

End Sub

3. เขียนโค้ดลงในปุ่ม ดัชนีมวลกายที่แพทย์แนะนำ โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อแสดงค่าดัชนีมวลกายในช่วงที่เหมาะสมออกมา ดังนี้

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click

MessageBox.Show("ค่าดัชนีมวลกายที่แพทย์แนะนำ อยู่ที่ 18.00 - 19.00" & & ControlChars.CrLf & " น้ำหนักที่เหมาะสมคือ 39.96 - 42.18 กิโลกรัม", "ค่าดัชนีมว

ลกาย(BMI)", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

4. เขียนโค้ดลงในปุ่ม Clear โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อทำการลบข้อมูลเดิม แล้วทำการคำนวณดัชนีมวลกายใหม่

Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click

TextBox_Weight.Text = ""

TextBox_High.Text = ""

Label_result_BMI.Text = ""

Label_result.Text = ""

Label_result_counsel.Text = ""

End Sub

4. เขียนโค้ดลงในปุ่ม ออกจากโปรแกรม โดยดับเบิ้ลคลิกที่ปุ่ม แล้วทำการเขียนโค้ดเพื่อออกจากโปรแกรมเมื่อคำนวณเสร็จแล้ว

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