VB-Homepage Tipp 123

Einige Grundfunktionen für einen eigenen CD-Player

Einige Grundvoraussetzungen muß Ihr System natürlich mitbringen, damit Sie am Ende auch etwas von diesem Tipp (ist fast zuviel gesagt) haben.
Also eine Soundkarte und ein CD-ROM müssen Sie schon Ihr eigenen nennen, damit am Ende auch was zu hören ist, aber das ist sicher so, sonst wären Sie ja nicht auf dieser Seite gelandet.
Vom System her benötigen wir die MMSYSTEM.DLL über die das Ganze ablaufen soll.

Was wird also unser ganz kleiner Audio CD Player am Ende alles tun.

1. Abspielen der CD von Track1 bis ...
2. Abspielen eines ausgewälten Tracks
3. Stoppen der Wiedergabe
4. Auswurf der CD
5. Einziehen der CD

Verfeinern läßt sich hier natürlich noch viel, es ist auch nicht mehr, als wie eine Anregung zu mehr.

audiocd.mak (16bit) oder audiocd.vbp(32bit)
AUDIOCD.FRM
ProjWinSize=152,402,248,215
ProjWinShow=2
IconForm="Form1"
Title="AUDIO-CD PLAYER"
ExeName="AUDIOCD.EXE"

audiocd.frm
VERSION 2.00
Begin Form Form1
Caption = "VB-Homepage Tipp"
ClientHeight = 1755
ClientLeft = 1830
ClientTop = 2100
ClientWidth = 3600
Height = 2160
Left = 1770
LinkTopic = "Form1"
ScaleHeight = 1755
ScaleWidth = 3600
Top = 1755
Width = 3720
Begin CommandButton Command5
Caption = "Þ"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Wingdings"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 3120
TabIndex = 9
Top = 840
Width = 330
End
Begin CommandButton Command4
Caption = "Ý"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Wingdings"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 3120
TabIndex = 8
Top = 480
Width = 330
End
Begin CommandButton Command3
Caption = "4"
Height = 255
Index = 3
Left = 1200
TabIndex = 5
Top = 840
Width = 255
End
Begin CommandButton Command3
Caption = "3"
Height = 255
Index = 2
Left = 840
TabIndex = 4
Top = 840
Width = 255
End
Begin CommandButton Command3
Caption = "2"
Height = 255
Index = 1
Left = 480
TabIndex = 3
Top = 840
Width = 255
End
Begin CommandButton Command3
Caption = "1"
Height = 255
Index = 0
Left = 120
TabIndex = 2
Top = 840
Width = 255
End
Begin CommandButton Command2
Caption = "Stop"
Height = 255
Left = 1560
TabIndex = 1
Top = 480
Width = 1335
End
Begin CommandButton Command1
Caption = "Play (1,2...)"
Height = 255
Left = 120
TabIndex = 0
Top = 480
Width = 1335
End
Begin Label Label2
Caption = "Nicht mehr als eine Anregung zu mehr."
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Left = 120
TabIndex = 7
Top = 1320
Width = 3375
End
Begin Label Label1
Caption = "Abspielen von Audio CD's"
Height = 255
Left = 120
TabIndex = 6
Top = 120
Width = 2775
End
End
'16Bit
Declare Function mciSendString& Lib "MMSYSTEM" (ByVal lpstrCommand$, ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%)
'32Bit
Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnStr As Any, ByVal wReturnLen As Long, ByVal hCallBack As Long) As Long
Sub Command1_Click ()
Dim lRet As Long
Dim nCurrentTrack As Integer
'Wiedergabe vorbereiten
lRet = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)
'Zeitformat der Tracks setzen (Default ist Millisekunden)
lRet = mciSendString("set cd time format tmsf", 0&, 0, 0)
'Wiedergabe starten (Track1 bis ...)
lRet = mciSendString("play cd", 0&, 0, 0)
'Oder Wiedergabe eines vorgegebnene Tracks
nCurrentTrack = 4
lRet = mciSendString("play cd from" & Str(nCurrentTrack), 0&, 0, 0)
End Sub
Sub Command2_Click ()
Dim lRet As Long
'Wiedergabe stoppen
lRet = mciSendString("stop cd wait", 0&, 0, 0)
'Freigabe für andere Windowsprozesse
DoEvents
'Wiedergabe schließen
lRet = mciSendString("close cd", 0&, 0, 0)
End Sub
Sub Command3_Click (index As Integer)
'Wiedergabe vorbereiten
lRet = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)
'Zeitformat der Tracks setzen (Default ist Millisekunden)
lRet = mciSendString("set cd time format tmsf", 0&, 0, 0)
'Wiedergabe eines vorgegebnene Tracks (über index geregelt)
lRet = mciSendString("play cd from" & Str(index + 1), 0&, 0, 0)
End Sub
Sub Command4_Click ()
lRet = mciSendString("Set CDaudio door closed", 0&, 0, 0)
End Sub
Sub Command5_Click ()
lRet = mciSendString("Set CDaudio door open", 0&, 0, 0)
End Sub

Wenn Sie diesen Tipp nutzen möchten, erstellen Sie mit einem Editor
Dateien die Sie wie angegeben benennen und fügen den Code ein.


Tipp-Download

Quelle :

Zurück zur Übersichtsseite