Üçgen Çeşidi Hesaplama

Buradaki amaç textbox'lara girilen sayıların birbiriyle eşit, büyük ve küçük olduklarını karşılastırıp bize üçgenin ne tür bir üçgen olduğunu msgbox'la vermesidir.

Buradaki amaç textbox'lara girilen sayıların birbiriyle eşit, büyük ve küçük olduklarını karşılastırıp bize üçgenin ne tür bir üçgen olduğunu msgbox'la vermesidir.

Tabi, forum üzerine de ShowPrint komutlarıyla da yazdırabiliriz.


Private Sub Command1_Click()

A = Val(Text1.Text)

B = Val(Text2.Text)

C = Val(Text3.Text)

If A = B And A = C Then

MsgBox "EŞKENAR"

ElseIf A = B Or A = C Or B = C Then

MsgBox "İKİZKENAR"

Else

MsgBox "ÇEŞİTKENAR"

End If

End Sub

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git