Faruki | İhvan | Forum

Would you like to react to this message? Create an account in a few clicks or log in to continue.
Faruki | İhvan | Forum

Kim Cenâb-ı Hakk'ın zikrinde sebat ederse, Allah ona geniş bir geçim kolaylığı verip, ummadığı yerden rızıklandırır. Evinde,nefsinde,gönlünde ve kalbinde huzur bulur,mutlu olur.

Giriş yap

Şifremi unuttum

En son konular

» Selahaddin TAŞDEMİR
Müzk dosyalarininiin bütününü çalin EmptyPerş. Mart 28, 2013 11:45 pm tarafından layezu

» Bayrak Resimleri
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 2:23 am tarafından Admin

» Arkadaş Resimleri = 2...
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 2:10 am tarafından Admin

» Arkadaş Resimleri =1.....
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 2:07 am tarafından Admin

» Msn Nick Oluşturma Modül Kodu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 2:04 am tarafından Admin

» Türkçe Mp3 Player Kodu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 2:01 am tarafından Admin

» Giriş Ekle Giriş 1 Kodu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:59 am tarafından Admin

» Belgesel Videoları Kodu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:56 am tarafından Admin

» FlasH OyuNLar EkLe
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:52 am tarafından Admin

» Flash Sattler
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:46 am tarafından Admin

» Sitene Peygamberler TArihi Ekle
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:28 am tarafından Admin

» sitene dini sorularla cevaplar ekle
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:24 am tarafından Admin

» sitene duyuru panosu ekle html kod
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:19 am tarafından Admin

» sağ üst köşe reklam alanı kodu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:17 am tarafından Admin

» sitene ilahi arama motoru ekle htm kodu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:15 am tarafından Admin

» sitene ilahi mp3 çalar html kodu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:13 am tarafından Admin

» Sitene Veda Hutbesi Ekle
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 1:07 am tarafından Admin

» Not ortalama
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:41 am tarafından Admin

» Ziyaretçi selamlama
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:38 am tarafından Admin

» Daktilo yazisi
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:37 am tarafından Admin

» Göz kirpan yazi
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:33 am tarafından Admin

» Bugunku ve toplam hit... wap siteleri icin bire bir ( PHP ) script
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:31 am tarafından Admin

» Mesaj yollama......
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:28 am tarafından Admin

» Harf harf reknli yazi yapmak
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:26 am tarafından Admin

» Kutu içerisinde çikan yazilar
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:23 am tarafından Admin

» Downloader......
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:21 am tarafından Admin

» Bu kod ile sayfanızda depremler yarata bilirsiniz :d
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:18 am tarafından Admin

» Ziyaretci defteri......
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:16 am tarafından Admin

» Google arama
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:13 am tarafından Admin

» Tehlikeli bir tiklama
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:09 am tarafından Admin

» Müzk dosyalarininiin bütününü çalin
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:07 am tarafından Admin

» Üye girişi
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:05 am tarafından Admin

» Görüş formu
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:02 am tarafından Admin

» Sitenizdeki aktif kullanicilar ( AsP)
Müzk dosyalarininiin bütününü çalin EmptyCuma Nis. 02, 2010 12:01 am tarafından Admin

» En güzel kayan yazı
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:59 pm tarafından Admin

» En iyi konuk defteri
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:56 pm tarafından Admin

» Yükleniyor
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:55 pm tarafından Admin

» Kayan yazı süper birşey
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:53 pm tarafından Admin

» Sayfada yagmur
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:52 pm tarafından Admin

» Sitende çok süper bir saat olsun
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:51 pm tarafından Admin

» Farenin etrafında ismin dönsün
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:49 pm tarafından Admin

» Online ziyaretci saysini
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:48 pm tarafından Admin

» Hazır index
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:42 pm tarafından Admin

» Hazır site sadece kodu ekle ve farkı gör
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:40 pm tarafından Admin

» . Sitende enson teknoloji haberlerini bant panel halinde görüntüle
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:38 pm tarafından Admin

» Sitene kamerali sesli chat ekle super
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:37 pm tarafından Admin

» Günlük gazete ekle
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:36 pm tarafından Admin

» Sitene gazete 1. sayfa ekle
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:34 pm tarafından Admin

» Flash mp3 player
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:32 pm tarafından Admin

» Poyraz internet cafe
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:29 pm tarafından Admin

» Harika bir kod
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:28 pm tarafından Admin

» Üniversite not hesaplama
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 11:26 pm tarafından Admin

» Radyo Faruki'yi günün hangi saatlerinde dinliyorsunuz?
Müzk dosyalarininiin bütününü çalin EmptyPerş. Nis. 01, 2010 3:16 am tarafından Admin

» Doğa & Manzara
Müzk dosyalarininiin bütününü çalin EmptyPtsi Mart 29, 2010 6:31 pm tarafından Admin

» Doğa & Manzara
Müzk dosyalarininiin bütününü çalin EmptyPtsi Mart 29, 2010 6:01 pm tarafından Admin

» Doğa & Manzara
Müzk dosyalarininiin bütününü çalin EmptyPtsi Mart 29, 2010 5:56 pm tarafından Admin

» Peygamber Efendimizin Hicreti
Müzk dosyalarininiin bütününü çalin EmptyPtsi Mart 29, 2010 5:47 pm tarafından Admin

» Şakk-ı Kamer Mu'cizesi
Müzk dosyalarininiin bütününü çalin EmptyPtsi Mart 29, 2010 5:43 pm tarafından Admin

» İlk Müslümanlar
Müzk dosyalarininiin bütününü çalin EmptyPtsi Mart 29, 2010 5:39 pm tarafından Admin

» Peygamberlikten Önce Dünya
Müzk dosyalarininiin bütününü çalin EmptyPtsi Mart 29, 2010 5:35 pm tarafından Admin

ONLİNE ZİYARETCİ

Bilgileriniz sistemimize kaydedilmektedir.

Tarıyıcı

Tarıyıcı

Anket

Radyo Faruki'yi günün hangi saatlerinde dinliyorsunuz?
Müzk dosyalarininiin bütününü çalin Bar_left50%Müzk dosyalarininiin bütününü çalin Bar_right 50% [ 1 ]
Müzk dosyalarininiin bütününü çalin Bar_left0%Müzk dosyalarininiin bütününü çalin Bar_right 0% [ 0 ]
Müzk dosyalarininiin bütününü çalin Bar_left0%Müzk dosyalarininiin bütününü çalin Bar_right 0% [ 0 ]
Müzk dosyalarininiin bütününü çalin Bar_left50%Müzk dosyalarininiin bütününü çalin Bar_right 50% [ 1 ]

Toplam Oylar : 2

REHBER

 

 

 

KASET TANITIMI

Mart 2024

PtsiSalıÇarş.Perş.CumaC.tesiPaz
    123
45678910
11121314151617
18192021222324
25262728293031

Takvim Takvim

Anahtar-kelime


    Müzk dosyalarininiin bütününü çalin

    Admin
    Admin
    Admin


    Mesaj Sayısı : 260
    Kayıt tarihi : 22/03/10

    Müzk dosyalarininiin bütününü çalin Empty Müzk dosyalarininiin bütününü çalin

    Mesaj tarafından Admin Cuma Nis. 02, 2010 12:07 am

    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
    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

      Forum Saati Salı Mart 19, 2024 10:57 am