Logo LKP Bass Media Computer 1
Logo LKP Bass Media Computer 2
Barometer Test Template
Contoh
<b:widget id="HTML1" locked="false" title="" type="HTML">
<b:includable id="main">
<b:if cond='data:blog.homepageUrl == data:blog.url'>
<!-- only display title if it's non-empty -->
<b:if cond="data:title != """>
</b:if></b:if></b:includable></b:widget><h2 class="title"><data:title></data:title></h2>
<div class="widget-content">
<data:content>
</data:content>
</div>
</b:if>
<b:include name="quickedit">
</b:includable>
</b:widget>
Tips Trik:
- Pada saat berada pada Rancangan >>> Elemen Laman,
- Berikan judul unik dulu pada elemen yang ingin ditampilkan pada halaman depan blog. Kemudian baru ke Edit HTML.
- Cari judul tersebut dengan menggunakan Ctrl + F.
- Aplikasikan cara Menampilkan Elemen (Widget) Hanya Pada Halaman Depan Blog
- Apablila sudah, Simpan Template
- Kembali ke Elemen Laman, hapus lagi judulnya, Simpan. Jadi dech...
Public Function TERBILANG(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean
Dim letak(5)
letak(1) = "RIBU "
letak(2) = "JUTA "
letak(3) = "MILYAR "
letak(4) = "TRILYUN "
If (x < 0) Then
TERBILANG = ""
Exit Function
End If
If (x = 0) Then
TERBILANG = "NOL"
Exit Function
End If
If (x < 2000) Then
tanda = True
End If
teks = ""
If (x >= 1E+15) Then
TERBILANG = "NILAI TERLALU BESAR"
Exit Function
End If
For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next
teks = teks & ratusan(x, False)
TERBILANG = teks & " Rupiah"
End Function
Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer
Dim angka(9)
angka(1) = "SE"
angka(2) = "DUA "
angka(3) = "TIGA "
angka(4) = "EMPAT "
angka(5) = "LIMA "
angka(6) = "ENAM "
angka(7) = "TUJUH "
angka(8) = "DELAPAN "
angka(9) = "SEMBILAN "
Dim posisi(2)
posisi(1) = "PULUH "
posisi(2) = "RATUS "
bilang = ""
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "BELAS "
Else
angka(y) = "SE"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next
If (flag = False) Then
angka(1) = "SATU "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function
| Tag | Description |
|---|---|
| <b> | Defines bold text (Mendefinisikan / menjadikan teks tebal) |
| <big> | Defines big text (Mendefinisikan / menjadikan teks besar) |
| <em> | Defines emphasized text (Mendefinisikan / menjadikan teks menekankan) |
| <i> | Defines italic text (Mendefinisikan / menjadikan teks miring) |
| <small> | Defines small text (Mendefinisikan / menjadikan teks kecil) |
| <strong> | Defines strong text (Mendefinisikan / menjadikan teks yang kuat) |
| <sub> | Defines subscripted text (Mendefinisikan / menjadikan teks subscript) |
| <sup> | Defines superscripted text (Mendefinisikan / menjadikan teks superscripted) |
| <ins> | Defines inserted text (Mendefinisikan / menjadikan teks yang disisipkan) |
| <del> | Defines deleted text (Mendefinisikan / menjadikan teks yang dihapus) |
| Tag | Description |
|---|---|
| <code> | Defines computer code text |
| <kbd> | Defines keyboard text |
| <samp> | Defines sample computer code |
| <tt> | Defines teletype text |
| <var> | Defines a variable |
| <pre> | Defines preformatted text |
| Tag | Description |
|---|---|
| <abbr> | Defines an abbreviation |
| <acronym> | Defines an acronym |
| <address> | Defines contact information for the author/owner of a document |
| <bdo> | Defines the text direction |
| <blockquote> | Defines a long quotation |
| <q> | Defines a short quotation |
| <cite> | Defines a citation |
| <dfn> | Defines a definition term |


