Örnekteki Matematiksel hesapta Değişkenlerin türü ne ol

[bistrobellman]

Ã?rnekteki Matematiksel hesapta Değişkenlerin türü ne ol

ComboBox'a girdiğim veri : 120x120x12000
Gelen Msg Kutularında
"en" bomboş çıkıyor
"birim" 0 çıkıyor NEDEN_?

Private Sub CommandButton1_Click()
Dim birim As Double
Dim en, uzun As Integer
en = Mid(ComboBox9, 1, 3) ' 120 Yİ görmüyor!
uzun = Mid(ComboBox9, 9, 13) ' 12000 i görmüyor!
If en = 100 Then birim = 78.666
If en = 110 Then birim = 94.349
If en = 120 Then birim = 113.166
MsgBox en: MsgBox birim
MsgBox en * birim
End Sub

 

[Exelans]

Private Sub CommandButton1_Click()
Dim birim As Double
Dim en, uzun As Integer
en = 1*Mid(ComboBox9, 1, 3) ' 120 Yİ görmüyor!
uzun = 1*Mid(ComboBox9, 9, 13) ' 12000 i görmüyor!
If en = 100 Then birim = 78.666
If en = 110 Then birim = 94.349
If en = 120 Then birim = 113.166
MsgBox en: MsgBox birim
MsgBox en * birim
End Sub

 

[Haluk]

combobox9.text diye deneseniz, olur mu acaba ?

İlave:

Bir de ufak hatırlatma yapayım.

Kodlarınızda en değişkeni Integer olarak değil, Variant olarak tanımlanmış durumda.

Belki bilerek böyle yaptınız bilemiyorum....

 

[bistrobellman]

Gönderdiğiniz kodlar çalışmadı.neden acaba yaa? :kafa:

 

[Exelans]

Merhaba,
denedim ama sorun göremedim
örneğe bir bakın isterseniz.