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

Membuat Caption Label Bergerak (VB)

Semangat lagi nih Pagerank udah pulih , hehehe .. kemarin sempat diturunin jadi dua sekarang udah normal lagi jadi tiga .. thx mbah Google (wekekeke). Walau beberapa hari ini jarang ol dikarenakan ada sedikit gangguan tapi eRGe masih sempatkan untuk Update Posting Blog Ekakom ini, Tips kali ini masih seputar Visual Basic yaitu Membuat Caption Label Bergerak , maksudnya bisa berjalan-jalan (smoga aja gak kesasar yah .. wekekeke) kalau di Html istilah nya Marquee (kalo gak salah), mudah-mudahan yang saya maksud bisa ngerti yah, kalo gak ngerti di mengertiin aja deh (wekekeke), Nah bagi yang berminat silakan ikuti langkah-langkah dibawah ini, Persiapan :

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)

Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub

Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Mudahkan gak ribet , Sekarang Coba sobat jalan kan Project nya (Tekan F5) Caption pada label1 akan berjalan-jalan dan tulisannya bergantian tapi hati-hati sob jangan sampai labelnya kesasar gak tau pulang (wekekekekeke).

Mudah-mudahan ada mamfaat nya bagi sobat-sobat semua, dan khusus pada VB Depelover yang masih pemula tentunya (Salam), terimakasih sebelumnya buat sobat-sobat yang sudah bersedia memberikan komentarnya.

Read More

Membuat Efek Vibrate Pada Form (VB)

Masih tentang Tips Visual Basic tentu nya .. kali ini eRGe mencoba berbagi lagi tentang Membuat Efek Vibrate pada Form . sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat sobat-sobat VB Developer tentunya yang masih junior. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Vibrate ini adalah efek getaran jadi sewaktu form di tampilan Form akan bergetar-getar seperti cacing kepanasan (wekekekeke .. kiding sob), untuk effect ini codingnya tidak panjang tidak capek ngetik nya, nah untuk mempersingkat waktu kita langsung to the point aja (wekeke..). bagi yang berminat silakan ikuti langkah-langkah berikut

Persiapan yang di lakukan :
Buat Project baru stardart exe .. lalu ketik coding berikut pada form sobat

Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i
End Sub

Private Sub Pause(ms)
Dim secs
Dim g
secs = ms / 1000
g = Timer
Do While Timer - g < secs
DoEvents
Loop
End Sub

Private Sub Form_Activate()
Vibrate Me, 100, 20
End Sub

Gak panjang kan, nah kalo udah selesai coba sobat jalankan (Run) atau tekan F5 , apa bener form nya bergetar-getar seperti cacing kepanasan ... (wekekeke ....), selamat mencoba aja yah.

mudah-mudahan ada mamfaat nya bagi kita semua dan khusus nya bagi VB Developer Junior semoga dapat menambah referensinya, sebelumnya terimakasih buat sobat-sobat yang sudah sudi mengkomentari artikel ini ... salam.

Read More

Penghitungan VB Ala Ms. Excel

Sudah berapa minggu ini vakum dengan postingan Visual Basic, seperti yang sudah tersurat dan tersirat pada blog ekakom ini, misi utama adalah Mencoba dan Belajar serta Berbagi tentang Visual Basic (hehehehehe kaya' pasukan tempur aja punya misi). Nah kesempatan kali ini eRGe kembali mencoba berbagi lagi tentang VB mengenai masalah Penghitungan VB ala Excel , sudah barang tentu sobat VB Depelopper pernah melihat perkalian seperti ini 20*10+(30-19) yang menghasilkan 211 kalau di Excel, hmm bisa kah perkalian ini di terapkan di Visual Basic .. ?, jawabannya tentu dunk (hehehehe). Bagi yang tertarik dan berminat silakan aja ikuti langkah berikut ini eRGe akan ngasih contoh codingnya

Persiapan yang dilakukan:

• Buat Project Baru Standart exe
• Tambahkan 1 buah TextBox (Text1)
• Tambahkan 1 buah Label (Label1)
• Tambahkan 1 Buah CommandButton (Command1) caption : =

'Ketik Coding dibawah ini pada Form Project

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 Command1_Click()
Dim excel_app As Object
Dim excel_sheet As Object

Set excel_app = CreateObject("Excel.Application")

excel_app.Workbooks.Add
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

excel_sheet.Cells(1, 1) = "=" & Text1.Text

Label1.Caption = excel_sheet.Cells(1, 1)
Label1.Caption = Format$(Label1.Caption, "#,##0")

excel_app.ActiveWorkbook.Close False

excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Setelah semua selesai coba sobat ketik 20*10+(30-19) atau perkalian yang lain pada Text1 .. kemudian tekan enter atau click CommandButton .. pada Label1 akan didapat hasil perkalian tersebut.

Mudah-mudah ada mamfaatnya bagi kita semua khusus nya bagi rekan-rekan VB Developper yang masih junior seperti saya semoga Artikel ini bisa menambah perbendaharaan ilmu nya dan terima kasih sebelum bagi sobat-sobat yang sudah berkenan memberikan Argumen nya ... salam.

Read More