Visual Basic 6.0. ทาไมต องเร มท Visual Basic. ความเป นมาของ Visual Basic - PDF

Description
ทาไมต องเร มท Visual Basic Visual Basic ง ายต อการเร ยนร 2. ความน ยมของต วภาษา 3. เป นซอฟต แวร ของ Microsoft 4. การพ ฒนาอย างต อเน อง 1 3 ความเป นมาของ Visual Basic พ ฒนามาจากภาษา QBASIC เป นภาษาท

Please download to get full document.

View again

of 71
All materials on our website are shared by users. If you have any questions about copyright issues, please report us to resolve them. We are always happy to assist you.
Information
Category:

Public Notices

Publish on:

Views: 23 | Pages: 71

Extension: PDF | Download: 0

Share
Transcript
ทาไมต องเร มท Visual Basic Visual Basic ง ายต อการเร ยนร 2. ความน ยมของต วภาษา 3. เป นซอฟต แวร ของ Microsoft 4. การพ ฒนาอย างต อเน อง 1 3 ความเป นมาของ Visual Basic พ ฒนามาจากภาษา QBASIC เป นภาษาท เหมาะก บการเร มต น Visual Basic V. 1.0 เม อป 1991 Visual Basic V. 6.0 เม อป 1998 Visual Studio.NET เม อป 2002 ทาไมต องเร มท Visual Basic 5. Visual Basic for Application (VBA) ในช ด Microsoft Office 6. VB Script Edition ใช ในการเข ยน สร าง Home Page 7. ASP (Active Server Page) 2 4 1 การเข ยนโปรแกรมแบบ Event-driven การทางานของโปรแกรมจะข นอย ก บ การกระทาก บส วนประกอบต างๆ ของ หน าต าง (Window) ของโปรแกรม เช น ป มต างๆ, เล อนเมาส การทางานจะเป นไปตามเหต การณ (Event) ท เก ดข น ข นตอนการออกแบบโปรแกรม 1. ศ กษาความต องการของผ ใช 2. ออกแบบหน าจอของโปรแกรม และข นตอนการทางานของ โปรแกรม 3. เร มเข ยนและพ ฒนาโปรแกรม 4. รวบรวมและทดสอบโปรแกรม 5. ส งมอบโปรแกรมส ผ ใช 5 7 การเข ยนโปรแกรมแบบ Procedural โปรแกรมเมอร ต องเข ยน Code ควบค มการทางานของโปรแกรมเอง ท งหมด โดยต องตรวจสอบเหต การณ ต างๆ ท เก ดข นด วยตนเอง ร นต างๆ ของ Visual Basic Learning Edition Professional Edition Enterprise Edition 6 8 2 การต ดต งโปรแกรม ระบบปฏ บ ต การ Windows 98-XP CPU Pentium ข นไป หน วยความจา (RAM) 32 MB ข นไป CD-ROM, Mouse, Keyboard แผ นโปรแกรม Microsoft Visual Studio 6.0 แผ นโปรแกรม MSDN เป นส วนของ Help ส วนประกอบของ Visual Basic Object Properties Method Event 9 11 ค ณสมบ ต ของ Visual Basic Textbox Fo rm คอมไพเลอร และการเข ยนโปรแกรม บน Microsoft Windows หล กการของ OOP (Object Oriented Programming) C heckbox Opti on Button การเร ยกใช งาน ป ม Start Programs Microsoft Visual Studio 6.0 Microsoft Visual Basic ส วนประกอบของ Visual Basic หน าต าง Project Explorer View Project Explorer Ctrl+R หน าต าง Properties View Properties Window F4 15 ส วนประกอบของ Visual Basic แถบ Title Bar แถบ Menu Bar แถบ Tool Bar หน าต าง Form Windows View Object ส วนประกอบของ Visual Basic หน าต าง Form Layout View Form Layout Window แถบเคร องม อ Toolbox View Toolbox การบ นท ก Application เร มต นการสร าง Application การบ นท กจะบ นท กแยก ระหว าง Form ก บ Project File Save Form หร อ Project ต งช อฟอร ม หร อ ช อ project คล กป ม Save การสร าง Application ใหม File New Project เล อก Standard EXE คล กป ม OK การเพ ม Form ใหม Project Add Form หร อ คล ก Toolbar ในการเพ ม Form การเพ ม Form ท ม อย แล ว Project Add File เล อกฟอร มท ต องการ คล กป ม Open การ Run Application Run Start หร อ กดค ย F5 หร อใช Toolbar ยกเล ก Form ออก เล อกฟอร ม Project Remove ช อForm การ Stop Application Run End หร อ ใช Toolbar การกาหนดฟอร มท ร น เมน Project Project Properties แท บ General กาหนดท Startup Object พ นฐานท ในการสร างโปรแกรมใน VB6 การกาหนดค ณสมบ ต ของคอนโทรล กาหนดท หน าต าง Properties Windows Object List Box: แ สด ง รา ย ช อข อง คอนโทรลท งหมดในฟอร ม Properties List: แสดงช อค ณสมบ ต และ ค าท กาหนดสาหร บคอนโทรลท เราเล อก Description Pane: แสดงคาอธ บายส นๆ เก ยวก บค ณสมบ ต ท เราเล อก กาหนดโดยการเข ยน Code คาส ง พ นฐานท ในการสร างโปรแกรมใน VB6 พ นฐานท ในการสร างโปรแกรมใน VB6 การสร างคอนโทรลบนฟอร ม การย ายคอนโทรล การเปล ยนขนาดคอนโทรล การลบคอนโทรลออกจากฟอร ม 26 การเข ยน Code คาส งเพ อตอบสนองต อ Event เป ดหน าต าง Code Editor ด านซ ายสาหร บเล อกช อ Object ด านขวาสาหร บกาหนด Event ใส คาส งลงไประหว างข อความ Private Sub ช อคอนโทรล _ ช ออ เว นต ก บ เป นต วบอกว าคาส งท ตอบสนองน นเร มต นและจบลงท ใด 28 7 การกาหนด Properties โดยการเข ยนโค ด Object_Name.Properties_Name = ค าของproperties เช น Form1.Caption = โปรแกรมการคานวณภาษ Form1.FontSize = 20 การทางานก บ Form Properties พ นฐานของ Control Properties ของ Form Name Caption ForeColor BackColor Height, Width Left,Top TabIndex Enabled Visible FontBold,FontIt alic FontName,Font Size FontUnderline MousePointer 30 Name BackColor ForeColor Caption Enabled Font Icon MinButton MaxButton Height Width AutoRedraw 32 8 Properties ของ Form MousePointer MouseIcon ( MousePointer=Custom ) Picture Visible CurrentX CurrentY การใช Method โดยการเข ยนโค ด เช น Object_Name.Method_Name [พาราม เตอร ของ Method] Form1.Print Siam Computer Me.Show Method ของ Form Print ข อความ & ต วแปร Form_Name.Hide Form_Name.Show Form_Name.Cls Event ของ Form Activate เม อฟอร ม Activate Click เม อคล กท ฟอร ม DblClick เม อด บเบ ลคล กท ฟอร ม Load เม อเป ดฟอร มข นมาทางาน UnLoad เม อป ดฟอร ม Sub Form_Activate( ) Form1.FontSize=20 Print Test Visual Basic Print Siam Computer ต วอย างท 2 คอนโทรล ค ณสมบ ต ค าท กาหนด Form Name Form1 AutoRedraw True CommandButton Name Command1 Caption Clear เพ ม เซม โคลอน ( ; ) Sub Form_Activate( ) Form1.Font.Size=20 Print Test Visual Basic ; Print Siam Computer CurrentX = 1500 CurrentY = 1000 Print New Position ( ) 38 ต วอย างท 2 Sub Form_Activate() Form1.Print Form_Activate Sub Form_Click() Form1.Print Form_Click Sub Command1_Click() Form1.Cls Sub Form_DblClick() Form1.Print Double_Click Sub Form_Resize() Form1.Print Form_Resize 40 10 Text Box (properties) Object พ นฐาน ต วแปรและ Operator Name ScrollBars Text TabIndex เร มท 0 MaxLenght TabStop PasswordChar ToolTipText Multiline Label (properties) Method Name Alignment AutoSize BorderStyle BackStyle Caption Left Top Object_Name.SetFocus กาหนดให cursor ไป focus ท Object เช น Text1.Setfocus Command1. Setfocus Properties.. SelStart กาหนดตาแหน งเร มเล อก SelLength กาหนดความยาวท ต องการ เล อกข อความ Command Button (properties) Name Caption Default Picture Style Event หาผลค ณระหว าง 2 Text Box Change เม อม การเปล ยนแปลงท Text GotFocus เม อ Text ได ร บ Focus LostFocus เม อ Text ส ญเส ย Focus Source Code Sub cmdmultiply_click() a = txtnum1.text b = txtnum2.text lblresult.caption = a & * & b & = & a * b การเปล ยน Font ใน View Code เพ อให หน าต าง Code แสดง ภาษาไทยได เมน Tools Option Editor Format ในช อง Font ต องเล อก Font ท ลง ท ายด วย UPC หร อ DSE เช น BrowalliaUPC Operator ในการเช อมต อข อม ล & และ + ใช ในการเช อมข อม ล ' ใช ในการเปล ยนประโยคคาส งเป นComment ทาไมต องประกาศต วแปร เพ อการทางานท ถ กต องขอโปรแกรม เมน Tools Option Editor Require Variable Declaration จะได Option Explicit ใน View Code การประกาศต วแปรและค าคงท Dim variable_name As Data_Type Const const_name = Value เช น Dim data1 As Integer Const name = Somjate ชน ดของข อม ล Byte 0 ถ ง 255 (1 Byte) Integer -32,768 ถ ง 32,767 (2 Byte) Long -2,147,483,648 ถ ง 2,147,483,647 (4 Byte) Currency -922,337,203,685, ถ ง 922,337,203,685, (8 Byte) กฎการต งช อต วแปร ช อต วแปรต องข นด วยต วอ กษร ช อต วแปรห ามยาวเก น 255 ต วอ กษร ใช ต วอ กษร,ต วเลขและ _ ผสมก น เป นช อได ห ามซ าก บคาสงวน เช น Dim ช อต วแปรห ามซ าก นถ าอย ในขอบเขต เด ยวก น 54 ชน ดของข อม ล (ต อ) Single จานวนจร งม ทศน ยม (4 Byte) ค าลบ x10 38 ถ ง x10-45 และ ค าบวก x10-45 ถ ง x10 38 Double จานวนจร งม ทศน ยม (8 Byte) ค าลบ x ถ ง x และ ค าบวก x ถ ง x ชน ดของข อม ล (ต อ) Date ข อม ลว นท และเวลา (8 Byte) String ต วอ กษรหร อข อความ Boolean ค าทางตรรกะ (2 Byte) Variant ต วแปรพ เศษ (22 Byte) การทางานก บ Operator ทางคณ ตศาสตร Operator ทางคณ ตศาสตร น พจน ความหมาย + บวก - ลบ * ค ณ / หาร \ หารจานวนเต ม Mod หารเอาแต เศษ ^ ยกกาล ง Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text Label3.Caption = a & / & b & = & a / b Label4.Caption = a & \ & b & = & a \ b Label5.Caption = a & mod & b & = & a Mod b Label6.Caption = a & ^ & b & = & a ^ b ขอบเขตของต วแปร (Scope of variable) ต วแปรแบบโลคอล (Local) ต วแปรแบบโกลบอล (Global) Private ใช ได ท กโปรแกรมย อยใน Form ท ประกาศ Public ใช ได ท กโปรแกรมย อยใน โปรแกรม การทางานก บ Operator ทางการเปร ยบเท ยบ Operator ทางการเปร ยบเท ยบ น พจน ความหมาย = เท าก บ มากกว า = มากกว าหร อเท าก บ น อยกว า = น อยกว าหร อเท าก บ ไม เท าก บ Private Sub cmdcompare_click() Dim a As String Dim b As String a = txtnumber1.text b = txtnumber2.text lblnum1.caption = a & & b & = & (a b) lblnum2.caption = a & & b & = & (a b) lblnum3.caption = a & = & b & = & (a = b) lblnum4.caption = a & & b & = & (a b) Operator ทางตรรกะ ฟ งก ช นทางคณ ตศาสตร Round(number) ใช ในการป ดจ ดทศน ยมให เป นเลขจานวนเต ม Int(number) ใช ในการป ดจ ดทศน ยมลงให เป นเลขจานวนเต ม ลาด บการคานวณ ฟ งก ช นทางคณ ตศาสตร Arithmetic Comparison Logical Exponentiation (^) Equality (=) Not Negation (-) Inequality ( ) And Multiplication and division (*, /) Less than ( ) Integer division (\) Greater than ( ) Xor Modulus arithmetic (Mod) Addition and subtraction (+, -) String concatenation (&) Is Less than or equal to ( =) Greater than or equal to ( =) Or Eqv Imp & 66 Rnd[(Number)] Rnd ใช ในการส มค าของข อม ล เช น ส มค าจานวนเต ม 0-9 Label1.Caption = Int(Rnd * 9) (Randomize ทาให การส มเลขได ไม ซ า) 68 17 ฟ งก ช นทางคณ ตศาสตร Sqr(number) ใช หาค ารากท สองของข อม ล Abs(number) ใช กาหนดให ค าของข อม ลเป นค าบวก การทางานก บฟ งก ช นข อความ UCase(String) ใช เปล ยน String เป นพ มพ ใหญ ท งหมด LCase(String) ใช เปล ยน String เป นพ มพ เล กท งหมด การทางานก บฟ งก ช นข อความ InStr([Start],String1,String2,[Compare]) ใช ค นหาต วอ กษรใน String Replace(String1,Find, Replace) ใช ค นหาต วอ กษรใน String แล วแทนท ด วย Private Sub txttext1_change() txttext2.text = UCase(txtTEXT1.Text) txttext3.text = LCase(txtTEXT1.Text) Private Sub cmdclear_click() txttext1.text = txttext1.setfocus การทางานก บฟ งก ช นข อความ IsNumeric(String) ตรวจสอบว าเป น Numeric หร อไม IsDate(String) ตรวจสอบว าเป น Date หร อไม การทางานก บฟ งก ช นข อความ Str(Numeric) ใช แปลง Numeric เป น String Val(String) ใช แปลง String เป น Numeric การทางานก บฟ งก ช นข อความ LTrim(String) ใช ต ดช องว างทางด านซ ายของ String ออก RTrim(String) ใช ต ดช องว างทาง ด านขวาของ String ออก การทางานก บฟ งก ช นข อความ Trim(String) ใช ต ดช องว างท งด านซ าย และขวาของ String Format(value, ร ปแบบ ) ใช กาหนดร ปแบบของข อม ล การทางานก บฟ งก ช นทางว นและเวลา Now จะให ค าว นท และเวลา ณ ป จจ บ น Time จะให ค าเวลา ณ ป จจ บ น ร ปแบบของว นท (Date) dd/mm/yy Short Date dd/mmm/yyyy Medium Date dd/mmmm/yyyy Long Date ร ปแบบของเวลา (Time) HH:MM Short Time HH:MM AMPM Medium Time HH:MM:SS Long Time ตรวจสอบเวลาการทางาน Sub Command2_Click() b = Time Text2.Text = Format(b, HH:MM:SS ) Sub Command3_Click() Label1.Caption = Format(b - a, HH:MM:SS ) Dim a As Date Dim b As Date Sub Command1_Click() a = Time Text1.Text = Format(a, HH:MM:SS ) Text2.Text = Label1.Caption = If Then Else Statement If เง อนไข Then Statement Else Statement Flow-Chart False condition True Statement ; Statement ; If Then Else Statement If เง อนไข Then Statement Else Statement If เง อนไข Then Statement Elseif เง อนไข Then Statement Elseif เง อนไข Then Statement Else Statement End if If Then Statement If เง อนไข Then Statement ต วอย างการใช ElseIf Dim Number, Digits, MyString Number = Text1.Text If Number 10 Then Digits = 1 ElseIf Number 100 Then Digits = 2 Else Digits = Unload Statement Unload ObjectName เช น Private Command1_Click() Unload Form1 'หร อ Unload Me P rivate Sub cmdok_click() If txtpass.text = basic Then frmcalculate.show Unload Me E lse txtpass.text = txtpass.setfocus E nd If E n d Sub ตรวจสอบรห สผ าน Lcase(Text1.text) End Command End หย ดการร นโปรแกรม โปรแกรมตรวจสอบรห สผ าน เช น Private Command1_Click() End ' จบการทางาน P rivate Sub Command1_Click() If Text1.Text = basic Then Form1.Show Unload Me E lse Text1.Text = Text1.SetFocus E nd If E n d Sub Pr i vate Sub Command2_Click() End Lcase(Text1.text) Flow-Chart value1 S ; condition value2 value n else Statement ; Statement ; S ; Select Case Statement Select Case ต วแปร Case เง อนไข1 หร อ ค าคงท 1 statement: Case เง อนไข2 หร อ ค าคงท 2 statement: Case Else statement: End Select 94 การตรวจสอบเกรด 96 24 Private Sub CmdGrade_Click() Dim score As Integer Dim grade As String score = Val(txtmark.Text) Check Box (properties) Name Alignment Caption Value 0 (Unchecked) 1 (Checked) 2 (Grayed) Select Case score Case Is = 80: grade = A Case Is = 70: grade = B Case Is = 60: grade = C Case Is = 50: grade = D Case Else: grade = F End Select lblgrade.caption = txtname.text & your grade is & grade แสดงว นท และเวลา โดยใช Check Box Option Button (properties) Private Sub chktime_click() If chktime.value = 1 Then lbltime.caption = Format(Now, HH:MM:SS ) Else lbltime.caption = Name Alignment Caption Value True (Select) False (Not Select) Private Sub Chkdate_Click() If chkdate.value = 1 Then lbldate.caption = Format(Now, dd/mmmm/yyyy ) Else lbldate.caption = เล อกเพศโดยใช Option Button Private Sub Optmale_Click() lblgender.caption = Male Private Sub Optfemale_Click() lblgender.caption = Female Private Sub OptRectangle_Click() txtnumber1.text = txtnumber2.text = lblresult.caption = txtnumber1.setfocus lblname1.caption = กว าง lblname2.caption = ยาว lblname3.caption = พ นท ส เหล ยม การคานวณพ นท Private Sub OptTriangle_Click() txtnumber1.text = txtnumber2.text = lblresult.caption = txtnumber1.setfocus lblname1.caption = ฐาน lblname2.caption = ส ง lblname3.caption = พ นท สามเหล ยม Private Sub cmdcal_click() txtnumber1.setfocus If Optrectangle.Value = True Then lblresult.caption = Val(txtnumber1.Text) * Val(txtNumber2.Text) Else lblresult.caption = 0.5 * Val(txtNumber1.Text) * Val(txtNumber2.Text) 109 ค นหาตาแหน งจากเพศและการศ กษา 111 Frame (properties) เง
Related Search
We Need Your Support
Thank you for visiting our website and your interest in our free products and services. We are nonprofit website to share and download documents. To the running of this website, we need your help to support us.

Thanks to everyone for your continued support.

No, Thanks