1 Konuyu açan erdal1941

  • erdal1941
  • erdal1941
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 15.07.2009
  • İleti: 225

Konu: Programı ne yapsam kapatamıyorum

Sevgili Arkadaşlar,
Benim başıma hiç böylesi gelmemişti. Bilmem sizin başınıza geldi mi?

Visual Fox Pro
If Eof()

Set Bell To (Addbs(Getenv('windir')))+"MEDIA\DING.WAV"

    ? CHR(7)

    WAIT .1

    SET BELL OFF 

    CLOSE ALL

    CANCEL 

    Quit

Endif


Yukarıdaki gibi basit bir program var. Bu program bir dbf dosyası açıyor. Birşeyler arıyor bulamazsa kendini kapatması gerekiyor.
Önce QUIT komutunla kapatayım dedim olmadı. Sonra CANCEL komutu ile kapatayım dedim gene olmadı. Sonra yukarıdaki gibi her iki komutu peş peşe yazdım gene olmadı.
Görünüşte herşey normal gibi görünse de program Windows görev yöneticisinde çalışıyor görünüyor ve kullandığı dbf dosyasını kapatmadığı için de ayni dosyayı daha sonra başka programa kullandırmıyor. Ancak windows görev yöneticisinden programı kapattıktan sonra başka programı çalıştırabiliyorum.
Sizce bu sorunun üstesinden nasıl gelebilirim?
Çok acele yardımınıza ihtiyacım var.
İlgilenecek arkadaşlara şimdiden çok teşekkür ederim.
Sevgilerimle.
Erdal.

2 Cevaplayan ugurlu2001

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: Programı ne yapsam kapatamıyorum

Visual Fox Pro
If Eof()

Set Bell To (Addbs(Getenv('windir')))+"MEDIA\DING.WAV"

    ? CHR(7)

    * WAIT .1

    SET BELL OFF 

CLEAR EVENTS

    CLOSE ALL

    Quit && Yada CANCEL

Endif

Böyle olur gibi.

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

3 Cevaplayan cetinbasoz Son düzenleyen, cetinbasoz (20.02.2012 15:59:12)

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Programı ne yapsam kapatamıyorum

Visual Fox Pro
If Eof()

Set Bell To (Addbs(Getenv('windir')))+"MEDIA\DING.WAV"

    ?? CHR(7)

    WAIT .1

    SET BELL OFF 

    CLOSE ALL

    clear events

    on shutdown

    return

Endif

cetinbasoz's Website

4 Cevaplayan birol

  • birol
  • birol
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 09.01.2007
  • İleti: 220

Re: Programı ne yapsam kapatamıyorum

Eof() kontrolu olduğuna göre bu kod bloğu bir döngünün içinde bulunuyor. Sonsuz döngü olabilir. SKIP gibi bir komutmu var? Program bu bloğa giriyormu ?

5 Cevaplayan erdal1941

  • erdal1941
  • erdal1941
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 15.07.2009
  • İleti: 225

Re: Programı ne yapsam kapatamıyorum

Sevgili Arkadaşlar,
Problemi çözdüm ama nasıl çözdüğümü anlamadım. Çalışmayan programın bir çıktısını aldım. Yeni bir ad altında satır satır kopyalayarak yeniden yazdım. (Aslında böylece nerede yanlış yaptığımı bulacağımı umuyordum.) Ama yanlış birşey bulamayınca çalışmayan programın aynisini yazmış oldum. Ne olduğunu anlamadım ama yeni yazdığım kopya program gayet güzel çalıştı.
İlgilenen herkese sonsuz tesekkurler.
Sevgilerimle.
Erdal