formattan sonra çalışmıyan kod

[mutluedenercan]

değerli arkadaşlar

çok önceden kullandiğım yarışma programındaki geri sayım başlangıcında ve kronometre sayarkan çıkan sesler şimdi çıkmıyor...

Xp formatını değiştirmekten başka bişi değişmedi


Debug.Print PlaySoundFileB("D:\efekt\konusmalı.wav")
--- başlangıçta efekt klasöründeki konuşmalı sesini veriyordu
Dim PauseTime, Start, Finish, TotalTime, x, Retval
a = 0
For x = TextBox1.Value To 0 Step -1
TextBox1.Text = Str(x)
PauseTime = 1
Start = Timer
Beep --- her saniye bip sesi veriyordu

Arkadaşlaş illa eskiden kullendığım xp yi yenidenmi kuracam bu xp de bu kodlar neden çalışmaz

 

[Korhan Ayhan]

Merhaba,

Hangi işletim sistemini kurdunuz? Kullandığınız api satırı duruyor mu?

"PlaySoundFileB"

32 Bit ve 64 Bit sistemlerde kullanılan apileri düzenlemek gerekiyor. Bu gibi durumlarda "PtrSafe" ifadesi kullanılmaktadır. Forumda arama yaparak bilgi sahibi olabilirsiniz.

 

[mutluedenercan]

XP kurulu , api satırı ne anlamadım

"PtrSafe" ifadesi ilemi değiştircem

yaklaşık birbuçuk saatdir bu ifedeyi aradım, bulduğum örneklerde bu ifedeyi bulamadım...

yardım edermisinz

 

[mutluedenercan]

bir kaç yıl önce kurduğum xp sp3 ile şimdiki xp sp3 arasında ne fark varki geri sayımda ve süre bitiminde ses getiren bu kod bu formatta çalışmaz oldu...

yardm ....

 

[mutluedenercan]

arkadaşlar ,,, bu programı çalıştırmam lağzım...kafayı yiyecem

illa eskiden kullandığım xp formata dönmem mi gerek ...şimdikide xp (oynanmış, orjinal deyil )

bişimi yüklüycem ..kodumu değiştircem ...bir bilen varmı

 

[mutluedenercan]

Hocalarım, yardım....

 

[Korhan Ayhan]

Merhaba,

Kırmızı ifadeniz zaten tüm durumu anlatmıyor mu?

illa eskiden kullandığım xp formata dönmem mi gerek ...şimdikide xp (oynanmış, orjinal deyil )

 

[mutluedenercan]

peki oynanmamış xp bulamazsam bu kodlar çalışmaz mı ?

illa hiçbir bileşenine dokunulmamış bir xp kurmammı gerekir ...

bir yolu yokmu...

TEŞEKKÜR

 

[Korhan Ayhan]

Siz bu kodun çalışan bir örnek dosyasını foruma ekleyin inceleyelim. Size ona göre yanıt verelim.

 

[mutluedenercan]

ekledim

bu yarışma programı şüre başında efkt klasöründeki sesi süre düşerkende bir bip
sesi üretiyordu......

zamanım azaldı ... sınıflar arası yarışma yapacağız...


teşekkürler

 

[mutluedenercan]

ekledığim çalışan (formattan önce çalışan) örneği inceliyebildinizmi

orjinal win 7 (starter) de de hata verdi bu kodlar ....illa XP orjinal mi gerek ....

Teşekkür

 

[Korhan Ayhan]

Ben iş yerimdeki XP de denedim sorun çıkarmadan çalıştı.

Kullandığınız ses çalma apileri aşağıdaki linkteki dosyaya ihtiyaç duyuyor. Sizin kullandığınız işletim sisteminde bu dosyanın varlığını kontrol edin. Yoksa sisteminize aşağıdaki linkten yükleyin.

"winmm.dll"

http://www.dll-files.com/dllindex/dll-files.shtml?winmm

Ayrıca amacınız sadece "BEEP" sesini kullanmaksa ekteki dosyayı da kullanabilirsiniz. İşinize yarayabilir.

 

[mutluedenercan]

ilginize teşekkür....linki yükledim... sonuç gene ses vermedi...

sizin örnektede beep sesi çıkmadı...

 

[Korhan Ayhan]

Bilgisayarınız sesinin açık olup olmadığını da kontrol ediniz. Eğer açıksa çözüm olarak Orjinal XP yükleyiniz.

 

[mutluedenercan]

efendim, ses açık ...........

win 7 yüklü bilgisayardada denedim ....ses kısmı çalışmadı...

orjinal xp ye geçince sorun kalmıyor....

ama neden win 7 de ve oynanmış xp lerde çalışmadığını merak ediyorum

 

[Korhan Ayhan]

Günaydın,

Orjinal olmayan XP işletim sisteminde büyük ihtimalle sesle ilgili bir bileşen çıkarılmıştır. Bu sebeple ses çalma işlemi gerçekleşmiyor olabilir.

Windows7 işletim sistemi 64 bit ise bu sorun yaratır. Kullandığınız apileri 64 bit sisteme uygun şekilde derlemelisiniz.

 

[mutluedenercan]

32 bit idi...
bu programda geri sayım kodundaki str ifadesi nedir anlıyamadım ,,, aşağıdaki satırlarla kısa bir bilgi verirmisinz


Dim PauseTime, Start, Finish, TotalTime, x, Retval
a = 0
For x = TextBox1.Value To 0 Step -1
TextBox1.Text = Str(x) ( Bu str değişkenmidir, tanımlanmamış nasıl çalışıyor )
PauseTime = 1
Start = Timer


Do While Timer < Start + PauseTime Or a = 100

DoEvents

Loop

Next x