- Kod:
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
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
Perş. Mart 28, 2013 11:45 pm tarafından layezu
» Bayrak Resimleri
Cuma Nis. 02, 2010 2:23 am tarafından Admin
» Arkadaş Resimleri = 2...
Cuma Nis. 02, 2010 2:10 am tarafından Admin
» Arkadaş Resimleri =1.....
Cuma Nis. 02, 2010 2:07 am tarafından Admin
» Msn Nick Oluşturma Modül Kodu
Cuma Nis. 02, 2010 2:04 am tarafından Admin
» Türkçe Mp3 Player Kodu
Cuma Nis. 02, 2010 2:01 am tarafından Admin
» Giriş Ekle Giriş 1 Kodu
Cuma Nis. 02, 2010 1:59 am tarafından Admin
» Belgesel Videoları Kodu
Cuma Nis. 02, 2010 1:56 am tarafından Admin
» FlasH OyuNLar EkLe
Cuma Nis. 02, 2010 1:52 am tarafından Admin
» Flash Sattler
Cuma Nis. 02, 2010 1:46 am tarafından Admin
» Sitene Peygamberler TArihi Ekle
Cuma Nis. 02, 2010 1:28 am tarafından Admin
» sitene dini sorularla cevaplar ekle
Cuma Nis. 02, 2010 1:24 am tarafından Admin
» sitene duyuru panosu ekle html kod
Cuma Nis. 02, 2010 1:19 am tarafından Admin
» sağ üst köşe reklam alanı kodu
Cuma Nis. 02, 2010 1:17 am tarafından Admin
» sitene ilahi arama motoru ekle htm kodu
Cuma Nis. 02, 2010 1:15 am tarafından Admin
» sitene ilahi mp3 çalar html kodu
Cuma Nis. 02, 2010 1:13 am tarafından Admin
» Sitene Veda Hutbesi Ekle
Cuma Nis. 02, 2010 1:07 am tarafından Admin
» Not ortalama
Cuma Nis. 02, 2010 12:41 am tarafından Admin
» Ziyaretçi selamlama
Cuma Nis. 02, 2010 12:38 am tarafından Admin
» Daktilo yazisi
Cuma Nis. 02, 2010 12:37 am tarafından Admin
» Göz kirpan yazi
Cuma Nis. 02, 2010 12:33 am tarafından Admin
» Bugunku ve toplam hit... wap siteleri icin bire bir ( PHP ) script
Cuma Nis. 02, 2010 12:31 am tarafından Admin
» Mesaj yollama......
Cuma Nis. 02, 2010 12:28 am tarafından Admin
» Harf harf reknli yazi yapmak
Cuma Nis. 02, 2010 12:26 am tarafından Admin
» Kutu içerisinde çikan yazilar
Cuma Nis. 02, 2010 12:23 am tarafından Admin
» Downloader......
Cuma Nis. 02, 2010 12:21 am tarafından Admin
» Bu kod ile sayfanızda depremler yarata bilirsiniz :d
Cuma Nis. 02, 2010 12:18 am tarafından Admin
» Ziyaretci defteri......
Cuma Nis. 02, 2010 12:16 am tarafından Admin
» Google arama
Cuma Nis. 02, 2010 12:13 am tarafından Admin
» Tehlikeli bir tiklama
Cuma Nis. 02, 2010 12:09 am tarafından Admin
» Müzk dosyalarininiin bütününü çalin
Cuma Nis. 02, 2010 12:07 am tarafından Admin
» Üye girişi
Cuma Nis. 02, 2010 12:05 am tarafından Admin
» Görüş formu
Cuma Nis. 02, 2010 12:02 am tarafından Admin
» Sitenizdeki aktif kullanicilar ( AsP)
Cuma Nis. 02, 2010 12:01 am tarafından Admin
» En güzel kayan yazı
Perş. Nis. 01, 2010 11:59 pm tarafından Admin
» En iyi konuk defteri
Perş. Nis. 01, 2010 11:56 pm tarafından Admin
» Yükleniyor
Perş. Nis. 01, 2010 11:55 pm tarafından Admin
» Kayan yazı süper birşey
Perş. Nis. 01, 2010 11:53 pm tarafından Admin
» Sayfada yagmur
Perş. Nis. 01, 2010 11:52 pm tarafından Admin
» Sitende çok süper bir saat olsun
Perş. Nis. 01, 2010 11:51 pm tarafından Admin
» Farenin etrafında ismin dönsün
Perş. Nis. 01, 2010 11:49 pm tarafından Admin
» Online ziyaretci saysini
Perş. Nis. 01, 2010 11:48 pm tarafından Admin
» Hazır index
Perş. Nis. 01, 2010 11:42 pm tarafından Admin
» Hazır site sadece kodu ekle ve farkı gör
Perş. Nis. 01, 2010 11:40 pm tarafından Admin
» . Sitende enson teknoloji haberlerini bant panel halinde görüntüle
Perş. Nis. 01, 2010 11:38 pm tarafından Admin
» Sitene kamerali sesli chat ekle super
Perş. Nis. 01, 2010 11:37 pm tarafından Admin
» Günlük gazete ekle
Perş. Nis. 01, 2010 11:36 pm tarafından Admin
» Sitene gazete 1. sayfa ekle
Perş. Nis. 01, 2010 11:34 pm tarafından Admin
» Flash mp3 player
Perş. Nis. 01, 2010 11:32 pm tarafından Admin
» Poyraz internet cafe
Perş. Nis. 01, 2010 11:29 pm tarafından Admin
» Harika bir kod
Perş. Nis. 01, 2010 11:28 pm tarafından Admin
» Üniversite not hesaplama
Perş. Nis. 01, 2010 11:26 pm tarafından Admin
» Radyo Faruki'yi günün hangi saatlerinde dinliyorsunuz?
Perş. Nis. 01, 2010 3:16 am tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 6:31 pm tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 6:01 pm tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 5:56 pm tarafından Admin
» Peygamber Efendimizin Hicreti
Ptsi Mart 29, 2010 5:47 pm tarafından Admin
» Şakk-ı Kamer Mu'cizesi
Ptsi Mart 29, 2010 5:43 pm tarafından Admin
» İlk Müslümanlar
Ptsi Mart 29, 2010 5:39 pm tarafından Admin
» Peygamberlikten Önce Dünya
Ptsi Mart 29, 2010 5:35 pm tarafından Admin