───────────────────────────────────────────────────────────────────────────────────────────
Visual Basic'te Yenı Bır Proje Acıktıktan Sonra
Gerekenler:
l+l 3 Tane Label
l+l 3 Tane TextBox
l+l 4 Tane Button
───────────────────────────────────────────────────────────────────────────────────────────
1) Label 1'ın Adını Sayı 1 Yapınız
2) Label 2'nın Adını Sayı 2 Yapınız
3) Label 3'un Adını Sonuc Yapınız
4) Button 1'ın Adını Topla Yapınız
5) Button 2'nın Adını Çıkar Yapınız
6) Button 3'un Adını Çarp Yapınız
6) Button 4'un Adını Böl Yapınız
───────────────────────────────────────────────────────────────────────────────────────────
Kodlama Bölümü:
───────────────────────────────────────────────────────────────────────────────────────────
Kodlama Bölümü:
Buttona'a 2 kere Tıklayarak Kod Bolumunu Acınız
───────────────────────────────────────────────────────────────────────────────────────────
l+l Button 1 (Topla) Kodu
Kod:
Dim s1, s2, sonuç As Double
s1 = TextBox1.Text
s2 = TextBox2.Text
sonuç = s1 + s2
TextBox3.Text = sonuç
l+l Button 2 (Çıkar) Kodu
Kod:
Dim s1, s2, sonuç As Double
s1 = TextBox1.Text
s2 = TextBox2.Text
sonuç = s1 - s2
TextBox3.Text = sonuç
l+l Button 3 (Çarp) Kodu
Kod:
Dim s1, s2, sonuç As Double
[size=small][font=Monaco, Consolas, Courier, monospace] s1 = TextBox1.Text[/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace] s2 = TextBox2.Text[/font][/size]
[size=small][font=Monaco, Consolas, Courier, monospace] sonuç = s1 *[/font][/size][size=small][font=Monaco, Consolas, Courier, monospace] s2[/font][/size]
TextBox3.Text = sonuç
l+l Button 4 (Böl) Kodu
Kod:
Dim s1, s2, sonuç As Double
s1 = TextBox1.Text
s2 = TextBox2.Text
sonuç = s1 / s2
TextBox3.Text = sonuç