Anasayfa > Kodlar > VB.NET ile Üçgende kenarlar

VB.NET ile Üçgende kenarlar


Üçgenin eşkenar, ikizkenar yada çeşit kenar olduğunu bulur (yeni başlayanlar için)


Dim k1, k2, k3, As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
k1 = InputBox("1.kenarı giriniz")
k2 = InputBox("2.kenarı giriniz")
k3 = InputBox("3.kenarı giriniz")
If (k1 = k2) And (k2 = k3) Then
MsgBox("eşkenar")
ElseIf (k1 = k2) Or (k2 = k3) Or (k1 = k3) Then
MsgBox("ikizkenar")
Else
MsgBox("çeşit kenar")
End If
End Sub

 


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: