Web Hattı - Türkiyenin En Güncel Forumu

müzik dosyaların bütünüün çalın

Yazılım kategorisinde ve Web Tasarım ve Hazır Kodlar forumunda bulunan müzik dosyaların bütünüün çalın konusunu görüntülemektesiniz.project componentten microsoft common dialog control ü ekleyin 4 command 1 tanede text kutusu ekleyin olduğu gibi forma yapıştırn Private ...

Geri git   Web Hattı - Türkiyenin En Güncel Forumu > Yazılım > Web Tasarım ve Hazır Kodlar

müzik dosyaların bütünüün çalın

Sitemap Liseler HaritaG XML Kayıt ol Forumları Okundu Kabul Et
müzik dosyaların bütünüün çalın


 

Alt 08-08-2006, 07:59 PM   #1
 


Standart


project componentten microsoft common dialog control ü ekleyin
4 command 1 tanede text kutusu ekleyin

olduğu gibi forma yapıştırn

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Private Sub Command1_Click()
Dim Hata As Long
Dim HataMesaji As String * 128
'Mesajı gönderiyoruz
Hata = mciSendString("open " & Chr$(34) & Text1.Text & Chr$(34) & " alias YeniSes", 0, 0, 0)
'Hata Mesajını Alıyoruz
mciGetErrorString Hata, HataMesaji, 128
MsgBox HataMesaji
End Sub


Private Sub Command2_Click()
mciSendString "play YeniSes", 0, 0, 0
End Sub

Private Sub Command3_Click()
mciSendString "close Yenises", 0, 0, 0
End Sub



Private Sub Command4_Click()
On Error GoTo error

With CommonDialog1

.CancelError = True

.DialogTitle = "Ses Dosyası aç_-_-_-_-Sunasoft Yazılım Bilgisayar-_-_-_-_"
.Filter = "Şarkı Dosyaları (*.mp3) |*.mp3; |Ses Dosyaları (*.wav) |*.wav; |Midi Dosyaları (*.mid) |*.mid"
.InitDir = "c:\"
.ShowOpen


If Len(.FileName) = 0 Then Exit Sub

Text1.Text = .FileName
cmdPlay.SetFocus
End With

error:
End Sub

Private Sub Form_Load()

'''Buraları bilmesenizde olur ben sadece nasıl çalıştığını görün diya yaptım

Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2

Command1.Caption = "Yükle"
Command2.Caption = "Çal"
Command3.Caption = "Dur"
Command4.Caption = "Gözat"


Form1.Height = 4920
Form1.Width = 8820

Command1.Top = 720
Command1.Left = 480

Command2.Top = 1320
Command2.Left = 480

Command3.Top = 1920
Command3.Left = 480

Command4.Top = 2400
Command4.Left = 6600

Text1.Top = 2520
Text1.Left = 480

Text1.Height = 285
Text1.Width = 6015

End Sub





Alt 08-09-2006, 01:54 PM   #2
 


Standart

iide bunun web tasarımı ıle ne alakası war bu vbasic kodları



Etiketler: , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,


Seçenekler


müzik dosyaların bütünüün çalın

Yazılım kategorisinde ve Web Tasarım ve Hazır Kodlar forumunda bulunan müzik dosyaların bütünüün çalın konusunu görüntülemektesiniz.project componentten microsoft common dialog control ü ekleyin 4 command 1 tanede text kutusu ekleyin olduğu gibi forma yapıştırn Private ...


müzik dosyaların bütünüün çalın konusuna benzer konular:

Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Klavyenizle envayi çeşit müzik çalın osman219 Program Download 40 10-08-2008 06:45 PM
istediğiniz ensturmanı klavye ile çalın :)) bulentnuran Program Download 16 09-07-2008 11:24 PM
Müzik Türleri / Metal Müzik & Çeşitleri heLL song Müzik Genel 1 05-02-2008 05:58 AM
Müzik Türleri / Metal Müzik & Çeşitleri heLL song Müzik Genel 5 11-04-2007 11:38 AM

Saat: 03:51 AM


c="http://s32.sitemeter.com/meter.asp?site=s32webhatti" alt="Site Mete

Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.2.0 ©2008, Crawlability, Inc.