Cara Membuat Text Berjalan Pada Artikel Dan Sidebar WordPress

1.Kunjungi situs ne gan Marquee Text Live

kemudian akan muncul halaman situs dari Marquee text tersebut,,lihat gambar..

2. Perhatikan..

-Text: Tuliskan text yang agan inginkan,,
contoh : Selamat Datang Sahabat – Akimlinovsisa’s Blog – Jangan Lupa Berkomentar Iah..

-Font: Tentukan jenis font yang agan inginkan,,
Contoh: Ane pilih jenis font “Boyz R Gross”

-Font Size: Atur ukuran fontnya,,
Contoh: Ane ukurannya 50

-Angle: kosongkan saja,,

-Marquee Widht: Lebar text saat berjalan,,
Contoh: Ane pke lebar 25

-Text colour: Tentukan warna dari text agan,,
Contoh: Ane pilih warna putih

-Direction: Arah dari text berjalan punya agan,,tentukan ada 2 pilihan:
_Right to left
_Left to right,,

-Marquee Behavior: Jenis animasi dari text agan:
_ Scroll(text berjalan)
_ Slide In(text berjalan kemudian berhenti)
_ Alternate(tek bulak balik)
Contoh: Ane pilih yang “Scrool”

-Animation Sped: kecepatan tulisan agan berjalan
Contoh: Ane Pke kecepatan 15

3.Setelah semuanya selasai klik “ Create Marquee text”,,lihat gambar diatas,,

4. Kemudian copy kode htmlnya yang nanti bisa agan letakan pada artikel maupun sidebar wordpress,,lihat gambar(kotak warna merah)..

Untuk memasang pada artikel seperti biasa agan posting artikel,,

klo untuk memasang pada sidebar wordpress gunakan widget text,,caranya adalah:

1.Silahkan masuk ke dashboard WordPress Anda
2.Kemudian klik “Appereance/Tampilan” –-> pilih ” Widget “
3.Pilih widget “Text“ drag ke sidebar widget,,
4.Kemudian copy-paste kode HTML tadi kedalam widget text tersebut,
5.Simpan dan Selesai..

 

 

sumber : http://akimlinovsisa.wordpress.com/2012/03/09/cara-membuat-text-berjalan-pada-artikel-dan-sidebar-wordpress/

Membuat huruf Besar pada textbox Dengan Visual Basic 2008

Mengubah huruf besar dan huruf kecil di vb.net sering kita lakukan agar huruf yang di input user pada program yang kita buat rapi dan seragam.

Berikut kode simple agar huruf yang di input user  menjadi huruf besar atau huruf kecil.

Untuk memperbesar huruf

 

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
TextBox1.CharacterCasing = CharacterCasing.Upper
End Sub

Atau menggunakan kode perintah ini :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.KeyChar = UCase(e.KeyChar)
End Sub

Supaya selalu huruf kecil.

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
TextBox2.CharacterCasing = CharacterCasing.Lower
End Sub

atau

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
e.KeyChar = LCase(e.KeyChar)
End Sub

Untuk mengetahui apakah kode berjalan, non aktifkan tombol Caps Lock ketika menulis di textbox huruf besar dan sebaliknya.

Membuat Autonumber Menggunakan Kombinasi Bulan & Tahun di Visual basic 2008

Pada postingan terdahulu gw sudah pernah buat sharing ide cara membuat penomoran otomatis. Baca sebelumnya. Nah kali ini gw mau sedikit improve cara membuat autonumber dengan kombinasi bulan (MM) dan tahun (yy). Seringkali klien banyak request untuk dibuatkan penomoran otomatis yang mengambil kombinasi bulan & tahun. Sebenarnya nga banyak berubah koding yang dipergunakan seperti pada postingan gw terdahulu. Hanya beberapa modifikasi sedikit. O iya sekedar informasi, banyak juga teman-teman yang request ke e-mail gw mengenai aplikasi yang ini. Sehingga membuat gw terpacu untuk memodifikasi penggunaan autonumber yang telah ada. ^-^

 

 

 

Ok seperti biasa aplikasi yang dibuat ini merujuk kepada penggunaan bahasa program Visual Basic (VB.Net 2008) dan SQL Server 2005

*FORMAT NO. INVOICE YANG GW BUAT : INV/CMI/06/11/00001

*keterangan :

INV : adalah kode untuk Invoice

CMI : adalah nama perusahaan

06 : adalah bulan (MM)

11 : adalah tahun (yy)

00001 : adalah autonumber – yang akan bertambah setiap transaksi masuk

Adapun langkah-langkah kerja dalam pembuatan autonumber ini adalah :

1. Persiapkan database-nya. Disini gw membuat database dengan nama “concept_db”

Berikut query untuk pembuatannya :

1 2 3 4

create table purchasing_order( no_invoice varchar(50), nama_cust varchar(50), alamat_cust varchar(50));

2. Setelah selesai dengan database langkah selanjutnya adalah koding untuk form yang telah dibuat :
Sebelumnya gw akan kasih liat tampilan program-nya :

Tampilan setelah ada data masuk :

2.1 Pertama-tama buat dulu Class untuk koneksi ke database. Dalam program gw, nama class-nya adalah : ClsKoneksi

Coding :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Imports Microsoft.VisualBasic Imports System.Data.Sql Imports System.Data Imports System.Data.SqlClient Public Class ClsKoneksi     Protected tblPengguna = New DataTable     Protected SQL As String     Protected Cn As SqlClient.SqlConnection     Protected Cmd As SqlClient.SqlCommand     Protected Da As SqlClient.SqlDataAdapter     Protected Ds As DataSet     Protected Dt As DataTable     Public Function OpenConn() As Boolean         Cn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=concept_db;Integrated Security=True")         Cn.Open()         If Cn.State <> ConnectionState.Open Then             Return False         Else             Return True         End If     End Function     Public Sub CloseConn()         If Not IsNothing(Cn) Then             Cn.Close()             Cn = Nothing         End If     End Sub     Public Function ExecuteQuery(ByVal Query As String) As DataTable         If Not OpenConn() Then             MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")             Return Nothing             Exit Function         End If           Cmd = New SqlClient.SqlCommand(Query, Cn)         Da = New SqlClient.SqlDataAdapter         Da.SelectCommand = Cmd           Ds = New Data.DataSet         Da.Fill(Ds)           Dt = Ds.Tables(0)           Return Dt           Dt = Nothing         Ds = Nothing         Da = Nothing         Cmd = Nothing           CloseConn()       End Function     Public Sub ExecuteNonQuery(ByVal Query As String)         If Not OpenConn() Then             MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")             Exit Sub         End If           Cmd = New SqlClient.SqlCommand         Cmd.Connection = Cn         Cmd.CommandType = CommandType.Text         Cmd.CommandText = Query         Cmd.ExecuteNonQuery()         Cmd = Nothing         CloseConn()     End Sub End Class

2.2 Setelah Class Koneksi dibuat, maka sekarang masuk ke inti dari program ini. Yaitu koding untuk Form1-nya :

Coding :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Imports System.Data.SqlClient Imports System.Data Public Class Form1 Dim SQL As String Dim SQL2 As String Dim Proses As New ClsKoneksi Dim tblMerk As DataTable 'Dim Da As SqlClient.SqlDataAdapter Sub Data_Record() tblMerk = Proses.ExecuteQuery("Select * From purchasing_order") DataGridView1.DataSource = tblMerk DataGridView1.Columns(1).Width = 130 End Sub 'Kode otomatis untuk buat invoice Sub Kode_Otomatis() Dim date1 As String date1 = Format(Now, "yy") Dim date2 As String date2 = Format(Now, "MM") tblMerk = Proses.ExecuteQuery("Select * From purchasing_order order by no_invoice desc") If tblMerk.Rows.Count = 0 Then   TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/00001" Else With tblMerk.Rows(0) TextBox1.Text = .Item("no_invoice") End With TextBox1.Text = Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 15, 5)) + 1 If Len(TextBox1.Text) = 1 Then TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/0000" & TextBox1.Text & "" ElseIf Len(TextBox1.Text) = 2 Then TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/000" & TextBox1.Text & "" ElseIf Len(TextBox1.Text) = 3 Then TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/00" & TextBox1.Text & "" ElseIf Len(TextBox1.Text) = 4 Then TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/0" & TextBox1.Text & "" ElseIf Len(TextBox1.Text) = 5 Then TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/" & TextBox1.Text & "" End If   End If End Sub   Sub bersih() Call Data_Record() Call Kode_Otomatis() BtnTambah.Enabled = True TextBox1.Enabled = False TextBox2.Text = "" TextBox3.Text = "" TextBox1.Focus() End Sub   Private Sub DGJenisBrg_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick TextBox1.Text = DataGridView1.SelectedCells(0).Value TextBox2.Text = DataGridView1.SelectedCells(1).Value TextBox3.Text = DataGridView1.SelectedCells(2).Value BtnTambah.Enabled = False End Sub Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click   Try If (Me.TextBox1.Text = "") Then MsgBox("Data Wajib Diisi Lengkap!", MsgBoxStyle.Information, "Perhatian") Me.TextBox2.Focus() Exit Sub Else SQL = "Insert Into purchasing_order Values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')" Proses.ExecuteNonQuery(SQL) MessageBox.Show("Proses Data Berhasil!", "Sukses saved", MessageBoxButtons.OK, MessageBoxIcon.Information) Call bersih() End If Catch ex As SqlException MsgBox(ex.Message, MsgBoxStyle.Information, "Perhatian")   End Try   End Sub Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click Call bersih() End Sub   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Me.WindowState = FormWindowState.Maximized Call bersih() DataGridView1.Columns(0).HeaderText = "No. Invoice" DataGridView1.Columns(1).HeaderText = "Nama Customer" DataGridView1.Columns(2).HeaderText = "Alamat Customer"   Me.DataGridView1.DefaultCellStyle.ForeColor = Color.Coral ' Change back color of each row Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.AliceBlue ' Change GridLine Color Me.DataGridView1.GridColor = Color.Blue ' Change Grid Border Style Me.DataGridView1.BorderStyle = BorderStyle.Fixed3D DataGridView1.EnableHeadersVisualStyles = False DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.LightGray End Sub End Class

Keterangan properties untuk Form1

Textbox1.Text = Untuk input no.invoice

Textbox2.Text = Untuk input nama customer

Textbox3.Text = Untuk input alamat customer

BtnTambah = Eksekusi data

DatagridView1 = Binding data

BtnBatal = Membersihkan textbox dan refresh data

 

Teman-teman dapat memodifikasi sesuai dengan kebutuhan masing-masing. Kalo ada yang kurang dimengerti dari koding diatas mohon kasih tau gw lewat comment di postingan ini. Semoga bermanfaat yah……

Happy Coding ^_*

Cara Membuat Nomor Otomatis Dengan Visual Basic 2008

jadi coding ini buat nampilin nomor otomatis dengan format tanggal/bulan/tahunn+nomor urut..

gimana codingnya di vb.net ??

neh..

——————————————————————
Shared Function NomorBaru() As String
Dim intValue As Integer = 1
Dim Nota As String = Date.Now.ToString(“ddMMyy”)
Dim rValue As String
Using objConnection As New OleDb.OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;” & “Data Source=” & Application.StartupPath + “\Master.mdb ; ” & “User Id=admin;”)
objConnection.Open()
Dim objCommand As OleDb.OleDbCommand = objConnection.CreateCommand()
objCommand.CommandText = String.Format(“SELECT NoService FROM [SO] WHERE NoService LIKE'{0}###’ ORDER BY NoService DESC”, Nota)
Dim objValue As Object = objCommand.ExecuteScalar()
If objValue IsNot Nothing Then
If objValue IsNot DBNull.Value Then
Dim strvalue As String = objValue.ToString().Remove(0, 6)
Integer.TryParse(strvalue, intValue)
intValue += 1
End If
End If
objCommand.Dispose()
End Using
rValue = Nota & intValue.ToString(“00#”)
Return rValue
End Function
—————————————————————————

ket :

warna Merah : untuk Database Yg Digunakan
warna Hijau : untuk nama Field yg digunakan
warna kuning : untuk Nama tabel yg digunakan

Terima kasih..

mudah2an berguna dah..

MENGATASI MASALAH ERROR PADA KONEKSI VB.NET DENGAN MICROSOFT ACCESS

Hmmmmmmmmmm, cukup menjengkelkan memang jika kita sudah capek2 mendasain dan coding tapi hasilnya error, aplagi kalau kita sudah benar-benar mengikuti langkah-langkah nya secara benar,….
yupppppp, di postingan kali ini saya kan berbagi tentang cara memperbaiki masalh error pada vb.net dan acces,

pda umumnyakesalahan atau error yang akan saya bahas disini jika pesan error nya sbb :

 

 

jika temen temen berjumpa dengan error seperti diatas, maka solusinya yaitu :

buka lagi pada projectproperties>>lalu pilih setting :

 

dan gantilah
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”E:\.NET FOTO ACCS\DB_BRG.mdb”
menjadi
Provider=Microsoft.
ACE.OLEDB.12.0;Data Source=”E:\.NET FOTO ACCS\DB_BRG.mdb”

lalu coba lihat hasilnya>> tekan F5

nah sekian dulu postingan kali ini,

terimakasih atas kunjunganya…………..

PENCARIAN DATA Visual Basic 2008

Posting kali ini masih meelanjutkan dari postingan sebelumnya yaitu Koneksi database dengan metode modul,

Langsung saja klik dua kali pada txtkode, dan rubah event menjadi LOSTFOCUS

Lalu ketikan kode berikut ..

 

 

Private Sub TXTKODE_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTKODE.LostFocus

        CMD = New OleDbCommand(“SELECT * FROM TB_BRG WHERE KD_BRG = ‘” & TXTKODE.Text & “‘”, CONN)

 

        RD = CMD.ExecuteReader

        RD.Read() ‘ RD READER

        If RD.HasRows = True Then

            TXTNAMA.Text = RD.Item(1)

            TXTH_BELI.Text = RD.Item(2)

            TXTH_JUAL.Text = RD.Item(3)

            TXTJUMLAH.Text = RD.Item(4)

        Else

            TXTKODE.Text = “”

            TXTKODE.Focus()

            MsgBox(“DATA TIDAK DITEMUKAN…!”, MsgBoxStyle.OkOnly, “PENTING”)

        End If

    End Sub

 

Sebelum menjalankan pastikan database dudah terisi data,

Jalankan dan ketikan text yang sama pada kode, dan tekan tab pada keyboard maka field-field nya akan tampil pada textbox, namun jika text tidak ada dalam kode maka akan muncul pesan

“ Data tidak ditemukan………”

 

Terimakasih, walaupun sedikit semoga dapat membantu teman-teman yang masih newbie kayak saya ini…..

Konfigurasi Connector / ODBC DSN pada Windows

ODBC Data Sumber Administrator dalam Windows memungkinkan Anda membuat DSNs, memeriksa instalasi driver dan mengkonfigurasi sistem ODBC seperti tracing (digunakan untuk debugging) dan koneksi pooling.

Berbeda edisi dan versi Windows toko ODBC Data Sumber Administrator di lokasi yang berbeda tergantung pada versi Windows yang Anda gunakan.

Untuk membuka Sumber Administrator ODBC Data pada Windows Server 2003:
ujung

Untuk mengidentifikasi apakah DSN diciptakan dengan menggunakan 32-bit atau driver 64-bit, termasuk pengemudi yang digunakan dalam identifier DSN. Ini akan membantu Anda untuk mengidentifikasi DSN yang tepat untuk digunakan dengan aplikasi seperti Excel yang hanya kompatibel dengan driver 32-bit. Misalnya, Anda bisa menambahkan Using32bitCODBC ke identifier DSN untuk antarmuka 32-bit dan Using64bitCODBC bagi mereka yang menggunakan Konektor 64-bit / driver ODBC.

1.  Pada menu Start, pilih Administrative Tools, dan kemudian klik Sumber Data (ODBC).

Untuk membuka Sumber Administrator ODBC Data di Windows 2000 Server atau Windows 2000 Professional:

1. Pada menu Start, pilih Settings, kemudian klik Control Panel.
2.  Dalam Control Panel, klik Administrative Tools.
3.  Dalam Administrative Tools, klik Sumber Data (ODBC).

Untuk membuka Sumber Administrator ODBC Data pada Windows XP:

1. Pada menu Start, klik Control Panel.      
2. Dalam Control Panel ketika di klik Kinerja dan Pemeliharaan Kategori View dan kemudian klik Administrative Tools .. Jika Anda melihat di Control Panel Classic View, klik Administrative Tools.
3. Dalam Administrative Tools, klik Sumber Data (ODBC).

Terlepas dari versi Windows Anda, Anda harus disajikan jendela Data Source Administrator ODBC:

 

 Dalam Windows XP, Anda dapat menambahkan folder Administrative Tools ke menu Start Anda untuk membuatnya lebih mudah untuk menemukan Administrator ODBC Data Source. Untuk melakukan hal ini:

1. Klik kanan menu Start. 
2. Pilih Properties. 
3. Klik Customize …. 
4.  Pilih tab Advanced.

     Dalam item menu Start, dalam bagian Sistem Administrative Tools, pilih Tampilan pada menu Program Semua.

Dalam kedua Windows Server 2003 dan Windows XP, pertimbangkan secara permanen menambahkan Administrator ODBC Data Source ke menu Start Anda. Untuk melakukan ini, mencari Sumber Data tersebut (ODBC) icon menggunakan metode yang ditunjukkan, kemudian klik kanan pada icon dan kemudian memilih Pin to Start Menu.

Antarmuka untuk versi 3.51 dan 5.x dari Connector / driver ODBC berbeda, meskipun ladang dan informasi yang Anda butuhkan untuk masuk tetap sama.

Untuk mengkonfigurasi DSN menggunakan Connector / ODBC 5.2, lihat Bagian 22.1.4.3.1, “Konfigurasi Connector / ODBC 5.x DSN pada Windows”.

Sumber:
http://dev.mysql.com/doc/refman/5.5/en/connector-odbc-configuration-dsn-windows.html

Ruang Server Facebook

Facebook atau FB, situs jejaring sosial yang saat ini sepertinya wajib dimilki oleh setiap orang. Dalam sehari ribuan akun baru bermunculan dari seluruh dunia, tak terkecuali Indonesia sendiri yang masuk peringkat ke-4 pengguna facebook terbanyak setelah Amerika serikat negara asalnya sendiri, kemudian Brazil dan India.

Seperti manusia, Facebook saat ini sudah semakin gemuk. Penggunanya sudah mencapai ratusan juta, aplikasi dan fitur di dalamnya pun makin bertumpuk. Dengan pertumbuhan yang sangat pesat tersebut, sudah pasti tak lepas dari dukungan teknologi – teknologi canggih, salah satunya server(data centre).
bayangkan berapa banyak dan besar kapasitas server itu sendiri.

Mari kita intip yuk…! Inilah ruangan server untuk facebook :

server ditetapkan untuk meminimalkan energi yang dibutuhkan.

2 rak tumpukan server

Untuk mengendalikan panasnya disediakan thermometer dan pendingin,serta disediakan juga daya cadangan.

Kabel-kabel berikut inilah yang menghubungkan satu sama lainnya.

Dan inilah semua web server tersebut yang menyimpan photo dan data seluruh pengguna facebook yang akan terus bertambah.

Kabel-kabel berikut inilah yang menghubungkan satu sama lainnya.

Gimana sobat, sekarang sudah tahu bukan? berapa banyak server yang dibutuhkan facebook untuk menyimpan seluruh data-data penggunanya diseluruh dunia, termaksud akun facebook sobat

Membuat Musik Player dengan Visual Basic 2008

Pertama buat project baru File> New Project atau CTRL+ N

Buatlah 1 label dan 3 Button hingga seperti contoh di bawah ini :

Klik pada form dan lihat pada properties nya rubah bagian Text menjadi Musik Player

masih pada properties rubah bagian ShowIcon menjadi False

Lanjut pada Label1 lihat pada properties nya pada bagian AutoSize rubah menjadi False

masih pada properties Label1 pada bagian Text kosongkan

Masih di properties Label1 pada bagian TextAlign rubah menjadi MiddleCenter

Selanjutnya klik Button1 pada bagian Properties bagian Text ganti menjadi Mulai

Klik Button2 dan rubah pada properties bagian Text nya menjadi Berhenti

Pada button3 di properties Text nya rubah menjadi Buka File

 

Setelah selesai, klik kembali Label1 dan pada propertiesnya bagian Anchor rubah sesuai gambar di bawah ini,

Setelah itu klik dan seleksi tombol Mulai dan Berhenti dengan cara tekan Ctr+Klik

rubah pada propertiesnya bagian Ancornya menjadi sesuai gambar di bawah ini :

Setelah itu klik Button3 rubah pada bagian Properties bagian Anchor menjadi sesuai pada gambar

Kembali lagi pada Label1 rubah kembali pada bagian Anchor di propertiesnya

Sekarang masuk ke ToolBox masukan Windows Media Player ke Form

 Bila Tool ini belum ada klik kanan pada ToolBox pilih opsi Choose Items

Setelah muncul seperti gambar dibawah pilih Tab Menu COM Components dan Cek list Windows Media Player, kemudian OK

Setelah Tool Windows Media Player ada, tambah ke Form pada bagian Label1 setelah itu klik WMP dan lihat di propertiesnya pada bagian Name rubah menjadi wmp

kemudian rubah juga pada bagian Size menjadi 0;0

Setelah selesai semuanya, masukan Tool Open File Dialog dari ToolBox, dan pada propertiesnya bagian File Name kosongkan

Setelah itu pada bagian Title rubah menjadi Musik Player-Buke File…

pada bagian Filter masukan MP3|*.mp3|WAV|*.wav|Semua File|*.*

Masukan Timer dari ToolBox ke Form, dan pada properties bagian Enabled rubah menjadi True dan Interval menjadi 1000

tampilan setelah di masukan Open File dialog dan Timer

 

dengan tampilan akhir seperti ini

 

setelah semuanya selesai saatnya memasukan code :

untuk Button3 atau Buka File masukan code 

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            wmp.URL = OpenFileDialog1.FileName

        End If

untuk Button1 atau Mulai

wmp.Ctlcontrols.play()

untuk Button2 atau Berhenti

wmp.Ctlcontrols.stop()

Untuk Timer

 Try

            If wmp.playState = WMPLib.WMPPlayState.wmppsPlaying Then

                Label1.Text = “Now Playing: ” + wmp.currentMedia.name + Environment.NewLine + “Time: ” + wmp.Ctlcontrols.currentPositionString + ” / ” + wmp.currentMedia.name

            Else

                Label1.Text = “Not Playing”

            End If

        Catch ex As Exception

            MsgBox(“Eroor we” + Environment.NewLine + ex.Message.ToString, MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxSetForeground)

            Application.Exit() ‘jika eroror’

        End Try

tampilan akhir dari aplikasi ini adalah

 

Selamat Mencoba dan berkreasi…