Kare, üçgen, dikdörtgen ve dairenin alan ve çevrelerini hesaplayan programı oluşturuyoruz..
Bu programımızda 5 button, 2 label ve 2 tanede textbox kullanacağız. İlk olarak kare buttonunun içerisine girip kullanıcının inputboxdan giriş yaptığı sayılar sonucu oluşan cevabı msgboxda göstermek için şu kodları yazacağız;
kenar = InputBox("Karenin bir kenarını gir", "karenin alanı hesaplanıyor...", 10, 20, 250)
alan = kenar * kenar
çevre = kenar * 4
MsgBox("karenin alanı= " &alan &" karenin çevresi=" &çevre)
Yine aynı şekilde alanının bulunması için üçgen buttonunun içine aşağıdaki kodlar yazılır;
kenar = InputBox("Üçgenin taban kenarını giriniz", "üçgenin alanı hesaplanıyor...")
h = InputBox("Üçgenin yüksekliğini giriniz", "üçgenin alanı hesaplanıyor...")
alan = kenar * h / 2
MsgBox("üçgenin alanı= " &alan)
<!–[if gte mso 9]> Normal 0 21 false false false MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]> <![endif]–>
Çevre ve alanını hesaplamak için dikdörtgen adlı buttonun içerisine de şu kodlar yazılır;
<span style="color: black;">kenara = InputBox("Kısa kenarı giriniz.")
kenarb = InputBox("Uzun kenarı giriniz.")
çevre = 2 * kenara + 2 * kenarb
alan = kenara * kenarb
MsgBox("dikdörtgenin çevresi= " &çevre &" dikdörtgenin alanı=" & alan)</span>
<!–[if gte mso 9]> Normal 0 21 false false false MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]> <![endif]–>
Alan ve çevresini hesaplamak içinde daire buttonunun içerisine şu kodlar yazılacaktır;
a= Math.PI
r = InputBox("Yarıçapı giriniz", "dairenin alanı ve çevresi hesaplanıyor...")
alan = a * r * r
alan = Math.Round(alan, 2)
çevre = 2 * a * r
çevre = Math.Round(çevre, 2)
TextBox1.Text = alan
TextBox2.Text = çevre
'MsgBox("dairenin alanı= " &alan & " dairenin çevresi=" &çevre)
NOT: Dairenin alan ve çevresini hesaplarken dikkat edilmesi gereken bir nokta vardır. Kare, üçgen ve dikdörtgenin alan ve çevre hesaplamalarını yaparken sonucu msgboxda göstertmiştik. Fakat burada sonucu textboxda göstermek istediğimizden dolayı msgbox kodunun önüne tek tırnak atılarak programın o kodu okumamasını sağlamış olduk.
Son olarak kullanıcıya çıkış yaptırmak için ise çıkış buttonuna şu kodlar yazılmalıdır;
Son olarak kullanıcıya çıkış yaptırmak için ise çıkış buttonuna şu kodlar yazılmalıdır;
cevap = MsgBox("Çıkmak istediğinize emin misiniz?", MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.SystemModal, "ÇIKIŞ")
If cevap = vbYes Then End
If cevap = vbNo Then Exit Sub
If cevap = vbCancel Then MsgBox("İptal düğmesine tıkladınız.")
