visual basic'de hesap makinesi'ne yardım

[trikopis04]

slm

Visual basic'de hesap makinesi yapmam lazım yardım ederseniz sevinirim..

ben yaptımda işlemler olmuyor 2 gündür uğraşıom..

eğer siz yaparsanız süper olur ama;

gereken özellikler:
text 1 adet(görüntü ekranı.)
commamd 17 adet;(1,2,3,4,5,6,7,8,9,0,CE,C,+,-,*,?,=)
label 4 adet(labelleri değişken atamamak için yapıyoruz yani değişken yerine label kullancaz..yani değişkenleri labele aktarcaz...)
(((normal hesap makinesi gibi olması lazım))))
yaparsanız sevinirim..

Eadmin...

g-401a kardeş forumdaki bilgilerine göre vb den anlıon bi yardım etsen özel msj kapamışsında plase

g-401a kardeş yardım edermisin sen vb den anlıon heralde lütfen

 

[ALpMontana]

Kardes Benden Bukadar Yardım

v.basıc bılmıorum ama sıkı bır arkadasdan kaynak buldum sana al bakılm işine yararmı? :hhman:



Private Sub Form_Load() 'formumuz yüklenirken ->
'yani form ilk açıldığındaoluşturmak istediklerimiz
'Mesela formun başlığı, butonların içnde 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