| การประกาศตัวแปรชนิด Type ดังนี้ | เป็นการประกาศตัวแปรขึ้นมาใช้เอง ซึ่งมีลักษณะคล้ายกับ class |
|---|---|
| การสร้าง Function | ฟังก์ชันนิยมสร้างเพื่อประมวลผลคำสั่งเพื่อให้ได้ผลลัพธ์หนึ่งๆ |
| การเรียกใช้ Function ที่สร้างขึ้น ดังนี้ | เป็นการเรียกใช้ Function ที่สร้างขึ้น |
| การสร้าง Sub Procedure | procedure นิยมสร้างเพื่อประมวลผลคำสั่งเพื่อการทำงานย่อยใดๆ |
| การเรียกใช้ Sub Procedure ที่สร้างขึ้น ดังนี้ | เป็นการเรียกใช้ Sub Procedure ที่สร้างขึ้น |
subject:การประกาศตัวแปรชนิด Type ดังนี้
syntax:Private Type ชนิดตัวแปรที่กำหนดเอง ชนิดตัวแปรย่อยที่ 1 ที่กำหนดเอง As ชนิดตัวแปร ชนิดตัวแปรย่อยที่ 2 ที่กำหนดเอง As ชนิดตัวแปร ชนิดตัวแปรย่อยที่ n ที่กำหนดเอง As ชนิดตัวแปร End Type
content:เป็นการประกาศตัวแปรขึ้นมาใช้เอง ซึ่งมีลักษณะคล้ายกับ class ( ทั้งหมดนี้ประกาศใน Option Explicit )
example:Private Type Student name As String sex As String age As Integer End Type Dim person As Student person.name = "Bamboo" person.sex = "man" person.age = "24"
subject:การสร้าง Function
syntax:Function ชื่อฟังก์ชั่น ( ชื่อตัวแปรพารามิเตอร์ As ชนิดตัวแปรที่รับเข้า ) As ชนิดตัวแปรที่ส่งค่ากลับ ชุดคำสั่งต่างๆ ชื่อฟังก์ชั่น = ค่าข้อมูล ‘เป็นการกำหนด ค่าข้อมูลที่ถูกส่งกลับ End Function
content:ฟังก์ชันนิยมสร้างเพื่อประมวลผลคำสั่งเพื่อให้ได้ผลลัพธ์หนึ่งๆ
example:Function sum ( x As Integer, y As Integer ) As String sum = "sum is " & x + y End Function
subject:การเรียกใช้ Function ที่สร้างขึ้น ดังนี้
syntax:ชื่อตัวแปร = ชื่อฟังก์ชั่น ( ค่าอาร์กิวเมนต์ที่ส่งไป )
content:เป็นการเรียกใช้ Function ที่สร้างขึ้น
example:Function sum ( x As Integer, y As Integer ) As String sum = "sum is " & x + y End Function Dim text As String text = sum ( 4, 10 )
subject:การสร้าง Sub Procedure
syntax:[ Public | Private ] Sub ชื่อโพรซีเยอร์ ชุดคำสั่งต่างๆ End Sub
content:procedure นิยมสร้างเพื่อประมวลผลคำสั่งเพื่อการทำงานย่อยใดๆ
example:Public Sub showMessageBox MsgBox “WelComeTo BambooLabCode”, vbInformation + vbOkOnly, “welcome” End Sub
subject:การเรียกใช้ Sub Procedure ที่สร้างขึ้น ดังนี้
syntax:Call ชื่อโพรซีเยอร์
content:เป็นการเรียกใช้ Sub Procedure ที่สร้างขึ้น
example:Public Sub showMessageBox MsgBox “WelComeTo BambooLabCode”, vbInformation + vbOkOnly, “welcome” End Sub Call showMessageBox
