Herkese merhabalar bugün sizlere Visual Basic Başlamadan önce bilinmesi gerekenleri anlatacağım
İki sayıya işlem yaptırma kodu bu kadar basittir, istediğiniz işlemi yaptırmak için kod içinde geçen artı işareti yerine eksi, çarpma, bölme, tam sayı bölme, bölümün kalanını gösterme gibi işaretleri ya da kısaltmaları yazabiliyoruz.
1- Mesaj Kutusu
C++:
Private Sub Button1_Clicked() Handles Button1.Click
' Button1 tuşuna tıklayınca Button 1'un Click Event kısmı Tetiklenir ve Bu Event'a Bağlı Prosedürler Çalışır.
MsgBox("Merhaba, Dünya!")
End Sub
2- Hesap Makinesi
C++:
Private Sub Button1_Click()
' Button1 tuşuna tıklayınca Text1 ve Text2'deki sayıları toplar, sonucu Text3'te gösterir
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
3- Diğer
Bu kod kullanıldığı Form Load'a yazıldığı zaman, Checkbox'umuz işaretli iken Textbox yazılabilir olacaktır. İşaretli değilse Textbox kapalı kalacaktır.
Bu kod kullanıldığı Form Load'a yazıldığı zaman, Checkbox'umuz işaretli iken Textbox yazılabilir olacaktır. İşaretli değilse Textbox kapalı kalacaktır.
C++:
Private Sub FormLoad()
If checkbox1.Checked = False Then 'CheckBox işaretli değil
textbox1.Enabled = True 'CheckBox işaretli değilken TextBox'umuz yazı yazılabilir. Yani enabled olacak.
Else
textbox1.Enabled = False
End If
End Sub
Bu kod ise Button1e yazıldığında Label1'deki text sayı ise 1 artar. Yoksa Less Than Infinity hatası verir.
C++:
Private Sub Button1_Clicked() Handles Button1.Click
Label1.Text = (Label1.Text) + 1
'Alttaki kodsa daha karışık. Label2'yi x kabul edersek , Label1'e x'in bir fazlasını ekleyecek.
Label1.Text = (Label1.Text) + (Label2.Text + 1)
'Alttaki kod öncekilerden daha karışık. Label3'ü y kabul edersek, x ile y'nin 1'er fazlasını toplayıp label1'e ekleyecek.
Label1.Text = (Label1.Text) + ((Label2.Text + 1) + (Label3.Text + 1))
'En karışık olarak alttakini örnek verebiliriz. Label4'ü z kabul edersek , x + 1 ile y+1'i çarpacak ve bunun sonucu ile
'z'yi çarparak Label1'e ekleyecek.
Label1.Text = (Label1.Text) + (((Label2.Text + 1) * (Label3.Text + 1)) * Label4.Text)
'Alttaki komut button'a yazıldığında Label1'deki değer Textbox 1'e eşitlenecek (Less Than hatası yok.)
Label1.Text = TextBox1.Text
End Sub
Beni dinlediğiniz için teşekkür ederim iyi forumlar