Başlangıç > Kodlar > Visual Basic 6 ile Üçgen çeşitleri

Visual Basic 6 ile Üçgen çeşitleri


İstediginiz üçgen çeşidini bulur

Public Class Form1
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 = k1) Then
MsgBox("üçgen eşkenar üçgendir")
ElseIf (k1 = k2) Or (k2 = k3) Or (k1 = k3) Then
MsgBox("üçgen ikizkenar üçgendir")
Else
MsgBox("üçgen çeşitkenar üçgendir")
End If
End Sub
End Class


TD Software


Reklamlar
  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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: