frmplyaer.frm

Billing Internet Cafe

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmplyr 
   BackColor       =   &H00000000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "BLacK PeaRL Music Players"
   ClientHeight    =   3360
   ClientLeft      =   45
   ClientTop       =   465
   ClientWidth     =   7005
   Icon            =   "frmplyaer.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3360
   ScaleWidth      =   7005
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton op 
      Caption         =   "Cari Lagu"
      Height          =   615
      Left            =   4800
      TabIndex        =   0
      Top             =   120
      Width           =   1935
   End
   Begin VB.CommandButton pl 
      Caption         =   "Putar Lagu"
      Height          =   615
      Left            =   4800
      TabIndex        =   1
      Top             =   840
      Width           =   1935
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Tukar Musik"
      Height          =   615
      Left            =   4800
      TabIndex        =   2
      Top             =   1560
      Width           =   1935
   End
   Begin VB.CommandButton pa 
      Caption         =   "Stop"
      Height          =   615
      Left            =   4800
      TabIndex        =   3
      Top             =   2280
      Width           =   1935
   End
   Begin VB.PictureBox XPFrame2 
      BackColor       =   &H00808080&
      Height          =   1335
      Left            =   120
      ScaleHeight     =   1275
      ScaleWidth      =   4155
      TabIndex        =   5
      Top             =   0
      Width           =   4215
      Begin VB.PictureBox XPFrame3 
         BackColor       =   &H00404040&
         Height          =   855
         Left            =   240
         ScaleHeight     =   795
         ScaleWidth      =   3675
         TabIndex        =   6
         Top             =   240
         Width           =   3735
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackColor       =   &H00000000&
            Caption         =   "BLacK PeaRL MusiC PLaYers"
            BeginProperty Font 
               Name            =   "OCR A Extended"
               Size            =   12
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H8000000D&
            Height          =   615
            Left            =   120
            TabIndex        =   7
            Top             =   120
            Width           =   3495
         End
      End
   End
   Begin VB.PictureBox XPFrame1 
      BackColor       =   &H00000000&
      Height          =   3135
      Left            =   4560
      ScaleHeight     =   3075
      ScaleWidth      =   2235
      TabIndex        =   4
      Top             =   0
      Width           =   2295
   End
   Begin VB.Timer tmr 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   120
      Top             =   6480
   End
   Begin MSComDlg.CommonDialog ComDlg 
      Left            =   1080
      Top             =   6600
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      Filter          =   "MP3\*.mp3"
   End
   Begin VB.PictureBox XPFrame4 
      BackColor       =   &H00000000&
      Height          =   1695
      Left            =   120
      ScaleHeight     =   1635
      ScaleWidth      =   4155
      TabIndex        =   8
      Top             =   1440
      Width           =   4215
      Begin ComctlLib.ProgressBar pbWaitBar 
         Height          =   375
         Left            =   120
         TabIndex        =   12
         Top             =   960
         Width           =   3735
         _ExtentX        =   6588
         _ExtentY        =   661
         _Version        =   327682
         Appearance      =   1
      End
      Begin MSComctlLib.ProgressBar PrgBar 
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   600
         Width           =   3735
         _ExtentX        =   6588
         _ExtentY        =   450
         _Version        =   393216
         Appearance      =   0
         Enabled         =   0   'False
         Scrolling       =   1
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "Time To Stop ------>>>>"
         BeginProperty Font 
            Name            =   "OCR A Extended"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   120
         Width           =   3015
      End
      Begin VB.Label TimeBox 
         BackStyle       =   0  'Transparent
         Caption         =   "Time"
         BeginProperty Font 
            Name            =   "OCR A Extended"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   2880
         TabIndex        =   9
         Top             =   120
         Width           =   1215
      End
   End
End
Attribute VB_Name = "frmplyr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Dim r

Private Sub Command4_Click()
On Error Resume Next
r = mciSendString("Close MP3", 0&, 0, 0)
    tmr.Enabled = False
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Form_Load()
 r = mciSendString("Close MP3", 0&, 0, 0)
End Sub

Private Sub Label1_Click()
frmplyr.WindowState = 1
End Sub

Private Sub op_Click()
On Error Resume Next
 Dim mp3Filename As String * 1024, mp3Length As String * 30
    ComDlg.ShowOpen
    If ComDlg.FileName <> "" Then
        r = GetShortPathName(ComDlg.FileName, mp3Filename, 1024)
        mp3Filename = Left(mp3Filename, r)
        r = mciSendString("Open " & mp3Filename & " Alias MP3", 0&, 0, 0)
        r = mciSendString("status MP3 length", mp3Length, 30, 0)
        PrgBar.Max = CLng(mp3Length)
        End If
End Sub

Private Sub pa_Click()
On Error Resume Next

 r = mciSendString("Pause MP3", 0&, 0, 0)
End Sub

Private Sub pl_Click()
On Error Resume Next
   r = mciSendString("Play MP3", 0&, 0, 0)
        tmr.Enabled = True
End Sub

Private Sub Tmr_Timer()
On Error Resume Next

 Dim mp3Position As String * 30
    r = mciSendString("Set Mp3 time format milliseconds", 0, 0, 0)
    r = mciSendString("Status MP3 position", mp3Position, 30, 0)
    PrgBar.value = CLng(mp3Position)
    TimeBox = Format(CLng(mp3Position), "00:00:00:000")
End Sub