- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
Ã?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
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