Rabu, 14 September 2011

Menambahkan Border pada Worksheet Excel 2007 dengan Bantuan Macro

Hal lainnya yang tidak kalah penting jika Anda bekerja dengan Macro di Excel 2007 adalah memformat Cell atau Range tertentu di suatu Worksheet dengan menambahkan border atau garis pada sebuah tabel yang terdiri dari beberapa baris dan kolom. Anda pasti sering membuat tabel yang dilengkapi dengan border. Lalu, mengapa pekerjaan berulang itu tidak diotomatiskan saja? Kali ini saya akan menunjukkan kepada Anda bagaimana cara melakukan hal ini melalui penerapan sebuah contoh kasus yang menampilkan sepuluh baris record dengan 4 kolom dan 12 baris. Setiap baris dan kolom pada tabel tersebut akan memiliki garis atau border. Baris pertama merupakan judul tabel, baris kedua sampai kesebelas adalah datanya, dan di baris terakhir akan ditampilkan jumlah total dari nilai baris kedua sampai kesebelas, hanya pada kolom ke-3 dan ke-4.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Menggabungkan Tiga Cell di Excel 2007 dengan Bantuan Macro

Di artikel ini lagi-lagi kita akan menggunakan kode Visual Basic 6 di Excel 2007 untuk menggabungkan tiga buah Cell menjadi sebuah Range, lalu memformat perataan (Alignment) Range tersebut baik secara Horizontal dan Vertical, dan terakhir, menuliskan “Visual Basic Indonesia” di Range tersebut. Melalui artikel ini Anda dapat mengetahui bahwa ketika Anda melakukan pemformatan Cell atau Range (dan juga pekerjaan lainnya) di Excel 2007, sebenarnya langkah-langkah yang Anda lakukan tersebut secara tidak langsung otomatis diterjemahkan oleh Excel 2007 ke dalam kode Visual Basic 6. Dengan kata lain, sebenarnya Anda dapat memodifikasi kode Visual Basic 6 yang dihasilkan oleh fitur Macro di Excel 2007, sehingga otomatisasi pekerjaan Anda dengan bisa menjadi lebih efektif lagi sesuai dengan kebutuhan yang Anda tentukan sendiri.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Contoh Encrypt dan Decrypt Teks dengan Visual Basic

Tujuan Utama Encrypt dan Descript teks adalah untuk merubah karakter teks sehingga tidak mudah dibaca atau dipahami orang lain, metode ini banyak dipakai untuk proteksi seperti dunia Internet, Bank baik proteksi password, pengiriman pesan, pengiriman data dan lain-lain. Disini saya memberikan contoh dasar bagaimana pembuatan Encrypt dan Descript teks tersebut dengan Visual Basic

Sintax :
1. EncryptText(strText As String, ByVal strPwd As String) As String
2. DecryptText(strText As String, ByVal strPwd As String)

contoh :
EncryptText("Uji Coba", "gila") = ž¶ªgŒ»£¨DecryptText("ž¶ªgŒ»£¨","gila") = Uji Coba

Bagi sobat-sobat yang tertarik silakan ikuti langkah - langkah pembuatan fungsi Encrypt dan Decript ini

Persiapan yang harus dilakukan
  • Buat Project Baru Standart Exe
  • 3 Buah TextBox (Text1,Text2, Text3)
  • 2 Buah CommandButton (Command1, Command2)
  • 2 Buah Label
  • 1 buat Moudule
  • Design form seperti Gambar dibawah ini
Contoh Design Project Form Engcrypt - Descrypt


Tempat Coding dibawah ini pada Module
Option Explicit

#Const CASE_SENSITIVE_PASSWORD = False

'Encrypt text
Public Function EncryptText(strText As String, ByVal strPwd As String) As String
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Encrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
EncryptText = strBuff
End Function

Public Function DecryptText(strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String

#If Not CASE_SENSITIVE_PASSWORD Then

'Convert password to upper case
'if not case-sensitive
strPwd = UCase$(strPwd)

#End If

'Decrypt string
If Len(strPwd) Then
For i = 1 To Len(strText)
c = Asc(Mid$(strText, i, 1))
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
strBuff = strBuff & Chr$(c And &HFF)
Next i
Else
strBuff = strText
End If
DecryptText = strBuff
End Function

Ketik Coding dibawah ini pada Form Project

Option Explicit

Private Sub Command1_Click()
Text2 = EncryptText(Text1, "gila")
End Sub

Private Sub Command2_Click()
Text3 = DecryptText(Text2, "gila")
End Sub
Cukup sekian dulu tutorial singkat ini, mudah-mudahan ada mamfaat nya bagi sobat - sobat VB Depeloper, selamat mencoba ... salam

How to create a manifest file with code

In this article I do not discuss again what is manifest file functions because of my previous article already exists precisely here, so now the discussion is how to incorporate into a Visual Basic project, so theManifest file is created automatically if removed.
for those of you who are interested in this tip, please follow the way of making the code below

Step 1
  • create a new standard exe project
  • add module
Step 2
Place the following code in the module project

Option Explicit
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long

Sub InitialiseXPControls()
Dim intFreeFile As Integer
Dim lngReturn As Long
Dim strEXEFile As String
Dim strManifestFile As String

strEXEFile = App.Path & "\" & App.EXEName & ".exe"
strManifestFile = strEXEFile & ".manifest"

If Dir(strEXEFile) <> "" And Dir(strManifestFile) = "" Then
intFreeFile = FreeFile()

Open strManifestFile For Output As #intFreeFile
Print #intFreeFile, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #intFreeFile, "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">"
Print #intFreeFile, "<assemblyIdentity"
Print #intFreeFile, " version = ""1.0.0.0"""
Print #intFreeFile, " processorArchitecture = ""X86"""
Print #intFreeFile, " name = ""Microsoft.Winweb.VB_Application"""
Print #intFreeFile, " type=""win32"""
Print #intFreeFile, "/>"
Print #intFreeFile, "<description>GSoftware</description>"
Print #intFreeFile, "<dependency>"
Print #intFreeFile, " <dependentAssembly>"
Print #intFreeFile, " <assemblyIdentity"
Print #intFreeFile, " type=""win32"""
Print #intFreeFile, " name = ""Microsoft.Windows.Common-Controls"""
Print #intFreeFile, " version = ""6.0.0.0"""
Print #intFreeFile, " processorArchitecture = ""X86"""
Print #intFreeFile, " publicKeyToken = ""6595b64144ccf1df"""
Print #intFreeFile, " language = ""*"""
Print #intFreeFile, " />"
Print #intFreeFile, " </dependentAssembly>"
Print #intFreeFile, "</dependency>"
Print #intFreeFile, "</assembly>"
Close #intFreeFile

Shell strEXEFile, vbNormalFocus
End
End If

lngReturn = InitCommonControls()
End Sub


Step 3
Please call InitialiseXPControls in sub main or startup form your project

Now your application will follow the theme of your windows that apply, good luck. If you have any problems please contact me or can you confirm by email, may be useful for you.

Membuat Form Transparan

Tips kali ini adalah bagaimana Membuat Form Transparant dengan Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes. Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat penampakannya dibawah ini

Bagaimana dengan Codingnya ikuti Langkah - Langkah Berikut :

  • Buat Project Baru Standart Exe
Ketik Coding dibawah ini pada Form Project Sobat

Option Explicit

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
Call SetLayeredWindowAttributes(Me.hwnd, RGB(2550255), 128, LWA_ALPHA Or LWA_COLORKEY)
End Sub


Untuk ketajaman transparant sobat bisa menggati Angka - Angka yang berwarna merah dengan angka yang lain (maximal value 255). Mudah - mudahan ada mamfaatnya selamat mencoba ... salam

Cara Membuat INI File

Mungkin sobat - sobat sering menjumpai INI File pada direktori atau folder sebuah Aplikasi contoh nya seperti config.ini atau nama yang lain yang berextensikan .ini, INI file merupakan salah satu file pendukung biasa digunakan sebagai media peyimpanan settingan atau Informasi aplikasi baik yang dilakukakan oleh user / pengguna maupun programmer itu sendiri. Pada kesempatan kali ini saya akan membahas Cara Membuat INI File tersebut.

Bagi sobat - sobat yang tertarik silahkan ikuti langkah - langkah pembuatan coding nya dibawah ini

Ketik codding dibawah ini pada module Project


Option Explicit

Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As _
String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function WriteIniFile(ByVal sIniFileName As String, ByVal sSection As String, ByVal sItem As String, ByVal sText As String) As Boolean
Dim i As Integer
On Error GoTo sWriteIniFileError

i = WritePrivateProfileString(sSection, sItem, sText, sIniFileName)
WriteIniFile = True

Exit Function
sWriteIniFileError:
WriteIniFile = False
End Function

Function ReadIniFile(ByVal sIniFileName As String, ByVal sSection As String, ByVal sItem As String, ByVal sDefault As String) As String
Dim iRetAmount As Integer
Dim sTemp As String

sTemp = String$(50, 0)
iRetAmount = GetPrivateProfileString(sSection, sItem, sDefault, sTemp, 50, sIniFileName)
sTemp = Left$(sTemp, iRetAmount)
ReadIniFile = sTemp
End Function

'Contoh Menyimpan User Logon
Public Function SetUserLogon(Tanggal As String)
WriteIniFile App.Path & "\Config.ini", "LOGIN", "Logon", Tanggal
End Sub

'Contoh Mengambil info User Logon
Public Function GetUserLogon ()
 As String
GetUserLogon = ReadIniFile(App.Path & "\Config.ini", "LOGIN", "Logon", "")
End Sub


Nah sekarang tinggal dimasukan kedalam Project fungsi - fungsi tersebut misal pada saat form diload coding nya seperti dibawah ini

Private Sub Form_Load()
'Mengambil Info User Logon
Label1.Caption = 
GetUserLogon 

'Menyimpan User Logon
call 
SetUserLogon(Format(Date, "dddd, dd mmm yyyy") & " " & Time) 
End Sub


Cukup sekian dulu tutorial kali ini dan kalau ada waktu akan saya sambung pada tutorial berikutnya, mudah - mudahan ada mamfaatnya bagi kita semua dan VB Depelover khususnya

Cara Membuat dan Menghapus Folder dengan VB

Masih Seputar Visual Basic tentunya, kesempatan kali ini saya coba mempergunakan untuk ngebahas Masalah Folder yaitu Cara Membuat dan Menghapus Folder dengan VB dan ini juga merupakan salah satu request dari sahabat yang melayangkannya lewat email. Saya rasa hal ini pun sangat penting dalam membangun sebuat Aplikasi.

Langsung aja kita kepokok pembahasan bagaimana dengan pembuatan Coding nya, nah bagi yang tertarik silakan ikuti langkah - langkah berikut ini

Ketik Coding Berikut ini pada Module Project


Option Explicit

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

'Fungsi mencek keberadaan folder
Public Function DirectoryExist(DirPath As String) As Boolean
DirectoryExist = Dir(DirPath, vbDirectory) <> ""
End Function

'Fungsi untuk membuat Folder
Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String

sPath = NewDirectory

If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If

iCounter = 1

Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
'create directory
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub

'Fungsi Untuk Menghapus folder
Public Sub DelDirectory(sName as String)
On Error Resume Next
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Dir(sName, vbDirectory) <> "" Then
Fso.DeleteFolder sName
End If
Set Fso = Nothing
End Sub


Nah sekarang tinggal menggunakan fungsi-fungsi tersebut kedalam Form Project sebagai contoh membuat sebuah folder di drive C dengan nama Database coding nya seperti dibawah ini

'Coding untuk mebuat Folder
'Cek dulu Folder
If DirectoryExist("C:\Database") <> True Then
'Jika Folder yg dimaksud belum ada maka akan dibuat
Call CreateNewDirectory("C:\Database\")

'Coding Menghapus Folder
'Kalau Folder yang dimaksud ditemukan langsung dihapus
Call DelDirectory ("C:\Database\")


Cukup sekian dulu tutorial singkat ini mudah-mudahan kalau ada umur panjang akan saya lanjutkan pada topik yang lain, semoga dapat membantu dan bermamfaat, selamat mencoba dan salam.

Cara Register File dengan Visual Basic

Dalam membangun sebuah Aplikasi pastilah sangat dibutuhkan file - file pendukung supaya aplikasinya kelihatan lebih profesional seperti file Ocx , file Dll dan lain sebagainya. Topik kali ini masih seputar Tutorial Visual Basic yaitu mengenai Cara Register File pendukung tersebut lewat coding dengan Visual Basic karena banyak kasus file - file tersebut tidak akan berjalan sebelum didaftarkan atau diregister ke Sistem.

Sebagai contoh mungkin sobat - sobat pernah mengalami aplikasinya tidak dapat dijalankan atau istilahnyaruntime error setelah di Instalkan kekomputer lain karena file pendukung tidak diregister, nah bagai mana caranya supaya langsung diregister melalui coding bagi yang tertarik silahkan ikuti langkah - langkah berikut

'Letakan Coding dibawah ini pada Module Project
Private Declare Function LoadLibraryRegister Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function CreateThreadForRegister Lib "kernel32" Alias "CreateThread" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lParameter As Long, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function GetProcAddressRegister Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibraryRegister Lib "kernel32" Alias "FreeLibrary" (ByVal hLibModule As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetExitCodeThread Lib "kernel32" (ByVal hThread As Long, lpExitCode As Long) As Long
Private Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)

Public Function RegServer(ByVal FileName As String) As Boolean
RegServer = RegSvr32(FileName, False)
End Function

Public Function UnRegServer(ByVal FileName As String) As Boolean
UnRegServer = RegSvr32(FileName, True)
End Function

Private Function RegSvr32(ByVal FileName As String, bUnReg As Boolean) As Boolean

Dim lLib As Long
Dim lProcAddress As Long
Dim lThreadID As Long
Dim lSuccess As Long
Dim lExitCode As Long
Dim lThread As Long
Dim bAns As Boolean
Dim sPurpose As String

sPurpose = IIf(bUnReg, "DllUnregisterServer", _
"DllRegisterServer")

If Dir(FileName) = "" Then Exit Function

lLib = LoadLibraryRegister(FileName)
If lLib = 0 Then Exit Function

lProcAddress = GetProcAddressRegister(lLib, sPurpose)

If lProcAddress = 0 Then
FreeLibraryRegister lLib
Exit Function
Else
lThread = CreateThreadForRegister(ByVal 0&, 0&, ByVal lProcAddress, ByVal 0&, 0&, lThread)
If lThread Then
lSuccess = (WaitForSingleObject(lThread, 10000) = 0)
If Not lSuccess Then
Call GetExitCodeThread(lThread, lExitCode)
Call ExitThread(lExitCode)
bAns = False
Exit Function
Else
bAns = True
End If
CloseHandle lThread
FreeLibraryRegister lLib
End If
End If
RegSvr32 = bAns
End Function

'Contoh Penerapan Fungsi-fungsi Register diatas
Public Function Sub RegisterFile() as Boolean
Dim FileSys1 As String

FileSys1 = "C:\Windows\System32\vbaListView6.ocx"
If Dir(FileSys1) <> "" Then
RegisterFile = RegServer(FileSys1)
end if
End Function

Sekarang masukan fungsi RegisterFile tersebut kedalam Start up Program misal di Sub Main Coding seperti dibawah ini

Sub Main()
call RegisterFile
End Sub


Cukup dulu pembahasan tentang Cara Register File mudah-mudahan ada mamfaat nya bagi sobat-sobat, kalau ada kesempatan akan kita lanjutkan tentang pembahasan yang lain yang pasti masih seputar Tutorial Visual Basic selamat mencoba dan terima kasih.

Cara Menghilangkan Password Database

Cara Menghilangkan Password Database, ya itulah topik yang akan saya ulas pada kesempatan kali ini karena ada salah seorang sahabat menanyakan masalah ini via email kurang lebih pertanyaan nya seperti ini "Mas kalau untuk me-remove atau menghapus password Microsoft Access dengan VB gimana yah".

Okelah kalau begitu kita langsung aja kepokok permasahalahan sebagai contoh buatlah sebuah File DatabaseMs. Access dengan nama test.mdb dan password 123321, yang nantinya akan kita hilang password tersebut dengan menggunakan coding Visual Basic

langkah - langkah persiapan

  • Tambah References Microsoft DAO 3.6 Object Library pada project Sobat
Kemudian tempat coding dibawah ini pada Form atau pada Module Project

Public Sub CLearDatabasePassword()
On Error GoTo Salah
Dim DtBase As Database
Set DtBase = OpenDatabase(App.path & "\Database\test.mdb", True, False, ";pwd=123321")
DtBase.NewPassword "123321", ""
DtBase.Close
Exit Sub
Salah:
If Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & Err.Source, , "Error"
End
End If
End Sub


* Catatan file Ms. Access (test.mdd) harus satu folder dengan Aplikasi (Project)

Sekarang sobat tinggal memanggil fungsi diatas pada form sintax nya seperti ini Call CLearDatabasePasswordkalau tidak ada aral melintang maka password database tersebut akan kabur (hahahaha .. kekekeke). Mudah - mudahan tutorial singkat ini ada mamfaatnya bagi sobat-sobat VB developer, kalau ada kesempatan akan saya lanjutkan untuk pembahasan yang lain yang pasti masih seputar Tutorial Visual Basic ... salam.

Hack Taskbar Windows

Masih seputar Tips - Trik Visual Basic tentunya, kali ini saya coba membahas tentang Hack Taskbar Windows yaitu bagaimana caranya Menghilangkan Taskbar, Menghilangkan Button Start serta cara Menghilangkan Waktu / Tanggal yang ada pada Sistray Area tapi sobat tidak perlu kwatir pasti ada pengembalian atau reset kedefault semula. Mungkin sobat masih ngambang tentang penjelasan saya diatas, dengan gambar dibawah ini mudah-mudahan sobat bisa paham maksud dari Tips - Trik ini.


Okelah kalau begitu saya akan lanjutkan tentang coding nya bagi yang tertarik silakan ikuti langkah - langkah berikut ...
  • Tambahkan tiga buah CommandButton diproject, masing-masing dengan nama : cmdTaskbar, cmdStartButton dan cmdSystemClock
  • Tambahkan satu buah Module
' Tempatkan Coding dibawah ini pada Module

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Public TaskBarStyle As Boolean, StartButtonStyle As Boolean, SystemClockStyle As Boolean
Public Const StartButtonID = &H130
Public Const SystemClockID = &H12F
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Sub HideTaskBar()
Dim wClassName As String
Dim hwndTaskbar As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
If TaskBarStyle = False Then
Form1.cmdTaskbar.Caption = "Show Taskbar"
ShowWindow hwndTaskbar, SW_HIDE
TaskBarStyle = True
Else
Form1.cmdTaskbar.Caption = "Hide Taskbar"
ShowWindow hwndTaskbar, SW_SHOW
TaskBarStyle = False
End If
End Sub


Public Sub HideStartButton()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndStartbutton As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndStartbutton = GetDlgItem(hwndTaskbar, StartButtonID)
If StartButtonStyle = False Then
Form1.cmdStartButton.Caption = "Show Start Button"
ShowWindow hwndStartbutton, SW_HIDE
StartButtonStyle = True
Else
Form1.cmdStartButton.Caption = "Hide Start Button"
ShowWindow hwndStartbutton, SW_SHOW
StartButtonStyle = False
End If
End Sub

Public Sub HideSystemClock()
Dim wClassName As String
Dim hwndTaskbar As Long, hwndSystemClock As Long
wClassName = "Shell_TrayWnd"
hwndTaskbar = FindWindow(wClassName, vbNullString)
hwndSystemClock = GetDlgItem(GetDlgItem(hwndTaskbar, SystemClockID), SystemClockID)
If SystemClockStyle = False Then
Form1.cmdSystemClock.Caption = "Show System Colock"
ShowWindow hwndSystemClock, SW_HIDE
SystemClockStyle = True
Else
Form1.cmdSystemClock.Caption = "Hide System Clock"
ShowWindow hwndSystemClock, 5
SystemClockStyle = False
End If
End Sub

Public Sub SetToDefault()
TaskBarStyle = True
StartButtonStyle = True
SystemClockStyle = True
HideTaskBar
HideStartButton
HideSystemClock
End Sub
' Tempatkan Coding dibawah ini pada Form Project

Private Sub cmdStartButton_Click()
HideStartButton
End Sub

Private Sub cmdSystemClock_Click()
HideSystemClock
End Sub

Private Sub cmdTaskbar_Click()
HideTaskBar
End Sub

Private Sub Form_Load()
cmdTaskbar.Caption = "Hide TaskBar"
cmdStartButton.Caption = "Hide Start Button"
cmdSystemClock.Caption = "Hide System Clock"
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetToDefault
End Sub
Mudah - mudahan Tips ini ada mamfaat nya bagi kita semua dan VB Developer khususnya, semoga tidak digunakan untuk menjahili teman atau orang lain. Kalau ada kesempatan dan waktu kita akan ketemu dengan Tips - Trik berikutnya .. terima kasih.

Cara Membuat File TXT dengan VB

Terkandang dalam menggarap sebuah aplikasi (Program) sangat dibutuhkan media untuk penyimpanan data baik itu berupa database, settingan program dan lain-lain, untuk itu kita bisa mempergunakan file IO(Input output) seperti dat file, ini file, txt file, CSV dll, dan untuk Menyimpan database bisa menggunakan Ms. Access atau SqlServer.

kesempatan kali ini saya coba membahas tentang Cara Membuat File TXT dengan VB, untuk membuat file txt ini sangatlah mudah dengan Visual Basic tidak memerlukan coding-coding yang panjang cukup dengan beberapa line atau baris saja, bagi yang tertarik langsung aja copy coding dibawah ini kemudian pastekan di project sobat lalu jalankan program atau tekan F5, setelah itu coba periksa pada drive C pasti sobat temukan File Baru dengan nama "test.txt" yang isinya angka 1 sampai dengan 10.

Option Explicit

Private Sub Form_Load()
Dim i As Integer
Open "C:\test.txt" For Output As #1
Print #1, " --------------------------------"
Print #1, " Create TXT with VB "
Print #1, " --------------------------------"
For i = 1 To 10
Print #1, Space(10) & i & "."
Next i
Print #1, " --------------------------------"
Print #1, " End Of Record"
Print #1, " --------------------------------"
Close #i
Unload Me
End Sub

Mudah - mudahan tutorial singkat ini ada mamfaatnya kalau ada kesempatan dan waktu kita akan ketemu pada tips-trik berikutnya ... terima kasih

Wisata ke Pulau Tidung Jakarta

Wisata ke Pulau Tidung Jakarta

Warga Jakarta belakangan ini mulai beramai-ramai membicarakan Pulau Tidung, yaitu sebuah pulau kecil yang terletak di sebelah Barat Laut Jakarta, dan masuk dalam wilayah Kepulauan Seribu, DKI Jakarta. Pulau ini mendadak jadi beken dan laris, terutama sejak anak-anak Jakarta berkunjung ke sana lalu mempublikasikan liburan mereka di Pulau Tidung melalui facebook, twitter, blog, dan semacamnya.

Pulau tidung sebenarnya tidak banyak berbeda dengan pulau berpenduduk lainnya di Pulau Seribu, seperti Pulau Pramuka dan Pulau Kelapa. Namun Pulau Tidung mempunyai objek dimana pengunjuga dapat berkumpul, berenang, menikmati matahari terbit dan terbenam sambil berfoto-foto, dan tentu saja, jajan. Tempatnya adalah di Jembatan Pulau Tidung, di kawasan wisata Tanjung Timur Pulau TIdung. Jembatan Pulau Tidung ini menghubungkan Pulau Tidung dengan pulau tidung kecil yang terletak di sebekah timur.

Untuk menuju ke Pulau Tidung, cukup dengan naik kapal nelayan dari Muara Angke. Perjalanan sekitar 3 jam dan bebas macet. DI pulau Tidung sendiri sudah banyak rumah penduduk yang bisa disewa jadi penginapan buat para pengunjung. Ada juga persewaan kapal, sepeda, dan alat snorkeling di pulau tidung. Sayangnya, sampah mulai merusak keindahan dan pesona pulau tidung saat ini, baik itu sampah dari warga lokal sendiri, maupun dari para pengunjung pulau.

Artikel terkait wisata pulau tidung:
Info Wisata Pulau Tidung
Tidung Island Jakarta
Tidung Island Photos
Snorkeling di Pulau Tidung

Artikel ini merupakan bagian dari dukungan untuk pariwisata indonesia.

Wisata Kuliner de' Risol di Bandung

Buat kamu yang sering berkunjung ke kota Bandung dan bosan dengan jajanan bandung yang itu lagi itu lagi, ini ada info yang bagus.

Namanya de' Risol, sebuah kafe untuk keluarga di Jalan Citarum Bandung. Tempatnya teduh dimana ada meja di taman maupun dalam bangunan. Makanan tersedia dari pagi hingga malam dan ada juga paket buffet untuk sarapan pagi.

Risol buatan de'risol konon dibuat dengan sepenuh hati, dengan cinta. Karena itu, wajar jika risol ini benar-benar nikmat dan beda dari risol biasanya. Nah ayo, tunggu apa lagi, langsung aja mampir di de' Risol family cafe di Jl CItarum Bandung ya.

Lihat juga:
Foto de' Risol Cafe Bandung
Penari Erotis Bandung
Apartment Ciumbuleuit Bandung
Puri Tomat Bandung

Membuat Exit Layout pada Form VB


Contoh Exit Layout Form dengan Visual Basic .. Codding by eRGe
Layout nya seperti video dibawah ini





Bagi yang tertarik dengan animasi silahkan Copas coding dibawah ini, Persiapan Buat sebuah Project Baru Standart EXE tambahkan 1 buah Control CommandButton

Private Sub Command1_Click()
ExitLayout
Unload Me
End Sub

Private Sub ExitLayout()
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long

For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
Next fHeight

If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -2
Me.Width = fWidth
Next fWidth
End If
Me.Refresh
End Sub


Mudah - mudahan ada mamfaatnya, akan Update Aplikasi Gudang yang sekarang masih dalam uji coba dan akan di post di blog ini kalau sudah finishing.

Suspend Hackshield

Aplikasi sederhana ini saya berinama GeSp yang berfungsi untuk Suspend Hackshield secara Otomotis (Memberhentikan kerja Hackshield sementara). Sedikit saya jelaskan bagai mana cara kerja nya, Aplikasi ini tidak bermain di systray area jadi untuk proses Deteksi Hackshield Aplikasi harus aktif kalau ketemu akan disuspend secara otomatis jadi anda tidak perlu repot-repot untuk mengontrol nya, untuk menjalankan Hackshield kembali Click Tombol Resume atau Tutup Aplikasi. Pengen liat Screen Shoot nya click disinioh ya sebelum nya mungkin GeSp belum bisa jalan di PC anda tapi yang ini udah diupdate 100% work. Bagi yg Window Seven jangan lupa run with administrator.
Mudah-mudahan aplikasi ini tidak disalah gunakan, oh ya bagi yg berkenan silakan sedot Gratis tanpa Password, linknya ada dibawah tapi jangan lupa komen ya .. terimakasih.



Click image to download

Screenshot PES 2011 Xbox 360 – PS 3 – PC

KONAMI telah merilis screenshot game PES 2011 sejak beberapa bulan yang lau untuk berbagai versi game konsol dan media. Screenshot PES 2011 dapat gamer lihat di website-website yang memuat berita game terkini dari luar negeri.
screenshot pes 2011
Terlihat jelas pada gambar-gambar yang diambil dari game PES 2011 tersebut menampilkan berbagai desain dan fitur baru game ini. Membuat semakin penasaran gamer untuk mencoba versi demonya. Untuk melihatnya lebih detil silahkan kunjungin link-link dibawah ini:
ngiler kita tunggu versi fullnya yess

Hati-Hati Belanja Online Melalui Internet



online thief
Kasus penipuan dalam kegiatan jual beli banyak  terjadi disekitar kita, di dunia maya kasus penipuan ketika berbelanja online melalui Internet juga sama banyaknya.
Berbagai modus penipuan di pasar online yang semakin bervariasi membuat orang semakin takut membelanjakan uangnya meskipun dalam jumlah kecil sekalipun. Seringkali yang menjadi korban adalah para pengguna Internet pemula (newbie) yang baru mengenal caranya berselancar di dunia maya.
Misalnya sebut saja sang newbie yang ingin belanja handphone secara online bernama uding temen kantor penulis wkwkwk licik , namun apes nasibnya karena kurang pengalaman ternyata lapak yang diminati punya "maling online" alias tukang tipu yang cuma menerima uang saja tapi barangnya tidak pernah dikirim sial Akhirnya jadi kapoklah si Uding untuk belanja online melalui Internet damn
Cerita fiktif diatas itu salah satu contoh nyata yang sering terjadi, begitu proses tawar-menawar sudah deal, proses pembayaran dilakukan, tapi barang tidak pernah dikirim.
Ada juga yang memang mengirim "barang" ke pembeli tapi ternyata tidak sesuai perjanjian, misalnya ketika membeli iPhone second. Pada foto dan keterangan ditampilkan iPhone second tersebut masih mulus 99%, namun setelah barang diterima ternyata nilainya 90% pun juga tidak karena sudah banyak lecet dan cacat pada casingnya. Pengalaman buruk lainnya lagi, ada netter yang beli notebook secara online ternyata barang yang dikirim ke rumahnya adalah gula pasir 2 kg marah
Bukan hanya pembeli yang bisa dirugikan. Penjual juga kadang bisa dikerjai. Misalnya beberapa pembeli melakukan konfirmasi pembayaran namun setelah di cek ternyata pembayaran belum atau tidak pernah dilakukan, ketika COD (cash on delivery) ternyata pembeli tidak datang, dan lain-lain. Tapi resikonya tidak sebesar pihak pembeli.
Nah, untuk meminimalisir kemungkinan buruk yang terjadi silahkan baca Tips Transaksi online dan aman dari kaskus. Tips ini berguna ketika akan berbelanja di forum/fjb lainnya cendol
Perhatikan juga aspek keamanan lainnya jika Anda menggunakan Internet Banking sebagai alat pembayaran. Pastikan komputer yang digunakan sudah bersih dari berbagai macam malware. Jangan gunakan komputer umum seperti di warnet karena resiko pencurian password cukup tinggi takut
Satu hal lagi perhatikan ongkos kirim yang dikenakan. Kadang beberapa website mengenakan tarif ongkos kirim yang cukup tinggi terutama untuk wilayah diluar pulau jawa atau wilayah diluar toko tersebut berada. Jangan sampai ongkos kirim lebih besar nilainya dari pada nilai barang yang Anda beli. Coba cek tarifnya apakah sesuai dengan tarif yang dibuat oleh ekspedisi yang digunakan.
Lebih bagus lagi kalau bisa lakukan COD, tidak perlu takut kehilangan uang dan barang sudah pasti langsung bisa digunakan yess
Jadi jangan pernah takut untuk belanja online, tapi hati-hati ya nggaya
ada yang punya pengalaman belanja online? share dimari ayuk

Two Is Better Than One

I listened to this song every night before I sleep   sendiri   musik
I hope you like it   fiuhhh

Boys Like Girls feat Taylor Swift

Two Is Better Than One

I remember what you wore on the first day
You came into my life and I thought
"Hey, you know, this could be something"
'Cause everything you do and words you say
You know that it all takes my breath away
And now I'm left with nothing

So maybe it's true
That I can't live without you
And maybe two is better than one
There's so much time
To figure out the rest of my life
And you've already got me coming undone
And I'm thinking two is better than one

I remember every look upon your face
The way you roll your eyes
The way you taste
You make it hard for breathing
'Cause when I close my eyes and drift away
I think of you and everything's okay
I'm finally now believing

That maybe it's true
That I can't live without you
And maybe two is better than one
There's so much time
To figure out the rest of my life
And you've already got me coming undone
And I'm thinking two is better than one

I remember what you wore on the first day
You came into my life and I thought, "Hey,"

Maybe it's true
That I can't live without you
Maybe two is better than one
There's so much time
To figure out the rest of my life
And you've already got me coming undone
And I'm thinking
I can't live without you
'Cause, baby, two is better than one
There's so much time
To figure out the rest of my life
But I'll figure it out
When all is said and done
Two is better than one
Two is better than one

love   kiss

Easy Spoiler: Cara Mudah Membuat Spoiler Pada Blog WordPress



Easy SpoilerFitur Spoiler pada forum online sering digunakan untuk menampilkan gambar/teks menjadi lebih ringkas karena TS (thread starter) dapat menyembunyikan gambar sementara juga mengelompokkannya sehingga tidak banyak memakan ruang halaman yang muncul.
Pada blog WordPress fitur Spoiler tidak secara standar disediakan. Pengguna wordpress self-hosting perlu menggunakan plugin untuk membuat spoiler, salah satu plugin spoiler untuk WordPress yang bisa digunakan adalah Easy Spoiler. Versi terbarunya saat artikel ini ditulis adalah 0.5. Silahkan download plugin ini di website wordpress.org.
Pada artikel ini penulis menggunakan WordPress 3.0.1 dan tampaknya plugin Easy Spoiler 0.5 kompatibel dengan versi ini.
Cara penggunaan Easy Spoiler sangat mudah loh! Kode untuk membuatnya juga mirip dengan kode yang sering kita gunakan misalnya pada forum dengan engine vbulletin.
Mari kita coba buat contoh spoiler.
Spoiler Tanpa Judul
Kode
[ spoiler.] Contoh spoiler nih P  [ /spoiler.]
Hasil
Spoiler
 Contoh spoiler nih P

Spoiler Dengan Judul
Kode
[ spoiler intro="Resep Rahasia KFC" title="Mau tau rahasia renyahnya ayam goreng KFC???".] Mau tauuuu ajaP [ /spoiler.]
Hasil
Resep Rahasia KFC: Mau tau rahasia renyahnya ayam goreng KFC???
Mau tauuuu aja P

Spoiler Groups
Ini berguna untuk mengelompokkan spoiler dalam satu tempat.
Kode
[ spoilergroup.]
[ spoiler intro="Answers" title="Question 1" ]in post 1[ /spoiler.]
[ spoiler intro="Answers" title="Question 2"]in post 2[/spoiler.]
[ spoiler intro="Answers" title="Question 3"]e=mc^2[/spoiler.]
[ /spoilergroup.]
Hasil

Answers: Question 1
in post 1

Answers: Question 2
in post 2

Answers: Question 3
e=mc^2


Anda juga bisa membuat spoiler melalui tombol spoiler pada toolbar editor. Klik tab HTML, blok teks lalu klik tombol spoiler. Untuk membuat grup cukup blok kode spoiler yang ada lalu klik spoiler group.
Untuk merubah pengaturan lainnya silahkan lihat pada halaman Admin blog Anda.

Rahasia CEPAT KAYA DARI INTERNET: Mau Tau Gak???
 Ya kerja keras dan kerja cerdas dong  P Just kidding, cuma ngetest spoiler D

Suspend Otomatis Plus Injector



Penambahan Pada Versi GeSp 1.3 adalah Injector File yg berfungsi membuat Virtual Memory untuk menyimpan File Injection, Suspend Otomatis nya masih tetap jalan tapi mengalami sedikit perubahan, Penampakan GeSp 1.3 seperti gambar disamping. Bagi yg mau Copas silahkan tapi jangan lupa Credit nya (eRGe) jangan dihilangkan.

Bagi yg berminat langsung aja sedot dengan mengclick image dibawah no Password, Komentar nya diisi ya untuk referensi aja, terimakasih.




Click image to download

Trailer dan Demo PES 2011

Setelah informasi PES 2011 dan screenshot PES 2011 beredar di Internet, video trailer berisi gambaran tentanggame PES 2011 juga sudah banyak disebarluaskan di Internet. Banyak website video streaming yang memuat trailer PES 2011 juga gameplay trailer yang menampilkan berbagai fitur baru pada PES 2011 yang dapat di nikmati oleh gamer saat memainkan PES 2011.
Game yang baru akan dirilis pada tanggal 22 Oktober 2011 ini akan dirilis pada banyak konsol seperti Nintendo Wii, PlayStation 3, PlayStation 2, PlayStation Portable, Xbox 360, dan tentu saja PC.
Nah, sambil menunggu tanggal rilisnya yang kira-kira masih 2 bulan lagi kita lihat dulu yuk video trailer PES 2011 mantap

PES 2011 In Depth Trailer!


PES 2011 – Official Gameplay Trailer [HD]


Pro Evolution Soccer 2011 – Trailer First Look – PC PS3 Wii Xbox360


Selamat menonton tipi

Menghubungi Database Access 2007 yang Diproteksi Password dari Visual Basic 6

Pernahkah Anda mengalami kesulitan ketika akan menghubungi data yang terdapat di dalam database Microsoft Access 2007 yang dilindungi oleh password yang Anda tentukan? Di beberapa artikel terdahulu pada kategori di mana artikel ini berada, Anda dapat melihat contoh-contoh source code bagaimana cara menghubungi atau tersambung ke database Microsoft Access versi 2000 atau 97 dengan menggunakan teknik ADO Code. Cara yang digunakan adalah dengan mengoptimalkan reference Microsoft ActiveX Data Objects 2.x library dan engine Microsoft.Jet.OLEDB versi 4.0 untuk Access 2000 atau versi 3.5 untuk Access 97. Lalu bagaimana dengan database Access versi 2007? Apakah ada perbedaan engine yang digunakan? Jawaban singkatnya: Ya! Jawaban lebih lanjutnya: Dalam artikel ini, Anda akan mengetahui bagaimana cara menghubungi database Microsoft Access 2007 yang dilindungi dengan password atau kata sandi dengan menggunakan ADO Code di Visual Basic 6 dan engine khusus yang dibuat untuk Access 2007. Dalam artikel ini pula, Anda dapat mengetahui bagaimana teknik menghubungi database Access 2007 dengan cara mengoptimalkan fitur ODBC (alternatif dari menuliskan engine databasenya di kode). Syaratnya, Anda terlebih dulu harus membuatkan DSN-nya (password database diset saat Anda membuat DSN) dari ODBC di Control Panel pada komputer Anda. Kemudian, Anda cukup memanggil DSN ini dari kode yang Anda tulis.

Silahkan Login atau registrasi akun untuk membaca artikel ini selengkapnya.

Cara Gamer Melamar Kekasihnya

Kamu suka main game? Kamu gamer sejati? Pengen tahu bagaimana cara seorang gamer melamar kekasihnya? D
Coba perhatikan komik singkat ini.. dijamin sangat inspiratif D ngakak
Romantis banget maho   mimisan   terharu tapi  keren   mantap
komik gamer melamar kekasihnya
Ada yang mau coba? D
love kiss

Suspender dan Injector File

Aplikasi Kecil ini merupakan hasil revisi atau Pengembangan dari GeSp Versi Sebelumnya yang sudah pernah saya buat, Pada Suspender dan Injector (GeSp 1.4) ini ada beberapa Fitur yang ditambahkan yang sebelumnya tidak ada, Fitur tersebut antara lain :
  1. Type Suspend Otomatis dan Manual
  2. Type Injektor File Otomatis dan Manual (Type File : Semua File yang suport di Inject / Bukan hanya file yang berektensikan .DLL)
  3. Auto Kill Aplikasi Fungsinya adalah menutup Aplikasi Target yang dalam keadaan running secara otomatis apabila fitur ini diaktifkan.
  4. Minimizer dan Restore All App, tetapi ada sebagian App atau Game Fitur ini tidak dapat berfungsi dengan baik.
  5. Enable dan Disable Task Manager
  6. Membuka dan Menutup Akses Registry (Regedit)
  7. Form Settingan (akan diatur sendiri oleh user)
  8. Running di Systray Area.




Cara Penyetingan Aplikasi
  • Kalau Auto Suspendnya di beritanda (conteng), maka Aplikasi akan secara otomatis mensuspend target yg ditentukan
  • Exit After Resume : Aplikasi akan keluar (Exit) otomatis setelah App Target diresume atau dijalankan kembali
  • App Target : Aplikasi yang dijadikan target misal nya None.exe (Ekstensinya jangan lupan di ikut sertakan .exe)
  • App Titel : Judul dari Aplikasi tersebut, nah disinilah kunci utama proses Kerja Otomatis Aplikasi GeSp 1.4. Cara mudah untuk mengetahui Judul dari Sebuah Aplikasi yaitu dengan cara membuka Task Manager setelah itu Coba jalankan sebuah Aplikasi maka pada Task Manager bisa kita liat Judul Aplikasi tersebut, contoh seperti gambar dibawah ini.



  • Timer For Suspend : Pengaturan waktu awal saat proses Suspend target (Milli Second)
  • Untuk Penyetingan Selanjut nya bisa diikuti seperti cara diatas

Dengan adanya setingan ini maka Aplikasi akan berjalan sesuai dengan keingin user, mudah - mudahan bermamfaat dan tidak disalah gunakan dalam pemakaiannya ohya jangan lupa komentar nya untuk sekedar referensi .. makasih.