Üç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;
Emre Çelebi
C dilinin pratik yanlarına aşık bir web/masaüstü yazılımcısı. Vazgeçilmez hobi olarak da amatör fotoğraf çekimleri yapıyor.
Yorum Yaz

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

Yukarı Git