กำหนดปริมาณเชิงซ้อน

[diamondbom]

คือว่าผมต้องการกำหนดผลรวมของจำนวนเชิงซ้อน 2 ค่า

ลงใน TB3 ในรูปของ x+yi แต่ยังไม่ค่อยเข้าใจฟังก์ชัน

ขอคำแนะนำด้วยครับ


ขอบคุณครับ

[snasui]

ช่วยยกตัวอย่างข้อมูลและตัวอย่างคำตอบที่ต้องการมาด้วยครับ

เช่น x = 1, Y = 2 คำตอบใน TextBox3 ควรเป็นเท่าใด และคำนวณอย่างไรจึงได้เท่านั้นครับ

[diamondbom]

ขอใหม่นะครับ

คือว่าผมต้องการกำหนดผลรวมของจำนวนเชิงซ้อน 2 ค่า

ลงใน TB3 ในรูปของ x+yi แต่ยังไม่ค่อยเข้าใจฟังก์ชัน

ขอคำแนะนำด้วยครับ

โดย x=r cos(Ø) y=r sin(Ø)

คำตอบจะเป็น 1+2i ครับ




ขอบคุณครับ

[snasui]

ผมยังไม่ค่อยเข้าใจในส่งที่ถามมาครับ

ลองใช้ฟังก์ชั่น Complex เข้ามาช่วยดูครับ

Code: Select all

Private Sub CommandButton1_Click()
    
    Dim A As Integer
    Dim B As Integer
    
    A = TB1.Value
    B = TB2.Value
    
    TB3.Value = Application.Complex(A, B)
    
End Sub

[diamondbom]

ผมถามไม่ค่อยถูกน่ะครับต้องขอโทดด้วย เกี่ยวกับเรื่องที่ผมเรียน

แต่คำตอบช่วยผมได้มากครับ

เด๋วผมจะลองนำไปประยุกต์นะครับ

ขอบคุณครับ ^_^

[snasui]

ผมถามไม่ค่อยถูกน่ะครับต้องขอโทดด้วย เกี่ยวกับเรื่องที่ผมเรียน

แต่คำตอบช่วยผมได้มากครับ

เด๋วผมจะลองนำไปประยุกต์นะครับ

ขอบคุณครับ ^_^

ช่วยแก้ไขคำที่ระบายสีให้ถูกต้องด้วยครับ ที่เขียนมาผิดกฎข้อ 1 ด้านบนครับ

[diamondbom]

จากฟังก์ชัน
ฟังก์ชัน IMAGINARY ส่งกลับสัมประสิทธิ์ส่วนจินตภาพของจำนวนเชิงซ้อน

ผมจะสามารถเรียกใช้ฟังก์ชันได้อย่างไรใน VBA ครับ

ซึ่งคำตอบจะมีค่าเท่ากับ 2

ขอบคุณครับ

[snasui]

ได้อ่านในสิ่งที่ผมโพสต์ให้แก้ไขข้อความแล้วยังครับ

[diamondbom]

ผมถามไม่ค่อยถูกครับต้องขอโทษด้วย เกี่ยวกับเรื่องที่ผมเรียน

แต่คำตอบช่วยผมได้มากครับ

เดี๋ยวผมจะลองนำไปประยุกต์นะครับ

ขอบคุณครับ ^_^

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton2_Click()
    Dim C As String
    C = TB3.Value
    TB4.Value = Application.ImAbs(C)
End Sub

ดูคำอธิบาย ImAbs ที่นี่ครับ http://office.microsoft.com/th-th/excel ... P010342656

[diamondbom]

ขอบคุณครับผม

[diamondbom]

ผมต้องการหามุม จาก

ฟังก์ชัน ACOSส่งกลับค่าอาร์กโคไซน์ของจำนวน

แต่ไม่รู้วิธีการใช้งานฟังก์ชัน ขอคำแนะนำด้วยครับ

ขอบคุณครับ

[diamondbom]

สามารถแก้ไขได้แล้วครับ ขอบคุณครับ

[diamondbom]

ผมออกแบบโปรแกรม ผลคูณ/ผลบวก ของ complexnumber

ไต่ทำไม่ได้ครับ ผมลองใช้สองสูตรแล้ว ขอคำแนะนำด้วยครับ


TB3.Value = (TB1.Value * TB2.Value) / (TB1.Value + TB2.Value)


TB3.Value = (Application.Complex(A, B) * Application.Complex(A, B)) / (Application.Complex(A, B) + Application.Complex(A, B))


คำตอบจะได้ 0.5+1i

ขอบคุณครับ

[snasui]

ผมยังไม่ค่อยเข้าใจในสิ่งที่คุณต้องการหา คงไม่สามารถช่วยได้มาก ลองดู Code ตามด้านล่างเป็นแนวในการเขียนให้กระชับลงครับ

Code: Select all

Private Sub CommandButton1_Click()
    With Application
        A = 1
        B = 2
        C = .Complex(A, B)
        TB3.Value = (.ImAbs(C) * .ImAbs(C)) / (.ImAbs(C) + .ImAbs(C))
    End With
End Sub

[diamondbom]

ขอบคุณครับ

[diamondbom]

ผมออกแบบโปรแกรม ผลคูณ/ผลบวก ของ complexnumber

ไต่ทำไม่ได้ครับ ติดตรง Complex ของ TB2 TB3

ขอคำแนะนำด้วยครับ

คำตอบจะได้ 1+1.5i

ขอบคุณครับ

[snasui]

เปลี่ยนจาก Complex(E, F) เป็น .Complex(E, F) โดยเพิ่ม . เข้าไปด้วยครับ

[diamondbom]

ขอบคุณครับ

[diamondbom]

การกำหนดการแสงผลของ TextBox

TB3 = 1.44+1.44i

TB4 = 2.04

ขอคำแนะนำด้วยครับ


ขอบคุณครับ