2. Larry Page dan Sergey Brin
Mereka berdua adalah pendiri google. Mereka menjalankan mesin pencari Google, yang mulai beroperasi pada 1998.
Menurut Situs Forbes, Masing-masing mempunyai perkiraan kekayaan bersih sebesar $16,7 milyar.

3. Robin Li
Robin Li adalah pendiri situs search engine baidu.com. Baidu merupakan situs search engine No.1 di china mengalahkan google.
Menurut Situs Forbes, Robin Li mempunyai perkiraan kekayaan bersih sebesar $9,2 milyar.

4. Pierre Omidyar
Pierre Morad Omidyar (lahir 21 Juni 1967) adalah seorang keturunan Prancis. Pierre Omidyar merupakan pendiri dari situs lelang eBay.
Menurut Situs Forbes, Pierre Omidyar mempunyai perkiraan kekayaan bersih sebesar $6,2 milyar.

5. Reid Hoffman
Reid Hoffman adalah Pendiri situs jejaring sosial linkedin.
Menurut Situs Forbes, Reid Hoffman mempunyai perkiraan kekayaan bersih sebesar $1,5 milyar.

6. Jerry Yang dan David Filo.
Mereka berdua adalah pendiri yahoo. yahoo merupakan salah satu situs mesin pencari yang bersaing dengan google.
Menurut Situs Forbes, Masing-masing mempunyai perkiraan kekayaan bersih sebesar $1,1 milyar.

7. Steve Shih Chen, Jawed Karim dan Chad Hurley.
Mereka mendirikan YouTube pada 2005. Youtube adalah situs yang memberikan fasilitas gratis untuk download video maupun upload video secara online.

8. Matt Mullenweg
Matthew Charles Mullenweg dikenal dengan Matt Mullenweg (lahir di Houston, Texas, Amerika Serikat, 11 Januari 1984; umur 27 tahun) adalah pendiri sekaligus pengembang perangkat lunak WordPress.
Matt Mullenweg mempunyai perkiraan kekayaan bersih sebesar $40 Juta.

9. Tom Anderson
Tom Anderson merilis MySpace pada bulan Agustus 2003. MySpace adalah salah satu situs jejaring sosial paling besar di dunia, yang bersaing ketat dengan Facebook.

10. Jack Dorsey
Jack Dorsey adalah pencipta Twitter, yaitu layanan microblogging dan jejaring sosial gratis yang setiap tweet-nya berjumlah 140 karakter
Jack Dorsey Memiliki kekayaan sebesar $250 Juta.

11. Alexander Levin
Alexander Levin adalah Pendiri website Image Shack.
Mark Zuckerberg mempunyai perkiraan kekayaan bersih sebesar $56 Juta.

12. Aodhan Cullen
Aodhan Cullen adalah Pendiri Stat Counter.
Aodhan Cullen Memiliki kekayaan sebesar $25 Juta atau sekitar Rp250 Milyar

13. Robert Small
Robert Small adlah Pendiri Miniclip .
Robert Small Memiliki kekayaan sebesar $23 Juta atau sekitar Rp230 Milyar

14. Matt Mickiewicz
Matt Mickiewicz adalah Pendiri website Sitepoint.com.
Matt Mickiewicz memiliki kekayaan sebesar $18 Juta atau sekitar Rp180 Milyar

Software / Program Retail dengan Sistem Informasi Akutansi kami rancang khusus dengan desain yang mudah untuk digunakan oleh siapapun,sangat cocok untuk usaha penjualan barang di minimarket,toko anda.dengan fitur yang lengkap,sehingga akan mempercepat proses transaksi di toko,minimarket anda. fitur yang disediakan :

Master Data :
1. Barang
2. Merk Barang
3. Jenis Barang
4. Satuan
5. Supplier
6. Pelanggan
7. Kode Akuntansi

Transaksi :
1. Pembelian barang (Tunai atau Non Tunai)
2. Penjualan barang (Tunai atau Non Tunai)
3. Retur Pembelian
4. Retur Penjualan
5. Jurnal Umum

Laporan :
1. Pembelian barang (Tunai atau Non Tunai)
2. Penjualan barang (Tunai atau Non Tunai)
3. Retur Pembelian
4. Retur Penjualan
5. Stok Barang
4. Jurnal
5. Buku Besar
6. Neraca
7. Rugi/Laba
8. Arus Kas

Utility :
1. Set User/Pengguna
2. Set Printer
3. Backup database

Support :
1. Barcode Scanner
2. Support client server : software ini dirancang dengan menggunakan database mysql bisa melakukan akses antara client dan server, sehingga bisa digunakan untuk jaringan lokal maupun internet/online

Garansi
Software ini kami garansi selama 1 tahun, jika ditemukan ada error dan bugs di programnya akan dikirimkan update program via email
Pemesanan
Untuk pemesanan klik disini

Software  POS 10.5 (Point of Sales) atau Program Minimarket kami rancang khusus dengan desain yang mudah untuk digunakan oleh siapapun,sangat cocok untuk usaha penjualan barang di minimarket,toko anda.dengan fitur yang lengkap,sehingga akan mempercepat proses transaksi di toko,minimarket anda. fitur yang disediakan :

Master Data :
1. Barang
2. Merk Barang
3. Jenis Barang
4. Satuan
5. Supplier
6. Pelanggan

Transaksi :
1. Pembelian barang (Tunai atau Non Tunai)
2. Penjualan barang (Tunai atau Non Tunai)
3. Retur Pembelian
4. Retur Penjualan
5. Kas

Laporan :
1. Pembelian barang (Tunai atau Non Tunai)
2. Penjualan barang (Tunai atau Non Tunai)
3. Retur Pembelian
4. Retur Penjualan
5. Stok Barang
4. Rugi/Laba (Harian-Bulanan-Tahunan)

Utility :
1. Set User/Pengguna
2. Set Printer
3. Backup database

Support :
1. Barcode Scanner
2. Support client server : software minimarket dirancang dengan menggunakan database mysql versi terbaru,bisa melakukan akses antara client dan server, sehingga bisa digunakan untuk jaringan lokal maupun internet

Garansi
Software toko (minimarket) ini kami garansi selama 1 tahun, jika ditemukan ada error dan bugs di programnya akan dikirimkan update program via email

Pemesanan
Untuk pemesanan klik disini

Download disini

‘copy coding ini disebuah Form baru
‘ buat 3 Command button
‘ bernama Command1, Command2 dan Command3

Private Declare Function EnumDisplaySettings Lib “user32.dll” Alias “EnumDisplaySettingsA” _
(ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib “user32.dll” Alias “ChangeDisplaySettingsA” _
(lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function SendMessage Lib “user32.dll” Alias “SendMessageA” _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Type DEVMODE
dmDeviceName       As String * 32
dmSpecVersion      As Integer
dmDriverVersion    As Integer
dmSize             As Integer
dmDriverExtra      As Integer
dmFields           As Long
dmOrientation      As Integer
dmPaperSize        As Integer
dmPaperLength      As Integer
dmPaperWidth       As Integer
dmScale            As Integer
dmCopies           As Integer
dmDefaultSource    As Integer
dmPrintQuality     As Integer
dmColor            As Integer
dmDuplex           As Integer
dmYResolution      As Integer
dmTTOption         As Integer
dmCollate          As Integer
dmFormName         As String * 32
dmUnusedPadding    As Integer
dmBitsPerPel       As Integer
dmPelsWidth        As Long
dmPelsHeight       As Long
dmDisplayFlags     As Long
dmDisplayFrequency As Long
End Type

‘ini adalah codingnya
Public Function changeResolution(ByVal width As Integer, ByVal height As Integer)
Dim dev As DEVMODE
EnumDisplaySettings 0, 0, dev
dev.dmFields = &H80000 Or &H100000
dev.dmPelsWidth = width
dev.dmPelsHeight = height
ChangeDisplaySettings dev, &H4
Call ChangeDisplaySettings(dev, &H1)
Call SendMessage(&HFFFF&, &H7E&, 42, ByVal 0&)
End Function

Private Sub Command1_Click()
‘changeResolution (lebar, tinggi)
‘anda bisa mengubah lebar dan tinggi sesuai yang diinginkan
‘contoh
Call changeResolution(1024, 768)
End Sub

Private Sub Command2_Click()
‘changeResolution (lebar, tinggi)
Call changeResolution(800, 600)
End Sub

Private Sub Command3_Click()
‘changeResolution (lebar, tinggi)
Call changeResolution(1366, 768)
End Sub

‘tambahkan sebuah listbox  – beri nama = list1
‘tambahkan sebua commanbutton – beri nama =command1
salin coding dibawah ini di sebuah Form.
Option Explicit

Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = 3
Private Const CREATE_NEW = 1
Private Const INVALID_HANDLE_VALUE = -1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const IDENTIFY_BUFFER_SIZE = 512
Private Const OUTPUT_DATA_SIZE = IDENTIFY_BUFFER_SIZE + 16

‘GETVERSIONOUTPARAMS contains the data returned

‘mengecek serial driver
Private Type GETVERSIONOUTPARAMS
bVersion       As Byte ‘Binary driver version.
bRevision      As Byte ‘Binary driver revision
bReserved      As Byte ‘Not used
bIDEDeviceMap  As Byte ‘Bit map of IDE devices
fCapabilities  As Long ‘Bit mask of driver capabilities
dwReserved(3)  As Long ‘For future use
End Type

‘IDE registers
Private Type IDEREGS
bFeaturesReg     As Byte ‘Used for specifying SMART “commands”
bSectorCountReg  As Byte ‘IDE sector count register
bSectorNumberReg As Byte ‘IDE sector number register
bCylLowReg       As Byte ‘IDE low order cylinder value
bCylHighReg      As Byte ‘IDE high order cylinder value
bDriveHeadReg    As Byte ‘IDE drive/head register
bCommandReg      As Byte ‘Actual IDE command
bReserved        As Byte ‘reserved for future use – must be zero
End Type

‘SENDCMDINPARAMS contains the input parameters for the
‘Mengirim perintah ke Drive function
Private Type SENDCMDINPARAMS
cBufferSize     As Long     ‘Buffer size in bytes
irDriveRegs     As IDEREGS  ‘Structure with drive register values.
bDriveNumber    As Byte     ‘Physical drive number to send command to (0,1,2,3).
bReserved(2)    As Byte     ‘Bytes reserved
dwReserved(3)   As Long     ‘DWORDS reserved
bBuffer()      As Byte      ‘Input buffer.
End Type

‘Valid values for the bCommandReg member of IDEREGS.
Private Const IDE_ID_FUNCTION = &HEC            ‘Returns ID sector for ATA.
Private Const IDE_EXECUTE_SMART_FUNCTION = &HB0 ‘Performs SMART cmd.
‘Requires valid bFeaturesReg,
‘bCylLowReg, and bCylHighReg

‘Cylinder register values required when issuing SMART command
Private Const SMART_CYL_LOW = &H4F
Private Const SMART_CYL_HI = &HC2

‘mengembalikan status driver
Private Type DRIVERSTATUS
bDriverError  As Byte          ‘Error code from driver, or 0 if no error
bIDEStatus    As Byte          ‘Contents of IDE Error register
‘Only valid when bDriverError is SMART_IDE_ERROR
bReserved(1)  As Byte
dwReserved(1) As Long
End Type

Private Type IDSECTOR
wGenConfig                 As Integer
wNumCyls                   As Integer
wReserved                  As Integer
wNumHeads                  As Integer
wBytesPerTrack             As Integer
wBytesPerSector            As Integer
wSectorsPerTrack           As Integer
wVendorUnique(2)           As Integer
sSerialNumber(19)          As Byte
wBufferType                As Integer
wBufferSize                As Integer
wECCSize                   As Integer
sFirmwareRev(7)            As Byte
sModelNumber(39)           As Byte
wMoreVendorUnique          As Integer
wDoubleWordIO              As Integer
wCapabilities              As Integer
wReserved1                 As Integer
wPIOTiming                 As Integer
wDMATiming                 As Integer
wBS                        As Integer
wNumCurrentCyls            As Integer
wNumCurrentHeads           As Integer
wNumCurrentSectorsPerTrack As Integer
ulCurrentSectorCapacity    As Long
wMultSectorStuff           As Integer
ulTotalAddressableSectors  As Long
wSingleWordDMA             As Integer
wMultiWordDMA              As Integer
bReserved(127)             As Byte
End Type

‘Structure returned by SMART IOCTL commands
Private Type SENDCMDOUTPARAMS
cBufferSize   As Long         ‘Size of Buffer in bytes
DRIVERSTATUS  As DRIVERSTATUS ‘Driver status structure
bBuffer()    As Byte          ‘Buffer of arbitrary length for data read from drive
End Type

‘Vendor specific feature register defines
‘for SMART “sub commands”
Private Const SMART_ENABLE_SMART_OPERATIONS = &HD8

‘Status Flags Values
Public Enum STATUS_FLAGS
PRE_FAILURE_WARRANTY = &H1
ON_LINE_COLLECTION = &H2
PERFORMANCE_ATTRIBUTE = &H4
ERROR_RATE_ATTRIBUTE = &H8
EVENT_COUNT_ATTRIBUTE = &H10
SELF_PRESERVING_ATTRIBUTE = &H20
End Enum

‘perintah IOCTL
Private Const DFP_GET_VERSION = &H74080
Private Const DFP_SEND_DRIVE_COMMAND = &H7C084
Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088

Private Type ATTR_DATA
AttrID As Byte
AttrName As String
AttrValue As Byte
ThresholdValue As Byte
WorstValue As Byte
StatusFlags As STATUS_FLAGS
End Type

Private Type DRIVE_INFO
bDriveType As Byte
SerialNumber As String
Model As String
FirmWare As String
Cilinders As Long
Heads As Long
SecPerTrack As Long
BytesPerSector As Long
BytesperTrack As Long
NumAttributes As Byte
Attributes() As ATTR_DATA
End Type

Private Enum IDE_DRIVE_NUMBER
PRIMARY_MASTER
PRIMARY_SLAVE
SECONDARY_MASTER
SECONDARY_SLAVE
TERTIARY_MASTER
TERTIARY_SLAVE
QUARTIARY_MASTER
QUARTIARY_SLAVE
End Enum

Private Declare Function CreateFile Lib “kernel32″ _
Alias “CreateFileA” _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
lpSecurityAttributes As Any, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib “kernel32″ _
(ByVal hObject As Long) As Long

Private Declare Function DeviceIoControl Lib “kernel32″ _
(ByVal hDevice As Long, _
ByVal dwIoControlCode As Long, _
lpInBuffer As Any, _
ByVal nInBufferSize As Long, _
lpOutBuffer As Any, _
ByVal nOutBufferSize As Long, _
lpBytesReturned As Long, _
lpOverlapped As Any) As Long

Private Declare Sub CopyMemory Lib “kernel32″ _
Alias “RtlMoveMemory” _
(hpvDest As Any, _
hpvSource As Any, _
ByVal cbCopy As Long)

Private Type OSVERSIONINFO
OSVSize As Long
dwVerMajor As Long
dwVerMinor As Long
dwBuildNumber As Long
PlatformID As Long
szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib “kernel32″ _
Alias “GetVersionExA” _
(LpVersionInformation As OSVERSIONINFO) As Long

Private Sub Form_Load()

Command1.Caption = “Get Drive Info”
Dim di As DRIVE_INFO
di = GetDriveInfo(0)
Me.Caption = Trim$(di.Model) & vbCrLf
Me.Caption = Me.Caption & ” – ” & Trim$(di.SerialNumber)

End Sub

Private Sub Command1_Click()

Dim di As DRIVE_INFO
Dim drvNumber As Long

For drvNumber = PRIMARY_MASTER To QUARTIARY_SLAVE

di = GetDriveInfo(drvNumber)

List1.AddItem “Drive ” & drvNumber

With di

Select Case .bDriveType
Case 0
List1.AddItem vbTab & “[Not present]“
Case 1
List1.AddItem vbTab & “Model:” & vbTab & Trim$(.Model)
List1.AddItem vbTab & “Serial No:” & vbTab & Trim$(.SerialNumber)
Case 2
List1.AddItem vbTab & “[ATAPI drive - info not available]“
Case Else
List1.AddItem vbTab & “[drive type not known]“
End Select

End With

Next

End Sub

Private Function GetDriveInfo(drvNumber As IDE_DRIVE_NUMBER) As DRIVE_INFO

Dim hDrive As Long
Dim di As DRIVE_INFO

hDrive = SmartOpen(drvNumber)

If hDrive <> INVALID_HANDLE_VALUE Then

If SmartGetVersion(hDrive) = True Then

With di
.bDriveType = 0
.NumAttributes = 0
ReDim .Attributes(0)
.bDriveType = 1
End With

If SmartCheckEnabled(hDrive, drvNumber) Then

If IdentifyDrive(hDrive, IDE_ID_FUNCTION, drvNumber, di) = True Then

GetDriveInfo = di

End If   ‘IdentifyDrive
End If   ‘SmartCheckEnabled
End If   ‘SmartGetVersion
End If   ‘hDrive <> INVALID_HANDLE_VALUE

CloseHandle hDrive

End Function

Private Function IdentifyDrive(ByVal hDrive As Long, _
ByVal IDCmd As Byte, _
ByVal drvNumber As IDE_DRIVE_NUMBER, _
di As DRIVE_INFO) As Boolean

‘Function: Send an IDENTIFY command to the drive
‘drvNumber = 0-3
‘IDCmd = IDE_ID_FUNCTION or IDE_ATAPI_ID
Dim SCIP As SENDCMDINPARAMS
Dim IDSEC As IDSECTOR
Dim bArrOut(OUTPUT_DATA_SIZE – 1) As Byte
Dim cbBytesReturned As Long

With SCIP
.cBufferSize = IDENTIFY_BUFFER_SIZE
.bDriveNumber = CByte(drvNumber)

With .irDriveRegs
.bFeaturesReg = 0
.bSectorCountReg = 1
.bSectorNumberReg = 1
.bCylLowReg = 0
.bCylHighReg = 0
.bDriveHeadReg = &HA0 ‘compute the drive number
If Not IsWinNT4Plus Then
.bDriveHeadReg = .bDriveHeadReg Or ((drvNumber And 1) * 16)
End If
‘the command can either be IDE
‘identify or ATAPI identify.
.bCommandReg = CByte(IDCmd)
End With
End With

If DeviceIoControl(hDrive, _
DFP_RECEIVE_DRIVE_DATA, _
SCIP, _
Len(SCIP) – 4, _
bArrOut(0), _
OUTPUT_DATA_SIZE, _
cbBytesReturned, _
ByVal 0&) Then

CopyMemory IDSEC, bArrOut(16), Len(IDSEC)

di.Model = StrConv(SwapBytes(IDSEC.sModelNumber), vbUnicode)
di.SerialNumber = StrConv(SwapBytes(IDSEC.sSerialNumber), vbUnicode)

IdentifyDrive = True

End If

End Function

Private Function IsWinNT4Plus() As Boolean

‘returns True if running Windows NT4 or later
Dim osv As OSVERSIONINFO

osv.OSVSize = Len(osv)

If GetVersionEx(osv) = 1 Then

IsWinNT4Plus = (osv.PlatformID = VER_PLATFORM_WIN32_NT) And _
(osv.dwVerMajor >= 4)

End If

End Function

Private Function SmartCheckEnabled(ByVal hDrive As Long, _
drvNumber As IDE_DRIVE_NUMBER) As Boolean

‘SmartCheckEnabled – Check if SMART enable
‘FUNCTION: Send a SMART_ENABLE_SMART_OPERATIONS command to the drive
‘bDriveNum = 0-3
Dim SCIP As SENDCMDINPARAMS
Dim SCOP As SENDCMDOUTPARAMS
Dim cbBytesReturned As Long

With SCIP

.cBufferSize = 0

With .irDriveRegs
.bFeaturesReg = SMART_ENABLE_SMART_OPERATIONS
.bSectorCountReg = 1
.bSectorNumberReg = 1
.bCylLowReg = SMART_CYL_LOW
.bCylHighReg = SMART_CYL_HI

.bDriveHeadReg = &HA0
If Not IsWinNT4Plus Then
.bDriveHeadReg = .bDriveHeadReg Or ((drvNumber And 1) * 16)
End If
.bCommandReg = IDE_EXECUTE_SMART_FUNCTION

End With

.bDriveNumber = drvNumber

End With

SmartCheckEnabled = DeviceIoControl(hDrive, _
DFP_SEND_DRIVE_COMMAND, _
SCIP, _
Len(SCIP) – 4, _
SCOP, _
Len(SCOP) – 4, _
cbBytesReturned, _
ByVal 0&)
End Function

Private Function SmartGetVersion(ByVal hDrive As Long) As Boolean

Dim cbBytesReturned As Long
Dim GVOP As GETVERSIONOUTPARAMS

SmartGetVersion = DeviceIoControl(hDrive, _
DFP_GET_VERSION, _
ByVal 0&, 0, _
GVOP, _
Len(GVOP), _
cbBytesReturned, _
ByVal 0&)

End Function

Private Function SmartOpen(drvNumber As IDE_DRIVE_NUMBER) As Long

‘Open SMART to allow DeviceIoControl
‘communications and return SMART handle

If IsWinNT4Plus() Then

SmartOpen = CreateFile(“\\.\PhysicalDrive” & CStr(drvNumber), _
GENERIC_READ Or GENERIC_WRITE, _
FILE_SHARE_READ Or FILE_SHARE_WRITE, _
ByVal 0&, _
OPEN_EXISTING, _
0&, _
0&)

Else

SmartOpen = CreateFile(“\\.\SMARTVSD”, _
0&, 0&, _
ByVal 0&, _
CREATE_NEW, _
0&, _
0&)
End If

End Function

Private Function SwapBytes(b() As Byte) As Byte()

Dim bTemp As Byte
Dim cnt As Long

For cnt = LBound(b) To UBound(b) Step 2
bTemp = b(cnt)
b(cnt) = b(cnt + 1)
b(cnt + 1) = bTemp
Next cnt

SwapBytes = b()

End Function
‘ Semoga Bermanfaat. . .

Terkena Virus?

Karena diInstall ulang?

Terhapus/terdelete?

Jangan khawatir, kami bisa mengembalikannya 100%

klik disini .

HD 75 Gb Sata

Memori 512 Mb

Xp Home edition

Kondisi mulus.

Rp 3.100.000,-   terjual.

HD 20 Gb Sata

Memori 512  Gb

Wifi + LAN + Modem

Non Cd rom

12″ wxga

Baterai 30 Menit. Harga Rp 2.700.000,- terjual .

HD 160 Gb Sata

Memori 1 Gb

DVDRw

14.1″ wxga

Wifi + Webcam + cardreader

Tanpa Dos. Garansi 1 bulan . Harga Rp 4.250.000,-  terjual .