بدست آوردن مساحت مثلث

[pesarake]

سلام
راسش دارم یه برنامه می نویسم که در ورودی قاعده و ارتفاع رو بدم و خروجی مساحت مثل رو حساب کنه و بده
تو سورسش گیر کردم
کسی می تونه سورسشو بهم بده؟؟

[parselearn]

مساحت مثلث که چیزی نداره


b = 5
h = 10
MsgBox (1 / 2) * b * h



http://daneshnameh.roshd.ir/mavara/mavara-index.php?page=%D9%85%D8%AB%D9%84%D8%AB&SSOReturnPage=Check&Rand=0

[Slytherin]

میشه یه سورس کامل بزاری
خیلی گیرم دارم یه برنامه تکمیلی می نویسم
ممنون یمشم


Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
Option Explicit

Private Sub Command1_Click()
Dim a, b, c, x, s, p As Single
a = Val(Text1)
b = Val(Text2)
s = (1 / 2) * (a * b)
Label5.Caption = s
If Not (a > 0) Then
Label5.Caption = "ãÍá äãÇíÔ ãÓÇÍÊ íÇ ãÍíØ"
MsgBox ("áØÝÇ Èå ÌÇí ¡ ÇÑÊÝÇÚ ¡ ÚÏÏí ÈÒѐ ÊÑ ÇÒ ÕÝÑ æÇÑÏ äãÇííÏ")
End If
If Not (b > 0) Then
Label5.Caption = "ãÍá äãÇíÔ ãÓÇÍÊ íÇ ãÍíØ"
MsgBox ("áØÝÇ Èå ÌÇí ¡ ÞÇÚÏå ¡ ÚÏÏí ÈÒѐ ÊÑ ÇÒ ÕÝÑ æÇÑÏ äãÇííÏ")
End If
End Sub

Private Sub Command2_Click()
Dim a, b, c, x, s, p As Single
a = Val(Text1)
b = Val(Text2)
c = ((a / 2) ^ 2) + (b ^ 2)
x = Sqr(c)
p = (2 * x) + a
Label5.Caption = p
If Not (a > 0) Then
Label5.Caption = "ãÍá äãÇíÔ ãÓÇÍÊ íÇ ãÍíØ"
MsgBox ("áØÝÇ Èå ÌÇí ¡ ÇÑÊÝÇÚ ¡ ÚÏÏí ÈÒѐ ÊÑ ÇÒ ÕÝÑ æÇÑÏ äãÇííÏ")
End If
If Not (b > 0) Then
Label5.Caption = "ãÍá äãÇíÔ ãÓÇÍÊ íÇ ãÍíØ"
MsgBox ("áØÝÇ Èå ÌÇí ¡ ÞÇÚÏå ¡ ÚÏÏí ÈÒѐ ÊÑ ÇÒ ÕÝÑ æÇÑÏ äãÇííÏ")
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Initialize()
Call InitCommonControls
End Sub

Private Sub Form_Load()
Form1.Caption = "ãÍÇÓÈå ãÓÇÍÊ æ ãÍíØ ãËáË ãÊÓÇæí ÇáÓÇÞíä æ ãÊæÇÒí ÇáÇÖáÇÚ"
Command1.Caption = "ãÓÇÍÊ"
Command2.Caption = "ãÍíØ"
Command3.Caption = "ÎÑæÌ"
Text1 = ""
Text2 = ""
Label1 = "ÇÑÊÝÇÚ"
Label2.Caption = "ÞÇÚÏå"
Label3.Caption = "="
Label4.Caption = "="
End Sub

Private Sub mnuAbout_Click()
MsgBox ("ÈÑÇí ÑÇåäãÇíí æ ÔÊíÈÇäí Èå æÈáǐ ÏÈíÑÓÊÇä ÇÈæÑíÍÇä ÈíÑæäí 2 äÇÍíå íß ÑÔÊ ãÑÇÌÚå äãÇííÏ")
End Sub

Private Sub mnuExit_Click()
End
End Sub

:لبخند: