Üçgende Kenarlar - Türkçe Forum

		Türkçe Forum - Girburaya.net > Webmaster > Programlama > Visual Basic
Üçgende Kenarlar

Visual Basic Visual Basic Hakkında Aradığınız Herşey.. Visual Basic Kodları..

LinkBack

Seçenekler

01-03-08, 13:02

#1 (permalink)

DeJiN

Mesajlar: n/a

Üçgende Kenarlar

Kod:

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

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder

Yetkileriniz
Yeni Mesaj yazma yetkiniz aktif değil dir. Mesajlara Cevap verme yetkiniz aktif değil dir. Eklenti ekleme yetkiniz aktif değil dir. Kendi Mesajınızı değiştirme yetkiniz aktif değil dir. vB Kodları Açık Smileler Açık [IMG] Kodları Açık HTML-KodlarıKapalı Trackbacks are Açık Pingbacks are Açık Refbacks are Açık

Bütün Zaman Ayarları WEZ +2 olarak düzenlenmiştir. Şu Anki Saat: 05:45 .

7, 427, 6, 5, 106, 107, 9, 10, 11, 12, 14, 15, 16, 17, 202, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 30, 31, 32, 397, 34, 35, 36, 341, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 198, 50, 51, 52, 53, 54, 123, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 76, 77, 78, 79, 80, 81, 82, 112, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 108, 109, 110, 113, 115, 116, 117, 118, 119, 120, 122, 121, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 249, 184, 187, 248, 188, 189, 247, 190, 191, 429, 192, 193, 194, 195, 196, 197, 199, 200, 201, 203, 204, 205, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 221, 222, 223, 224, 225, 227, 228, 229, 230, 231, 232, 234, 235, 237, 238, 346, 240, 242, 243, 246, 250, 251, 252, 253, 254, 255, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295, 297, 298, 299, 300, 301, 302, 303, 307, 308, 321, 315, 314, 317, 322, 338, 318, 323, 324, 325, 326, 327, 328, 330, 331, 336, 332, 333, 334, 337, 335, 339, 340, 342, 343, 344, 345, 363, 348, 347, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 373, 382, 374, 369, 370, 375, 376, 377, 380, 385, 384, 386, 394, 388, 389, 390, 391, 392, 393, 396, 409, 398, 399, 400, 401, 403, 404, 405, 406, 410, 411, 412, 413, 414, 415, 417, 416, 418, 419, 420, 421, 423, 425, 426, 434, 428, 430, 432, 431, 435, 433, 436, 437, 438, 439, 440, 441, 442, 443, 444, 445,