Çarpım Problemi

[xwyz1]

Private Sub UserForm_Activate()
Label24.Caption = Val(ComboBox8.Text) * Val(TextBox12.Text)
End Sub

Veriyi çarpıp labele göstertmek. Ancak Label'de veri değişmiyor nerede hata yapmış olabilirim?

 

[mustafaine1]

Val(ComboBox8.Text) * Val(TextBox12.Text)
yu bi integera atayip sonra caption yapmayi denediniz mi ?

 

[xwyz1]

Label1.Caption= ”Carp”
Carp = Val(ComboBox8.Text) * Val(TextBox12.Text)

Şu şekilmi?

 

[mustafaine1]

dim carp as integer
carp = Val(ComboBox8.Text) * Val(TextBox12.Text)
Label1.Caption= Carp

 

[xwyz1]

Private Sub UserForm_Activate()
Dim carp As Integer
carp = Val(ComboBox8.Text) * Val(TextBox12.Text)
Label24.Caption = "carp"
End Sub

eah olmadı

 

[mustafaine1]

Label24.Caption = "carp"

Label24.Caption = carp

olmasi gerekir tirnaklar olmicak.. bende sasirmisim

 

[xwyz1]

Gene olmadı 0 yazıyor labelde bunu bende yazdırabiliyorum ancak ben çarpımın sonucunu istiyordum (=

 

[mustafaine1]

Dim carp As Integer
carp = ComboBox8.Value * textBox12.Value
Label1.Caption = carp

peki bu

 

[xwyz1]

Abi direk debug verdi naptın

 

[mustafaine1]

Sen dosyayi ekle en iyisi direk yapalim boyle olmuyo bi turlu anlamadim

 

[xwyz1]

Sıfır formda da denedim gene değişmedi bence kodda eksiklikveya yanlış birşey yapıyoruz birde sen deneyebilirmisin boş bir formda?

 

[mustafaine1]

combobox`ida elle doldurun ugrasmak istemedim, labeli tiklayin onun clickinde

 

[xwyz1]

Abi bunu bende yapardım sağolasında asıl prob. otomatik değişmesi idi
Şimdi

Private Sub UserForm_Activate()
Label1.Caption = "Melaba"
End Sub

yazdığımda o veriyi direk geçiriyorda toplama çıkarma niye geçmiyor anlam veremedim.

 

[mustafaine1]

o halde combobox in change`ine

Dim carp As Integer


If TextBox1.Text <> "" Then

carp = ComboBox1.Value * TextBox1.Value
Label1.Caption = carp
Else
Label1.Caption = "textbox`a bir deger giriniz"
End If

bu sekilde yazabilirsin..

 

[xwyz1]

Abi aynısını denedim Combox'ı değiştirince değer değişiyor ilk textboxa veri girince değişmiyor o kod tek taraflı

 

[mustafaine1]

o zaman textboxin degisimine de tam tersini yaz

If combobox1.value <> "" Then

carp = ComboBox1.Value * TextBox1.Value
Label1.Caption = carp
Else
Label1.Caption = "combobox`a bir deger giriniz"
End If

 

[xwyz1]

O koddan 11 kere yazmam gerekicek 11 x2 = 22 parça kodmu giricem bi labele göstertmek için

 

[mustafaine1]

bi tanesi bossa nolucak ? or la su yada su gibisinde bossa soyle yap diyebilirsin, sonjucta ben senin calismani bilmiyorum dosya paylasmadin ve birazdan cikicam boylede yardim edemicem