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

Bagaimana Cara Membuat artikel terkait atau related posts

Related Post atau Postingan Terkait itu sendiri banyak versi. Namun tujuannya tetap sama yakni menampilkan artikel terkait menurut kategorie atau label dari tulisan yang sedang kita baca. Dan ini biasanya sangat membantu jumlah PageView ( halaman yang di baca ) pada blog kita, Terutama bagi visitor yang ingin menggali lebih dalam artikel lainnya yang kita tulis.
Untuk tata letak bagusnya “ Related Post “ di simpan tepat bawah artikel, atau sedikit jarak dengan artikel.
* Perhatian
Dan perlu di ingat Post terkait ini akan berjalan atau terlihat jika artikel kita mempunyai label/kategorie/tag yang sama dari beberapa tulisan.
 

Menambah Script Artikel Terkait “ Related Post “

Berikut ini tahap-tahap untuk menambahkan script Arttikel Terkait ke dalam Template Blog.
1. Login/masuk  ke Blogger.com jika belum log in.
2. Pada halaman Dasboard masuk ke Layout ( tata-letak ), pilih tab Edit Html.
3. Kemudian tandai/centang kotak di samping tulisan “Expand Template Widget”
4. Setelah itu tempatkan script berikut ini di bawah tag ]]></b:skin>

<script type='text/javascript'>
//<![CDATA[
var relatedTitles = new Array();
var relatedTitlesNum = 0;
var relatedUrls = new Array();
function related_results_labels(json) {
for (var i = 0; i < json.feed.entry.length; i++) {
var entry = json.feed.entry[i];
relatedTitles[relatedTitlesNum] = entry.title.$t;
for (var k = 0; k < entry.link.length; k++) {
if (entry.link[k].rel == 'alternate') {
relatedUrls[relatedTitlesNum] = entry.link[k].href;
relatedTitlesNum++;
break;
}
}
}
}
function removeRelatedDuplicates() {
var tmp = new Array(0);
var tmp2 = new Array(0);
for(var i = 0; i < relatedUrls.length; i++) {
if(!contains(tmp, relatedUrls[i])) {
tmp.length += 1;
tmp[tmp.length - 1] = relatedUrls[i];
tmp2.length += 1;
tmp2[tmp2.length - 1] = relatedTitles[i];
}
}
relatedTitles = tmp2;
relatedUrls = tmp;
}
function contains(a, e) {
for(var j = 0; j < a.length; j++) if (a[j]==e) return true;
return false;
}
function printRelatedLabels() {
var r = Math.floor((relatedTitles.length - 1) * Math.random());
var i = 0;
document.write('<ul>');
while (i < relatedTitles.length && i < 20) {
document.write('<li><a href="' + relatedUrls[r] + '">' + relatedTitles[r] + '</a></li>');
if (r < relatedTitles.length - 1) {
r++;
} else {
r = 0;
}
i++;
}
document.write('</ul>');
}
//]]>
</script>

5 Kemudian cari bagian ini, dan tambahkan seperti kode yang di beri warna

<span class='post-labels'>
<b:if cond='data:post.labels'>
<data:postLabelsLabel/>
<b:loop values='data:post.labels' var='label'>
<a expr:href='data:label.url' rel='tag'><data:label.name/></a><b:if cond='data:label.isLast != &quot;true&quot;'/>
<b:if cond='data:blog.pageType == &quot;item&quot;'>
<script expr:src='&quot;/feeds/posts/default/-/&quot; + data:label.name + &quot;?alt=json-in-script&amp;callback=related_results_labels&amp;max-results=10&quot;' type='text/javascript'/>
</b:if>
</b:loop>
</b:if>
</span>

6. Sekarang cari kode baris post-footer berikut ini.

<div class='post-footer-line post-footer-line-3'>

kemudian masukan di bawahnya script ini.

<b:if cond='data:blog.pageType == &quot;item&quot;'>
<div class='related-posts'>
<h4>Posts Terkait:</h4>
<script type='text/javascript'>
removeRelatedDuplicates();
printRelatedLabels();
</script>
</div>
</b:if>

Simpan Perubahan ( save template ).

Jika ingin memberi style atau gaya pada tampilan Widget Related Post ini. kita bisa menambahkan pada halaman Css-nya, script berikut, sebelum tag ]]></b:skin>

.related-posts h4{
margin: 0 0 0 10px;
padding: 0 0 0;
font-size: ukuran font;
color: #nilai warna;
}

Untuk List

.related-post ul{
margin: 0 0 0;
padding: 0 0 0;
list-style-type:none;}
.related-posts li{
margin: 0 0 0;
padding: 2px 0px 0px;
list-style-type:none;
font-size: ukuran font;}
.related-posts li a{color: #nilai warna}
.related-posts li a:hover{color: #nilai warna; text-decoration:none;}

di tulis dari berbagai sumber.
usuariocompulsiv
templatesparanovoblogg

Read More

TIPS UNTUK TEXTBOX VB

Hampir tiga minggu blog ekakom ini gak update posting, ini karena ada sedikit kesibukan maklum nyari uang tambahan buat uang bli rokok (wekekekeke) trus lagi ngurus blog yang satunya lagi http://ndakdo.blogspot.com sekalian belajar modiv template.

Untuk postingan kali ini masih seputaran Visual Basic yaitu mengenai Control Textbox, saya coba berbagi sedikit tips mengenai control ini buat VB Beginner karena ada beberapa dari sobat-sobat bertanya melalui email saya, yg pertanyaan nya lebih kurang seperti ini ..
"Mas kalo buat inputan hanya berupa angka dan kalau Huruf Kapital aja dimuat di textbox cara nya bagaimana" , disini saya akan langsung membahas nya.

yang perlu dingat adalah event ini terjadi saat user ato pengguna menekan tombol keyboard atau yang lebih tepat nya pada event Keypress(KeyAscii as integer). nah untuk mengizinkan user hanya menginput berupa angka (number) codding nya seperti dibawah ini

Option Explicit

Const vbKeyDecPt = 46

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

Untuk Menampilkan semua huruf Kapital (Huruf besar) pada textbox walaupun tombol Caps lock pada keyboard tidak di pencet codding seperti dibawah ini

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Event ini tidak akan berjalan kalo codding nya tidak ditempatkan pada event KeyPress(KeyAscii As Integer).

mudah-mudahan ada mamfaatnya bagi sobat-sobat VB Beginner ... dan terimakasih sebelumnya buat temen-temen yang sudah berkenan memberikan komentar nya ... salam

Read More