خوب می خوام امروز به اون های که علاقه به برنامه نویسی به ویژوال بیسیک دارن یه حال بدم .
روی فرم دو تا تایمر قرار بدین در قسمت properties تایمر interval رو واسه یکی 200 و برای یه تایمر دیگه بذارید 400 .
خوب حالا کد زیر رو کپی کنید توی فرم خودتون و اجرا کنید حا لش رو ببرید. راستی یادتون نره نظر بدید
-----------------------------------------------------------------------------
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 Sub Form_Load()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
mciSendString "set cdaudio door open", 1&, 1&, 1&
End Sub
Private Sub Timer2_Timer()
mciSendString "set cdaudio door closed", 1&, 1&, 1&
End Sub
----------------------------------------------------------------------
پاورقی: قسمت اول کد که بین دوخط چین قرارداره از توابع api استفاده شده که حالا اگه حوصلم شد در مورد اون هم توضیحی میدم. فراموش نکنید برای تایمر ها زمان مشخص کنید.
و زمان ها یکی نباشن . خوش بگذره نظر یادتون نره.