1. Cari menu Layout - Edit HTML di Dashboard blog anda.
2. Back up Template template anda sebelum mengubah HTML untuk menjaga agar template bisa dikembalikan jika ada kesalahan! Klik Download Full Template.
3. Jangan lupa centang (tandai) "Expand Widget Templates".
4. Carilah kode </head>
5. Tambahkan kode dibawah ini persis sebelum </head>

 <style> #related-posts { float : left; width : 540px; margin-top:20px; margin-left : 5px; margin-bottom:20px; font : 11px Verdana; margin-bottom:10px; } #related-posts .widget { list-style-type : none; margin : 5px 0 5px 0; padding : 0; } #related-posts .widget h2, #related-posts h2 { font-size : 20px; font-weight : normal; margin : 5px 7px 0; padding : 0 0 5px; } #related-posts a { text-decoration : none; } #related-posts a:hover { text-decoration : none; } #related-posts ul { border : medium none; margin : 10px; padding : 0; } #related-posts ul li { display : block; background : url("https://sites.google.com/site/rhakateza/rss.png") no-repeat 0 0; margin : 0; padding-top : 0; padding-right : 0; padding-bottom : 1px; padding-left : 21px; margin-bottom : 5px; line-height : 2em; border-bottom:1px dotted #cccccc; } </style> <script src='http://100artikel.googlecode.com/files/Related_posts.js' type='text/javascript'/> 

 Sekarang carilah <data:post.body/>. atau pada beberapa template sering dipakai kode <div class='post-body> atau <data:post.body/>

Tambahkan kode berikut ini dibawah kode yang anda cari diatas:

<b:if cond='data:blog.pageType == "item"'> <div id="related-posts"> <font face='Arial' size='3'><b>Related Posts : </b></font><font color='#FFFFFF'><b:loop values='data:post.labels' var='label'><data:label.name/><b:if cond='data:label.isLast != &quot;true&quot;'>,</b:if><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=5&quot;' type='text/javascript'/></b:if></b:loop> </font> <script type='text/javascript'> removeRelatedDuplicates(); printRelatedLabels(); </script> </div></b:if> 

Save Template

#max-results = total Post yang Akan Di Tampilkan

Kang Rois - 3:32 PM

Read More

Copas Code Di Bawah ini Ke Dalam Visual Basic

Private Sub cmdToSpeech_Click()
Set objtexttospeech = CreateObject("SAPI.spvoice")
objtexttospeech.speak Text1.Text
End Sub

Atau Project Jadi Download Now

Kang Rois - 2:46 PM

Read More

Copas Code Di bawha ini Ke Dalam Visual Basic

Private Sub cmdbrowser_Click()
dialog.ShowOpen
List1.AddItem (dialog.FileName)
End Sub

Private Sub cmdpause_Click()
Me.WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub cmdplay_Click()
Me.WindowsMediaPlayer1.Controls.play
End Sub

Private Sub cmdstop_Click()
Me.WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub List1_DblClick()
Me.WindowsMediaPlayer1.URL = (List1.Text)
End Sub

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
txtstatus.Text = (Me.WindowsMediaPlayer1.Status)
End Sub

Atau Project Download Now

Kang Rois - 10:54 PM

Read More

Copas Code Di Bawah Ini Ke Dalam Visual Basic

Private Sub Text1_Change()
Dim i, jmlA, jmlB As Integer
Dim a, b As String
Dim nItem As Integer
Dim aItem As Variant
Dim sTeks As String
If Text1.Text = "" Then
Text1.SetFocus
Exit Sub
End If

'Tampilkan Jumlah Kata
a = Text1.Text
jmlA = 1
For i = 1 To Len(Trim$(a))
If Asc(Mid(a, i, 1)) = 13 Or Asc(Mid(a, i, 1)) = 32 Then jmlA = jmlA + 1
Next i
Label6 = jmlA
Label9 = jmlA

'Tampilkan Jumlah Karakter
Label4 = Len(Text1)
Label10 = Len(Text1)

'Tampilkan Jumlah spasi
sTeks = Text1
aItem = Split(sTeks, " ")
nItem = UBound(aItem)
Label2 = nItem
Label11 = nItem

'Aktifitas
Label8.Caption = Val(Label6) + Val(Label4) + Val(Label2)
End Sub

Atau Project Jadi Download Now

Kang Rois - 10:22 PM

Read More

 

Yok Kita Buka Artikel Kita

1. Copas Code Di bawah ini Ke Dalam Notepad

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Hacker-Newbie Bicara")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

2. Save As Dengan Format Bicara.vbs
3. Coba Di BUka Berkas yang barusan di bikin

Kang Rois - 9:18 AM

Read More