Visual Basic Rica Etsem Bi Bakarmısınız ?

BesTRengar · 1 Nis 2016

benim planımda bir program yapıcam butona bastığımda neşe veren tarzda şarkı çalsın
başka bir butona bastığımda motive edici şarkı çalsın falan bunlar yaptığım şeyler
arayüz tasarımını bitirdim kod bölümünü bitirdim.

Buton Kodlarına
System.Diagnostics.Process.Start("C:\Users\1pc\Desktop\Visual Studio\1.mp3", 1)
şeklinde koydum fakat benim istediğim bu değil çünkü bu sadece benim bilgisayarda çalışıyor
istediğim kodda öyle birşey olucakki C:\Users\1pc\Desktop\Visual Studio\1.mp3 bu kod her bilgisayarda ortak olucak yani mp3 ün yerini bulamayınca hata vermiyicek
C:\ içinde kendi dizinini bulacak veya alternatif olanını bilen varsa yazarsa sevinirim

(edit :galiba anlaşılmadı aslında sorum tam olarak şu
System.Diagnostics.Process.Start("C:\Users\1pc\Des ktop\Visual Studio\1.mp3", 1) buradaki
C:\Users\1pc bu kısım herkeste aynı değil yani kimisin pc sinin adı ahmet kimisininki mehmet
C:\Users\Mehmet için ayrı
C:\Users\Ahmet için ayrı yapılamaz
ben bunun için hepsini tek bir kodda birleştirmek istiyorum bunu nasıl yapabilirim
her bilgisayarda çalışıcak şekilde
)

BiGSLauGHTeR · 1 Nis 2016

Bir host üzerinden çek kardeşim. İnterneti olan herkeste çalışır. Ki zaten interneti olmayan programını göremez.

Shaplus · 1 Nis 2016

Eğer müzik dosyasını bulana kadar arasın diyorsan,bilgisayardaki tüm dosyların içinde müzik dosyanın ismini arattıracaksın.Eşleşen olunca da çaldıracaksın

xenceri · 1 Nis 2016

BesTRengar' Alıntı:
benim planımda bir program yapıcam butona bastığımda neşe veren tarzda şarkı çalsın
başka bir butona bastığımda motive edici şarkı çalsın falan bunlar yaptığım şeyler
arayüz tasarımını bitirdim kod bölümünü bitirdim.

Buton Kodlarına
System.Diagnostics.Process.Start("C:\Users\1pc\Desktop\Visual Studio\1.mp3", 1)
şeklinde koydum fakat benim istediğim bu değil çünkü bu sadece benim bilgisayarda çalışıyor
istediğim kodda öyle birşey olucakki C:\Users\1pc\Desktop\Visual Studio\1.mp3 bu kod her bilgisayarda ortak olucak yani mp3 ün yerini bulamayınca hata vermiyicek
C:\ içinde kendi dizinini bulacak veya alternatif olanını bilen varsa yazarsa sevinirim

Projende debug klasörüne git ve exe nin olduğu yerde mp3 kiye bir klasör oluştur. Sonra müziklerini oraya at ve projende de dosya yolu olarak mp3/1.mp3 şeklinde yaz.
Ayırca bu kodu try catche içine alırsan eğer, dosyayı bulmasa bile hata vermeyecektir. Hata yerine istediğin bir mesajı ekrana yazdırabilirsin bu sayede

BesTRengar · 1 Nis 2016

galiba anlaşılmadı

aslında sorum tam olarak şu
System.Diagnostics.Process.Start("C:\Users\1pc\Des ktop\Visual Studio\1.mp3", 1) buradaki
C:\Users\1pc bu kısım herkeste aynı değil yani kimisin pc sinin adı ahmet kimisininki mehmet
C:\Users\Mehmet için ayrı
C:\Users\Ahmet için ayrı yapılamaz
ben bunun için hepsini tek bir kodda birleştirmek istiyorum bunu nasıl yapabilirim
her bilgisayarda çalışıcak şekilde

BesTRengar · 1 Nis 2016

2 saattir kod bekliyorum hadi da proje yarım kaldı

BataryaCompany · 1 Nis 2016

Abi projenin üstünde sağ tıkla properties de.Orada resources var.Add new file de kaynak olarak ekle mp3ünü.Mesela adını muzik koydun ya resourcelarda
Sonra Programın özelliklerine

string muzigin_yeri=Application.StartupPath+"\\muzik.mp3";

de..Sonra formunun constructorında

if (!File.Exists(muzigin_yeri)) File.WriteAllBytes(muzigin_yeri,Properties.Resources.muzik);

de..Dosya varsa dokunmayacak yoksa senin resource dosyandan oluşturacak.Artık Process.Start içine muzigin_yeri yazdın mı hep doğru yeri gösterecek kullanıcı silse bile her açıldığında bir daha oluşturacak.

BesTRengar · 1 Nis 2016

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.Diagnostics.Process.Start("C:\Users\sony\Desktop\MusicBox\Songs\1.mp3", 1)
String muzigin_yeri = Application.StartupPath + "\\muzik.mp3" ;
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If (!File.Exists(muzigin_yeri)) Then File.WriteAllBytes(muzigin_yeri,Properties.Resourc es.muzik);
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
System.Diagnostics.Process.Start("C:\Users\sony\Desktop\MusicBox\Songs\2.mp3", 1)
End Sub
End Class

tam olarak böyle yaptım resources kısmındanda ekledim fakat oluşturmamakta

BataryaCompany · 1 Nis 2016

BesTRengar' Alıntı:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.Diagnostics.Process.Start("C:\Users\sony\Desktop\MusicBox\Songs\1.mp3", 1)
String muzigin_yeri = Application.StartupPath + "\\muzik.mp3" ;
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If (!File.Exists(muzigin_yeri)) Then File.WriteAllBytes(muzigin_yeri,Properties.Resourc es.muzik);
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
System.Diagnostics.Process.Start("C:\Users\sony\Desktop\MusicBox\Songs\2.mp3", 1)
End Sub
End Class

tam olarak böyle yaptım resources kısmındanda ekledim fakat oluşturmamakta

Yok abi string muzigin_yeri en ustte, formun modülün başında olacak. yoksa button1_click dışında görülmez ki..Bi de Process.Start içinde aynı yeri yapman lazım, muzigin_yeri'ni..

Abi teamviewerın varsa iki dakkada düzelteyim senin için istersen boşum şu anda haftasonuna girdik.Ben özel mesaj atamıyom bana 20 mesaj tamamla diyo admin.

BesTRengar · 1 Nis 2016

BataryaCompany' Alıntı:
Yok abi string muzigin_yeri en ustte, formun modülün başında olacak. yoksa button1_click dışında görülmez ki..Bi de Process.Start içinde aynı yeri yapman lazım, muzigin_yeri'ni..

Abi teamviewerın varsa iki dakkada düzelteyim senin için istersen boşum şu anda haftasonuna girdik.Ben özel mesaj atamıyom bana 20 mesaj tamamla diyo admin.

hallettim kardeşm teşekkür ederim daha kısa bir yolu varmış

yardım eden herkese teşekkür edildi

BataryaCompany · 1 Nis 2016

BesTRengar' Alıntı:
hallettim kardeşm teşekkür ederim daha kısa bir yolu varmış
yardım eden herkese teşekkür edildi

Ne demek abi ben de daha acemiyim biz acemiler birbirimize yardım edelim hep beraber gelişelim değilmi?Bak yardım edeceğim diye 20 mesajı doldurmuşum burada bir abiye mesaj göndermeyi çok istiyodum sayende şimdi gönderebilecem.

Visual Basic Rica Etsem Bi Bakarmısınız ?

BesTRengar

Üye

BiGSLauGHTeR

Katılımcı Üye

Shaplus

Katılımcı Üye

xenceri

Uzman üye

BesTRengar

Üye

BesTRengar

Üye

BataryaCompany

Yeni üye

BesTRengar

Üye

BataryaCompany

Yeni üye

BesTRengar

Üye

BataryaCompany

Yeni üye

Sosyal medya sayfalarımız