home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
dos
/
prg
/
bas
/
acdkit
/
vbdos
/
cddemo.frm
< prev
next >
Wrap
Text File
|
1994-10-31
|
11KB
|
480 lines
Version 1.00
BEGIN Form Cddemo
AutoRedraw = 0
BackColor = QBColor(7)
BorderStyle = 1
Caption = "CDDEMO"
ControlBox = -1
Enabled = -1
ForeColor = QBColor(0)
Height = Char(12)
Left = Char(8)
MaxButton = 0
MinButton = 0
MousePointer = 0
Tag = ""
Top = Char(7)
Visible = -1
Width = Char(62)
WindowState = 0
BEGIN Frame Frame1
BackColor = QBColor(7)
Caption = ""
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(7)
Left = Char(0)
MousePointer = 0
TabIndex = 5
Tag = ""
Top = Char(0)
Visible = -1
Width = Char(48)
END
BEGIN Label Label1
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Audio Track(s):"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Left = Char(8)
MousePointer = 0
TabIndex = 6
Tag = ""
Top = Char(2)
Visible = -1
Width = Char(16)
END
BEGIN Label Label2
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Current Audio Time:"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Left = Char(4)
MousePointer = 0
TabIndex = 7
Tag = ""
Top = Char(3)
Visible = -1
Width = Char(20)
END
BEGIN Label Label3
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Total Audio Time:"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Left = Char(6)
MousePointer = 0
TabIndex = 8
Tag = ""
Top = Char(4)
Visible = -1
Width = Char(18)
END
BEGIN Frame Frame2
BackColor = QBColor(7)
Caption = "Track"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(5)
Left = Char(24)
MousePointer = 0
TabIndex = 9
Tag = ""
Top = Char(1)
Visible = -1
Width = Char(9)
END
BEGIN Frame Frame3
BackColor = QBColor(7)
Caption = "CD"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(5)
Left = Char(34)
MousePointer = 0
TabIndex = 10
Tag = ""
Top = Char(1)
Visible = -1
Width = Char(9)
END
BEGIN CommandButton Button
BackColor = QBColor(7)
Cancel = 0
Caption = "&Play"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(3)
Index = 0
Left = Char(0)
MousePointer = 0
TabIndex = 0
TabStop = -1
Tag = ""
Top = Char(7)
Visible = -1
Width = Char(12)
END
BEGIN CommandButton Button
BackColor = QBColor(7)
Cancel = 0
Caption = "&Stop"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(3)
Index = 1
Left = Char(12)
MousePointer = 0
TabIndex = 1
TabStop = -1
Tag = ""
Top = Char(7)
Visible = -1
Width = Char(12)
END
BEGIN CommandButton Button
BackColor = QBColor(7)
Cancel = 0
Caption = "P&ause"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(3)
Index = 2
Left = Char(24)
MousePointer = 0
TabIndex = 2
TabStop = -1
Tag = ""
Top = Char(7)
Visible = -1
Width = Char(12)
END
BEGIN CommandButton Button
BackColor = QBColor(7)
Cancel = 0
Caption = "&Next"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(3)
Index = 3
Left = Char(36)
MousePointer = 0
TabIndex = 3
TabStop = -1
Tag = ""
Top = Char(7)
Visible = -1
Width = Char(12)
END
BEGIN CommandButton Button
BackColor = QBColor(7)
Cancel = 0
Caption = "Pre&vious"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(3)
Index = 4
Left = Char(48)
MousePointer = 0
TabIndex = 4
TabStop = -1
Tag = ""
Top = Char(7)
Visible = -1
Width = Char(12)
END
BEGIN CommandButton Button
BackColor = QBColor(7)
Cancel = 0
Caption = "&Open"
Default = 0
DragMode = 0
Enabled = -1
Height = Char(7)
Index = 5
Left = Char(48)
MousePointer = 0
TabIndex = 11
TabStop = -1
Tag = ""
Top = Char(0)
Visible = -1
Width = Char(12)
END
BEGIN Label TrackStats
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Label4"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 1
Left = Char(26)
MousePointer = 0
TabIndex = 13
Tag = ""
Top = Char(3)
Visible = -1
Width = Char(6)
END
BEGIN Label TrackStats
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Label4"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 2
Left = Char(26)
MousePointer = 0
TabIndex = 14
Tag = ""
Top = Char(4)
Visible = -1
Width = Char(6)
END
BEGIN Label TrackStats
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Label4"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 0
Left = Char(26)
MousePointer = 0
TabIndex = 12
Tag = ""
Top = Char(2)
Visible = -1
Width = Char(6)
END
BEGIN Label cdStats
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Label4"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 2
Left = Char(36)
MousePointer = 0
TabIndex = 17
Tag = ""
Top = Char(4)
Visible = -1
Width = Char(6)
END
BEGIN Label cdStats
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Label4"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 1
Left = Char(36)
MousePointer = 0
TabIndex = 16
Tag = ""
Top = Char(3)
Visible = -1
Width = Char(6)
END
BEGIN Label cdStats
Alignment = 0
AutoSize = 0
BackColor = QBColor(7)
BorderStyle = 0
Caption = "Label4"
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(1)
Index = 0
Left = Char(36)
MousePointer = 0
TabIndex = 15
Tag = ""
Top = Char(2)
Visible = -1
Width = Char(6)
END
BEGIN Timer RefreshMe
Enabled = -1
Interval = 100
Left = Char(0)
Tag = ""
Top = Char(0)
END
END
DEFINT A-Z
REM $DYNAMIC
REM $INCLUDE: '.\ACDKIT.BI'
DECLARE FUNCTION TimeStr$ (BYVAL mins%, BYVAL secs%)
DECLARE SUB UpdateDisplay ()
CONST FALSE% = 0
CONST TRUE% = NOT FALSE%
DIM SHARED tracklist() AS trackinfo ' music track information array
DIM SHARED cd AS cdInfoTYPE ' track info
DIM SHARED cddrive AS INTEGER ' first cdrom drive
DIM SHARED curTrack AS INTEGER ' current track number
SUB Button_Click (index AS INTEGER)
DEFINT A-Z
SELECT CASE index
CASE 0
cdPlay cddrive%, curTrack, 99, tracklist()
Button(2).caption = "P&ause"
CASE 1
cdStop cddrive%
Button(2).caption = "P&ause"
CASE 2
IF (cd.status AND CDPAUSED) = CDPAUSED THEN
cdResume cddrive%
Button(2).caption = "P&ause"
ELSE
cdPause cddrive%
Button(2).caption = "&Resume"
END IF
CASE 3
curTrack = curTrack MOD UBOUND(tracklist) + 1
cdPlay cddrive%, curTrack, 99, tracklist()
Button(2).caption = "P&ause"
CASE 4
curTrack = curTrack - 1
IF curTrack = 0 THEN
curTrack = UBOUND(tracklist)
END IF
cdPlay cddrive%, curTrack, 99, tracklist()
Button(2).caption = "P&ause"
CASE 5
IF (cd.status AND CDOPEN) = CDOPEN THEN
cdDoor cddrive%, 2
Button(5).caption = "&Close"
ELSE
cdStop cddrive%
cdDoor cddrive%, 1
Button(5).caption = "&Open"
END IF
Button(2).caption = "P&ause"
END SELECT
END SUB
SUB Form_Load ()
DEFINT A-Z
REDIM tracklist(0) AS trackinfo ' music track information array
curTrack = 1
IF IsMscdex = FALSE THEN
MSGBOX "MSCDEX.EXE driver is not installed.", 0, "Error"
END
END IF
cddrive = GetFirstCdrom% ' get the first cdrom drive
dummy% = cdMediaChanged(cddrive%) ' clear changed flag
RESTART:
CLS
IF IsAudio(cddrive) = FALSE THEN ' is this an audio cd?
MSGBOX "The inserted cd is not an audio cd." + CHR$(13) + CHR$(10) + "Please insert an audio cd and restart.", 0, "Error"
END
END IF
cdInit cddrive%, tracklist() ' read cd information
IF (cd.status AND CDPLAYING) <> CDPLAYING THEN
cdSeek cddrive%, 1, tracklist() ' seek to first song
END IF
END SUB
SUB RefreshMe_Timer ()
DEFINT A-Z
cdGetInfo cddrive%, 0, cd, tracklist()
curTrack = cd.track
trackStats(0).caption = LTRIM$(STR$(cd.track))
trackStats(1).caption = TimeStr$(cd.TrackMin, cd.TrackSec)
trackStats(2).caption = TimeStr$(cd.TrackMins, cd.TrackSecs)
cdStats(0).caption = LTRIM$(STR$(UBOUND(tracklist)))
cdStats(1).caption = TimeStr$(cd.cdMin, cd.cdSec)
cdStats(2).caption = TimeStr$(cd.cdMins, cd.cdSecs)
END SUB
FUNCTION TimeStr$ (BYVAL mins%, BYVAL secs%)
IF secs% = 254 THEN
secs% = 0
END IF
text$ = RIGHT$("00" + LTRIM$(STR$(mins%)), 2) + ":" + RIGHT$("00" + LTRIM$(STR$(secs%)), 2)
TimeStr$ = text$
END FUNCTION