textbox ve dört işlem

[zulfuernek]

1) textbox1 e yazdığım değer ile label1 deki değeri çarpıp label2 ye sonucu anında yazmalı

2) label1 ile label9 arasındaki sayıları toplayıp label 10 a anında yazmalı

 

[Mustafa MUTLU]

Label Yerine textbox yada Combobox kullanınız.

Private Sub TextBox1_Change()
Label2.Caption = (TextBox1.Value * 1) + (Label1.Caption * 1)
End Sub

Bu Kod işinizi görmez ise size yol gösterir

 

[zulfuernek]

mustafa hocam labelleri textboxa çevirdim. çok daha güzel görünüyo böyle.

fakat ben tekxtboxları kilitlesemde çıkan sonucu kilitli textboxa yazdırabilir miyim?

 

[Mustafa MUTLU]

mustafa hocam labelleri textboxa çevirdim. çok daha güzel görünüyo böyle.

fakat ben tekxtboxları kilitlesemde çıkan sonucu kilitli textboxa yazdırabilir miyim?

Yazdırabilirsin
Deneme yap en iyi deneme yanılma metoduyla öğrenirsin.
Kilitli TextBox10 olsun
TextBox1 in change özelliğinde
TextBox10.Value = TextBox1.Value + TextBox2.Value
Yaparak deneyin

Private Sub TextBox1_Change()
TextBox10.Value  = TextBox1.Value +  TextBox2.Value 
End Sub

 

[zulfuernek]

mustaf hocam söylediğinz gibi textboxla yaptım. kilitli olmasına rağmen harika oldu. çalışıyor. ancak küçük bir problemi var.

mesela textbox1 e ben değeri yazıyorum
textbox2 de sabit değer var (textbox 2 kilitli ve değeri değişmiyor) bu ikisini çarpıyor ve texbox 3 e yazıyor
ancak değişken olan textbox (yani manuel giriş yapttığım textbox1 tamamen silince hata veriyor. ne yapabiliriz acaba.

 

[Mustafa MUTLU]

Private Sub TextBox1_Change()
[COLOR="red"]If TextBox1.Value > 0 Then[/COLOR]
TextBox10.Value  = TextBox1.Value +  TextBox2.Value 
[COLOR="Red"]End If[/COLOR]
End Sub

Kırmızı kodları ekle.

 

[Ömer BARAN]

Merhaba.

Konu sahibinin sorusuna bakmadım ama bir hususu hatırlatmak ve işinize yararsa
kullanmanızı önermek için cevap yazıyorum.

UserForm üzerindeki TextBox/Label içerikleriyle matematiksel işlemler yaparken
NesneAdı.Value yerine Val(NesneAdı) şeklinde işlem yapmak (aşağıdaki gibi) sanırım daha doğru.

Nesne BOŞ veya METİN içeriyorsa Val(NesneAdı)'nın sonucunun 0 olduğunu dikkate almak lazım tabi.

Ayrıca bir de hatırlatma; TextBox1.Value + Textbox2.Value şeklindeki işlemin sonucu,
iki TextBox içeriğinin toplanması değil ardarda birleştirilmesi anlamına geliyor.
.

Label2 = [COLOR="red"]Val[/COLOR](Label1) * ([COLOR="red"]Val[/COLOR](TextBox1) + [COLOR="red"]Val[/COLOR](TextBox2))

 

[zulfuernek]

Private Sub TextBox1_Change()
If TextBox1.Value > 0 Then
TextBox10.Value = TextBox1.Value + TextBox2.Value
End If
End Sub

hocalarım kod çalışıyor. ancak sorunum tam olarak bu değil. sorun şöyleki. tekxtbox1 deki manuel giriş yaptığım değeri delete ile temizleyince program hata veriyor. ((