İ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

Yorumlar

Bu blogdaki popüler yayınlar

04.10.2011 2.ÖRNEK(Veri Tabanı)

04.10.2011 2.ÖRNEK Sub hesapla() For x = 1 To 10 ' burada D sütunun içine A sütunun ilk harfi ve nokta sonra B sütunun birleşmiş halidir. Cells(x, 4) = Left(Cells(x, 1), 1) & "." & " " & Cells(x, 2) ' burada E sütunun içine A sütunuyla B sütunun birleştirmiştir. Cells(x, 5) = Cells(x, 1) & " " & Cells(x, 2) Next x End Sub

Devamı

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

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

Devamı

uğur ılgın

Bu Blogda Ara