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