2.Derece Denklem Çözüm Programı - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

yoSun · 13 Haziran 2011, 22:53

Private Sub Command1_Click(Index As Integer)
Dim a, b, c, delta, kok1, kok2, ozeldurum, koklerarasindakibaginti As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
delta = Val(Text4.Text)

Select Case Index

Case 0
delta = (b * b) - (4 * a * c)
Case 2
kok1 = (-b + Sqr(delta)) / (2 * a)
Case 3
kok2 = (-b - Sqr(delta)) / (2 * a)

End Select

Text4.Text = Str(delta)
Text5.Text = Str(kok1)
Text6.Text = Str(kok2)

If delta = 0 Then Text7.Text = "Çakışık Kök!"
If delta < 0 Then Text7.Text = "Reel Kök Yok!"

If a = 0 Then MsgBox " a Değeri Sıfırdan Farklı Olmalıdır!"
If b = 0 Then MsgBox " b Değeri Sıfırdan Farklı Olmalıdır!"
If a = 0 Then Text4.Text = ""
If a = 0 Then Text5.Text = ""
If a = 0 Then Text6.Text = ""
If a = 0 Then Text7.Text = ""
If b = 0 Then Text4.Text = ""
If b = 0 Then Text5.Text = ""
If b = 0 Then Text6.Text = ""
If b = 0 Then Text7.Text = ""

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub

Private Sub Command3_Click(Index As Integer)
Dim a, b, c, delta, kok1, kok2, ozeldurum, koklerarasindakibaginti As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
delta = Val(Text4.Text)

Select Case Index

Case 0
koklerarasindakibaginti = -b / a
Case 1
koklerarasindakibaginti = c / a
Case 2
koklerarasindakibaginti = -b / c
Case 3
koklerarasindakibaginti = ((b * b) - (2 * a * c)) / (a * a)
Case 4
koklerarasindakibaginti = ((b * b) - (2 * a * c)) / (c * c)
Case 5
koklerarasindakibaginti = ((3 * a * b * c) - (b * b * b)) / (a * a * a)
End Select
Text8.Text = Str(koklerarasindakibaginti)

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Uygulamayı Kapatmak İstiyormusunuz?", vbYesNo) = vbNo Then
Cancel = 1
End If
End Sub

Private Sub mnuHakkinda_Click()
MsgBox "Bu program Emre Ergene tarafından yazılmıştır! İzinsiz kopyalanıp, dağıtılması hem yasal, hem etik kurallara aykırıdır!"
End Sub

Private Sub mnuHesap_Click()
Call Shell("calc.exe", 1)

End Sub

Private Sub mnuNasil_Click()
MsgBox "1-Çözmek istediğin denklemin katsayılarını a,b,c'ye gir"
MsgBox "2-Sırasıyla Delta Hesapla, Kök 1, Kök 2 butonlarını kullan! Unutma! a ve b değeri her zaman sıfırdan farklı olmalı!"
MsgBox "3-Eğer bağıntıları kullanmak istiyorsan katsayıları a,b,c ye gir. İstediğin butonu kullan! Bu butonları kullanmadan önce kökleri bulmana gerek yok!"
MsgBox "4-Kalıntıları temizlemek için Temizle butonunu kullan! Bu Kadar!"

End Sub

Private Sub mnuOnemli_Click()
MsgBox "Kökler arasındaki bağıntı hesaplanırken bazı kesirli katsayılar örneğin; 1/3 kesri ondalık olarak 0.3333- dür, bu sayının karesi küsüratlı bir rakam olduğu için en yakın sayı olan 1'e yuvarlanır! Bu yüzden bazı hesaplamalarda hata oluşabilir!!! Bu türlü sayılara dikkat ediniz!!!"
End Sub

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Denklem Çözme	Amelia	Matematik	0	06 Mart 2014 18:57
Denklem Şiiri	Burce	Şiir, Hikaye ve Güzel Sözler	0	11 Nisan 2012 19:31
Denklem	Asimavi	Şiir, Hikaye ve Güzel Sözler	1	14 Mayıs 2009 19:22

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.