Kullanıcı adı:  Şifre:  Her ziyaretimde otomatik giriş yap                              GirişGiriş   
 Sitemize Hoşgeldiniz..! 

Bilişim Teknolojileri-Bilgisayar Forum
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
Son 24 Saat
Kayıt Olun
Kayıt Olun
iletişim
iletişim

Tüm zamanlar UTC + 2 saat [ GITZ ]





Yeni başlık gönder Başlığa cevap ver  [ 8 mesaj ] 
Yazar Mesaj
  Compile Error: Else Without İf
Mesaj 04 Mar 2008, 09:03 
Tecrübeli Üye
Tecrübeli Üye



Kayıt: 06 Eki 2007, 13:24
Mesajlar: 806
Konum: Kocaeli



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.


Başa Dön
   
 
 
Mesaj 04 Mar 2008, 10:08 
Tecrübeli Üye
Tecrübeli Üye



Kayıt: 06 Eki 2007, 13:24
Mesajlar: 806
Konum: Kocaeli



Yardımcı olabilirseniz sevinirim.


Başa Dön
   
 
 
Mesaj 04 Mar 2008, 10:09 
Tecrübeli Üye
Tecrübeli Üye
Kullanıcı avatarı



Kayıt: 13 Nis 2007, 12:10
Mesajlar: 707
Konum: Polatlı



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

_________________
Yaparsın, yaparsın bir kere yapmazsın senden kötüsü olmaz,
Yapmazsın, yapmazsın bir kere yaparsın senden iyisi olmaz.


Başa Dön
   
 
 
Mesaj 04 Mar 2008, 10:14 
Tecrübeli Üye
Tecrübeli Üye



Kayıt: 06 Eki 2007, 13:24
Mesajlar: 806
Konum: Kocaeli



Hocam sağolasın.


Başa Dön
   
 
 
Mesaj 04 Mar 2008, 10:17 
Tecrübeli Üye
Tecrübeli Üye
Kullanıcı avatarı



Kayıt: 13 Nis 2007, 12:10
Mesajlar: 707
Konum: Polatlı



önemlşi değil kardeş

_________________
Yaparsın, yaparsın bir kere yapmazsın senden kötüsü olmaz,
Yapmazsın, yapmazsın bir kere yaparsın senden iyisi olmaz.


Başa Dön
   
 
  Re: Compile Error: Else Without İf
Mesaj 19 Mar 2008, 02:47 
Süper Üye
Süper Üye
Kullanıcı avatarı



Kayıt: 30 Kas 2007, 20:24
Mesajlar: 1191
Konum: ...



girdab yazdı:
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
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.

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

_________________
http://www.rtyucel.com
Resim


Başa Dön
   
 
  Eksik Yazmışsın
Mesaj 11 Haz 2008, 19:14 
Yeni Üye
Yeni Üye



Kayıt: 09 Haz 2008, 19:51
Mesajlar: 9



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


Başa Dön
   
 
  Re: Compile Error: Else Without İf
Mesaj 17 Nis 2010, 18:10 
Site Gezgini
Site Gezgini



Kayıt: 26 May 2007, 17:27
Mesajlar: 38



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ı


Başa Dön
   
 
Eskiden itibaren mesajları göster:  Sırala  
Yeni başlık gönder Başlığa cevap ver  [ 8 mesaj ] 

Tüm zamanlar UTC + 2 saat [ GITZ ]


Kimler çevrimiçi

Bu forumu gezen kullanıcılar: Hiç bir kayıtlı kullanıcı yok ve 2 misafir


Bu foruma yeni başlıklar gönderemezsiniz
Bu forumdaki başlıklara cevap veremezsiniz
Bu forumdaki mesajlarınızı düzenleyemezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu foruma eklentiler gönderemezsiniz


Bu sitede ismi verilen dosyaların ve yazışmaların sorumlulukları kaynaklarına aittir.Hak sahibinin talebi durumunda derhal sitemizden kaldırılacaktır.

phpBB-alexa-cizgi-tagem-Laptop Klavye


Bilgisayar-Bilişim Teknolojileri