ASP – Hesap Makinesi

ASP’de basit bir şekilde, form yardımıyla 4 temel işlemi (toplama,çıkarma,çarpma,bölme) yapalım. Bu şekilde hesap makinelerini javascript,java,jquery gibi dillerde de yapabilirsiniz. Burdaki amaç basit şekilde ASP ile öğrenelim.

Öncelikle sadece HTML olarak formu yerleştireceğimiz bir giriş sayfası yapalım. Adı “HesapMakinesi.asp” olsun. Başına standart kodları koyarsınız. Direkt form kısmına gelelim.

<form action="Hesapla.asp" method="post">
<b>İlk Sayı:</b> <input type="text" name="ilksayi" /><br />
<b>İkinci Sayı:</b> <input type="text" name="ikincisayi" /><br />
<b>İşlem:</b> <select name="islem"><option value="toplama">Toplama</option><option value="cikarma">Çıkarma</option><option value="carpma">Çarpma</option><option value="bolme">Bölme</option></select><br />
<input type="submit" value="Hesapla" />
</form>

Bu şekilde formumuzu hazırladık. Burda birinci sayıyı giricek, altına ikinci sayı ve onun altından işlemi seçip hesaplaya bastığında sonucu versin. Şimdide formun gideceği “Hesapla.asp” dosyamızı yapalım.

<%
' Once formları tanimlayalim
Birinci = Cint(Request.Form("ilksayi"))  'ilksayi degerini aldik
Sonuncu = Cint(Request.Form("ikincisayi")) 'ikincisayi degerini aldik
islem = Request.Form("islem") 'hangi islemi yapacagini cektik
' Simdi kutucukları doldurmus mu kontrol edelim

If Birinci="" Then ' Eger Birinci Sayi Girilmediyse
Response.Write "<script>javascript:alert('Birinci Sayıyı Girmediğinde Vericek Hata Mesajı')</script>"
Response.Write "<br />" ' alt satira gecsin
Response.Write "<script>location='HesapMakinesi.asp'</script>" ' HesapMakinesi.asp ye gitsin
Response.End ' Sayfanın devamını gostermiyelim Cunku birinci sayi yok
End If ' Girildiyse birsey yapma

If Sonuncu="" Then ' Eger ikinci sayi girilmediyse
Response.Write "<script>javascript:alert('İkinci Sayıyı Girmediğinde Vericek Hata Mesajı')</script>"
Response.Write "<script>location='HesapMakinesi.asp'</script>" ' HesapMakinesi.asp ye gitsin
Response.End ' Sayfanın devamını gostermiyelim Cunku ikinci sayi yok
End If ' Girildiyse birsey yapma

If islem="toplama" Then 'toplama istiyorsa
Response.Write "Buraya sonuç tarzı yazmak istediğiniz yazı: "& Birinci + Sonuncu 'sayilari topla ve ekrana yaz
Response.End ' toplama istediyse gerisine bakmasin
End If ' islem toplama ise bu kismi gosterdik

If islem="cikarma" Then 'cikarma istiyorsa
Response.Write "Sonuç: "& Birinci – Sonuncu ' birinciden ikinciyi cikar ve ekrana yazdir
Response.End
End If

If islem="carpma" Then 'carpma istiyorsa
Response.Write "Sonuç: "& Birinci * Sonuncu ' sayilari carp ve ekrana yazdir
Response.End
End If

If islem="bolme" Then 'bolme istiyorsa
Response.Write "Sonuç: "& Birinci / Sonuncu ' birinciyi ikinciye bol ve ekrana yazdir
Response.End
End If
%>

Yukarıda formdan gelen verileri tanımlarken Cint diye bir dönüştürücü kullandık, bu olmadan toplama işleminde sayıları yan yana yazar ve toplamaz (Mesela: Birinci Sayı 1, ikinci sayı 2 olsun, Cint kullanmadan önce toplama işleminde sonuç 12dir. Cint’i kullandığımızda sonuç 3 olucaktır).