kuruşlu ve kuruşsuz labellerde toplama

[zulfuernek]

http://dosya.co/4jp1bpovrp1j/label_toplama.xlsm.html

yukarıdaki liknte bulunan ekteki örnek dosyada detaylı olarak anlattım.

biri kuruş içeren label diğeri kuruşsuz labeldeki iki birimi toplayıp label 6 ya sonucu yazacak

 

[Muzaffer Ali]

Sanırım label isimlerini yazarken karıştırmışsınız.
Tam olarak ne istediğinizi anlayamadım.

Ancak şöyle yardımcı olayım size.

Label nesnelerin Caption değerleri metin olarak döner ve toplama işlemi yapılamaz.

Eğer label Caption değerlerini toplamak isterseniz önce bu değerleri aşağıdaki gibi rakam değişkenine atamalısınız. Ondan sonra küsüratlı yada değil fark etmez her türlü matematiksel işlem yapabilirsiniz.

Dim Rakam1 As Double 'Double; küsüratlı değer içerebilen rakam değişkeni anlamına geliyor.
Dim Rakam2 As Double
Rakam1 = IsNumeric(Label3.Caption)
Rakam2 = IsNumeric(Label2.Caption)

Label3.Caption = Rakam1 + Rakam2

 

[zulfuernek]

Dim Rakam1 As Double 'Double; küsüratlı değer içerebilen rakam değişkeni anlamına geliyor.
Dim Rakam2 As Double
Rakam1 = IsNumeric(Label3.Caption)
Rakam2 = IsNumeric(Label2.Caption)

Label3.Caption = Rakam1 + Rakam2


kodu yanlış yere mi yapıştırdım acaba. sayfanın en üztüne yazdım. ama kormızı ile çizdiğim yer hata veriyor

 

[Muzaffer Ali]

Yazdığım kodları kodlarınıza direk eklerseniz hata alırsınız.
Çünkü sizin istediğiniz şeyi tam olarak cevaplamıyor.
Verdiğim kodları kendi istediğiniz şeye göre dosyanıza uyarlamalısınız.

Örnek dosyada label isimlerini(numaralarını) karıştırmışsınız onun için size tam cevabı yazamadım.

 

[zulfuernek]

dosyaya uyarladım ancak genede hata veriyor. bi eksiklik var gibi

 

[Muzaffer Ali]

Dosya içerisinde sorduğunuz şunu anlayamadım.

....çarpıp sonrada label 3 tek sayının çarpımı label 2 ye yazacak.

 

[zulfuernek]

yani şöyle textbox ve labeller var:

tekxtbox 1 e küsüratlı rakam girişi yapıyorsunuz
tekxtbox 2 ye ise küsüratsız rakam yazıyorsunuz.

label label 1 ve label 3 taxtboxlara bağlı. yani texetboxdan gelen değerlerin sonucunu veriyor.

label 1 den küsüratlı değer ile textbox 3 den gelen tam sayının toplamlarını textbox 6 ya yazacak.

 

[Muzaffer Ali]

Aşağıdaki kod işinizi görecektir .

Dim Rakam1 As Double 
Dim Rakam2 As Double
Rakam1 = IsNumeric(Label1.Caption)
Rakam2 = IsNumeric(textbox3.text)

textbox6.text = Rakam1 + Rakam2