Hand Phone Termahal Saat Ini

10. Nokia Lamborghini 8800 Sirocco: 
Yang ini harganya tidak dipublikasikan gan, meski begitu tercatat sebagai Handphone termahal. HP ini terdiri dari 3 band GSM yang bisa digunakan di 5 benua. Bahannya terbuat dari safir (mungkin ini yang bikin mahal gan).

9. Gold Edition Nokia 8800: $2,700; 
Modelnya sama kayak yang sebelumnya gan. cuma yang ini chasingnya terbuat dari mas murni. Kalo fitur2-nya hampir sama kayak HP biasa. masih lengkapan Ipad..

8. Motorola V220 Special Edition: $51,800; 
Kalo yang ini milik Motorola gan. Desainnya dirancang desainer terkenal Australia, Peter Aloisson. Fiturnya standar gan, hanya saja panel depannya dihiasi 1200 berlian dan 18 carat mas di keypadnya...

7. Vertu Diamond: $88,000; 
Hampir di smua bagian HP ini dilapisi berlian 8 karat gan, termasuk keypadnya. Chasingnya dibuat dari platinum terbaik dan bantalan ruby. Konon, HP ini awalnya ditujukan untuk pesawat ruang angkasa gan, entah untuk apa. Yang pasti gan, 200 ponsel model ini telah terjual habis di seluruh dunia.

6. iPhone Princess Plus: $176,400; 
Ini desain lainnya dari Peter Aloison, gan. Nama Handphone ini sendiri berasal dari 138 berlian berbentuk putri yang bertaburan di seluruh chasingnya. Sedangkan 180 berlian lainnya berbentuk potongan. Ponsel ini terbuat dari 17,75 karat berlian dan 18 karat emas putih.

5. VIPN Black Diamond Smartphone: $300,000; 
Yang ini didesain oleh Jaren Goh, gan. Ponsel ini terbuat dari titan dan polycarbonate serta dihiasi dengan berlian. Ponsel ini juga menggunakan prosesor intel 400 Mhz, Camera 4 mega pixel dengan layar TFT 256.

4. Vertu Signature Cobra: $310,000
Ponsel ini diproduksi oleh Boucheron, sebuah perusahaan perhiasan yang ada di Perancis. Sejauh ini, ponsel model ini hanya pernah dibuat 8 unit. Ponsel ini terbuat dari berlian bundar, dua karat pir potong, 2 mata zamrud dan 439 batu rubi. Yang tak kalah serunya, di depannya ada motif cobra.. 

3. Diamond Crypto Smartphone: $1.3 million
Yang ini diproduksi oleh JSC Ancort dan juga didesain Peter Aloisson bersama luxury accecories. Ponsel dengan harga selangit ini dilapisi platinum yang dsarnya terdiri dari 50 berlian, yang 8 diantaranya merupakan berlian biru yang terkenal. Ponsel ini menggunakan Windows CE sebagai OS nya.

2. GoldVish Le Million: $1.3 million
Goldvish LeMillion didesain oleh Emmanuel Gueit. Keunikan HP ini yaitu ia disertifikasi Guinness World Records pada tahun 2008. Ponsel ini menggunakan Berlian dengan 18 Carat emas putih. Fitunya sangat standar, yaitu 2 GB storage, FM radio, digital camera, MP3 playback dan bluetooth. HP ini hanya dibuat berdasarakan pesanan. Anda tertarik memesannya? 

Dan ini dia gan, ponsel termahal di dunia sampai saat ini...

1. Goldstriker iPhone 3GS Supreme: $3.2 million
Gadget mewah ini didesain oleh Stuart Hughes. Ponsel ini tercatat sebagai HP termahal sampai saat ini. Dilapisi 271 grams, dimana 22 diantaranya merupakan emas murni. Lebih dari 200 berlian ditambahkan untuk mempercantik ponsel ini. Logo Apple di bagian belakang dibuat dari permata dan ditutupi dengan berlian 7.1 karat. HP ini juga memiliki chasing yang terbuat dari granit dan emas Kashmir.

Teknologi Tercanggih Saat Ini

1. Quantum Teleporter

Q-Teleportation telah berhasil pada objek yang lebih kecil berdasarkan penelitian yang telah dilakukan. “Kami bisa melakukan ekesperimen quantum teleportation untuk pertama kalinya di luar laboratorium universitas,” kata Rupert Ursin, peneliti Institute if Experimental Physics, Universitas Vienna, Austria. Pada Q-Teleportation, quantum pada objek dihancurkan dan dibuat kembali. Oleh karena itu, Q-Teleportation tidak bisa memindahkan benda hidup maupun mati secara keseluruhan fisik. Alat ini “menciptakan” replika benda sebelumnya pada posisi di tempat lain dan benda sebelumnya akan “menghilang” selama replikanya diciptakan.

sumber: National Geographic. 2. 360º 3-D Holographic Displays

ZCam™ merupakan kamera video yang bisa merekam informasi hingga ke dalam bagian objek (yang biasa digunakan untuk membuat model 3D) video dan kemudian diproduksi oleh 3DV Systems. Teknologi ini berbasiskan prinsip “Time of Flight”. Pada teknik ini, data ukuran 3D didapatkan dengan cara mengirim gelombang infra merah ke dalam scene video dan mendeteksi cahaya yang direfleksikan oleh permukaan objek pada scene video. Dengan menggunakan variabel waktu yang ditempuh oleh gelombang infra merah untuk mencapai objek target dan saat kembali, jarak bisa dihitung dan kemudian digunakan untuk membuat informasi 3D dari semua objek pada scene.
3. Lightsaber (Pedang Laser)

Yang kita ketahui, pedang ini hanyalah hasil “karya: pada film-film sains fiksi belaka!! Lightsaber terdiri dari logam dan mata pedang berupa plasma sepanjang 1 meter. Lightsaber ini bisa memotong objek tanpa perlawanan sedikitpun. Bisa meninggalkan luka bakar pada kulit manusia. Tapi pedang ini bisa ditangkis, namun dengan pedang lightsaber pula, bisa juga ditangkis dengan perisai.
4. JetPack

Jetpack, juga termasuk alat yang banyak kita temukan di film sains fiksi, yang mana alat ini menggunakan jet yang melepaskan gas (bisa juga air) dan kemudian “menerbangkan” penggunanya. TAM adalah perusahaan pertama dan satu-satunya di dunia yang memproduksi paket lengkap kostum yang didesain oleh Rocket Belt menggunakan mutakhir dan juga material aerospace dengan mesin penyulingan khusus untuk memproduksi bahan bakar Hidrogen Peroksida jet anda.
5. Military exoskeleton prototype

Military exoskeleton merupakan sejenis rangka luar bertenaga hidrolik yang dipasang pada militer dan bisa mengangkat hingga 100 kg benda untuk jangka waktu yang lama dan bisa sambil mengelilingi suatu area pula. Desainnya yang fleksibel memungkinkan pengguna untuk berjongkok, bergerak pelan dan “mengangkat” ke atas. Tidak ada joystick maupun mekanisme kontrol lainnya. Kontrolnya menggunakan indra manusia.
6. Flying Car

“Mobil terbang” ini disebut “The Highway in the Sky”. Jika tiap waktu agan terjebak macet, maka dengan menggunakan flying car ini agan bisa berputar dan menukik di angkasa agar bisa sampai di tujuan dengan cepat. 
7. Flying Saucer

Ini adalah model kendaraan udara tak berawak dengan bentuk cawan (mirip pesawat UFO uy) yang dibuat oleh sebuah perusahaan di Inggris bernama Aesir.
8. Virtual Goggles

Teknologi telah membawa dunia virtual ke dalam komputer kita sejak lama. Tapi, dunia virtual tersbut sekarang bisa disaksikan di rumah kita. Sebuah ekseprimen yang telah dilakukan selama beberapa dekade, sekarang telah menjadi kenyataan.

Pada gambar di atas, wanita tsb sedang menggunakan device berteknologi virtual bernama iWear VR920 dari perusahaan Icuiti. Alat tsb bisa berfungsi sebagai output video juga sebagai gaming console.

HP Transparan "Window Phone"

Perkembangan barang elektronik seperti gadget, komputer, handphone, dll sangatlah pesat. Teknologi terkini yang cukup menghebohkan adalahhandphone transparan, window phone..


Handphone ini termasuk unik, selain karena bentuknya yang sangat ramping, selain itu juga karena warnanya yang transparan seperti kaca. Window phone ini mempunyai inovasi fitur yang sedikit aneh jika dibandingkan dengan handphone lainnya. 

Window phone mempunyai fitur cuaca yang dapat membuatnya mengikuti cuaca yang ada disekitarnya. Ketika cuaca sedang cerah, handphone ini juga cerah. Ketika cuaca hujan, handphone ini akan berubah theme menjadi hujan. Ketika cuaca salju, handphone ini themenya berubah menjadi salju juga. Dan begitu seterusnya..

Berikut beberapa gambar handphone tersebut.














Cukup unik bukan??

Membulatkan Bilangan Desimal Ke Kelipatan Setengah Berikutnya

Ternyata mengenai bulat-membulatkan bilangan semakin sering ditanya. Setelah dua artikel saya sebelumnya yang membahas pembulatan bilangan pecahan ke kelipatan bilangan bulat di atasnya, serta pembulatan suatu bilangan ke dalam angka kelipatan seratus berikutnya, ada juga yang bertanya kepada saya: Bagaimana dengan pembulatan bilangan desimal ke dalam kelipatan setengah berikutnya? Contoh: Angka 0,1 (Nol koma satu) dibulatkan menjadi 0,5 (Nol koma lima), angka 1,6 (Satu koma enam) dibulatkan menjadi 2, angka 1 tetap menjadi 1, dan seterusnya. Simak solusi selengkapnya di artikel ini.

Deskripsi:

Membulatkan setiap angka pecahan ke atas setengah
berikutnya. Contoh: Angka 6,1 (Enam koma satu)
akan dibulatkan menjadi 6,5.

Persiapan:

1. Buat satu project standard exe dengan satu form
2. Tambahkan satu CommandButton ke atas form
3. Copy-kan code ini ke editor form yang bertalian

Kode::

'Copy Code Dibawah ini Pada Kolom Form Code Editor Dengan Deskripsi General

Private Sub Command1_Click()
MsgBox BulatkanKeAtasSetengah(1.6) '<-- menghasilkan 2 MsgBox BulatkanKeAtasSetengah(1.5) '<-- menghasilkan 1.5 MsgBox BulatkanKeAtasSetengah(1.1) '<-- menghasilkan 1.5 MsgBox BulatkanKeAtasSetengah(1) '<-- menghasilkan 1 End Sub Private Function BulatkanKeAtasSetengah(ParamAngka As Double) As Double Dim Desimal As Double Dim BulatAngka As Integer BulatAngka = Val(ParamAngka) Desimal = ParamAngka - BulatAngka If Desimal = 0.5 Then BulatkanKeAtasSetengah = ParamAngka Else If Desimal <> 0 Then
BulatkanKeAtasSetengah = BulatAngka + 0.5
ElseIf Desimal > 0.5 Then
BulatkanKeAtasSetengah = (ParamAngka - (Desimal - 0.5)) + 0.5
Else
BulatkanKeAtasSetengah = ParamAngka
End If
End If
End Function

Membulatkan Angka Pecahan

Tips berikut menunjukkan kepada Anda bagaimana caranya membulatkan bilangan pecahan berdasarkan pilihan tertentu.

Deskripsi:

Membulatkan suatu bilangan pecahan berdasarkan pilihan tertentu.

Persiapan:

1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Copy-kan coding berikut ke editor Form yang bertalian

Function Round(nValue As Double, nDigits As Integer) As Double
Round = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
End Function

Private Sub Form_Load()
'Ganti '19.8455' dengan bilangan yang ingin Anda bulatkan.
'Ganti '2' dengan jumlah digit setelah koma untuk hasil setelah pembulatan.
MsgBox Round(19.8455, 2)
End Sub

Membulatkan Angka Ke Dalam Kelipatan Seratus Berikutnya

Pernahkah Anda kesulitan ketika ingin membulatkan sebuah angka ke dalam kelipatan seratus ke atas berikutnya? Contoh: Anda memiliki angka 729, dan Anda ingin membulatkan angka tersebut ke kelipatan seratus ke atas sehingga menjadi 800. Sedangkan jika angkanya tepat kelipatan seratus, proses pembulatan akan diabaikan. Untuk mengatasi hal ini, Anda bisa menggunakan fungsi khusus yang saya buat. Fungsi ini bahkan bisa juga Anda gunakan melalui fitur Macro di Microsoft Excel. Berikut ini code selengkapnya.

Deskripsi:

Membulatkan angka ke dalam kelipatan seratus berikutnya
Contoh:
Anda memiliki angka 101, maka jika dibulatkan
ke dalam kelipatan seratus berikutnya, hasilnya adalah 200.

Persiapan:

1. Buat sebuah project standard exe dengan satu form.
2. Tambahkan satu CommandButton ke atas form.
3. Copy-paste code berikut ke editor form yang bertalian.

Public Function BulatkanAngka(lngAngka As Long) As Long
If lngAngka Mod 100 > 0 Then
Dim lngHasil As Long
lngHasil = lngAngka \ 100
BulatkanAngka = (lngHasil * 100) + 100
Else
BulatkanAngka = lngAngka
End If
End Function

Private Sub Command1_Click()
Ulangi:
Dim lngAngka As Long
If lngAngka = 0 Then lngAngka = 729
lngAngka = InputBox("Masukkan sebuah angka!", "Angka", lngAngka)
MsgBox "Angka " & lngAngka & " setelah dibulatkan ke dalam " & vbCrLf & _
"kelipatan seratus berikutnya adalah: " & BulatkanAngka(lngAngka)
If MsgBox("Ulangi lagi?", vbQuestion + vbYesNo, "Ulangi?") = vbNo Then
Exit Sub
Else
GoTo Ulangi
End If
End Sub

Membuat Tabel Baru Saat Run-Time dengan ADO

Berikut ini source code yang bisa Anda gunakan untuk membuat tabel saat run-time di program Anda dengan menggunakan ADO dan database Microsoft Access 2000. Untuk mencoba code ini, jangan lupa agar Anda membuat terlebih dulu satu buah database Access kosong (blank database, tanpa tabel) lalu simpan di C:\ dengan nama NewDB.mdb. Anda juga harus menambahkan dua item dari menu Project -> References... punya Visual Basic 6, masing-masing: "Microsoft ActiveX Data Objects 2.x Library" dan "Microsoft ADO Ext. 2.x for DDL and Security".

Deskripsi:

Membuat tabel saat run-time dengan reference ADO menggunakan
database Microsoft Access 2000. Dalam code ini, Anda harus
menambahkan dua item sebagai reference untuk code, yaitu:
"Microsoft ActiveX Data Objects 2.x Library" dan
"Microsoft ADO Ext. 2.x for DDL and Security".
MDAC versi terakhir yang terinstall di PC saya adalah versi 8
sehingga 2.x itu menjadi 2.8. Sesuaikan di PC Anda.

Persiapan:

1. Buat satu project standard exe dengan satu Form dan
satu control CommandButton di atas form.
2. Buat sebuah database baru Access 2000 kosong tanpa tabel
dan simpan di drive "C:\" dengan nama "NewDB.mdb".
3. Klik menu Project -> References... lalu beri tanda
centang pada "Microsoft ActiveX Data Objects 2.x Library"
di mana x = versi dari MDAC yang terinstall di PC Anda
4. Beri tanda centang juga di "Microsoft ADO Ext. 2.x for
DDL and Security".
5. Copy-kan code berikut ke editor form yang bertalian.

Kode::

'--- Copy Code Dibawah Ini Pada Kolom Form Code Editor , Deskripsi General ---'

Private Sub InsertInitialData()
Dim rsTabelBaru As ADODB.Recordset
Set rsTabelBaru = New ADODB.Recordset
'Optimalkan variable ADODB.Recordset
With rsTabelBaru
.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='C:\NewDB.mdb';"
.CursorLocation = adUseClient '<-- jangan pernah lupa ini .CursorType = adOpenKeyset '<-- biasa .LockType = adLockPessimistic '<-- biasa .Source = "SELECT * FROM TabelBaru" .Open 'Tambah record baru jika tabel sudah ada .AddNew .Fields("KodeData").Value = 1 .Fields("DeskripsiData").Value = "Deskripsi Satu" .Update MsgBox "Sukses tambah 1 record baru", vbInformation End With End Sub Private Function CreateTable() As Boolean Dim catDatabase As ADOX.Catalog Dim oTable As ADOX.Table Dim bCreateTable As Boolean On Error GoTo KeluarErr 'Di sini tabel belum terbentuk bCreateTable = False 'Variable untuk membuat tabel baru Set catDatabase = New ADOX.Catalog With catDatabase .ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _ "Data Source='C:\NewDB.mdb';" 'Tentukan nama tabel baru yang akan dibuat Set oTable = .Tables("TabelBaru") End With KeluarProsedur: If (bCreateTable) Then Set oTable = New ADOX.Table With oTable .Name = "TabelBaru" 'Tambahkan 2 field baru Call .Columns.Append("KodeData", adInteger) Call .Columns.Append("DeskripsiData", adVarWChar, 20) End With 'Tambahkan tabel baru ke database Call catDatabase.Tables.Append(oTable) End If 'Bersihkan memory If (Not catDatabase Is Nothing) Then Set catDatabase = Nothing End If 'Tabel sudah terbentuk CreateTable = bCreateTable KeluarErr: Select Case Err.Number Case 3265 'Table belum ada bCreateTable = True Err.Clear Resume KeluarProsedur Case Is <> 0
MsgBox Err.Description, vbCritical
bCreateTable = False
Err.Clear
Resume KeluarProsedur
End Select
End Function

Private Sub Command1_Click()
On Error GoTo ErrHandler
Dim bTableCreated As Boolean
bTableCreated = CreateTable
If (bTableCreated) Then
Call InsertInitialData
End If
MsgBox "Sukses membuat tabel baru di database C:\NewDB.mdb!", vbInformation
Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub

Membuat Menu Dengan Bahasa Rakitan

gandhi segment
assume cs:gandhi
org 100h

mulai: jmp cetak

menu db,       ‘MENU UTAMA’
db 13,10,’1. discending’
db 13,10,’2. biodata’
db 13,10,’3. Keluar$’

pilihan db 13,10,’Pilihan [1-3]: $’

biodata db       ‘BIODATA$’
nim     db 13,10,’NIM      : $’
nama    db 13,10,’Nama     : $’
kel     db 13,10,’Kelompok : $’
inputnim db 15,?,15 dup(?)
inputnama db 31,?,31 dup(?)
inputkel db 8,?,8 dup(?)

discendingmenu db          ‘DISCENDING’
db 13,10,’1. Tampil secara Ascending’
db 13,10,’2. Tampil secara Descending’
db 13,10,’3. Ke Menu utama$’

back db ‘Kembali ke menu utama [Y/T]: $’

cetak: mov ax,03h
int 10h
mov ah,09h
mov dx,offset menu
int 21h
mov ah,09h
mov dx,offset pilihan
int 21h
mov ah,01h
int 21h
cmp al,’1′
je bio
cmp al,’2′
je alpha
cmp al,’3′
selesai: int 20h

bio: mov ax,03h
int 10h
mov ah,09h
mov dx,offset biodata
int 21h
mov ah,09h
mov dx,offset nim
int 21h
mov ah,0ah
mov dx,offset inputnim
int 21h
mov ah,09h
mov dx,offset nama
int 21h
mov ah,0ah
mov dx,offset inputnama
int 21h
mov ah,09h
mov dx,offset kel
int 21h
mov ah,0ah
mov dx,offset inputkel
int 21h
mov ah,09h
mov dx,offset back
int 21h
cmp al,’y’
jmp cetak
cmp al,’Y’
jmp cetak
cmp al,’t’
jmp selesai
cmp al,’T’
jmp bio
jmp selesai

alpha: mov ax,03h
int 10h

mov ah,09h
mov dx,offset discendingmenu
int 21h
mov dx,offset pilihan
int 21h

mov ah,01h
int 21h
cmp al,’1′
je descending
cmp al,’2′
jmp cetak

descending:mov ax,03h
int 10h
mov cx,1ah
mov ah,02h
mov dl,’Z’
b:         int 21h
dec dl
loop b
mov ah,01h
int 21h
jmp alpha

;submenubio: jmp bio

;submenualpha: jmp alpha

;selesai: int 20h
gandhi ends
end mulai

Membuat folder tanpa nama

Udah Malam, dikit Lagi Mau Tidur, Sebelm Tidur, Berbagi ilmu dulu ah,,
Bgini Bro, Folder kan biasanya menggunakan Nama untuk lebih mudah dikenali pemilikya,Tapi ada Juga Folder Buntung tanpa Nama,,
Mau Tau bagaimana Cara Membuatnya??

Caranya :
1. Buat Folder Baru
2. Namai Folder Tersebut dengan menekan tombol : Alt+0160
[Gunakan Bagian Numerik pada keyboard yang ada di keyboard bagian kanan]
3. Tekan Enter

Bisa gak, Terlalu Simple ia??
sesimple bikin Mie instant kan?
Malah Lebih simple bikin Folder Tanpa Nama!!
Wokeh Bro, Aq Mau Tidur!!

Membuat file ISO dari CD/DVD

File ISO memang banyak manfaatnya. Untuk kepentingan backup data, keamanan data atau hal-hal yang kita butuhkan dalam bentuk file ISO. Kalau boleh dikatakan file ISO ini mirip dengan file .rar, .zip dll. Kalau file.rar, zip untuk membuka dan membacanya perlu diekstract, namun file dengan extensi .iso ini dilakukan dengan cara burning. Untuk membacanya tanpa burning dapat dilakukan dengan menggunakan virtual CD/DVD ROM. Banyak sekali software untuk membuat file ISO, termasuk software yang gratis atau free, sebut saja salah satunya adalah free iso creator. Bisa membuat file ISO dari folder maupun file. Bisa di download disini. Namun kalau untuk membuat file ISO dari CD atau DVD masih kesulitan. File ISO dari CD dan DVD ini sangat berguna sekali untuk membackup data cd/dvd dengan aman. Terutama CD / DVD Windows atau Operating system yang lain akan lebih aman kalau disimpan dalam bentuk ISO file. Suatu saat kita perlukan bisa diburn lagi ke cd/dvd.

Untuk membuat file ISO dari CD / DVD ini kita membutuhkan sebuah software. Salah satunya adalah Software Magic ISO Maker. Dengan software ini kita bisa membuat file iso dari cd/dvd dan sebaliknya yaitu membakar atau burning iso file. Selain itu software ini bisa digunakan mengkonversi atau convert file iso menjadi BIN dan Nero image atau sebaliknya. Ditambah lagi dengan fasilitas windows explorer sangat memudahkan pengguna dalam memanfaatkan software ini. Sayangnya software ini tidak gratis alias berbayar. Sahabat bisa download langsung ke websitenya di www.magiciso.com. Namun sahabat tidak usah khawatir, shobat bisa mendapatkannya sudah disertai serial number dengan download pada link dibawah ini.

DOWNLOAD SEKARANG

Untuk menjalankannya ( membuat file ISO dari CD/DVD) dapat dibuka melalui menu tools pada program Magic Iso. Pada menu tools tersebut terdapat perintah make ISO from CD/DVD, Burn CD/DVD with ISO, virtual cd/dvd rom, compress dan decompress CD/DVD image, make multi boot image dan lain-lain.

Membuat CommandButton Seperti Stop Kontak Lampu

Deskripsi: Membuat sebuah tombol kelihatan ditekan ke dalam saat ditekan

sama seperti jika Anda menekan tombol stop-kontak lampu di rumah;
maka tombol akan kelihatan masuk ke dalam, kemudian ketika Anda
menekan sekali lagi, maka tombol akan kembali normal kembali...
demikian seterusnya secara bergantian untuk penekanan berikutnya.

Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form & module tsb.

'--- Copy Code berikut di kolom Modul ---'

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _
Long, lParam As Any) As Long
Public Const BM_SETSTATE = &HF3
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202

'--- Copy'a Sampai Disini...

'--- Copy Code berikut di Form , Deskripsi'a General ---'

Dim blnTekan As Boolean

Private Sub Command1_Click()
If blnTekan = False Then
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&)
blnTekan = True
Exit Sub
ElseIf blnTekan = True Then
blnTekan = False
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&)
End If
End Sub

'--- Copy'a Sampai sini ...

Keterangan :

'Ketika Anda mengklik Command1 pertama kali, maka tombol kelihatan masuk ke dalam.
'Ketika Anda mengklik Command1 selanjutnya, tombol akan kelihatan normal kembali.
'Demikian seterusnya bergantian... :-)
'Pengertian "klik" di atas tidak hanya event Click saja, tapi bisa dengan
'menekan Enter atau tombol Spasi di keyboard saat tombol dalam keadaan focus.

Membersihkan virus shortcut di Flashdisk

Jika Anda menyadari bahwa ketika flashdisk Anda dicolokkan ke komputer namun tidak terlihat sebagian atau seluruh file atau folder yang Anda pikir seharusnya ada, bisa jadi memang sebelumnya flashdisk tersebut telah terhubung dengan komputer yang terinfeksi virus, yang salah satu aksinya menyembunyikan file dan folder. Contoh virus tersebut bernama serviks. Untuk menghilangkan virus serviks (virus shortcut) dapat anda lihat di
sini.

Berikut penanganan untuk USB Flashdisk yang terlanjur terinfeksi serviks.

1. 1. Terlebih dahulu scan flashdisk anda menggunakan Smadav versi 8.3 ke atas, jika hasil scan menunjukkan ada file virus dan beberapa folder tersembunyi klik saja Fix All.

2. 2. Jika sudah di Fix All namun folder Anda tetap saja tersembunyi lakukan langkah selanjutnya:

3. 3. Start – Run –Cmd

4. Ketikkan perintah ini di Command Prompt :

attrib -r -h -s F:\*.* /s /d tekan Enter

huruf F di atas menunjukkan drive flashdisk anda, coba lihat kembali di explorer, terdapat di drive apakah flasddisk anda, kemudian sesuaikan. Jika ada di E: maka ganti huruf F di atas dengan E, begitu pula dengan yang lainnya.

5. 5. Tunggu beberapa saat, semakin banyak file dan folder anda semakin memakan waktu.

6. 6. Setelah berhasil biasanya file dan folder anda yang disembunyikan oleh virus akan terlihat kembali.

7. 7. Scan kembali flashdisk anda menggunakan Smadav versi 8.3 ke atas untuk memastikan flashdisk anda telah bersih dari virus.

Lebih Jauh Tentang Perintah ATTRIB

Perintah ATTRIB merupakan perintah yang ada dalam Microsoft DOS dan masih dapat digunakan sampai saat ini termasuk dalam Command Prompt Windows. Perintah ini digunakan untuk memberikan atau menghilangkan atribut tertentu pada suatu file atau folder.Syntax umumnya adalah sebagai berikut:

ATTRIB [+R | -R] [+A | -A ] [+S | -S] [+H | -H] [[drive:] [path] filename] [/S [/D]]

Keterangan:

+ Digunakan untuk menambahkan sebuah atribut.

- Digunakan untuk menghilangkan sebuah atribut

R Atribut file read only (hanya dapat dibaca)

A Atribut file archive

S Atribut file system

H Atribut file hidden (disembunyikan)

/S Memproses semua file dalam semua direktori

/D Memroses direktori

Dengan mengetahui penjelasan ini, Anda pun dapat pula menyembunyikan folder dan file sendiri. Tapi perlu diingat, folder dan file yang disembunyikan ini, akan tetap dapat terlihat jika kita mengaktifkan tampilan untuk melihat file yang disembunyikan dan file system dari menu Folder Options di Windows Explorer.

Semoga Berhasil..