• Forum vBulletin altyapısından Xenforo altyapısına geçirildi, bu sebeple eski şifreleriniz ile foruma giriş yapamayacaksınız, parolamı unuttum adımından mailiniz ile şifre sıfırlayarak giriş yapabilirsiniz.

    Üyeliklerinde geçerli bir mail adresi olmadığı için sıfırlama yapamayacak kullanıcılar forum kullanıcı adlarını ve yeni şifrelerini yazarak info@maxigame.org adresine şifre sıfırlamak istediklerine dair bir mail göndersinler şifrelerini sıfırlayıp mail adreslerini güncelleyeceğiz. Şifreniz sıfırlandıktan sonra foruma giriş yapıp tekrar istediğiniz gibi değiştirebilirsiniz.

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

TheOttoman

Aileden
TheOttoman
Aktiflik
K.Tarihi
11 Haz 2009
Mesajlar
288
Puanı
190
Konum
Ankara
logozm.png


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

how.png


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.
icon1.png
TheOttoman Visual Basic dersleri devam edecek.
İndex çok yakında...
 
Resimlerle Desteklesen Daha İyi Olabilirdi .
 
bunlar için 4 tane de button gerekmioymu ayrıca sonuç.tex yerine textbox3.text olmucak mı ?
 
senin adın berkcan benim adım ise burak ama ikimizde insanız:D onlarda öyle. birininki berkcan diğeri burak ama ikiside textbox. sadece adı değişmiş sonuç olmus
 
Mümkünse şöyle daha geniş anlatım yapabilirmisin ? Hiç bilmiyorumda :D
Yani: Şuraya tıklayarak yeni sayfa açıyoruz şuna tıklayarak buraya bunları yazıyoruz vb.. gibi :)
Şimdiden teşekkür ederim :)
 
wenes' Alıntı:
Mümkünse şöyle daha geniş anlatım yapabilirmisin ? Hiç bilmiyorumda :D
Yani: Şuraya tıklayarak yeni sayfa açıyoruz şuna tıklayarak buraya bunları yazıyoruz vb.. gibi :)
Şimdiden teşekkür ederim :)
Genişletmek için tıkla ...
tools kısmından buton, 2 adet textbox ekledikten sonra butona çift tıklıyoruz

kod yerine geçince bunu yazıyoruz :D

Sonuc = (Textbox1.text + Textbox2.text)
Msgbox Sonuc
 
Konuya cevap yazabilmek için giriş yapmanız veya üye olmanız gerekmektedir.
Geri
Üst