Cara Memainkan lagu/suara Saat Form di Load

Cara paling mudah untuk memainkan lagu/suara saat form di load pada VB adalah dengan menggunakan komponen Windows Media Player. Tak perlu input komponen tambahan, karena sudah tersedia dari sononya.

Yang diperlukan :
1 Form
1 Timer (ubah interval-nya jadi 100)
1 WindowsMediaPlayer (Jika belum ada, tambahkan dengan menekan CTRL+T, dan ceklis komponen “Windows Media Player”)
Lagu/suara yang akan dimainkan (simpan 1 folder dengan project VB nya)

Source code :

1	Private Sub Form_Load()

2	WindowsMediaPlayer1.URL = App.Path & "\sound.mp3"

3

End Sub

4

5	Private Sub Timer1_Timer()

6	WindowsMediaPlayer1.Controls.play

7

End Sub

Anda juga bisa mengganti lagu yang sesuai dengan kebutuhan anda, caranya dengan memasukkan dan menyimpan file lagu di dalam satu satu folder programnya.

Untuk lebih jelasnya, Download Source Code  nya.

Continue

Cara Membuat Animasi Text Lewat VB bersama Sugeng

Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik

1.       Pertama buka visual basic 6.0

2.       Pilih standar.exe

3.       Masukan 3 buah komponen berikut

a.       Label

b.      Timer dgn property, enabled = false, interval = 300

c.       Command buton dgn property, caption = mainkan

4.       Masukkan listing berikut

Private Sub Command1_Click()

If Command1.Caption = "mainkan" Then

    Timer1.Enabled = True

    Command1.Caption = "Stop"

Else

    Timer1.Enabled = False

    Command1.Caption = "mainkan"

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "K"

End Sub

Private Sub Timer1_Timer()

Select Case Label1

    Case "K"

    Label1.Caption = "KO"

    Case "KO"

    Label1.Caption = "KOM"

    Case "KOM"

    Label1.Caption = "KOMP"

    Case "KOMP"

    Label1.Caption = "KOMPU"

    Case "KOMPU"

    Label1.Caption = "KOMPUT"

    Case "KOMPUT"

    Label1.Caption = "KOMPUTE"

    Case "KOMPUTE"

   Label1.Caption = "KOMPUTER"

    Case "KOMPUTER"

    Label1.Caption = "KOMPUTER D"

    Case "KOMPUTER D"

    Label1.Caption = "KOMPUTER DO"

    Case "KOMPUTER DO"

    Label1.Caption = "KOMPUTER DOT"

    Case "KOMPUTER DOT"

    Label1.Caption = "KOMPUTER DOTC"

    Case "KOMPUTER DOTC"

    Label1.Caption = "KOMPUTER DOTCO"

    Case "KOMPUTER DOTCO"

    Label1.Caption = "KOMPUTER DOTCOM"

    Case "KOMPUTER DOTCOM"

    Label1.Caption = "K"

   

End Select

End Sub

Lalu jalankan dengan menekan tombol F5 pada keyboard, pelajari setiap logika yang di pakai pada program orang lain, maka anda akan mempunyai banyak penyelesaian masalah dalam pembuatan program.

Continue