KULLANICI ADI : ŞİFRE Şifremi Unuttum*

Anasayfa İLLEG4L BANK KREDİ SATIN AL İLLEG4LİZM RAP Sub Domain Bulucu Arama Yap Yeni Konular Bugünki Konular

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VB.NET İle 4 İşlem Temeli
Konu : VB.NET İle 4 İşlem Temeli - 09.04.2016, 00:13
Mesaj: #1
[quote pid=2689 dateline=1457948802][quote pid=2688 dateline=1457948747]
Alıntı:
Bu dersi özellikle Vb.Net'e yeni başlayan arkadaşlar için hazırladım. Size tavsiyem sizde derslere baktıktan sonra Visual Studio 10 , 12 , 13 herneyse yüklü ise sizde deneyin pratik için.


İmage

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:



İmage

İmage

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


Kod:
Kod:
[align=center]Dim sayi1, sayi2, sonuc As Integer[/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]




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


Kod:
Kod:
[align=center]Dim sayi1, sayi2, sonuc As Integer[/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) - Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]




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


Kod:
Kod:
[align=center]Dim sayi1, sayi2, sonuc As Integer[/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]




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


Kod:
Kod:
[align=center]Dim sayi1, sayi2, sonuc As Integer[/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) / Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]




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


Kod:
Kod:
[align=center]Public Class Form1[/align]
[align=center]    Dim sayi1, sayi2, sonuc As Integer[/align]
[align=center]    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/align]
[align=center][/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]
[align=center]    End Sub[/align]
[align=center][/align]
[align=center]    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click[/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) - Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]
[align=center]    End Sub[/align]
[align=center][/align]
[align=center]    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click[/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]
[align=center]    End Sub[/align]
[align=center][/align]
[align=center]    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click[/align]
[align=center]        sayi1 = TextBox1.Text[/align]
[align=center]        sayi2 = TextBox2.Text[/align]
[align=center]        sonuc = Val(TextBox1.Text) / Val(TextBox2.Text)[/align]
[align=center]        MsgBox(sonuc)[/align]
[align=center]    End Sub[/align]
[align=center]End Class[/align]




İmage

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.

[/quote]

[/quote]
İmage










WWW Alıntı ile Cevapla


Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
antalya escort türk ifşa porno izle türk ifşa porno samsun escort izmir escort türk ifşa hd porno