Visual Basic 2008 ile Basit Hesap Makinası Yapalım [ Kolay-Resimli ]

TheOttoman · 9 Eyl 2010

Sevgili arkadaşlar bu derste Visual Basic'e yeni başyalanlar için güzel bir konu daha hazırlamaya çalıştım. İnşallah sizlere yardımcı olacaktır.

Bu dersimizde basit olarak hesap makinesinin nasıl yapılacağını anlatacağım. Bu konu ile matematik işlemlerinin temellerini atmış olacaksınız. Olayı daha da iyi kavrayacaksınız...

Dersimize Geçelim

1. Çarpma İşlemi İçin

Kod:

[COLOR=DarkSlateBlue][COLOR=Red][COLOR=RoyalBlue][COLOR=#000000][COLOR=purple][COLOR=#0000bb]Sonuç[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000bb]TextBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000bb]TextBox2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text[/COLOR][/COLOR][COLOR=#007700])[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]

TextBox1.Text = Çarpılacak Sayı Yani (10*x) Gibi.
TextBox2.Text = Çarpılan Sayı Yani (x*10) Gibi

2. Bölme işlemi İçin

Kod:

[COLOR=DarkSlateBlue][COLOR=Purple][COLOR=#000000][COLOR=#0000bb]Sonuç[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000bb]TextBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]/ [/COLOR][COLOR=#0000bb]TextBox2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text[/COLOR][COLOR=#007700])[/COLOR][/COLOR][/COLOR][/COLOR]

TextBox1.Text = Bölünecek Sayı Yani (10/x) Gibi.
TextBox2.Text = Bölünen Sayı Yani (x/10) Gibi

3. Toplama İşlemi İçin

Kod:

[COLOR=DarkSlateBlue][COLOR=Blue][COLOR=#000000][COLOR=#0000bb]Sonuç[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000bb]TextBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000bb]TextBox2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text[/COLOR][COLOR=#007700])[/COLOR][/COLOR][/COLOR][/COLOR]

TextBox1.Text = Toplanacak Sayı Yani (10+x) Gibi.
TextBox2.Text = Toplanan Sayı Yani (x+10) Gibi.

4. Çıkarma İşlemi İçin

Kod:

[COLOR=DarkSlateBlue][COLOR=Magenta][COLOR=#000000][COLOR=#0000bb]Sonuç[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000bb]TextBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text [/COLOR][COLOR=#007700]- [/COLOR][COLOR=#0000bb]TextBox2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text[/COLOR][COLOR=#007700])[/COLOR][/COLOR][/COLOR][/COLOR]

TextBox1.Text = Çıkarılacak Sayı Yani (10-x) Gibi.
TextBox2.Text = Çıkarılan Sayı Yani (x-10) Gibi

Sonuçları Mesaja Vermek İçin

Kod:

[COLOR=DarkSlateBlue][COLOR=DarkSlateBlue][COLOR=#000000][COLOR=#0000bb]Msgbox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#dd0000]"Sonuç " [/COLOR][COLOR=#007700]+ ([/COLOR][COLOR=#0000bb]TextBox3[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Text[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#dd0000]" Çıkmıştır."[/COLOR][COLOR=#007700])[/COLOR][/COLOR][/COLOR][/COLOR]

TextBox3.Text = Sonucun Girildiği Kutucuktur.
Eğer Sonuç 30 Çıkarsa Mesaj Olarak Sonuç 30 Çıkmıştır Diyecek.

Harf Engeli Koymak İçin

KeyPress'e çift tıklıyoruz ve açılan kod yerine aşağıda verilen kodları yazınız.

=> TextBox1 İçin

Kod:

[COLOR=DarkSlateBlue][COLOR=Indigo][COLOR=#000000][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub TextBox1_KeyPress[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal sender [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]System[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Object[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]ByVal e [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]System[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Windows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyPressEventArgs[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Handles TextBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyPress 
        [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Asc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]e[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyChar[/COLOR][COLOR=#007700]) <> [/COLOR][COLOR=#0000BB]8 Then 
            e[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Handled [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Not IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]e[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyChar[/COLOR][COLOR=#007700]) 
        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If 
        [/COLOR][COLOR=#0000BB]End Sub  [/COLOR][/COLOR][/COLOR][/COLOR]

=> TextBox2 İçin

Kod:

[COLOR=DarkSlateBlue][COLOR=Indigo][COLOR=#000000][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub TextBox2_KeyPress[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal sender [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]System[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Object[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]ByVal e [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]System[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Windows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyPressEventArgs[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Handles TextBox2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyPress 
        [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Asc[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]e[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyChar[/COLOR][COLOR=#007700]) <> [/COLOR][COLOR=#0000BB]8 Then 
            e[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Handled [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Not IsNumeric[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]e[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]KeyChar[/COLOR][COLOR=#007700]) 
        [/COLOR][COLOR=#0000BB]End [/COLOR][COLOR=#007700]If 
    [/COLOR][COLOR=#0000BB]End Sub  [/COLOR][/COLOR][/COLOR][/COLOR]

=> Sayı Sınırı Koymak İçin FormLoad'a ise

Kod:

[COLOR=DarkSlateBlue][COLOR=#000000][COLOR=#0000BB]TextBox1[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]MaxLength [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000BB]12[/COLOR][COLOR=#007700]) 
        [/COLOR][COLOR=#0000BB]TextBox2[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]MaxLength [/COLOR][COLOR=#007700]= ([/COLOR][COLOR=#0000BB]12[/COLOR][COLOR=#007700])  [/COLOR][/COLOR][/COLOR]

İşte Bu Kadar, herhangi bor sorunuzda bana konu altında veya özel mesaj yolu ile ulaşabilirsiniz.

TheOttoman Visual Basic dersleri devam edecek.
İndex çok yakında...

UmkuT · 4 Ara 2010

Resimlerle Desteklesen Daha İyi Olabilirdi .

?konPublic · 4 Ara 2010

Enteresan bi denicem

berkcan123 · 7 Ocak 2011

vb.net e başlıcam ama elektronik okuyom

berkcan123 · 9 Ocak 2011

bunlar için 4 tane de button gerekmioymu ayrıca sonuç.tex yerine textbox3.text olmucak mı ?

BurakKalkan · 9 Ocak 2011

senin adın berkcan benim adım ise burak ama ikimizde insanız onlarda öyle. birininki berkcan diğeri burak ama ikiside textbox. sadece adı değişmiş sonuç olmus

berkcan123 · 10 Ocak 2011

ben bunları vb.net de yazınca direk hatalı kod diyo :/

Mr Payne · 11 Ocak 2011

Mümkünse şöyle daha geniş anlatım yapabilirmisin ? Hiç bilmiyorumda

Yani: Şuraya tıklayarak yeni sayfa açıyoruz şuna tıklayarak buraya bunları yazıyoruz vb.. gibi

Şimdiden teşekkür ederim

Iwa · 12 Ocak 2011

wenes' Alıntı:
Mümkünse şöyle daha geniş anlatım yapabilirmisin ? Hiç bilmiyorumda
Yani: Şuraya tıklayarak yeni sayfa açıyoruz şuna tıklayarak buraya bunları yazıyoruz vb.. gibi
Şimdiden teşekkür ederim

tools kısmından buton, 2 adet textbox ekledikten sonra butona çift tıklıyoruz

kod yerine geçince bunu yazıyoruz

Sonuc = (Textbox1.text + Textbox2.text)
Msgbox Sonuc

Mr Payne · 15 Ocak 2011

PsychotoxiC' Alıntı:
tools kısmından buton, 2 adet textbox ekledikten sonra butona çift tıklıyoruz

kod yerine geçince bunu yazıyoruz

Sonuc = (Textbox1.text + Textbox2.text)
Msgbox Sonuc

Saol ama anlamadım yine

BurakKalkan · 15 Ocak 2011

PsychotoxiC' Alıntı:
tools kısmından buton, 2 adet textbox ekledikten sonra butona çift tıklıyoruz

kod yerine geçince bunu yazıyoruz

Sonuc = (Textbox1.text + Textbox2.text)
Msgbox Sonuc

konuscağına çeksene bi video

Visual Basic 2008 ile Basit Hesap Makinası Yapalım [ Kolay-Resimli ]

TheOttoman

UmkuT

?konPublic

berkcan123

berkcan123

BurakKalkan

berkcan123

Mr Payne

Iwa

Mr Payne

BurakKalkan

Benzer Konular

Sosyal Ağlarla Paylaş