|
Program Membuat Winamp sederhana
Menggunakan Visual Basic . 06
- Rancangan tampilan FORM1
| Komponen | Nama | Nilai |
| Form | Name | frmLagu |
| Caption | Player Music By Ujexs | |
| Frame | Name | Frame1 |
| Backcolor | Blue (biru) | |
| Caption | (Kosongkan) | |
| Label | Name | Label1 |
| Caption | (kosongkan) | |
| ToolTipsText | Judul lagu | |
| Label | Name | Label2 |
| Caption | Music Is My Live | |
| Label | Name | Label3 |
| Caption | Create Ujexs Base 2008 | |
| MMC Control | Name | MMC |
| Picture Box | Name | Picture 1 |
| Back Color | Biru ( Blue) | |
| Command | Name | Command 1 |
| Caption | Add | |
| Command | Name | Command 2 |
| Caption | Play | |
| Command | Name | Command 3 |
| Caption | Exit | |
| Timer | Name | Timer1 |
| Interval | 500 | |
| Timer | Name | Timer2 |
| Interval | 300 | |
| Commond Dialog | Name | bukafile |
| File Name | bukafile |
- Listing Kode Program
'Pembuat : Ujexs Base 2008
'Tanggal : 20 Nov 2008
'Tempat : Kost Jl.Cemara II ,Sipin, Jambi
'Jam : 23.00 WIB
'E-mail : ujexsbase@gmail.com
'Website : http://ujexs09.blogspot.com/
'Menyatakan Variabel
Dim ket As String
Dim X As Integer
Private Sub Command1_Click()
On Error Resume Next
bukafile.Filter = _
"MP3 |*.mp3|ASF|*.asf|ASX|*.asx|WAV|*.wav|AVI|*.avi|"
bukafile.ShowOpen
MMC.FileName = bukafile.FileName
MMC.Command = "close'"
MMC.Command = "open"
Label1.Caption = "TRACK : " & bukafile.FileTitle
End Sub
Private Sub Command2_Click()
MMC.Command = "seek"
MMC.Command = "play"
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
X = 1
ket = ""
End Sub
Private Sub Label3_Click()
Shell "EXPLORER.EXE " & " http://ujexs09.blogspot.com/"
End Sub
Private Sub Timer1_Timer()
ket = ket & Mid(Label2.Caption, X, 1) 'ket = ket & Mid(Label2.Caption, X, 1)
Frame1.Caption = ket
If X = Len(Label2.Caption) Then
ket = ""
X = 1
Else
X = X + 1
End If
End Sub
Private Sub Timer2_Timer()
Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
If Label1.Left > frmLagu.Width Then
Label1.Left = -Label1.Width
Else
Label1.Left = Label1.Left + 200
End If
End Sub
By MAHASISWA TI STMIK NH JAMBI
Ujexs Base 2009
ujexsbase@gmail.com
Salam Kenal AMCJ