text kutusu örnekleri (hesap makinesi oluşturma)

merhaba arkadaşlar bugün visual basicde hesap makinesi yapacagız
şimdi öncelikle visual basic 6.0 programımızı açıyoruz ve form ekranı geliyor karışımıza.
daha sonra ekrana 2 adet text kutusu ve 4 adet command ekliyoruz ve bir adet sonuçların gösterilecegi label ekliyoruz.

 daha sonra toplama işlemine tıklayıp aşagıdaki kodları yazıyoruz.

Dim a as integer
dim b as integer
dim c as integer
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = a + b
Label1.Caption = c
End Sub






 şimdide bu yazdıgımız kodları açıklayalım

öncelikle degişkenlerimizi atadık.daha sonra text kutularımızı degişkenlere sabitledik.ve başka bi degişkende işlemimizi yapıyoruz bu normal bi toplama yada çıkarma gibi işlemdir.sonrada label1.caption komutuyla çıkan sonucu form ekranında ekledigimiz yere yazdırıyoruz.


şimdide çıkarma butonuna çift tıklıyoruz ve aşagıdaki kodları yazıyoruz bu kodlar aynıdır sadece tek farkı normal 4 işlem yapılan yerdir.

Dim a as integer
dim b as integer
dim c as integer
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = a - b
Label1.Caption = c
End Sub

burda sadece c=a+b yerine c=a-b yazdık


daha sonra aynı işlemi çarpma ve bölmedede yapıyoruz ve program tamamlanıyor.

sonra  programı çalıştırıyoruz.
evet arkadaşlar bu dersimiz bu kadar bir başka visual basic dersinde görüşmek üzere kendinize iyi bakın..