-
-
-
subject:ชนิดตัวแปร
content:Byte เก็บค่าตัวเลขจำนวนเต็ม ระหว่าง 0 ถึง 255
Integer เก็บค่าตัวเลขจำนวนเต็ม ระหว่าง -32,768 ถึง 32,767
Long เก็บค่าตัวเลขจำนวนเต็ม ระหว่าง -2,147,483,648 ถึง 2,147,483,647
Single เก็บค่าตัวเลขจำนวนจริง (มีจุดทศนิยม) ระหว่าง -3.402823 * 10^38 ถึง -1.401298 * 10^-45
และ 1.401298 * 10^-45 ถึง 3.402823 * 10^38
Double เก็บค่าตัวเลขจำนวนจริง (มีจุดทศนิยม) ระหว่าง -1.79769313486232 * 10^308 ถึง -4.94065645641247 * 10^-324
และ 4.94065645641247 * 10^-324 ถึง 1.79769313486232 * 10^308
Currency เก็บค่าตัวเลขจำนวนจริง (มีจุดทศนิยม ตำแหน่งจำกัด) ระหว่าง -922,337,203,685,477.5808 ถึง 922,337,203,685,477.5808
String เก็บกลุ่มของตัวอักษรหรือชุดของข้อความ
Boolean เก็บค่าทางตรรกะ
Date เก็บค่าวันที่หรือเวลา
Object ใช้เก็บค่าตัวแปรที่อ้างถึงออปเจ็คใดๆ
Variant สามารถเก็บค่าได้ทุกอย่างข้างต้น แต่มีขนาดหน่วยความจำใหญ่มาก
-
subject:ตัวดำเนินการ
content:ตัวดำเนินการ มีหลายประเภทได้แก่
- ตัวดำเนินการทางคณิตศาสตร์ (Arithmetic Operator)
- ตัวดำเนินการเปรียบเทียบ (Relational Operator)
- ตัวดำเนินการทางตรรกะ (Logical Operator)
-
subject:ตัวดำเนินการทางคณิตศาสตร์ (Arithmetic Operator)
content:ตัวดำเนินการทางคณิตศาสตร์ (Arithmetic Operator)
+ (บวก)
- (ลบ)
* (คูณ)
/ (หาร)
^ (ยกกำลัง)
mod (หารเพื่อเอาค่าเศษ)
\ (หารเพื่อเอาค่าผล)
& (เชื่อมข้อความ)
-
subject:ตัวดำเนินการเปรียบเทียบ (Relational Operator)
content:ตัวดำเนินการเปรียบเทียบ (Relational Operator)
= (เท่ากับ)
> (มากกว่า)
< (น้อยกว่า)
< > (ไม่เท่ากับ)
> = (มากกว่าหรือเท่ากับ)
< = (น้อยกว่าหรือเท่ากับ)
-
subject:ตัวดำเนินการทางตรรกะ (Logical Operator)
content:ตัวดำเนินการทางตรรกะ (Logical Operator)
and คือ ถ้านิพจน์ทั้งสองจริง ก็จะให้ค่าความจริงเป็น จริง
or คือ ถ้ามีนิพจน์ตัวใดตัวหนึ่งจริง ก็จะให้ค่าความจริงเป็น จริง
xor คือ ถ้านิพจน์ทั้งสองมีค่าทางตรรกะต่างกัน ก็จะให้ค่าความจริงเป็น จริง
eqv คือ ถ้านิพจน์ทั้งสองมีค่าทางตรรกะเหมือนกัน ก็จะให้ค่าความจริงเป็น จริง
not คือ เป็นการสลับค่าทางตรรกะของนิพจน์ จากจริงเป็นเท็จหรือเท็จเป็นจริง
-
subject:คำสั่งควบคุมการทำงาน
content:คำสั่งควบคุมการทำงาน มีหลายประเภท ดังนี้
- ประโยคกำหนดค่า (Assignment Statement)
- ประโยคแบบเงื่อนไข (Condition Statement)
- ประโยคแบบวนซ้ำ (Iteration Statement)
-
subject:ประโยคกำหนดค่า (Assignment Statement)
syntax:Varname = value
example:Circulation = Sale * Amount
Money = 5000
Amount = Quantity
x = x + 20
content:ตัวดำเนินการหลักที่ใช้ใน Visual Basic คือ เครื่องหมายเท่ากับ “ = ”
-
content:คำสั่ง if คือ ใช้ตรวจสอบเงื่อนไข ถ้าหากว่าเงื่อนไขเป็นจริง ก็จะทำตามคำสั่งที่กำหนด
subject:ประโยคแบบเงื่อนไข (Condition Statement) IF-THEN รูปแบบ ดังนี้
syntax:If เงื่อนไข Then
ชุดคำสั่งต่างๆ
End If
example:If y > 2 Then
MsgBox “วายมากกว่าสอง”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
End If
-
subject:ประโยคแบบเงื่อนไข (Condition Statement) IF-THEN-ELSE รูปแบบ ดังนี้
syntax:If เงื่อนไข Then
ชุดคำสั่งต่างๆ
Else
ชุดคำสั่งต่างๆ
End If
example:If y > 2 Then
MsgBox “วายมากกว่าสอง”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
Else
MsgBox “วายไม่มากกว่าสอง”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
End If
content:คำสั่ง If คือ ใช้ตรวจสอบเงื่อนไข ถ้าหากว่าเงื่อนไขเป็นจริง ก็จะทำตามคำสั่งที่กำหนด
ส่วน Else จะหมายถึง ถ้าไม่ตรงตามเงื่อนไขใดๆ ให้ทำตามคำสั่งที่กำหนดใน Else
-
subject:ประโยคแบบเงื่อนไข (Condition Statement) IF-THEN-ELSEIF รูปแบบ ดังนี้
syntax:If เงื่อนไข Then
ชุดคำสั่งต่างๆ
ElseIf เงื่อนไข Then
ชุดคำสั่งต่างๆ
Else
ชุดคำสั่งต่างๆ
End If
example:If y > 2 Then
MsgBox “วายมากกว่าสอง”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
ElseIf y > 0 Then
MsgBox “วายไม่มากศูนย์ แต่น้อยกว่าหรือเท่ากับสอง”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
Else
MsgBox “วายไม่มากกว่าศูนย์”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
End If
content:คำสั่ง If คือ ใช้ตรวจสอบเงื่อนไข ถ้าหากว่าเงื่อนไขเป็นจริง ก็จะทำตามคำสั่งที่กำหนด
ส่วน Else จะหมายถึง ถ้าไม่ตรงตามเงื่อนไขใดๆ ให้ทำตามคำสั่งที่กำหนดใน Else
-
subject:ประโยคแบบเงื่อนไข (Condition Statement) SELECT CASE รูปแบบ ดังนี้
syntax:Select Case ชื่อตัวแปร
Case เงื่อนไข
ชุดคำสั่งต่างๆ
Case Else
ชุดคำสั่งต่างๆ
End Select
example:Select Case y
Case 2
MsgBox “วายเท่ากับสอง”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
Case 0
MsgBox “วายเท่ากับศูนย์”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
Case Else
MsgBox “วายไม่เท่ากับสอง และไม่เท่ากับศูนย์”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
End Select
content:คำสั่ง Switch Case คือ จะตรวจสอบค่าของตัวแปร ถ้าตรงตามเงื่อนไขใดก็จะทำตามคำสั่งนั้นๆ
-
subject:ประโยคแบบวนซ้ำ FOR NEXT รูปแบบ ดังนี้
syntax:For ชื่อตัวแปร = ค่าเริ่มต้น To ค่าสิ้นสุด [Step ค่าที่เพิ่มขึ้นในแต่ละรอบ]
ชุดคำสั่งต่างๆ
Next ชื่อตัวแปร
example:For i = 0 To 10 Step 1
MsgBox “ไอมีค่าเท่ากับ” & i, vbInformation+vbOkOnly, “ประโยควนลูป”
Next i
content:คำสั่ง For คือ จะทำงานเมื่อเงื่อนไขเป็นจริง และจะจบการทำงานเมื่อเงื่อนไขเป็นเท็จ โดยแต่ละรอบของการวนลูป
จะมีการเพิ่มค่าตามที่กำหนด
-
subject:ประโยคแบบวนซ้ำ DO LOOP แบ่งออกเป็นอีก 2 ประเภท ดังนี้
content:DO-WHILE-LOOP และ DO-LOOP-WHILE จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นจริงตามเงื่อนไขอยู่
DO-UNTIL-LOOP และ DO-LOOP-UNTIL จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นเท็จตามเงื่อนไขอยู่
DO-WHILE-LOOP และ DO-UNTIL-LOOP จะตรวจสอบเงื่อนไขก่อน ถึงจะเข้าไปทำในคำสั่ง
DO-LOOP-WHILE และ DO-LOOP-UNTIL จะเข้าไปทำงานในคำสั่ง 1 รอบก่อน ถึงจะตรวจสอบเงื่อนไข
-
subject:DO-WHILE-LOOP จะตรวจสอบเงื่อนไขก่อน ถึงจะเข้าไปทำในคำสั่ง
syntax:Do While เงื่อนไข
ชุดคำสั่งต่างๆ
Loop
example:y = 5
Do While y > 2
MsgBox “วายมีค่าเท่ากับ” & y, vbInformation+vbOkOnly, “ประโยควนลูป”
y = y - 1
Loop
content:จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นจริงตามเงื่อนไขอยู่
โดย จะตรวจสอบเงื่อนไขก่อน ถึงจะเข้าไปทำในคำสั่ง
-
subject:DO-UNTIL--LOOP จะตรวจสอบเงื่อนไขก่อน ถึงจะเข้าไปทำในคำสั่ง
syntax:Do Until เงื่อนไข
ชุดคำสั่งต่างๆ
Loop
example:y = 0
Do Until y > 2
MsgBox “วายมีค่าเท่ากับ” & y, vbInformation+vbOkOnly, “ประโยควนลูป”
y = y + 1
Loop
content:จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นเท็จตามเงื่อนไขอยู่
โดย จะตรวจสอบเงื่อนไขก่อน ถึงจะเข้าไปทำในคำสั่ง
-
subject:DO-LOOP-WHILE จะเข้าไปทำงานในคำสั่ง 1 รอบก่อน ถึงจะตรวจสอบเงื่อนไข
content:จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นจริงตามเงื่อนไขอยู่
โดย จะเข้าไปทำงานในคำสั่ง 1 รอบก่อน ถึงจะตรวจสอบเงื่อนไข
syntax:Do
ชุดคำสั่งต่างๆ
Loop While เงื่อนไข
example:y = 5
Do
y = y + 1
MsgBox “วายมากกว่าห้า”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
Loop While y > 5
-
subject:DO-LOOP-UNTIL จะเข้าไปทำงานในคำสั่ง 1 รอบก่อน ถึงจะตรวจสอบเงื่อนไข
content:จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นเท็จตามเงื่อนไขอยู่
โดย จะเข้าไปทำงานในคำสั่ง 1 รอบก่อน ถึงจะตรวจสอบเงื่อนไข
syntax:Do
ชุดคำสั่งต่างๆ
Loop Until เงื่อนไข
example:y = 5
Do
y = y + 1
MsgBox “วายไม่มากกว่าห้า”, vbInformation+vbOkOnly, “ประโยคเงื่อนไข”
Loop Until y > 5
-
subject:การใช้ Message Box
content:ใช้แสดงข้อความแบบ Message Box โดย
prompt คือ ข้อความที่ต้องการให้แสดง
button คือ รูปแบบของ Message Box
title คือ หัวข้อหรือชื่อเรื่องของ Message Box
syntax:MsgBox prompt, button, title
example:Dim doClick As Variant
doClick = MsgBox ( “ข้อความ”, vbYesNo, “ชื่อเรื่อง” )
Select Case doClick
Case vbYes
MsgBox “คุณกด Yes”
Case vbNo
MsgBox “คุณกด No”
End Select
-
subject:รูปแบบของ Message Box (button) ดังนี้
content:รูปแบบของ Message Box (button) ดังนี้
vbCritical เครื่องหมาย กากบาท
vbExclamation เครื่องหมาย ตกใจ
vbInformation เครื่องหมาย ข่าวสาร
vbQuestion เครื่องหมาย คำถาม
vbOkOnly กำหนดให้มีปุ่ม ok เท่านั้น
vbOkCancel กำหนดให้มีปุ่ม ok กับ cancel
vbYesNo กำหนดให้มีปุ่ม yes กับ no
vbYesNoCancel กำหนดให้มีปุ่ม yes, no และ cancel
vbAbortRetryIgnore กำหนดให้มีปุ่ม abort, retry และ ignore
vbRetryCancel กำหนดให้มีปุ่ม retry กับ cancel
vbDefaultButton1 กำหนดให้ focus ไปที่ปุ่มที่ 1
vbDefaultButton2 กำหนดให้ focus ไปที่ปุ่มที่ 2
vbDefaultButton3 กำหนดให้ focus ไปที่ปุ่มที่ 3
vbDefaultButton4 กำหนดให้ focus ไปที่ปุ่มที่ 4
-
subject:การใช้ Input Box
content:ใช้สร้างช่องรับข้อมูล โดย
prompt คือข้อความที่ต้องการให้แสดง
title คือหัวข้อหรือชื่อเรื่อง
default คือค่าเริ่มต้นของช่องรับข้อมูล
xpos, ypos คื่อตำแหน่งของ Input Box บนหน้าจอ
syntax:ชื่อตัวแปร = InputBox ( prompt, title, default, xpos, ypos )
example:Dim Search As Variant
Search = InputBox ( “ค้นหาจากชื่อ : ”, “ค้นหา”, “” )
-
subject:รูปแบบของการใช้ With ดังนี้
content:ใช้ในกรณีที่ต้องการเรียกใช้ property หรือ Method พร้อมๆกัน
syntax:With ตัวแปร
.property
.method
End With
example:With textCustID
.text = “Beckham”
.alignment = 1
.Maxlength = 10
.PasswordChar = “*”
End With
-
subject:On Error Goto
content:ให้กำหนดก่อนคำสั่งที่คาดว่าจะมีการ Error เกิดขึ้น คือเมื่อมีความผิดพลาดเกิดขึ้นก็กำหนดให้ไปทำงานที่ Label
syntax:On Error Goto [Label]
[Label] : ชุดคำสั่งต่างๆ
example:On Error Goto Err1
Dim MyNum As Integer
MyNum = textCustID.text
MsgBox MyNum
Err1 :
If Err.Number = 13 Then
MsgBox “กรุณากรอกข้อมูลเป็นตัวเลข”
End If
