|
|
|
|
| 17 Aug 2006 06:32:52 pm |
 Aplikasi membuka dan menutup cdrom |
|
|
OK, mari kita langsung saja step-by-step demo ini.
1. Buka Visual Basic Anda dan buatlah project baru (Standard EXE)
2. Tambahkan module pada project dan copy paste code di bawah ini:
Option Explicit
Public 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
Public Function OpenCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("open " & drv & ": type cdaudio alias " & Alias
& " wait", vbNullString, 0&, 0& )
retval = mciSendString("set " & Alias & " door open", vbNullString, 0&,
0& )
OpenCDDoor = retval
End Function
Public Function CloseCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("set " & Alias & " door closed", vbNullString,
0&, 0& )
retval = mciSendString("close " & Alias, vbNullString, 0&, 0& )
CloseCDDoor = retval
End Function
3. Tambahkan dua buah button pada Form1, satu sebagai button untuk membuka
CD-ROM drive dan satu lagi untuk menutup CD-ROM drive.
4. Copy paste code di bawah ini pada bagian deklarasi umum di Form1
Option Explicit
Private Sub Command1_Click()
OpenCDDoor "E"
End Sub
Private Sub Command2_Click()
CloseCDDoor "E"
End Sub
5. Jalankan project di atas dengan menekan F5 |
|
| |
Category : visual basic
| Posted By : admin |  Comments [2] |  Trackbacks [0] |
|
|
|
| The URI to TrackBack this entry is :
http://rio.awardspace.com/trackback.php/12 | |
|
|
|
|
|
|
|
|
By : jcenkc @ Time : 18 Oct 2008 08:16:18 am : Email : Home |
|
|
Professional WoW Power Leveling store,We offer wow gold,world of warcraft gold,warcraft gold,world of warcraft gold,wow leveling, cheap WoW Power Leveling,cheap World of Warcraft WoW Power Leveling,).Free Guide to help you Buy WoW Gold,WoW Power Leveling, and WoW Gold, sessions are really cheap, normally a lot less than the WoW Gold, minimum wage offered in the US because most WoW Gold, of the workers who are wow gold,wow gold,leveling are based in China.WoW Gold, WoW Power Leveling, Not only that but they normally are buy WoW Gold able to level faster than the Cheap WoW Gold average player WoW Gold, considering they have workers rotating Cheap WoW Gold shifts along with many many practices in the game. Cheap WoW Gold One of the best part of leveling a brand new character is Cheap WoW Gold that you will have a fresh reputation of the WoW Gold and WoW Gold would be able to name the character as you like. World of warcraft Power Leveling,World of warcraft Power Leveling,age of conan gold,aoc gold,buy aoc gold,cheap aoc gold,aoc power leveling,age of conan power leveling,aoc power leveling,aoc gold,age of conan gold,age of conan power leveling,guild wars gold,lotro gold,lotro gold,lotr gold,lotr gold,maplestory mesos,maplestory mesos,maplestory mesos,maplestory mesos, maple story mesos,maple story mesos,maple story mesos,maple story mesos,maple story mesos,maplestory mesos,runescape gold,runescape money,aoc gold,age of conan gold,aoc gold, age of conan gold,aoc gold,FFXI Gil,final fantasy gil,oil purifier,rolex replica,replica rolex,chongqingyantai,evening dresses,evening gowns,wedding dresses,bridal gowns,wedding gowns,cocktail dresses,Bridesmaid dresses,prom dresses,formal dresses,girls clothes,baby boy clothes,baby boy clothing,baby girl clothes,baby girl clothing,dog clothes,dog collarsPromotional items,Promotional products,Wedding dresses,Pet supplies,Dog clothes,礼品公司,商务礼品,礼品采购,礼品,world of warcraft power leveling,world of warcraft power leveling,power leveling wow,power leveling wow,power leveling wow,cheap wow power leveling,cheap wow power leveling,cheap wow power leveling,buy wow power leveling,buy wow power leveling,buy wow power leveling,power leveling,power leveling,power leveling,power level,power level,power level,digital cameras,digital camera,Mobile Phones,Mobile Phone,Cell Phones,Cell Phone,Mp3,world of warcraft power leveling,
|
|
|
|
|
|
|
By : ,HJKYU @ Time : 31 Jul 2009 07:00:28 am : |
|
|
MY wow power leveling
buy wow gold
my wow power leveling
BUY wow gold
CHEAP wow power leveling
my wow gold
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
