Page 1 of 2
กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 5:25 pm
by diamondbom
คือว่าผมต้องการกำหนดผลรวมของจำนวนเชิงซ้อน 2 ค่า
ลงใน TB3 ในรูปของ x+yi แต่ยังไม่ค่อยเข้าใจฟังก์ชัน
ขอคำแนะนำด้วยครับ
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 6:27 pm
by snasui

ช่วยยกตัวอย่างข้อมูลและตัวอย่างคำตอบที่ต้องการมาด้วยครับ
เช่น x = 1, Y = 2 คำตอบใน TextBox3 ควรเป็นเท่าใด และคำนวณอย่างไรจึงได้เท่านั้นครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 7:30 pm
by diamondbom
ขอใหม่นะครับ
คือว่าผมต้องการกำหนดผลรวมของจำนวนเชิงซ้อน 2 ค่า
ลงใน TB3 ในรูปของ x+yi แต่ยังไม่ค่อยเข้าใจฟังก์ชัน
ขอคำแนะนำด้วยครับ
โดย x=r cos(Ø) y=r sin(Ø)
คำตอบจะเป็น 1+2i ครับ
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 8:07 pm
by 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
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 8:38 pm
by diamondbom
ผมถามไม่ค่อยถูกน่ะครับต้องขอโทดด้วย เกี่ยวกับเรื่องที่ผมเรียน
แต่คำตอบช่วยผมได้มากครับ
เด๋วผมจะลองนำไปประยุกต์นะครับ
ขอบคุณครับ ^_^
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 8:44 pm
by snasui
diamondbom wrote:ผมถามไม่ค่อยถูกน่ะครับต้องขอโทดด้วย เกี่ยวกับเรื่องที่ผมเรียน
แต่คำตอบช่วยผมได้มากครับ
เด๋วผมจะลองนำไปประยุกต์นะครับ
ขอบคุณครับ ^_^

ช่วยแก้ไขคำที่ระบายสีให้ถูกต้องด้วยครับ ที่เขียนมาผิดกฎข้อ 1 ด้านบนครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 9:09 pm
by diamondbom
จากฟังก์ชัน
ฟังก์ชัน IMAGINARY ส่งกลับสัมประสิทธิ์ส่วนจินตภาพของจำนวนเชิงซ้อน
ผมจะสามารถเรียกใช้ฟังก์ชันได้อย่างไรใน VBA ครับ
ซึ่งคำตอบจะมีค่าเท่ากับ 2
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 9:12 pm
by snasui

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

Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 10:04 pm
by diamondbom
diamondbom wrote:ผมถามไม่ค่อยถูกครับต้องขอโทษด้วย เกี่ยวกับเรื่องที่ผมเรียน
แต่คำตอบช่วยผมได้มากครับ
เดี๋ยวผมจะลองนำไปประยุกต์นะครับ
ขอบคุณครับ ^_^
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 10:37 pm
by 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
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 11:10 pm
by diamondbom
ขอบคุณครับผม
Re: กำหนดปริมาณเชิงซ้อน
Posted: Mon Jun 23, 2014 11:41 pm
by diamondbom
ผมต้องการหามุม จาก
ฟังก์ชัน ACOSส่งกลับค่าอาร์กโคไซน์ของจำนวน
แต่ไม่รู้วิธีการใช้งานฟังก์ชัน ขอคำแนะนำด้วยครับ
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Tue Jun 24, 2014 2:19 am
by diamondbom
สามารถแก้ไขได้แล้วครับ ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Tue Jun 24, 2014 11:32 pm
by 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
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Wed Jun 25, 2014 12:17 am
by 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
Re: กำหนดปริมาณเชิงซ้อน
Posted: Wed Jun 25, 2014 12:46 am
by diamondbom
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Wed Jun 25, 2014 10:28 pm
by diamondbom
ผมออกแบบโปรแกรม ผลคูณ/ผลบวก ของ complexnumber
ไต่ทำไม่ได้ครับ ติดตรง Complex ของ TB2 TB3
ขอคำแนะนำด้วยครับ
คำตอบจะได้ 1+1.5i
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Wed Jun 25, 2014 11:09 pm
by snasui

เปลี่ยนจาก
Complex(E, F) เป็น
.Complex(E, F) โดยเพิ่ม
. เข้าไปด้วยครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Wed Jun 25, 2014 11:11 pm
by diamondbom
ขอบคุณครับ
Re: กำหนดปริมาณเชิงซ้อน
Posted: Fri Jun 27, 2014 10:51 pm
by diamondbom
การกำหนดการแสงผลของ TextBox
TB3 = 1.44+1.44i
TB4 = 2.04
ขอคำแนะนำด้วยครับ
ขอบคุณครับ