Window Media Player,jam dan Grafik with VB 6.0

Dalam kesempatan kali ini saya menggabungkan program sederhana menjadi 1 dengan menu tab
langakah pembuatanya adalah :

1. Jalankan aplikasi Visual Studio 6.0 anda, pada jendela New Project pilihstandard exe lalu klik Open

2. Pilih menu Project –  Componen (Ctr +T) dan pilih tool

·         Window Media Player

·         Commond Dialog Conterol 6.0 (SP6)

·         Microsoft Calender Control 12.0

·         Microsoft Chart Control  6.0 (OLEDB)

·         Microsoft Tabbed Dialog Control 6.0

Berikutnya buat rancangan Form Seperti dibawah ini

Untuk membuat menu Anda pilih menu Tool kemudian pilih MenuEditor

Isikan caption  dan name nya kemudian klik next

Maka Anda tinggal mengisikan koding berikut ini :

Option Explicit

___________________________________

Sub Abillagu()

Dim sFile As String

With CommonDialog1

    .DialogTitle = "Open Media..."

    .CancelError = False

    .Filter = "All Suported Files"

    .ShowOpen

    If Len(.FileName) = 0 Then

        Exit Sub

    End If

    sFile = .FileName

   

With List1

      .AddItem sFile

End With

End With

End Sub

Private Sub CmdOpen_Click()

Abillagu

WindowsMediaPlayer1.ShowWhatsThis

End Sub

________________________________________

Private Sub CmdSytl0_Click()

MSChart1.chartType = VtChChartType2dArea

End Sub

_________________________________________

Private Sub CmdSytl1_Click()

MSChart1.chartType = VtChChartType3dStep

End Sub

___________________________________________

Private Sub CmdSytl14_Click()

MSChart1.chartType = VtChChartType3dCombination

End Sub

____________________________________________

Private Sub CmdSytl16_Click()

MSChart1.chartType = VtChChartType3dLine

End Sub

__________________________________________

Private Sub CmdSytl2_Click()

MSChart1.chartType = VtChChartType2dCombination

End Sub

__________________________________________

Private Sub CmdSytl3_Click()

MSChart1.chartType = VtChChartType2dLine

End Sub

__________________________________________

Private Sub CmdSytl4_Click()

MSChart1.chartType = VtChChartType2dLine

End Sub

_________________________________________

Private Sub CmdSytl5_Click()

MSChart1.chartType = VtChChartType2dPie

End Sub

_________________________________________

Private Sub CmdSytl6_Click()

MSChart1.chartType = VtChChartType2dStep

End Sub

__________________________________________

Private Sub CmdSytl7_Click()

MSChart1.chartType = VtChChartType2dXY

End Sub

_________________________________________

Private Sub CmdSytl8_Click()

MSChart1.chartType = VtChChartType3dArea

End Sub

_________________________________________

Private Sub CmdSytl9_Click()

MSChart1.chartType = VtChChartType3dBar

End Sub

________________________________________

Private Sub CmdTmpGrafik_Click()

MSChart1.RowCount = Text3

MSChart1.SeriesColumn = Text4

MSChart1.Column = Text2

MSChart1.columnCount = Text1

End Sub

________________________________________

Private Sub Form_Activate()

'mengaktifkan seek

WindowsMediaPlayer1.ShowWhatsThis

End Sub

____________________________________________

Private Sub Form_Load()

'mengatur posisi tampil agat berada pada kanan atas

FrmAcesoris.Top = (Screen.Height - Height) / 5

FrmAcesoris.Left = (Screen.Width - Width) / 1

End Sub

Private Sub Label1_Click()

Unload Me

End Sub

Private Sub LbOpen_Click()

Abillagu

SSTab1.Tab = 1

End Sub

____________________________________

Private Sub List1_Click()

WindowsMediaPlayer1.URL = List1

End Sub

_____________________________________

Private Sub nmAbout_Click()

FfmAbout.Visible = True

End Sub

_____________________________________

Private Sub nmExit_Click()

Unload Me

End Sub

_____________________________________

Private Sub nmOpenMusic_Click()

Abillagu

End Sub

______________________________________

Private Sub nmPlay_Click()

WindowsMediaPlayer1.URL = List1

End Sub

_____________________________________

Private Sub Timer1_Timer()

LbJam.Caption = Time

End Sub

Progm Ketika di jalankan :

SelamatMencoba

Untuk mengembangkan software ini silahkan Download Projectnya di Acesoris prg.rar 

Dwnload Sofwarenya di Window Media Player & Acesoris Dekstop.zip 

Download tuturialnya Click dibawah ini :