Private Sub Command1_Click() Dim a As Double, b As Double, c As Double, d As Double, e As Double, f As Double, m As Double a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) e = Val(Text5.Text) f = Val(Text6.Text) m = Val(Text7.Text) n = Val(Text8.Text) Text9.Text = ((e * (a - c)) + ((m * f * (c - a)) / n) + ((m * a * (d - b)) / n) + ((m * b * (a - c)) / n)) / (((m * (d - b)) / n) - c + a) Text10.Text = (((m * f * (b - d)) / n) + (e * (d - b)) + (b * (c - a)) + (a * (b - d))) / (c - a + ((m * (b - d)) / n)) End Sub
gibi bi kod dizimiyle tanımladıgım işlemi yaptırabiliyorum. fakat buna özel bi durum eklemek istersem nasıl yapacagımı bilmiyorum. türkçesi şöyle ; c>a ve b<d iken m<0 olsun.
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double, d As Double, e As Double, f As Double, m As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = Val(Text5.Text)
f = Val(Text6.Text)
m = Val(Text7.Text)
n = Val(Text8.Text)
Text9.Text = ((e * (a - c)) + ((m * f * (c - a)) / n) + ((m * a * (d - b)) / n) + ((m * b * (a - c)) / n)) / (((m * (d - b)) / n) - c + a)
Text10.Text = (((m * f * (b - d)) / n) + (e * (d - b)) + (b * (c - a)) + (a * (b - d))) / (c - a + ((m * (b - d)) / n))
End Sub
gibi bi kod dizimiyle tanımladıgım işlemi yaptırabiliyorum. fakat buna özel bi durum eklemek istersem nasıl yapacagımı bilmiyorum.
türkçesi şöyle ; c>a ve b<d iken m<0 olsun.
bilen var mı?