| |
|
13 Haziran 2011, 22:53
| #1 | |
| Çevrimdışı  IF Ticaret Sayısı: (0) | 2.Derece Denklem Çözüm Programı 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 | |
| |  |
| IRCForumlari.NET Reklamlar |
   |
 |
| Etiketler |
| 2derece, Çözüm, denklem |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Denklem Çözme | Amelia | Matematik | 0 | 06 Mart 2014 18:57 |
| Türevsel Denklem | Liaaa | Matematik | 0 | 14 Mayıs 2012 02:07 |
| Denklem | Asimavi | Şiir, Hikaye ve Güzel Sözler | 1 | 14 Mayıs 2009 19:22 |
Normal
