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

Read More

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(255, 0, 255), 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

Read More

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 the Manifest 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.

Read More

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

Read More

Menyembunyikan Gadget Followers Pada Halaman Depan

Yup, untuk ketiga kalinya boogle akan menjawab pertanyaan seorang teman via form comment. Pertanyaan berhubungan dengan gadget followers yang ingin di sembunyikan pada halaman depan blog ( from page or home page ).

Hmmm, gitu ya kang..??
Cuma, kalo nyembunyiin gadget followers di home page kok kayak'x susah yah...
Kemaren tak ubrek2 gak bisa2

Sebenarnya tentang trik petak umpat ini secara garis besar sudah saya jelaskan pada postingan “ membuat page dinamis “. Tapi tak ada salahnya saya jelaskan lagi terutama untuk kasus tertentu, seperti menyembunyikan gadget followers, adsense dan gadget lain-nya.
Untuk menyembunyikan gadget Followers pada home page
Simpan script ini, setelah tag ]]></b:skin>

<b:if cond='data:blog.pageType != &quot;item&quot;'>
<style>
#Followers1 {display:none;}
</style>
</b:if>

Keterangan;
a.Script di atas menyembunyikan gadget followers pada halaman depan dan indek label.
b.Secara default gadget ini di beri id Followers1. Namun untuk memastikan bisa di cek menggunakan pencarian Ctrl+F >> Followers
c.Cara ini bisa ente gunakan untuk gadget lainnya, seperti ; gadget Html, Adsense dll.

Followers Via Dasboard Page Elements Vs Google Friendconnect

Selain gadget Follower bisa kita dapatkan via page elements sebenarnya ada cara lain untuk mendapatkan gadget ini yaitu via google friendconnect.
dan Saran boogle sih untuk menggunakan gadget followers lebih baik memangfaatkan yang ada di google friendconnect, karena salah satu kelebihanya kita dapat menggatur baris followers –nya  sesuai dengan keingina kita. – misalkan jika terlalu memberatkan kita dapat menampilkan baris followernya hanya dua baris saja. Setelah itu copy kode html –nya dan salin ke gadget Html/javascript.
Tentu saja untuk menyembunyikan pada halaman depan ( home page ), bukan lagi #Followers1 tapi Html yang id –nya dapat di cari menggunakan CTRL+F >> Html ( kode followers ).

Read More

Bagaimana cara Menyembunyikan gadget atau widget pada postingan tertentu

Ini ada pertanyaan dari teman kita yang sedang ikutan kontes. Bagaimana caranya agar kita bisa menyembunyikan gadget atau sidebar pada postingan / artikel tertentu.

… Maksudnya bagaimana ngilangin sidebar dihalaman postingan tertentu yakni agar ukuran kbnya gak lebih dari 100kb.pusing2 googling surfing di google eh gak ada euy tutorialnya buat nyembunyiin sidebar di halaman tertentu saja….

Caranya kenali dulu gadget / widget apa yang ingin dihilangkan. dan asal tahu saja setiap kita menambahkan gadget / widget mempunyai nama yang unik.
misal untuk html / javascript ; HTML1, HTML2, HTML3 dst. untuk label;Label1,Label2 dst.  begitu juga untuk gadget / widget yang lainnya.
Ok. Selanjutnya simpan kode ini sebelum tag </head>

<b:if cond='data:blog.url == &quot;http://max-chip.blogspot.com/2009/10/indonesia-dalam-berita.html&quot;'>
<style>
#HTML2 {display:none;}
</style>
</b:if>

* Ganti url “ http://max-chip.blogspot.com/2009/10/indonesia-dalam-berita.html “ dgn posts kontes seo ente.
* Ganti #HTML2 dengan gadget / widget yang ingin di sembuyikan.
* Jika banyak gadget / widget yang ingin di sembuyikan jadinya seperti ini >> misal ; #HTML1, #Label1, #Followers1 {display:none}
* Begitu juga jika ingin menyembunyikan sidebarnya sekaligus.
* Trik ini bisa ente kembangkan lebih lanjut, misal untuk menambah ukuran main-wrapper dan sidebar-wrapper, menambah warna sidebar , menyembunyikan kotak komentar dll pada postingan tertentu. ( baca lebih lanjut ; page dinamis )

 

Read More

Alat penterjemah webblog yang terbaru dari om gogo

Pernahkah kepikiran blog curhat dan gagasan teman-teman di baca oleh Mr Obama, atau penawaran kaos clothing teman-teman di baca oleh pemuda tanggung dari arab saudi.
Nah itu bisa teman-teman lakukan dengan cara menggunakan atau menambah sebuah gadget “ website translation tool” dan perlu teman-teman ketahui, ini bukan hanya satu halaman tapi menerjemahkan keseluran isi web/blog .

Terus apa perbedaanya dengan gadget "Google Translate" yang sudah ada ?

Yang boogle lihat selain dari segi tampilan lebih halus dari gadget sebelumnya, dari cara kerjanya pun sangat berkelas tidak lagi menggunakan Frame. Setelah kita memilih terjemahan bahasa apa yang diinginkan, maka di atas halaman akan terlihat sebuah toolbar browser mengambang ( floting ) yang teman-teman bisa membuat pilihan bahasa selanjutnya atau keluar/close. untuk demo bisa di lihat pada sidebar blog ini “ Google Translate”

Bagaimana Cara Menggunakan Gadget Tersebut

Sangat mudah sekali seperti teman-teman biasa menambahkan sebuah kode/script ke dalam Html/Javascript.
Untuk mendapatkan kode scriptnya teman-teman bisa mengambil di Google Translate page.

Read More