itu bisa di translate ke text. coba az om convert dulu tuch bil biner ke decimal.kemuadian dari decimal convert ke ASCII om.
itu untuk format semua hard disk
untuk format drive c:
01100110011011110111001001101101011000010111010000 10000001
1000110011101001011100
001000000010111101010001001011110101100
untuk format d:
01100110011011110111001001101101011000010111010000 100000011
001000011101001011100
0010000000101111010100010010111101011000
untuk format a:
01100110011011110111001001101101011000010111010000 1000000
11000010011101001011100
0010000000101111010100010010111101011000
ok ini om saya copasin kalau di vb :
1. Buat 1 Project baru dengan 1 Form dan 7 Commandbutto
2. Copy-kan coding berikut ke editor form yang bertalian.
Private Sub Command1_Click
'Membuka kotak Format Dialog
Call SHELL("rundll32.exe shell32.dll,SHFormatDrive")
End Sub
Private Sub Command2_Click
'Membuka kotak Copy Disk To Disk Dialog
Call SHELL("rundll32.exe diskcopy.dll,DiskCopyRunDll 0,0", 1)
'Keterangan: 0 yg pertama = dari drive yang mana
' 0 yg kedua = ke drive yang mana
' 0 = drive a: ; 1 = drive b:
End Sub
Private Sub Command3_Click
'Membuka dengan (user memilih dengan program yang mana untuk membuka file yg dipilih)
SHELL ("rundll32.exe shell32.dll,OpenAs_RunDLL c:\autoexec.bat")
End Sub
Private Sub Command4_Click
'Menampilkan Properties, Background Tab
Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 1)
End Sub
Private Sub Command5_Click
'Menampilkan Properties, Screen Saver Tab
Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", 1)
End Sub
Private Sub Command6_Click
'Menampilkan Properties, Appearance Tab
Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", 1)
End Sub
Private Sub Command7_Click
'Menampilkan Properties, Settings Tab
Call SHELL("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", 1)
End Sub
ini format floopy :
Private Declare Function SHFormatDrive Lib "shell32.dll" (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, ByVal options As Long) As Long
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
'Drive type constants
Private Const DRIVE_CDROM = 5
Private Const DRIVE_FIXED = 3
Private Const DRIVE_RAMDISK = 6
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_REMOVABLE = 2
Private Const SHFMT_ID_DEFAULT = &HFFFF ' Option bits for options parameter
Private Const SHFMT_OPT_FULL = 1
Private Const SHFMT_OPT_SYSONLY = 2
Private Sub FormatFloppy(hWndOwner As Long, ByVal DriveLetter As String)
Dim DriveNum As Long
Dim DriveType As Long
Dim ret As Long
' Add the root path to the drive letter
DriveLetter = Left(DriveLetter, 1) & ":\"
' Convert the drive letter into the corresponding drive number, A=0, B=1...
DriveNum = Asc(UCase(DriveLetter)) - Asc("A")
DriveType = GetDriveType(DriveLetter)
' Check if the drive is a floppy drive
If DriveType = DRIVE_REMOVABLE Then
ret = SHFormatDrive(hWndOwner, DriveNum, SHFMT_ID_DEFAULT, SHFMT_OPT_FULL)
End If
End Sub
Private Sub Command1_Click()
FormatFloppy Me.hwnd, "A"
End Sub