• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Visual Basic ödevim

goko36

Yeni Üye
Katılım
2 May 2020
Mesajlar
1
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
istanbul
Ad Soyad
göktuğ sevgil
öncelikle vba for excelde yeniyim. Kullanıcının yazdığı verilerle kübik denklemi çözecek bir kod yazmam gerekiyor fakat ne yaparsam yapayım çözüme ulaşamadım. acaba yaklaşımım mı yanlış? yardımcı olabilecek varmı. kod satırlarımı aşağıya kopyalıyorum.

PHP:
Option Explicit
Function Q1(a, b) As Double

Q1 = (a ^ 2 - 3 * b) / 9

End Function

Function R1(a, b, c) As Double

R1 = (2 * a ^ 3 - a * 9 * b + 27 * c) / 54

End Function

Sub question3()

Dim a, b, c, pi, Ac, Th, root1, root2, root3 As Double

MsgBox "This program solves quadratic equation in the form of x3+ax2+bx+c=0"

a = InputBox("Please enter the value of a")

b = InputBox("Please enter the value of b")

c = InputBox("Please enter the value of c")

pi = WorksheetFunction.pi()

Ac = WorksheetFunction.Acos(Th)

Th = (R1(a, b, c) / Q1(a, b) ^ 1 / 3)

If ((R1(a, b, c) ^ 2) < (Q1(a, b) ^ 3)) Then

root1 = (-2 * Sqr(Q1(a, b)) * Cos(Ac / 3 - a / 3))

root2 = (-2 * Sqr(Q1(a, b)) * Cos(Ac + 2 * pi) / 3 - a / 3)

root3 = (-2 * Sqr(Q1(a, b)) * Cos(Ac - 2 * pi) / 3 - a / 3)

MsgBox "First root of the equation is : " & root1 & vbNewLine & vbNewLine & "Second root of the equation is : " & root2 & vbNewLine & vbNewLine & "Third root of the equation is : " & root3

Else

MsgBox "Your entries do not meet the required condition"

End If

End Sub
 

Ekli dosyalar

  • 1588420865883.png
    1588420865883.png
    19.2 KB · Görüntüleme: 0
Moderatör tarafında düzenlendi:

OmerFaruk72

Yeni Üye
Katılım
2 May 2020
Mesajlar
8
En iyi yanıt
0
Puanları
3
Yaş
51
Konum
Ankara
Ad Soyad
Ömer Faruk Çakmanus
Office Vers.
MSO 2016 TR, 64bit
C++:
Ac = WorksheetFunction.Acos(Th)
Th = (R1(a, b, c) / Q1(a, b) ^ 1 / 3)
Bu iki satırı yer değişmeniz gerekmiyor mu?
 
Üst Alt