 |
 |
Untuk mempermudah pengontrolan user, ada baiknya Anda membuat sebuah User Account baru untuk orang lain yang menggunakan komputer Anda. Kemudian loginlah menggunakan User Account baru tersebut.
Sebelum mengutak-atik Registry, ada baiknya melakukan backup terlebih dahulu.
1. Klik tombol Start > Run.
2. Ketik regedit dan tekan Enter setelah berada didalam jendela Run.
3. Didalam Registry Editor, pilih menu File > Export.
4. Setelah Export Registry File muncul, masukkan nama file ke bagian File Name, misalnya backup-registry dan sebagainya.
5. Tekan tombol Save.
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer
Kombinasi angka pada Value Data adalah sebagai berikut:
A: > 1
B: > 2
C: > 4
D: > 8
E: > 16
F: > 32
G: > 64
H: > 128
I: > 256
J: > 512
K: > 1024
L: > 2048
M: > 4096
Semua: > 67108863
Untuk melihat hasilnya, silahkan Log Off, kemudian Login kembali di user account tamu Anda. Sudah tersembunyi kan? Selamat mencoba dan semoga berguna
sumber : http://bangdanu.wordpress.com/2011/10/05/menyembunyikan-drive-komputer-melalui-registry-windows/
Tulisan berikut saya dedikasikan khusus untuk pembaca yang pernah bertanya melalui komentar di tulisan saya sebelumnya tentang Grafika Komputer
Pada tulisan kali ini kita akan membahas cara membuat grafik menggunakan listing Visual Basic. Grafik yang akan kita buat adalah Line Chart, Bar Chart dan Spiral Chart. Langsung kita coba yuk.
Langkah pertama, buatlah sebuah form dengan tampilan seperti pada gambar berikut ini.
Langkah berikutnya adalah dengan mengetikkan listing berikut ini pada form diatas.
Option Explicit
Dim N As Integer
Dim X(199) As Single
Dim Y(199) As Single
Dim YD(199) As Single
Private Sub LineChart(objectname As Control, N As Integer, X() As Single, Y() As Single)
Dim Xmin As Single, Xmax As Single
Dim Ymin As Single, Ymax As Single
Dim I As Integer
Xmin = X(0): Xmax = X(0)
Ymin = Y(0): Ymax = Y(0)
For I = 1 To N – 1
If X(I) Xmax Then Xmax = X(I)
If Y(I) Ymax Then Ymax = Y(I)
Next I
Ymin = (1 – 0.05 * Sgn(Ymin)) * Ymin
Ymax = (1 + 0.05 * Sgn(Ymax)) * Ymax
objectname.Scale (Xmin, Ymax)-(Xmax, Ymin)
objectname.Cls
objectname.PSet (X(0), Y(0))
For I = 1 To N – 1
objectname.Line -(X(I), Y(I))
Next I
End Sub
Private Sub Form_Load()
Dim I As Integer
Const PI = 3.14159
N = 200
For I = 1 To N – 1
X(I) = I
Y(I) = Exp(-0.01 * I) * Sin(PI * I / 10)
YD(I) = Exp(-0.01 * I) * (PI * Cos(PI * I / 10) / 10 – 0.01 * Sin(PI * I / 10))
Next I
End Sub
Private Sub mnuPlotBar_Click()
Call BarChart(PicPlot, N, X, Y)
End Sub
Private Sub mnuPlotExit_Click()
End
End Sub
Private Sub mnuPlotLine_Click()
Call LineChart(PicPlot, N, X, Y)
End Sub
Private Sub mnuPlotSpiral_Click()
Call LineChart(PicPlot, N, Y, YD)
End Sub
Private Sub BarChart(objectname As Control, N As Integer, X() As Single, Y() As Single)
Dim Xmin As Single, Xmax As Single
Dim Ymin As Single, Ymax As Single
Dim I As Integer
Xmin = X(0): Xmax = X(0)
Ymin = Y(0): Ymax = Y(0)
For I = 1 To N – 1
If X(I) Xmax Then Xmax = X(I)
If Y(I) Ymax Then Ymax = Y(I)
Next I
Ymin = (1 – 0.05 * Sgn(Ymin)) * Ymin
Ymax = (1 + 0.05 * Sgn(Ymax)) * Ymax
objectname.Scale (Xmin, Ymax)-(Xmax, Ymin)
objectname.Cls
For I = 1 To N – 1
objectname.Line (X(I), 0)-(X(I), Y(I)), vbBlue
Next I
End Sub
Kalau sudah selesai silahkan disimpan dan dijalankan. Bagaimana hasilnya?
Line Chart:
Bar Chart:
Spiral Chart:
Silahkan Anda coba dan share disini ya.
Selamat mencoba dan semoga berguna
sumber : http://bangdanu.wordpress.com/2012/03/25/membuat-grafik-dengan-visual-basic/#more-826
