Cara Mengganti, Merancang dan Membuat Template Blog Sendiri di Blogspot kita

Kabar gembira bagi teman-teman blogger yang memiliki blog di situs Blogger (Blogspot), karena sekarang blogger sudah menyediakan fasilitas yang akan memudahkan anda mengganti, membuat dan merancang template blog sendiri dengan sangat mudah dan praktis

Caranya malah lebih mudah langsung anda coba daripada memahami tutorial ini
BTW.. bagi yang penasaran, berikut langkah-langkahnya
1. Login di Blogger
2. Pada Dashboard, pilih link Design
3. langkah ini optional, tapi sebaiknya anda backup template lama anda terlebih dahulu, terutama settingan pada meta tag-nya
Cara membackup template ada bermacam-macam : (Sebelumnya klik Design – Edit Html)
#Cara 1 : Pada bagian Edit Html – Klik Download Full Template, lalu simpan pada hardisk/flashdisk anda, anda bisa meng-upload file tersebut bila ingin kembali ke template sebelumnya
#Cara 2 : Pada bagian Edit Html – klik kolom pada Expand Widget Templates (tujuannya supaya widget-widget anda ikut terbackup), lalu copy paste semua code script template di bawahnya dan salin ke file Notepad/Wordpad (pada komputer anda – Start menu – Start Menu – cari aplikasi Wordpad/Notepad)
Setelah proses backup selesai, lanjutkan pada langkah 4
4. Klik Link * Template Designer di sebelah Link Edit HTML
5. Pilih Model Template yang anda suka
6. Ganti Background sesuka anda
7. Pilih model layout sesuai selera atau kebutuhan
8. Sentuhan Akhir, Advanced
pada fasilitas ini anda bisa mengganti model Tulisan (Font) dan juga warnanya, mulai dari font pada Page, Title, Description, link, dsb
Mudah Baaanget so … Selamat Mencoba !!!

Kabar gembira bagi teman-teman blogger yang memiliki blog di situs Blogger (Blogspot), karena sekarang blogger sudah menyediakan fasilitas yang akan memudahkan anda mengganti, membuat dan merancang template blog sendiri dengan sangat mudah dan praktis

Caranya malah lebih mudah langsung anda coba daripada memahami tutorial ini
BTW.. bagi yang penasaran, berikut langkah-langkahnya
1. Login di Blogger
2. Pada Dashboard, pilih link Design
3. langkah ini optional, tapi sebaiknya anda backup template lama anda terlebih dahulu, terutama settingan pada meta tag-nya
Cara membackup template ada bermacam-macam : (Sebelumnya klik Design – Edit Html)
#Cara 1 : Pada bagian Edit Html – Klik Download Full Template, lalu simpan pada hardisk/flashdisk anda, anda bisa meng-upload file tersebut bila ingin kembali ke template sebelumnya
#Cara 2 : Pada bagian Edit Html – klik kolom pada Expand Widget Templates (tujuannya supaya widget-widget anda ikut terbackup), lalu copy paste semua code script template di bawahnya dan salin ke file Notepad/Wordpad (pada komputer anda – Start menu – Start Menu – cari aplikasi Wordpad/Notepad)
Setelah proses backup selesai, lanjutkan pada langkah 4
4. Klik Link * Template Designer di sebelah Link Edit HTML
5. Pilih Model Template yang anda suka
6. Ganti Background sesuka anda
7. Pilih model layout sesuai selera atau kebutuhan
8. Sentuhan Akhir, Advanced
pada fasilitas ini anda bisa mengganti model Tulisan (Font) dan juga warnanya, mulai dari font pada Page, Title, Description, link, dsb
Mudah Baaanget so … Selamat Mencoba !!!

Jawaban soal nomor 3 (heru purnomo)

 kasus PDAM

Public Class Form1

    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

        If nama.Text = "heru" And password.Text = "poernomo" Then

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("username or password yg anda masukkan salah...!!!")

            nama.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        End

    End Sub

End Class

 

Public Class Form2

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click

        Form3.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

        End

    End Sub

End Class

 

Public Class Form3

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode.Text, 3)

        If x = "pab" Then

            tipepelanggan.Text = "pabrik"

            hargaperkubik.Text = "500"

            pemakaian.Text = "250000"

        ElseIf x = "tok" Then

            tipepelanggan.Text = "toko"

            hargaperkubik.Text = "300"

            pemakaian.Text = "25000"

        ElseIf x = "rum" Then

            tipepelanggan.Text = "rumah"

            hargaperkubik.Text = "100"

            pemakaian.Text = "15000"

        ElseIf x = "swa" Then

            tipepelanggan.Text = "swalayan"

            hargaperkubik.Text = "200"

            pemakaian.Text = "10000"

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If x = "med" Then

            daerah.Text = "medan"

        ElseIf x = "bel" Then

            daerah.Text = "belawan"

        ElseIf x = "tem" Then

            daerah.Text = "aksara"

        ElseIf x = "mar" Then

            daerah.Text = "marendal"

        ElseIf x = "bin" Then

            daerah.Text = "binjai"

        ElseIf x = "pak" Then

            daerah.Text = "lubuk pakam"

        End If

        nourut.Text = Microsoft.VisualBasic.Right(kode.Text, 3)

    End Sub

    Private Sub jumlahpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            perbulan.Text = jumlahpemakaian.Text * hargaperkubik.Text

            totaltagihan.Text = Val(pemakaian.Text) + Val(hargaperkubik.Text) * perbulan.Text

            pajak.Text = totaltagihan.Text * 0.01

            totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        kode.Text = ""

        nourut.Text = ""

        daerah.Text = ""

        tipepelanggan.Text = ""

        hargaperkubik.Text = ""

        pemakaian.Text = ""

        jumlahpemakaian.Text = ""

        perbulan.Text = ""

        totaltagihan.Text = ""

        pajak.Text = ""

        totalbayar.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

 

 kasus PDAM

Public Class Form1

    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

        If nama.Text = "heru" And password.Text = "poernomo" Then

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("username or password yg anda masukkan salah...!!!")

            nama.Text = ""

            password.Text = ""

        End If

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        End

    End Sub

End Class

 

Public Class Form2

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click

        Form3.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

        End

    End Sub

End Class

 

Public Class Form3

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Dim x As String

        x = Microsoft.VisualBasic.Left(kode.Text, 3)

        If x = "pab" Then

            tipepelanggan.Text = "pabrik"

            hargaperkubik.Text = "500"

            pemakaian.Text = "250000"

        ElseIf x = "tok" Then

            tipepelanggan.Text = "toko"

            hargaperkubik.Text = "300"

            pemakaian.Text = "25000"

        ElseIf x = "rum" Then

            tipepelanggan.Text = "rumah"

            hargaperkubik.Text = "100"

            pemakaian.Text = "15000"

        ElseIf x = "swa" Then

            tipepelanggan.Text = "swalayan"

            hargaperkubik.Text = "200"

            pemakaian.Text = "10000"

        End If

        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If x = "med" Then

            daerah.Text = "medan"

        ElseIf x = "bel" Then

            daerah.Text = "belawan"

        ElseIf x = "tem" Then

            daerah.Text = "aksara"

        ElseIf x = "mar" Then

            daerah.Text = "marendal"

        ElseIf x = "bin" Then

            daerah.Text = "binjai"

        ElseIf x = "pak" Then

            daerah.Text = "lubuk pakam"

        End If

        nourut.Text = Microsoft.VisualBasic.Right(kode.Text, 3)

    End Sub

    Private Sub jumlahpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            perbulan.Text = jumlahpemakaian.Text * hargaperkubik.Text

            totaltagihan.Text = Val(pemakaian.Text) + Val(hargaperkubik.Text) * perbulan.Text

            pajak.Text = totaltagihan.Text * 0.01

            totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)

        End If

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        kode.Text = ""

        nourut.Text = ""

        daerah.Text = ""

        tipepelanggan.Text = ""

        hargaperkubik.Text = ""

        pemakaian.Text = ""

        jumlahpemakaian.Text = ""

        perbulan.Text = ""

        totaltagihan.Text = ""

        pajak.Text = ""

        totalbayar.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

 

Jawaban soal nomor 2 (heru purnomo)

 kasus soal no.2

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BUATTABEL()

        kodebarang.Items.Add("TS001")

        kodebarang.Items.Add("TS002")

        kodebarang.Items.Add("VG001")

        kodebarang.Items.Add("VG002")

    End Sub

    Sub ihsan()

        Dim x As String

        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)

        If x = "TS" Then

            merk.Text = "THOSIBA"

        Else

            merk.Text = "V-GEN"

        End If

        x = Microsoft.VisualBasic.Right(kodebarang.Text, 3)

        If x = "001" Then

            nambar.Text = "FLASHDISK 4GB"

        Else

            nambar.Text = "FLASHDISK 2GB"

        End If

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

        ihsan()

        If kodebarang.Text = "TS001" Then

            harga.Text = "105000"

        ElseIf kodebarang.Text = "TS002" Then

            harga.Text = "75000"

        ElseIf kodebarang.Text = "VG001" Then

            harga.Text = "90000"

        Else

            harga.Text = "60000"

        End If

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress

        Dim TOMBOL As Integer = Asc(e.KeyChar)

        If TOMBOL = 13 Then

            totalharga.Text = harga.Text * jumlahbeli.Text

        End If

    End Sub

    Sub BUATTABEL()

        LV.Columns.Add("NO PEMBELI", 80, HorizontalAlignment.Center)

        LV.Columns.Add("KODE BARANG", 80, HorizontalAlignment.Left)

        LV.Columns.Add("NAMA BARANG", 100, HorizontalAlignment.Left)

        LV.Columns.Add("MEREK", 80, HorizontalAlignment.Left)

        LV.Columns.Add("HARGA", 80, HorizontalAlignment.Left)

        LV.Columns.Add("JUMLAH BELI", 80, HorizontalAlignment.Left)

        LV.Columns.Add("TOTAL HARGA", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub ISITABEL()

        Dim LST As New ListViewItem

        LST.Text = nopembeli.Text

        LST.SubItems.Add(kodebarang.Text)

        LST.SubItems.Add(nambar.Text)

        LST.SubItems.Add(merk.Text)

        LST.SubItems.Add(harga.Text)

        LST.SubItems.Add(jumlahbeli.Text)

        LST.SubItems.Add(totalharga.Text)

        LV.Items.Add(LST)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        ISITABEL()

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

        nopembeli.Text = ""

        kodebarang.Text = ""

        nambar.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub hapusn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusn.Click

        LV.Items.Clear()

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class

 

 kasus soal no.2

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BUATTABEL()

        kodebarang.Items.Add("TS001")

        kodebarang.Items.Add("TS002")

        kodebarang.Items.Add("VG001")

        kodebarang.Items.Add("VG002")

    End Sub

    Sub ihsan()

        Dim x As String

        x = Microsoft.VisualBasic.Left(kodebarang.Text, 2)

        If x = "TS" Then

            merk.Text = "THOSIBA"

        Else

            merk.Text = "V-GEN"

        End If

        x = Microsoft.VisualBasic.Right(kodebarang.Text, 3)

        If x = "001" Then

            nambar.Text = "FLASHDISK 4GB"

        Else

            nambar.Text = "FLASHDISK 2GB"

        End If

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged

        ihsan()

        If kodebarang.Text = "TS001" Then

            harga.Text = "105000"

        ElseIf kodebarang.Text = "TS002" Then

            harga.Text = "75000"

        ElseIf kodebarang.Text = "VG001" Then

            harga.Text = "90000"

        Else

            harga.Text = "60000"

        End If

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress

        Dim TOMBOL As Integer = Asc(e.KeyChar)

        If TOMBOL = 13 Then

            totalharga.Text = harga.Text * jumlahbeli.Text

        End If

    End Sub

    Sub BUATTABEL()

        LV.Columns.Add("NO PEMBELI", 80, HorizontalAlignment.Center)

        LV.Columns.Add("KODE BARANG", 80, HorizontalAlignment.Left)

        LV.Columns.Add("NAMA BARANG", 100, HorizontalAlignment.Left)

        LV.Columns.Add("MEREK", 80, HorizontalAlignment.Left)

        LV.Columns.Add("HARGA", 80, HorizontalAlignment.Left)

        LV.Columns.Add("JUMLAH BELI", 80, HorizontalAlignment.Left)

        LV.Columns.Add("TOTAL HARGA", 80, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub ISITABEL()

        Dim LST As New ListViewItem

        LST.Text = nopembeli.Text

        LST.SubItems.Add(kodebarang.Text)

        LST.SubItems.Add(nambar.Text)

        LST.SubItems.Add(merk.Text)

        LST.SubItems.Add(harga.Text)

        LST.SubItems.Add(jumlahbeli.Text)

        LST.SubItems.Add(totalharga.Text)

        LV.Items.Add(LST)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        ISITABEL()

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

        nopembeli.Text = ""

        kodebarang.Text = ""

        nambar.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub hapusn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusn.Click

        LV.Items.Clear()

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

End Class