ساخت برنامه مثلثات

[WebConsole]

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

توجه : من دانش اموزش دوم هنرستان هستم و vb6 رو تا ifelse متداخل بیشتر نخوندیم لطفا رهنمایی کنید

فقط راهنمایی کنید ، خواهشا کد اماده نزارید که بد عادت میشم و نمیتونم برنامه نویس موفقی بشم ! :لبخند:

تشکر

[SlowCode]

سلام
کاری نداره که! عدد اول رو بعلاوه عدد سوم کن بعد تقسیم کن به دو.
حالا اگه اون عدد برابر عدد دوم بود یعنی میشه ساخت، مثلا با اعداد 2و3و4 میشه ساخت چون 2+4=6 و 6/2=3 که میشه همون عدد دوم.
حالا ممکنه که کاربر ضلع ها رو به طور نامرتب وارد کنه مثلا 4و2و3 در اینصورت اول باید این اعداد رو Sort کنی.

[WebConsole]

یعنی به صورت زیر :

Private Sub Command1_Click()
Dim a As Boolean, b As Boolean, c As Boolean
a = InputBox("Add your number:")
b = InputBox("Add your number:")
c = InputBox("Add your number:")
If (a + c) Then b = a + c
End If
End Sub

[ali-a2]

با سلام !

خوب اگه گفتن مثلث قائم الزاویه که باید رابطه فیثاغورس توش صدق کنه !

یه چیزی تو این مایه ها میشه تقریبا :

Private Sub Command1_Click()
Dim a, b, c
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a ^ 2 + b ^ 2 = c ^ 2 Then
Print "YES"
Else
Print "NO"
End If
End Sub

ولی همون جور که آقا محسنم گفتن باید Sort بشه !

موفق باشید ./

[مهرنوووش]

یعنی به صورت زیر :

Private Sub Command1_Click()
Dim a As Boolean, b As Boolean, c As Boolean
a = InputBox("Add your number:")
b = InputBox("Add your number:")
c = InputBox("Add your number:")
If (a + c) Then b = a + c
End If
End Sub


نه نه ... به این شکل نه !!!
بهتره نوع متغیر single باشه !!
بعد اون دستوریم که با if و then نوشتی کلا بی ربطه !!
تو مثلث قائم الزاویه وتر به توان 2 = یک ضلع به توان دو + ضلع دیگه به توان دو هست !!
به این شکل هم میشه نوشت که میتونی خلاقیت بخرج بدی بعد بعضی جاهاشو یه نوع دیگه بنویسی !!!


Private Sub Command1_Click()
Dim a!, b!, c!
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then
Label1.Caption = "javab mosbat ast "
Else
Label1.Caption = "javab manfist"
End If
End Sub

[امیددد]

به این شکل هم میشه نوشت که میتونی خلاقیت بخرج بدی بعد بعضی جاهاشو یه نوع دیگه بنویسی !!!


Private Sub Command1_Click()
Dim a!, b!, c!
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then
Label1.Caption = "javab mosbat ast "
Else
Label1.Caption = "javab manfist"
End If
End Sub



من یه ایده ای به ذهنم رسید ولی نتونستم پیاده سازیش کنم.
تو این کد اگه بخوایم یه متغیر از نوع بولین برای خاصیت کپشن لیبل تعریف کنیم
و هر وقت شرط برقرار بود True و هر وقت شرط برقرار نبود false بهمون بده به چه صورتی میشه کدشو نوشت ؟ :متفکر:

نکته : دوستان توجه کنین که من بلدم عنوان لیبل رو عوض کنم ولی دوست دارم با متغیر بولین این کارو بکنم.
چطوری میشه با متغیر بولین این کارو کرد ؟

[حمید محمودی]

من یه ایده ای به ذهنم رسید ولی نتونستم پیاده سازیش کنم.
تو این کد اگه بخوایم یه متغیر از نوع بولین برای خاصیت کپشن لیبل تعریف کنیم
و هر وقت شرط برقرار بود True و هر وقت شرط برقرار نبود false بهمون بده به چه صورتی میشه کدشو نوشت ؟ :متفکر:

نکته : دوستان توجه کنین که من بلدم عنوان لیبل رو عوض کنم ولی دوست دارم با متغیر بولین این کارو بکنم.
چطوری میشه با متغیر بولین این کارو کرد ؟ سلام،

کد زیر ، زمان که شرط برقرار بود مقدار true و زمانی که شرط برقرار نبود مقدار false رو در کپشن لیبل قرار خواهد داد.


Private Sub Command1_Click()
Dim a!, b!, c!
Dim blnT as boolean
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a ^ 2 = b ^ 2 + c ^ 2 Or b ^ 2 = a ^ 2 + c ^ 2 Or c ^ 2 = a ^ 2 + b ^ 2 Then
blnT=true
Else
blnT=false
End If
Label1.Caption = blnT
End Sub