Announcement

**spykids01** · 17 Sep 2009, 18:40:25

Originally posted by sak2005 View Post

การเขียนVBเพื่อสร้างโปรแกรมเครื่องคิดเลข เป็นการเขียนขั้นสูง
การเขียนลึบลับซับซ้อน ต้องพิมพ์สคริ๊ปคำสั่งที่ยาวเป็นหางว่าว
คนเรียนเข้าใจยาก ..แค่เบื้องต้น ยังมีคนบ่นว่า.. 'ไม่รู้เรื่องเลย'

เอาแค่ + - * / ก็พอครับ

ไม่ต้องถึงขนาด ถอดรูท หรือ sin cos tan

= =

**lnonarak_naja** · 17 Sep 2009, 21:52:44

ขอบคุณมากๆๆ ครับ สำหรับความรู้ดีๆ

**sak2005** · 18 Sep 2009, 01:26:02

Originally posted by spykids01 View Post

เอาแค่ + - * / ก็พอครับ

ไม่ต้องถึงขนาด ถอดรูท หรือ sin cos tan

= =

ออกแบบ GUI ตามรูปเลยครับ

--------------------------------------------------------
ให้ทำการเปลี่ยน Name ของ Object ต่างๆ ที่ในกรอบ properties ขวามือ ดังนี้

-----------------------------------------------------------
ปุ่ม C ที่Nameเปลี่ยนชื่อเป็น btnCLR
ปุ่ม 7 "---------------" btn_Num_7
ปุ่ม 8 "---------------" btn_Num_8
ปุ่ม 9 "---------------" btn_Num_9
ปุ่ม 4 "---------------" btn_Num_4
ปุ่ม 5 "---------------" btn_Num_5
ปุ่ม 6 "---------------" btn_Num_6
ปุ่ม 1 "---------------" btn_Num_1
ปุ่ม 2 "---------------" btn_Num_2
ปุ่ม 3 "---------------" btn_Num_3
ปุ่ม 0 "---------------" btn_Num_0
ปุ่ม . "dotหรือจุด------" btnNumPeriod
ปุ่ม + "บวก-----------" btn_Operator_Add
ปุ่ม - "ลบ------------" btn_Operator_Subt
ปุ่ม x "คูณ------------" btn_Operator_Multi
ปุ่ม / "หาร------------" btn_Operator_div
ปุ่ม = "เท่ากับ---------" btnCalculate
--------------------------------------------
ปรับแต่ง properties TextBox ..ย้าย Cursor ไปอยู่อีกฟากของช่อง TextBox
ที่ text Aligh ..ปกติเป็น Right ..ให้เปลี่ยนเป็น Left (ดังรูป)

---------------------------------------------------------------------
ต่อไปก็เป็นขั้นตอนไล่เขียนโค๊ดคำสั่ง ลงบน Object ต่างๆ ดังนี้
-------------------------
ที่ Public Class Form1 ..ต้องประกาศตัวแปรดังนี้ก่อนครับ
(ถ้าไม่ประกาศตัวแปร หรือ ประกาศผิด ..โปรแกรมจะเกิด Error ไม่สามารถทำงานได้)

Code:

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Var1 As Double
    Private var2 As Double
    Private Temp As Double
    Private Memory As Double
    Private period As Boolean
    Private [Operator] As String
    Private Status As Boolean

-----------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม7 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_7_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_7.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(7)
        Else
            TextBox1.Text = 7
            Status = False
        End If
    End Sub

---------------------------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม8 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_8_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_8.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(8)
        Else
            TextBox1.Text = 8
            Status = False
        End If
    End Sub

--------------------------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม9 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_9_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_9.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(9)
        Else
            TextBox1.Text = 9
            Status = False
        End If
    End Sub

------------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม4 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_4_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_4.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(4)
        Else
            TextBox1.Text = 4
            Status = False
        End If
    End Sub

------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม5 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_5_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_5.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(5)
        Else
            TextBox1.Text = 5
            Status = False
        End If
    End Sub

------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม6 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_6_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_6.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(6)
        Else
            TextBox1.Text = 6
            Status = False
        End If
    End Sub

--------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม1 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_1.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(1)
        Else
            TextBox1.Text = 1
            Status = False
        End If
    End Sub

---------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม2 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_2.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(2)
        Else
            TextBox1.Text = 2
            Status = False
        End If
    End Sub

---------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม3 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_3_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_3.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(3)
        Else
            TextBox1.Text = 3
            Status = False
        End If
    End Sub

----------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม0 แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Num_0_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Num_0.Click
        If Status = False Then
            TextBox1.Text = TextBox1.Text + CStr(0)
        Else
            TextBox1.Text = 0
            Status = False
        End If
    End Sub

---------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม . (dot หรือ จุด) แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btnNumPeriod_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnNumPeriod.Click
        If Status = False Then
            If period = False Then
                If TextBox1.Text.Length > 0 Then
                    TextBox1.Text = TextBox1.Text + "."
                Else
                    TextBox1.Text = "0."
                End If
                period = True
            End If
        End If

---------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม + แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Operator_Add_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Operator_Add.Click
        If TextBox1.Text.Length <> 0 Then
            If [Operator] = "" Then
                Var1 = CDbl(TextBox1.Text)
                TextBox1.Text = ""
            Else
                Calculate()
            End If
            [Operator] = "Add"
            period = False
        End If
    End Sub

----------------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม - แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Operator_Subt_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Operator_Subt.Click
        If TextBox1.Text.Length <> 0 Then
            If [Operator] = "" Then
                Var1 = CDbl(TextBox1.Text)
                TextBox1.Text = ""
            Else
                Calculate()
            End If
            [Operator] = "Sub"
            period = False
        End If
    End Sub

-------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม x แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Operator_Multi_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Operator_Multi.Click
        If TextBox1.Text.Length <> 0 Then
            If [Operator] = "" Then
                Var1 = CDbl(TextBox1.Text)
                TextBox1.Text = ""
            Else
                Calculate()
            End If
            [Operator] = "Mult"
            period = False
        End If
    End Sub

---------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม / แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btn_Operator_div_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btn_Operator_div.Click
        If TextBox1.Text.Length <> 0 Then
            If [Operator] = "" Then
                Var1 = CDbl(TextBox1.Text)
                TextBox1.Text = ""
            Else
                Calculate()
            End If
            [Operator] = "Div"
            period = False
        End If
    End Sub

------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม C แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btnCLR_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCLR.Click
        TextBox1.Text = ""
        Var1 = 0
        var2 = 0
        [Operator] = ""
        period = False
    End Sub

-------------------------------------------
ดับเบิ้ลคลิ๊กที่ปุ่ม = แล้วเขียนโค๊ดลงไปดังนี้

Code:

Private Sub btnCalculate_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCalculate.Click
        If TextBox1.Text.Length <> 0 AndAlso Var1 <> 0 Then
            Calculate()
            [Operator] = ""
            period = False
        End If
    End Sub

---------------------------------------------
สุดท้ายนี้เป็นโค๊ดสมการแปลผล ขาดไม่ได้เลย
ถ้าขาดตรงนี้ เครื่องคิดเลขจะไม่สามารถคำนวณได้

Code:

Public Sub Calculate()
        var2 = CDbl(TextBox1.Text)
        If [Operator] = "Add" Then
            Var1 = Var1 + var2
        ElseIf [Operator] = "Sub" Then
            Var1 = Var1 - var2
        ElseIf [Operator] = "Mult" Then
            Var1 = Var1 * var2
        ElseIf [Operator] = "Div" Then  
            Var1 = Var1 / var2
        ElseIf [Operator] = "Sqrt" Then
            Exit Sub
        ElseIf [Operator] = "Pow" Then
            Var1 = System.Math.Pow(Var1, var2)
        ElseIf [Operator] = "Inve" Then
            Exit Sub
        End If
        TextBox1.Text = CStr(Var1)
        Status = True
    End Sub

---------------------------------------------------------
**เสร็จเรียบร้อยแล้วครับ ..ถ้าไม่มี Error ใดๆ ลองกด F5 ทดสอบดูครับ**
ดาวนโหลด: Source Code: Click here
Size:108.9 KB

**pigkapu1** · 18 Sep 2009, 12:33:34

เคยเขียนแต่แบบนี้ เครื่องคิดเลข

Public Class Form1
Dim s=0, a As Integer
Dim op As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'ปุ่มเลข 1
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 1 'กำหนดให้ a มีค่าเท่ากับ1
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'ปุ่มเลข 2
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 2 'กำหนดให้ a มีค่าเท่ากับ2
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'ปุ่มเลข 3
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 3 'กำหนดให้ a มีค่าเท่ากับ3
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'ปุ่มเลข 4
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 4 'กำหนดให้ a มีค่าเท่ากับ4
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
'ปุ่มเลข 5
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 5 'กำหนดให้ a มีค่าเท่ากับ5
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
'ปุ่มเลข 6
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 6 'กำหนดให้ a มีค่าเท่ากับ6
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
'ปุ่มเลข 7
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 7 'กำหนดให้ a มีค่าเท่ากับ7
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
'ปุ่มเลข 8
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 8 'กำหนดให้ a มีค่าเท่ากับ8
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
'ปุ่มเลข 9
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 9 'กำหนดให้ a มีค่าเท่ากับ9
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
' ปุ่มเลข 0
Dim a As Integer 'กำหนดให้ตัวแปร a เป็นตัวเลข
a = 0 'กำหนดให้ a มีค่าเท่ากับ0
TextBox1.Text = a 'กำหนดให้นำตัวแปร a ไปใส่ใน textbox
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'ปุ่มเครื่องหมาย =
If op = "+" Then 'ถ้าเครื่องหมายเป็น+
s = s + Integer.Parse(TextBox1.Text) 'ให้นำค่า s ที่เก็บเอาไว้มา + กับตัวแปรในtextbox
End If
If op = "-" Then 'ถ้าเครื่องหมายเป็น-
s = s - Integer.Parse(TextBox1.Text) 'ให้นำค่า s ที่เก็บเอาไว้มา - กับตัวแปรในtextbox
End If
If op = "*" Then 'ถ้าเครื่องหมายเป็น*
s = s * Integer.Parse(TextBox1.Text) 'ให้นำค่า s ที่เก็บเอาไว้มา * กับตัวแปรในtextbox
End If
If op = "/" Then 'ถ้าเครื่องหมายเป็น/
s = s / Integer.Parse(TextBox1.Text) 'ให้นำค่า s ที่เก็บเอาไว้มา / กับตัวแปรในtextbox
End If
'TextBox1.Text = "0"
TextBox1.Text = s 'กำหมดให้นำค่าตัวแปร s ไปแทนค่าใน textbox
's = 0
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'ปุ่มเครื่องหมาย +
s = Integer.Parse(TextBox1.Text) 'กำหนดให้ s มีค่าทำกับตัวเลขใน textbox1
op = "+" 'กำหนดเครื่องผมายให้เป็น +
TextBox1.Text = "" 'ล้างค่าใน textbox1
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
'ปุ่มเครื่องหมาย -
s = Integer.Parse(TextBox1.Text) 'กำหนดให้ s มีค่าทำกับตัวเลขใน textbox1
op = "-" 'กำหนดเครื่องผมายให้เป็น -
TextBox1.Text = "" 'ล้างค่าใน textbox1
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
'ปุ่มเครื่องหมาย *
s = Integer.Parse(TextBox1.Text) 'กำหนดให้ s มีค่าทำกับตัวเลขใน textbox1
op = "*" 'กำหนดเครื่องผมายให้เป็น *
TextBox1.Text = "" 'ล้างค่าใน textbox1
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
'ปุ่มเครื่องหมาย /
s = Integer.Parse(TextBox1.Text) 'กำหนดให้ s มีค่าทำกับตัวเลขใน textbox1
op = "/" 'กำหนดเครื่องผมายให้เป็น /
TextBox1.Text = "" 'ล้างค่าใน textbox1
End Sub
End Class

**pigjung** · 18 Sep 2009, 13:22:28

ยอดเยี่ยมครับ

**sak2005** · 19 Sep 2009, 10:00:54

ประกาศ: ขอแจ้งให้ท่านนักศึกษาทราบว่า..ความสำเร็จของท่านอยู่ที่..
เขียนโปรแกรมนี้ให้เสร็จ และใช้งานได้ ..ถ้ามีปัญหาตรงไหน ก็ค่อยๆแก้ไขกันไป
เดี๋ยวท้ายๆอาจารย์จะปล่อย Source Code ให้ดาวน์โหลด

**dae** · 20 Sep 2009, 12:56:14

สุดยอดมากเลยค่ะ . . . . เรียนวิชานี้ไม่เคยรู้เรื่องเลย

**sak2005** · 20 Sep 2009, 15:02:53

Originally posted by dae View Post

สุดยอดมากเลยค่ะ . . . . เรียนวิชานี้ไม่เคยรู้เรื่องเลย

การเรียนเขียนโปรแกรมด้วยภาษา VB.NET ไม่มีใครเรียนรู้ได้ครบจบหมดทั้งหลักสูตร
ถ้าใครสามารถเรียนรู้ได้ทั้งหลักสูตร และปฏิบัติได้จริง ครบวงจร เรียกกันว่า ไม่ว่าโปรแกรมใดๆ
ก็เขียนได้หมด ถือว่า ผู้นั้นมีสมองเป็นอัจฉริยะ ซึ่งบุคคลประเภทนี้หาได้ยาก
-------------------------------------------------------
ส่วนผมใช้วิธีเรียนรู้แบบ ค่อยเป็นค่อยไป อยากรู้หรืออยากทำอะไร ก็เลือกเรียนและหมั่นฝึกฝน
เฉพาะสิ่งที่อยากทำ อยากรู้เท่านั้น

**sak2005** · 22 Sep 2009, 13:54:39

Scripting Update บริเวณนี้ผมตั้งใจจะนำ สคริ๊ปโค๊ดคำสั่ง ที่ต้องใช้บ่อย หรือจำเป็นต้องใช้ มาเก็บรวบรวมไว้ที่นี่
เพระบางคราวเราจะใช้สคริ๊ปคำสั่ง สั่งให้ Objectทำอะไร?บางอย่าง ..แต่เราไม่รู้ และต้องเสียเวลาค้นหา
ตั้งแต่เปลี่ยนจาก VB6 เป็น VB.NET ..รูปแบบสคริ๊ปโค๊ดคำสั่งต่างๆก็เปลี่ยนไปค่อนข้างมาก
..แต่เปลี่ยนไปในทางที่ดีขึ้น ..แต่เราก็ต้องศึกษาค้นคว้าเพิ่มเติม ถึงจะเขียนสคริ๊ปได้อย่างคล่องตัว
------------------------------------------------------------------------------
NameSpace Threading
คำสั่ง Sleep ใช้สำหรับหน่วงเวลาการทำงานของ Object ด้วยการกำหนดตัวเลขระยะเวลา
รูปแบบThreading.Thread.Sleep(millisecondsTimeout As Integer)

Code:

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _   'สั่งให้ ProgressBar ทำงาน ด้วยการคลิ๊กที่ปุ่ม Start
     ByVal e As System.EventArgs) Handles Button1.Click
        
        PgB1.Minimum = 1
        PgB1.Maximum = 100  'ประกาศตัวแปร ProgressBar
        PgB1.Step = 1
        PgB1.Value = 1
        
        Dim x As Integer   'ประกาศตัวแปรตัวอักษร x มีค่าเปรียบเสมือนตัวเลข เพื่อใช้ในการนับ
        For x = 1 To 100 Step 1   'คำสั่ง Loop For Next
            If PgB1.Value < 100 Then
                PgB1.Value += 1   'คำสั่งให้ bar ของ Progress เคลื่อนที่ไปด้วยการ + 1 ไปเรื่อยๆ
                Threading.Thread.Sleep(50)   'คำสั่งหน่วงเวลา ให้ bar ของ Progress ค่อยๆเคลื่อนที่ไปตามระยะเวลาที่กำหนด
            End If
        Next x
        If PgB1.Value >= 100 Then
            MsgBox("Completed.", MsgBoxStyle.Information, "")
            PgB1.Value = 1
        End If
    End Sub
    
    Private Sub PgB1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles PgB1.Click
    End Sub
End Class

----------------------------------------------------------
Project Download:http://upload.one2car.com/download.a...OEER[9CRW1
----------------------------------------
คำสั่ง: ยกเลิกการใช้งาน หรือปิดโปรแกรมต่างๆ

Code:

Close()

Code:

Me.Close

Code:

Application.Exit()

**chayanino** · 23 Sep 2009, 00:07:16

อยากให้ทู้นี้ปักหมุด

**e_za_17** · 23 Sep 2009, 14:18:24

ถึงแม้ตอนนี้ยังไม่รู้เรื่อง ... อีกหน่อยต้องรู้เรื่องให้ได้!
ขอบคุณครับ

**sak2005** · 28 Sep 2009, 11:15:11

ความรู้เพิ่มเติมเกี่ยวกับคำสั่ง Control Loop แบบต่างๆ เช่น Do Loop , While Loop และ For Loop โดยไม่ต้องใช้ Timer ช่วย
ลองดาวน์โหลด Sample Project ไปศึกษากันดูนะครับ
Size:134.2 KB
Download:http://upload.one2car.com/download.a...MY3BT6OEDCIW78

**sak2005** · 28 Sep 2009, 11:18:57

Originally posted by e_za_17 View Post

ถึงแม้ตอนนี้ยังไม่รู้เรื่อง ... อีกหน่อยต้องรู้เรื่องให้ได้!
ขอบคุณครับ

----------------------------
การหาความรู้ โดยการที่ท่านตั้งคำถามไว้ ก็เป็นอีกวิธีหนึ่ง

**CannavaroJ** · 28 Sep 2009, 12:08:58

ดันครับ มีประโยชน์มากๆ

ปล.ปักหมุดดีไหมครับ MOD

**นักเรียนนินจา** · 28 Sep 2009, 15:29:45

อืม..Thank มั่กๆ แต่สนใจแต่ C++ น่ะสสิครับ

Announcement

เรียนลัด VB.NET เบื้องต้น

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment