- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
Private Sub CommandButton1_Click()
Dim birim As Double
Dim en, uzun As Integer
en = 1 * Mid(ComboBox9, 1, 3)
uzun = 1 * Mid(ComboBox9, 9, 13)
If en = 100 Then birim = 1 * 78.666
If en = 110 Then birim = 1 * 94.349
If en = 120 Then birim = 1 * 113.166
UserForm2.TextBox16 = (1 * (birim * uzun * TextBox20)) / 1000
UserForm2.show
End Sub
Ã?RNEK:
Programa göre:
Ã?rneğin ComboBox9 daki veri : 120X120X12000, TextBox20(adet) 15 OLSUN farzedelim.
en=120
uzun =12000 mm
birim = 113.166
UserForm2.TextBox16 = (1 * (birim * uzun * TextBox20)) / 1000>(UZUNLUÃU metreye çevirmek için)
=(1 * 113.166* 12000* 15) / 1000
= 20.370 ton çıkıyor HALBUKİ 20,370 (20 TON 370 KG) ÇIKMASI GEREK
NOKTALI ÇIKMAMASINI SAYININ VİRGÜLLÜ ÇIKMASINI NASIL SAÃLARIZ?
TextBox16_Change() OLAYINA
TextBox16 = Format(TextBox16, "#,##0")
BUNUDA YAZDIM YOKSA 20.369,88 ÇIKIYORDU NORMALDE...TEK NOKTAYI NASIL VİRGÜL YAPARIZ (20.,370)
Dim birim As Double
Dim en, uzun As Integer
en = 1 * Mid(ComboBox9, 1, 3)
uzun = 1 * Mid(ComboBox9, 9, 13)
If en = 100 Then birim = 1 * 78.666
If en = 110 Then birim = 1 * 94.349
If en = 120 Then birim = 1 * 113.166
UserForm2.TextBox16 = (1 * (birim * uzun * TextBox20)) / 1000
UserForm2.show
End Sub
Ã?RNEK:
Programa göre:
Ã?rneğin ComboBox9 daki veri : 120X120X12000, TextBox20(adet) 15 OLSUN farzedelim.
en=120
uzun =12000 mm
birim = 113.166
UserForm2.TextBox16 = (1 * (birim * uzun * TextBox20)) / 1000>(UZUNLUÃU metreye çevirmek için)
=(1 * 113.166* 12000* 15) / 1000
= 20.370 ton çıkıyor HALBUKİ 20,370 (20 TON 370 KG) ÇIKMASI GEREK
NOKTALI ÇIKMAMASINI SAYININ VİRGÜLLÜ ÇIKMASINI NASIL SAÃLARIZ?
TextBox16_Change() OLAYINA
TextBox16 = Format(TextBox16, "#,##0")
BUNUDA YAZDIM YOKSA 20.369,88 ÇIKIYORDU NORMALDE...TEK NOKTAYI NASIL VİRGÜL YAPARIZ (20.,370)