Membuat Burung Twitter Terbang Di Blogspot

Cara membuat / memasang widget burung Twitter terbang di Blogger, mungkin trik ini sudah tidak asing lagi bagi sobat dan sudah banyak sekali saya melihat blog yang sudah memasang widget burung Twitter terbang ini dengan berbagai macam style dan warna burung Twitter yang berbeda-beda, sekarang saya akan mengulas kembali khusus buat teman-teman blogger yang baru membuat blog dengan platform blogspot

Twitter adalah layanan jejaring sosial yang sangat populer sekarang ini selain Facebook dan Google+ dan tidak salah banyak orang yang beramai-ramai untuk menjalin koneksi melalui Twitter apakah itu untuk keperluan bisnis maupun hanya sekedar berteman saja, nah bagi sobat yang mempunyai blog tidak ada salahnya memasang widget menarik ini selain membuat blog sobat cantik dan unik, widget ini juga mempermudah sobat untuk menjalin pertemanan baru dengan pembaca blog sobat, hanya dengan sekali klik pada burung twitter yang terbang maka akan otomatis terhubung dengan profile Twitter sobat,
Ok tanpa panjang lebar mari kita kupas bersama-sama cara memasang widget ini

Pertama-tama silahkan login di Blogger

• Klik Design > Page Element > Add Gadget > Html/Javascript
• Copy paste kode di bawah ini ke kolom Html/javascript

<!-- floating twitter Bird -->
<script type="text/javascript" src="http://bloggerpeer.googlecode.com/files/tripleflap.js"></script>
<script type="text/javascript">
var birdSprite="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhAn6mBKAi3VAGAbIcJUYDZ3qa2bMPBmkjJCMJM-OWr90NfYt5RDmq8Z5AJMplvHD_F3-bYFF96PowdxqmHJVqGYpHy4jqirlZ9x4Slrm4xvWqkYhVYkLhmgVjIOSCn1SPdsbE1nhDQ9_E/s1600/burung+twitter+terbang.png";
var targetElems=new Array("img","hr","table","td","div","input","textarea","button","select","ul","ol","li","h1","h2","h3","h4","p","code","object","a","b","strong","span");
var twitterAccount = "http://twitter.com/Akun Twitter sobat";
var tweetThisText = "Twitter - UserID http://bloggerpeer.blogspot.com/";
tripleflapInit();
</script>

• Ganti kode yang berwarna biru dengan akun Twitter sobat
• Simpan dan lihat hasilnya

Warna Pilihan Burung Terbang Twitter

Untuk membuat warna burung twitter yang lain sobat bisa mengganti kode yang berwarna merah diatas dengan kode-kode dibawah ini sesuai dengan warna pilihan yang sobat inginkan

Warna Kuning

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgh2FKa-C4nnS1irROT1cYp-LK9iS4RxN3iW4Vfqax4rIQkzWY7JeW6nOpYhxKa0uagzXEzJv6gbX2UbId5_tgqP1RpSzpBADQMPcC50B91H-SC28oJ-HtD6M2U4etHm4jkzfkeEl_l1Mk/s1600/yellow+bird.png

Warna Hitam

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiOD02cNpFG1YGSlT5bE024KPnkOGYWqrzCMNz375F-KqRJMpyAtBBvcxT92fS2OtSa9wfHMMAzWrg3jhVNdx2oidrvLglRFqyForKQEbRsjsnskyKQsLbcbwjFXFNLZuyScL3F0Ls5LPY/s1600/black+bird.png

Warna Biru

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEidmpgPktd9tz2Ny5MDMMTAsqBELG_1hk_kQAOnbvEBiHoh8WfWjAOe0gAbB2_aMh7CS1H1ftGRG9JIT_Op5V-hAsZXixAxogYTWr-hdBKCA6N4aJL8d7OtmpFQu3Bn_mPbp0GFRYphGmU/s1600/Blue+bird.png

Warna Coklat

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEht6leVXCo-8O_vPPcalpMk1lWDDkcjicoL4smlUTCcUKyp2eDnyQCgv5CKbw2-nPlfYy_Xia4-NQI840ElZyoSlA42Tiy007fG3eoyhr2sQanxQl3rmMVRne0FMtM9B72H7KiZy1lGmkQ/s1600/brown+bird.png

Warna Hijau

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaU5BXZrhC1etZLkNeQGKdVF1vTqAuYZXn317BOop2lOzl9kH6XLLr1SkyoV6vsKFORmKGx9O8bOQVz3dTegL-x1e77r7eKjzqKvAB0uZyNJ-wv95FOva8_f0VWgvMYh3poxJQ3l4rEEs/s1600/Green+bird.png

Warna Ungu

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjM-iZuyCqG7WngBVwCGQR3ygiDURIaIHbTJQhWw3DNk0FgXbxBrFHerZflQwGzW4ri21-648EwjpGoPZ9COiEbN1ddI2TUjSr-7nukgTlU55Wtsi4f5XlXBNJAkQgC720w4as-zoYa2EI/s1600/purple+bird.png

Warna Putih

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6f3ozucxjDuT8t1nc0JrEbvIvZRdL3XiKe5OqYliVBJWVF6dbqbIpMhlbSYKOyncyY1L8mxv-lGqGvtZdd-l6nTRziWoPoth-DtzvzwWU5T6ih_D8sGeNLRBYJEZEKYd5FVPe_7psmyM/s1600/white+bird.png

Warna Merah

• https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEip9hRA0oiMxDMAGNu_KWKnCPmIY29HYvejTVsBty5rK2PsuoGY8lpRSBpA2PLMD58mcWtrD65r_fCwDsAR-8MTiSZUG5VoOO9xVEAEIiHITGGjyyfKd-5n8ohU0HqQFaWNYT8by00LuBU/s1600/red+bird.png

Dan terakhir jangan lupa disimpan
Good luck Sob..!





SUmber : Blogger Peer

Read more »

Jawaban SOAL 3 (Muhammad Hudhri)

Kasusnya :Tagihan PDAM

LISTING PROGRAM :


Menu Login :


Public Class LOGIN

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        If Username.Text = "Admin" And Password.Text = "PDAM" Then
            Menu_utama.Show()
            Me.Hide()
        Else
            MsgBox("Username/Passwor yg Anda Masukkan Salah!!!!!")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub
End Class

Hasilnya :

Menu Utama :


Public Class Menu_utama

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

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

    End Sub

    Private Sub TagihanPDAM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAM.Click
        PDAM.Show()
        Me.Hide()
    End Sub
End Class

Hasilnya :

Menu Tagihan :



Public Class PDAM

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Sub Cek()
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode.Text, 3)
        If x = "TOK" Then
            Type.Text = "TOKO"
            BiayaBeban.Text = 25000
            Harga.Text = 300
        ElseIf x = "RUM" Then
            Type.Text = "RUMAH"
            BiayaBeban.Text = 15000
            Harga.Text = 100
        ElseIf x = "SWA" Then
            Type.Text = "SWALAYAN"
            BiayaBeban.Text = 10000
            Harga.Text = 200
        ElseIf x = "PAB" Then
            Type.Text = "PABRIK"
            BiayaBeban.Text = 250000
            Harga.Text = 500
        Else
            Type.Text = "0"
            BiayaBeban.Text = "0"
            Harga.Text = "0"
        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 = "Pakam"
        Else
            Daerah.Text = ""
        End If

        NoUrut.Text = Microsoft.VisualBasic.Right(Kode.Text, 3)

        Besar.Text = Val(Pemakaian.Text)

        Total.Text = Val(BiayaBeban.Text) + (Val(Besar.Text) * Val(Harga.Text))

        Pajak.Text = 0.01 * Val(Total.Text)

        TBayar.Text = Val(Total.Text) + Val(Pajak.Text)

        Rp.Text = Val(TBayar.Text)
    End Sub
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Call Cek()
    End Sub
   

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Kode.Text = ""
        Pemakaian.Text = ""
        NoUrut.Text = ""
        Daerah.Text = ""
        Besar.Text = ""
        BiayaBeban.Text = ""
        Total.Text = ""
        Pajak.Text = ""
        TBayar.Text = ""
        Type.Text = ""
        Harga.Text = ""
    End Sub
End Class


Hasilnya ;

Read more »

Jawaban Soal 2 (Muhammad Hudhri)

Kasusnya :Soal Quiz Online Hari Selasa 

Listing Program :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Kode.Items.Add("TS001")
   Kode.Items.Add("TS002")
   Kode.Items.Add("VG001")
   Kode.Items.Add("VG002")


   buat_tabel()
End Sub



Sub Cek()
Dim x As String
x = Microsoft.VisualBasic.Left(Kode.Text, 2)
   If x = "TS" Then
    Merek.Text = "Toshiba"
     x = Microsoft.VisualBasic.Right(Kode.Text, 3)
     If x = "001" Then
     Harga.Text = "105000"
      Nama.Text = "Flasdisk 4GB" 
     ElseIf x = "002" Then
     Harga.Text = "90000"
     Nama.Text = "Flasdisk 2GB" 
     End If
    ElseIf x = "VG" Then
    Merek.Text = "V-Gen"
     x = Microsoft.VisualBasic.Right(Kode.Text, 3)
     If x = "001" Then
     Harga.Text = "75000"
      Nama.Text = "Flasdisk 4GB" 
     ElseIf x = "002" Then
     Harga.Text = "60000"
     Nama.Text = "Flasdisk 2GB" 
     End If
    End If
End Sub

Sub buat_tabel()
   LV.Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Merek", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
   LV.View = View.Details
   LV.GridLines = True
   LV.FullRowSelect = True
End Sub



Sub isi_tabel()
   Dim lst As New ListViewItem
   lst.Text = No.Text
   lst.SubItems.Add(Kode.Text)
   lst.SubItems.Add(Nama.Text)
   lst.SubItems.Add(Merek.Text)
   lst.SubItems.Add(Harga.Text)
   lst.SubItems.Add(Jmlah.Text)
   lst.SubItems.Add(Total.Text)
   LV.Items.Add(lst)
End Sub


Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
   Call Cek()
End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
   bersih()
End Sub



Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
   End
End Sub



Private Sub Jmlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jmlah.KeyPress
   If e.KeyChar = vbCr Then
   Total.Text = Jmlah.Text * Harga.Text
   End If
End Sub



Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
   isi_tabel()
   bersih()
End Sub



Sub bersih()
   No.Text = ""
   Kode.Text = ""
   Nama.Text = ""
   Merek.Text = ""
   Harga.Text = ""
   Jmlah.Text = ""
   Total.Text = ""
End Sub

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
   LV.Items.Clear()
End Sub

Private Sub BtnHpsDplih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHpsDplih.Click
   LV.Items.Remove(LV.SelectedItems(0))

End Sub



End Class 



Hasilnya :

Read more »