IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Ocak 2012, 19:33   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Visual Basic İle 4 İşlem




Bu dersi özellikle Vb.Net'e yeni başlayan arkadaşlar için hazırladım.

Bu dersimizde VB.net'te basit toplama, çıkarma, çarpma ve bölme işlemlerini öğreneceğiz.

Formumuzda 2 textbox ve 4 adet de buton olduğunu varsayarak işlemlerimizi yapıyoruz. Yani şu şekilde:


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Toplama (1.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Dim sayi1, sayi2, sonuc As Integer sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox1.Text) + Val(TextBox2.Text) MsgBox(sonuc)


Çıkarma (2.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Dim sayi1, sayi2, sonuc As Integer sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox1.Text) - Val(TextBox2.Text) MsgBox(sonuc)


Çarpma (3.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

Dim sayi1, sayi2, sonuc As Integer
sayi1 = TextBox1.Text
sayi2 = TextBox2.Text
sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)
MsgBox(sonuc)


Bölme (4.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Dim sayi1, sayi2, sonuc As Integer sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox1.Text) / Val(TextBox2.Text) MsgBox(sonuc)


Programın tamamının kodları şu şekilde oluyor;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Public Class Form1 Dim sayi1, sayi2, sonuc As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox1.Text) + Val(TextBox2.Text) MsgBox(sonuc) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox1.Text) - Val(TextBox2.Text) MsgBox(sonuc) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox1.Text) * Val(TextBox2.Text) MsgBox(sonuc) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click sayi1 = TextBox1.Text sayi2 = TextBox2.Text sonuc = Val(TextBox1.Text) / Val(TextBox2.Text) MsgBox(sonuc) End Sub End Class


AÇIKLAMA

sayi1, sayi2 ve sonuc olmak üzere integer türünde, yani sayısal değişken tanımlıyoruz. Daha sonra sayi1 değişkenini Textbox1.Text yani TextBox1'in İçindeki değere eşitliyoruz.

sayi2 değişkenini de aynı şekide TextBox2'ye eşitliyoruz.

Daha sonra sonuc değişkenimizin içine Textbox1 ile Textbox2'nin içindeki değerlerin toplamını atıyoruz. Başlarına Val ifadesini koymamızın sebebi ise, virgüllü sayı çıkmasın diyedir. Yani sayı 9,9 olursa, program onu direk olarak 10'a yuvarlar. Eğer 9,3'se mesela, program onu 9'a yuvarlar. Val ifadesini koymasanız da olur.

Daha sonra ise MsgBox'ın içine sonuc yazarak sonucu bize mesaj kutusu olarak göstermesini sağlıyoruz. Diğer işlemler için de değişen birşey yok, sadece işareti değiştiriyorsunuz.

Kaynak; sanalkurs.net

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
basic, visual, yle


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Visual Basic Cry Bilgisayar Donanımı 0 19 Eylül 2011 17:48
Visual C,C++,C#,Basic Uygulamaları Fonzerelli Programlama 0 04 Aralık 2010 17:42