۱- هفت عنصرLabel ، شش عنصر TextBox و سه عنصر Command
Button به فرم اضافه کنید و آن ها را مانند شکل زیرطراحی کنید.
۲- برروی دکمه clean دوبار کلیک کنید و دستورات زیر را بنویسید:
Text1.Text =" "
Text2.Text =" "
Text3.Text =" "
Text4.Text =" "
Text5.Text =" "
Text6.Text =" "
Label1.Caption =" x ="
Label2.Caption =" y ="
۳- برروی دکمه calculate دوبار کلیک کنید و دستورات زیر را بنویسید:
a = Val (Text1.Text)
b = Val (Text2.Text)
c = Val (Text3.Text)
d = Val (Text4.Text)
e = Val (Text5.Text)
f = Val (Text6.Text)
If Text1.Text = " " Then
a = 1
End If
If Text2.Text = " " Then
b = 1
End If
If Text3.Text = " " Then
c = 1
End If
If Text4.Text = " " Then
d = 1
End If
If Text5.Text = " " Then
e = 1
End If
If Text6.Text = " " Then
f = 1
End If
g = -e * a
h = -e * c
i = b * d
j = b * f
gi = g - (-i)
hj = h - (-j)
x = hj / gi
k = a * x
l = c - k
y = l / b
Label1.Caption = "x =" + Str(x)
Label2.Caption = "y =" + Str(y)
۴- برروی دکمه exitدو بارکلیک کنید ودستور End زیر را آن بنویسید.
۵- برنامه را با کلید F5 اجرا و آن را امتحان کنید.
همچنین شما می توانید نمونه نوشته شده این نرم افزار را دانلود و امتحان کنید.
حجم فایل: KB ۴/۳۸
نوشته شده توسط :