Userform ile malzeme ağırlığı hesaplama

[winstoncash]

Öncelikle herkese merhaba. Kod yazma konusunda nerdeyse hiç bilgim yok, ihtiyacım olduğunda web'de bulduğum kodlarda revizyon yaparak ihtiyacımı gideriyorum normalde ama bu kez yeni bişey yapacağım için biraz yardımınıza ihtiyacım var.

Demir/çelik malzemelerin ağırlığını hesaplamak için bir form oluşturmaya çalışıyorum. Ekteki şekilde görsel kısmını hallettim. Ama girdiğim değerlere göre hesaplamayı yaptıracak ve sonucu sağdaki kutucuğun içine yazdıracak kodları nasıl yazacağımı bilmiyorum. kıymetli vaktini ayıran biri olursa çok sevinirim.

*Hesaplama formülü > (uzunluk x genişlik x kalınlık x 7.83) / 1.000.000

Her malzeme cinsine göre form içinde sekmeler oluşturdum ama mantığını çözersem diğerlerini de buna göre uyarlayarak yaparım inşallah.

 

[ÖmerFaruk]

Sonuçun yazılacağı TextBox mu Label mi kullanacaksınız bilemedim.
Parametrelerini aldığınız yerlerin TextBox olduğunu varsaydım.

Label1 = Format(Textbox1 * TextBox2 * TextBox3 * 7.83 / 1000000, "#.##0,00")

 

[uzmanamele]

Merhaba

Bu mudur?

Private Sub CommandButton1_Click()
TextBox4 = (TextBox1.Value * TextBox2.Value * TextBox3.Value * 7.85) / 1000000
End Sub

 

[winstoncash]

Merhaba

Bu mudur?

Private Sub CommandButton1_Click()
TextBox4 = (TextBox1.Value * TextBox2.Value * TextBox3.Value * 7.85) / 1000000
End Sub

Çalıştırdığımda "object required" diye bir hata veriyor.

Edit : hocam çok pardon, textbox ismini hatalı yazmışım, şimdi çalıştı. çok teşekkür ederim.

 

[winstoncash]

Sonuçun yazılacağı TextBox mu Label mi kullanacaksınız bilemedim.
Parametrelerini aldığınız yerlerin TextBox olduğunu varsaydım.

Label1 = Format(Textbox1 * TextBox2 * TextBox3 * 7.83 / 1000000, "#.##0,00")

Bunu çalıştırınca da sonuç hep 0 çıkıyor

 

[ÖmerFaruk]

TextBox içinde nasıl bir veriniz var, kodlarınızın diğer bölümlerinde ne var bilemiyorum. Bu sebeple neden sıfır görüyorsunuz tahminlerde blunmam lazım.
Kodlarınızı F8 ile adımlayarak işlemlerinizi kontrol edin. Hangi TextBox dan sıfır geldiğini bulabilirsiniz.

 

[uzmanamele]

Bunu çalıştırınca da sonuç hep 0 çıkıyor

Muhtemelen Textbox'lara yazılan verileri metin olarak alıyordur, çarpımı 0 çıkacaktır.
Ömer beyin kodunu value ekleyin.

Label1 = Format(Textbox1.value * TextBox2.value * TextBox3.value * 7.83 / 1000000, "#.##0,00")