Sabtu, 04 Desember 2010

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 


Download tuturialnya Click dibawah ini :

1 komentar:

  1. Terimakasih Banyak Atas Penjelasan Nya yg sangat Rinci sekali saya sangat benar benar terbantu oleh anda

    TERIMA KASIH SEBANYAK BANYAKNYA

    BalasHapus