Ana içeriğe atla

İkinci Dereceden Denklem Çözümü

İkinci Dereceden Denklem Çözümü

Gerekenler: 3 Metin Kutusu 1 Buton
Private Sub Komut6_Click()
Dim a, b, c, d, sx, sy, dk As Double
Metin0.SetFocus
a = Val(Metin0)
Metin2.SetFocus
b = Val(Metin2)
Metin4.SetFocus
c = Val(Metin4)
d = (b * b) - (4 * a * c)
If d < 0 Then
MsgBox ("Kök Yoktur.")
ElseIf d = 0 Then
sx = -b / 2 * a
sy = sx
MsgBox ("X1=X2" & Chr(13) & "X1=" & sx & Chr(13) & "X2=" & sy)
Else
sx = Round((-1 * b + Sqr(d)) / (2 * a), 1)
sy = Round((-1 * b - 1 * Sqr(d)) / (2 * a), 1)
MsgBox ("X1=" & sx & Chr(13) & "X2=" & sy)
End If
End Sub






Etiketler:

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

SQL İŞLEMLERİ

Option Compare Database Sub secme_islemi() 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 ORDER BY MESLEK DESC" 'Tablo1deki ad alanındaki verileri YENI adındaki tabloya aktar ad yerine * olursa tüm verileri tabloya ekler 'ORDER BY..... küçükten büyüye sıralama yapar 'ORDER BY .....DESC büyükten küçüğe sıralama yapar '<bİRDEN FAZLA ALAN İÇİN ARAYA ..A...,....B... KONUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MESLEK='DOKTOR'" 'WHERE ........='string değeri' KOŞUL OLUŞTURUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE LEFT(AD,1)='U'" 'sayısal değerde kullanılabilir: 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=2000" DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=1 AND MAAŞ<=2000" 'İKİ DEĞER ARASINDAKİLERİ ALDIRMAK End Sub
Yorum Gönder
Devamı

Bir tablo içindeki verileri formdaki değerlerle sınırlandırmak

Private Sub Komut4_Click() Dim db As Database Dim rst, rs As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") Set rs = db.OpenRecordset("yeni") Do Until rst.EOF If rst("yaş").Value >= CInt(Metin0) And rst("yaş").Value <= CInt(Metin2) Then rs.AddNew rs("ad").Value = rst("ad").Value rs("yaş").Value = rst("yaş").Value rs.Update End If rst.MoveNext Loop End Sub
Yorum Gönder
Devamı

Hesaplama

Sub hesapla() Dim db As Database Dim rst As Recordset Set db = CurrentDb toplam = 0 Set rst = db.OpenRecordset("giriş") Do Until rst.EOF If rst.Fields(2).Value = "teknosa" Then toplam = toplam + (rst.Fields(3).Value * rst.Fields(4).Value) End If rst.MoveNext Loop MsgBox toplam End Sub
Yorum Gönder
Devamı