Anasayfa > Kodlar > Visual Basic 6 ile basit bir hesap makinası

Visual Basic 6 ile basit bir hesap makinası

Bu benim ilk dökümanın.nşallah beğenirsiniz.

Private Sub Form_Load() 'formumuz yüklenirken ->
'yani form ilk açıldığında oluşturmak istediklerimiz
'Mesela formun başlığı, butonların içinde yazacaklar. vs
Form1.Caption = "ilk hesap makinesi" 'formun başlığı
Text1.Text = "" 'form açıldığında text1'in içi boş olsun
Text2.Text = "" 'form açıldığında text2nin içi boş olsun
Label1.Caption = "" 'form açıldığında label1in içi boş olsun
Label2.Caption = "" 'form açıldığında label2nin içi boş olsun
Command1.Caption = "Topla" 'bunları yazmama gerek yok 🙂
Command2.Caption = "Çıkart"
Command3.Caption = "Çarp"
Command4.Caption = "Böl"
Command5.Caption = "Temizle"
End Sub

Command1 butonumuz toplama işlemini yapıyor, bunu koda dökmek çok kolay devam edelim

Private Sub command1_click() 'toplama işlemi
Label1.Caption = "+" 'buttona bastığımız zaman iki ->
'textbox arasında "+" işareti olacak:)
Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
'text1'in içinde yazan değeri tex2ninkiyle topla
End Sub

Gördüğünüz gibi text1in değeri ile tex2nin değerini topla dedik olay bu.
Diğer işlemler için hemen hemen aynı şeyler geçerli... Çıkarma işlemine geçelim.

Private Sub command2_click() 'çıkarma işlemi
Label1.Caption = "-" 'butona bastığın zaman
'iki textbox arasında işlemin çıkarma olduğunu gösteren "-" işareti olur
Label2.Caption = Val(Text1.Text) - Val(Text2.Text)
'text1den text2'yi çıkart sıra önemli
End Sub

ne yaptık text1den text2yi çıkardık. Yani text1de "10" , text2de de "8" yazıyosa 10'dan 8'i çıkart, label2'ye sonucu yaz .)

Private Sub command3_click() 'çarpma işlemi
Label1.Caption = "x" 'artık ne yaptığımızı anladınız
Label2.Caption = Val(Text1.Text) * Val(Text2.Text)
'ne yaptık ikisni de çarptık
End Sub

olay nedir abijim, text1de 5 text2'de 3 yazıyosa bunları çarp sonuç olan 15şi label ikinin captionuna yazz.. budur.
Ama şimdi braz kasıntı ve zor bir yere geldik! Bölme ! Buralar iyi açıklama istiyor. Dikkat=>

Private Sub command4_click() 'bölme işlemi biraz zor
Label1.Caption = "÷" 'bu bölü işaretini kendin bul
'şimdi zor olan kısıma geldik
'program eğer text1 yada text2 sıfırsa ya da bir şey yamıyorsa hata verecektir
'aşağıda bunu önleyeceğiz
If Text1.Text = "" Or Text1.Text = "0" Or Text2.Text = "" Or Text2.Text = "0" Then
MsgBox ("Mantık hatası"), vbOKOnly, ("Hata")
Exit Sub
End If
'ne dedik yukarda
'eğer 🙂 text1 boşsa yada sıfırsa text2 sıfırsa yada boşsa
'mesajbox'a atla
'"exit sub" yazdık, bunu yazmazsanız program gene hata verecektir.
'yani sub'ı bitirme sadece subdan çık
Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Abijim comman5 ne butonuydu peki="temizle" 🙂

Private Sub command5_click() 'yazıları temizler
Text1.Text = "" 'text1'in içine bişey yazma
Text2.Text = "" 'text2 için
Label1.Caption = "" 'label1 için
Label2.Caption = "" 'label2 için
End Sub

Peki işimiz bittimi bitmedi. Neden abijim? olm biz hesap makinesi yapıyoruz, hesap makinesinde harflerin ne işi var?Şimdi yazacağım kodlarla text1 ve text2'nin içeriğine harf yazamayacağız sadece sayı yazacağız:)

Private Sub Text1_KeyPress(KeyAscii As Integer)
'text1in içine harf yazmamızı engeller
If KeyAscii > Asc("0") And Asc("9") < KeyAscii Then
KeyAscii = 0 'harf ise iptal et
Else
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'text2nin içine harf yazmamızı engeller
If KeyAscii > Asc("0") And Asc("9") < KeyAscii Then
KeyAscii = 0 'harf ise iptal et
Else
End If
End Sub

sporcu_60@programlama.com
________________________________________


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: