Selamlar arkadaşlar,
Asp.net'le Gelişmiş bir hesap makinası örneği yapmaya ne dersiniz?
İlk öncelikle şunu demek istiyorum nette yaptıgım araştırmada hesap makinası hakkındaki kodlarda yanlışlık veya okuyucunun anlaya bilecegi bir dilde anlatılmadıgını gördüm ve hem orta seviyede Visual Basic bilenler hemde başlangıç seviyesi için bu makaleyi yazmakya karar verdim şimdiden herkese başarılar.ilk öncelikle vb dilinde bir websitesi oluşturunuz.
SAYFAMIZIN DIŞ GÖRÜNÜŞÜ
Sayfanın dış görünüşü malumunuz kulanıcılar için büyük önem taşır hem kulanıcıya sundugunuz rahatlık bakımından hemde göz zevki bakımından.Bizin amacımız iyibir dış görünüm altında gelişmiş bir program yazmaktır.
Genel olarak Hesap Makinamızın dış görünüşü aşagıdaki gibidir.
18 buton 4 radio buton 2 label ve 2 textbox
Şimdi asıl meseleye geçersek kullandıgımız araçın kulanım amacına göre alt program oluşturup yapılmak isteneni yapmaktır.
SAYFAMIZIN KOD KISMI
SIFIRLAMA BUTONU
İlk önce sıfırlama işlemi ile başlıyalım burdaki amacımız kullanıcının yanlış bir rakam girdiginde textboxtaki verileri silmesidir.
Sıfırla butonuna çift tıkladıgınızda açılan sayfa yani sayfaadı.aspx.vb'da kendiliğinden bir program oluşacaktır ve bu program satırı aşagıdaki gibidir.
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Label1.Text = "Sıfırlama işi tamamlandı."
End Sub
yukarıda yaptıgımız işlem textbox1 in içerdigi degeri " " kullanarak degiştirmek yani sıfırlamak vetext label1 ede yaptıgımız işi yazmak olacaktır.
SAYI BUTONLARI
Genel olarak burda yazacagımız program 0,1,2,3,4,5,6,7,8,9 yani işlem yapılması için temel teşkil eden rakamların kullana bilirligini saglamak.
TextBox1.Text = TextBox1.Text & "rakam"
bu kodu açıklayacak olursak textbox1 in içerigini kulandıgınız rakam ve kulandıgınız rakamdan önceki rakamın ardına koymak.örnegin kulanıcınız 9 rakamın ardına 0 eklemek istiyor burdaki 9 rakamı textbox1in birinci degeri ve(&) 1 rakamıda 9un ardına eklemek isteginiz deger.
DÖRT İŞLEM BUTONULARI
Amaç sadece textbox taki degeri bir degişkene deger olarak atamak ve bu sayıyı hafızada tutarak işlem için girilecek ikinci sayıyı textbox'a yazmaktır.Buraya kada degişkenlerle işimiz olmadı ama burada programımızın işlem yapması için temel teşkil etmektedir.
Kulanacagımız Degişkenler Genel olarak aşagıdaki gibidir.
Public Shared a, b, topla, çıkar, böl,çarp, v, sonuc As Integer
integer veri tipinde tanımlı olmasına ragmen siz eger Makinanızda virgüllü sayıların işleme dahil olmasını istiyorsanız double yahut single veri tipini kulanmanız gerekmektedir
a = TextBox1.Text
TextBox1.Text = ""
v = işlemid
buda genel olarak 4 işlemin ortak kodlarıdır sadece v degişkeni degişiyor onunda sebebi şudur eşşittir butonunda kulanacagımız kontrol deyilerinde işlem id ine bakarak hangi butona tıkladıgımızın anlaşılmasıdır.toplama için v=1 ,çarpma için v=2 ,çıkarma için v=3 , bölme için v= 4 degerlerini vere biliriz.
EŞİTTİR BUTONU
b = TextBox1.Text
TextBox1.Text = ""
If v = 1 Then
sonuc = a + b
TextBox1.Text = sonuc
Label1.Text = "Toplama işlemi tamamlandı. "
End If
If v = 2 Then
sonuc = a - b
TextBox1.Text = sonuc
Label1.Text = "Çıkarma işlemi tamamlandı."
End If
If v = 3 Then
sonuc = a / b
TextBox1.Text = sonuc
Label1.Text = "Bölme işlemi tamamlandı"
End If
If v = 4 Then
sonuc = a * b
TextBox1.Text = sonuc
Label1.Text = "Çarpma işlemi tamamlandı"
End If
Kodlar yukarıdaki gibidir. Her işlem için bir işlermid'i belirlenmiş ve v degişkeninin aldıgı degere göre kodlar çalıştırılmaktadır.
Textbox'a girilen ilk sayıları dört işlem butonunda a değişkenine deger olarak atadıktan sonra silmiştik ve burada da girilen 2. sayıyı da b değişkenine deger olarak atadıktan sonra silip yapılan işlemin textbox'a deger olarak atanmasını sağladık.
Ek özeliksiz olarak hesap makinemizin kodları yukarıdaki gibidir. Bu hali ile de çalışacaktır. Bizim bundan sonra yapacagımız iş kulandığımız araçlara göre ek özellik eklemektir. Yazımın ikinci bölümünde buna değineceğim.
Buraya kadar olan sorularınız için burdayım. Yazabilirsiniz, teşekkürler...