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

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:
    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"
    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:
    0
    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:
    0
    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:
    31
    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