![]() |
![]() ![]() v.5.2011.12.30 |
Хитрый стрелок экранов, Делай и делись снимками экранов! |
|
Visual Basic 5.0/6.0 - Железо и устройстваВсе примеры / Железо и устройстваОткрытие CD
Автор: Петр (Skript) Пономарев | добавлено: 06.03.2010, 12:50 | просмотров: 2167 (1+) | комментариев: 0 | рейтинг:
Пример демонстрирует открытие и закрытие лотка CD-ROM.
![]() КодOption Explicit Private Sub Form_Load() MMControl1.DeviceType = "CDAUdio" MMControl1.Command = "open" MMControl1.TimeFormat = 0 End Sub Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = "stop" MMControl1.Command = "close" End Sub Private Function toHMS(time As Long) As String Dim H As Integer Dim M As Integer Dim S As Integer H = Int((time / 1000) / 3600) M = Int((time / 1000 Mod 3600) / 60) S = (time / 1000 Mod 3600) Mod 60 If H > 0 Then toHMS = Str(H) + ":" toHMS = toHMS + Format(M, "0#") + Format(S, "0#") End Function Private Sub MMControl1_StatusUpdate() Select Case MMControl1.Mode Case 530: 'msimodeStop Label1.Caption = "stop" & Str(MMControl1.Tracks) If MMControl1.Tracks > 1 Then Label1.Caption = "нажмите на кнопку PLAY" Label2.Caption = _ "Треков: " + Str(MMControl1.Tracks) + _ "Время звучания: " + _ toHMS(MMControl1.Length) Else Label1.Caption = "Диск не хуя не музыкальный" Timer1.Enabled = True End If Case 540: ' mcimodePlay Timer1.Enabled = False Label1.Visible = True Label2.ForeColor = vbYellow If MMControl1.Position < _ MMControl1.TrackPosition + _ MMControl1.TrackLength Then Label1.Caption = _ "треков: " + Format(MMControl1.Track, "0#") _ + " " + toHMS(MMControl1.Position - _ MMControl1.TrackPosition) Else If MMControl1.Position < MMControl1.Length Then MMControl1.Track = MMControl1.Track + 1 Label1.Caption = _ "треков:" + Format(MMControl1.Track, "#") _ + " " + toHMS(MMControl1.Position - _ MMControl1.TrackPosition) Else MMControl1.Command = "stop" End If End If Case 550: 'msimodePause Label1.Caption = "pause" Label2.Caption = "Треков: 0 Время звучания: 00:00" Timer1.Enabled = True Case Else Label1.Caption = "mode:" & Str(MMControl1.Mode) End Select End Sub Private Sub Timer1_Timer() DoEvents Label1.Visible = Not Label1.Visible End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 22)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|