VB6 Introduce : สอน function ของ Introduce, เรียน function ของ Introduce
 

Reference

Reference ในเว็บไซต์ Function.in.th เป็นการนำเสนอความรู้ในรูปแบบของแหล่งอ้างอิงของคำสั่งต่าง ๆ ที่ใช้ในการเขียนโปรแกรม โดยผู้ที่สนใจสามารถเข้ามาเรียนรู้การใช้งานคำสั่งของการเขียนโปรแกรมเหล่านี้ได้ ผ่านทาง URL code.function.in.th ทั้งนี้ผู้อ่านยังสามารถร่วมแสดงความคิดเห็นบนเนื้อหาที่มีสอนได้ ซึ่งถือเป็นการส่งเสริมให้มีการแลกเปลี่ยนประสบการณ์และความรู้ระหว่างผู้อ่านด้วยกันเอง
  • ชนิดตัวแปร ได้แก่ Byte, Integer, Long, Single, Double, Currency, String, Boolean, Date, Object, Variant
    ตัวดำเนินการ มีหลายประเภท ได้แก่ ตัวดำเนินการทางคณิตศาสตร์, การเปรียบเทียบ และ ทางตรรกะ
    ตัวดำเนินการทางคณิตศาสตร์ (Arithmetic Operator) ได้แก่ บวก, ลบ, คูณ, หาร, ยกกำลัง, หารเอาค่าเศษ, เชื่อมข้อความ
    ตัวดำเนินการเปรียบเทียบ (Relational Operator) ได้แก่ เท่ากับ, มากกว่า, น้อยกว่า, ไม่เท่ากับ, มากกว่าหรือเท่ากับ, น้อยกว่าหรือเท่ากับ
    ตัวดำเนินการทางตรรกะ (Logical Operator) ได้แก่ and, or, xor, eqv, not
    คำสั่งควบคุมการทำงาน ได้แก่ ประโยคกำหนดค่า, ประโยคแบบเงีื่อนไข และ ประโยคแบบวนซ้ำ
    ประโยคกำหนดค่า (Assignment Statement) ตัวดำเนินการหลักที่ใช้ใน Visual Basic คือ เครื่องหมายเท่ากับ ? = ?
    ประโยคแบบเงื่อนไข IF-THEN If เงื่อนไข Then ชุดคำสั่งต่างๆ End If
    ประโยคแบบเงื่อนไข IF-THEN-ELSE If เงื่อนไข Then ชุดคำสั่งต่างๆ Else ชุดคำสั่งต่างๆ End If
    ประโยคแบบเงื่อนไข IF-THEN-ELSEIF If เงื่อนไข Then ชุดคำสั่งต่างๆ ElseIf เงื่อนไข Then ชุดคำสั่งต่างๆ Else ชุดคำสั่งต่างๆ End If
    ประโยคแบบเงื่อนไข SELECT CASE Select Case ชื่อตัวแปร Case เงื่อนไข ชุดคำสั่งต่างๆ Case Else ชุดคำสั่งต่างๆ End Select
    ประโยคแบบวนซ้ำ (Iteration Statement) For ชื่อตัวแปร = ค่าเริ่มต้น To ค่าสิ้นสุด [Step ค่าที่เพิ่มขึ้นในแต่ละรอบ] ชุดคำสั่งต่างๆ Next ชื่อตัวแปร
    ประโยคแบบวนซ้ำ DO LOOP แบ่งออกเป็นอีก 2 ประเภท ความแตกต่างระหว่างการใช้ DO-WHILE-LOOP กับ DO-UNTIL-LOOP
    ประโยคแบบวนซ้ำ (Iteration Statement) DO-WHILE-LOOP Do While เงื่อนไข ชุดคำสั่งต่างๆ Loop
    ประโยคแบบวนซ้ำ (Iteration Statement) DO-UNTIL-LOOP Do While เงื่อนไข ชุดคำสั่งต่างๆ Loop
    ประโยคแบบวนซ้ำ (Iteration Statement) DO-LOOP-WHILE จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นจริงตามเงื่อนไขอยู่
    ประโยคแบบวนซ้ำ (Iteration Statement) DO-LOOP-UNTIL จะทำวนซ้ำไปเรื่อยๆ ถ้ามันยังเป็นเท็จตามเงื่อนไขอยู่
    การใช้ Message Box ใช้แสดงข้อความแบบ Message Box
    รูปแบบของ Message Box (button) ดังนี้ เช่น vbCritical, vbInformation, vbQuestion, vbYesNo, vbDefaultButton1
    การใช้ Input Box ใช้สร้างช่องรับข้อมูล
    รูปแบบของการใช้ With ดังนี้ ใช้ในกรณีที่ต้องการเรียกใช้ property หรือ Method พร้อมๆกัน
    On Error Goto ใช้ตรวจจับความผิดพลาด
  • 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 คือ เครื่องหมายเท่ากับ ? = ?

  • subject :
    ประโยคแบบเงื่อนไข (Condition Statement) IF-THEN รูปแบบ ดังนี้ 

    syntax :
    If เงื่อนไข Then
         ชุดคำสั่งต่างๆ
    End If

    example :
    If y > 2 Then
         MsgBox ?วายมากกว่าสอง?, vbInformation+vbOkOnly, ?ประโยคเงื่อนไข?
    End If

    content :
    คำสั่ง 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

 
Share This Chapter Login with Facebook