Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama
  1. Servislerimizden en iyi şekilde faydalanabilmeniz için web sitemizde çerezler kullanılmaktadır. Bu siteye giriş yaparak çerez kullanımını kabul etmiş sayılıyorsunuz. Learn More.

Compile Error: Else Without İf

Konu, 'Visual Basic' kısmında girdab tarafından paylaşıldı.


Sayfayı Paylaş /bbnetsosyal

  1. girdab

    girdab Seçkin Üye Seçkin Üye

    Kayıt:
    6 Ekim 2007
    Mesajlar:
    602
    Beğeni:
    1
    Private Sub Command1_Click()
    a = InputBox("Bugünkü Hava Sıcaklığını Giriniz", "Sıcaklık")
    If a <= 0 Then MsgBox "Hava Soğuk"
    Else: If a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
    Else: If a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"
    Else
    MsgBox "Hava Çok Sıcak"
    End If

    End Sub

    şu kodlamada Compile Error: Else Without İf hatası veriyor. Hata nerede acaba? Yardımcı olabilirseniz sevinirim.
     
  2. girdab

    girdab Seçkin Üye Seçkin Üye

    Kayıt:
    6 Ekim 2007
    Mesajlar:
    602
    Beğeni:
    1
    Yardımcı olabilirseniz sevinirim.
     
  3. fanfatih

    fanfatih Seçkin Üye Seçkin Üye

    Kayıt:
    13 Nisan 2007
    Mesajlar:
    581
    Beğeni:
    0
    Private Sub Command1_Click()
    a = InputBox("Bugünkü Hava Sıcaklığını Giriniz", "Sıcaklık")
    If a <= 0 Then MsgBox "Hava Soğuk"
    If a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
    If a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"
    if a>25 then msgbox "Hava Çok Sıcak"

    End Sub

    böyle düzeltirsen sanırım çalışır hocam
     
  4. girdab

    girdab Seçkin Üye Seçkin Üye

    Kayıt:
    6 Ekim 2007
    Mesajlar:
    602
    Beğeni:
    1
    Hocam sağolasın.
     
  5. fanfatih

    fanfatih Seçkin Üye Seçkin Üye

    Kayıt:
    13 Nisan 2007
    Mesajlar:
    581
    Beğeni:
    0
    önemlşi değil kardeş
     
  6. rtyucel

    rtyucel Seçkin Üye Seçkin Üye

    Kayıt:
    30 Kasım 2007
    Mesajlar:
    719
    Beğeni:
    0
    Kod:
    ElseIf a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
        ElseIf a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"
    şeklinde düzeltirsen çalışır hocam. Elseif de arada boşuk bulunmaz
     
  7. molla

    molla Üye

    Kayıt:
    9 Haziran 2008
    Mesajlar:
    9
    Beğeni:
    0
    Eksik Yazmışsın

    Valla o Hata Mesajı Benim bildiğim end if kelimesini eksik yazdığında çıkar.
    Ve Ben O hata ile çok Karşılaştım.Biyerlerde end if kelimesini muhakkak eksik yazmışsın
    orda ara derim
     
  8. peldir2002

    peldir2002 Site Gezgini

    Kayıt:
    26 Mayıs 2007
    Mesajlar:
    28
    Beğeni:
    0
    Private Sub Form_Load()
    a = InputBox("Bugünkü hava sıcaklığını giriniz")
    If a <= 0 Then
    MsgBox "Hava çok soğuk"
    ElseIf a > 0 And a <= 10 Then
    MsgBox "Hava soğuk"
    ElseIf a > 10 And a < 25 Then
    MsgBox "Hava sıcaklığı normal"
    Else
    MsgBox "sıcak"
    End If
    End Sub

    Bu şekilde çalışıyor Then den sonra yeni satır olarak yazılmalı
     
Yüklüyor...

Sayfayı Paylaş /bbnetsosyal