Daftar Isi

Memberi Efek Taburan Bintang Pada Blog

Memberi Efek Taburan Bintang di Blog | Tutorial Blog

Bagi kalian yang ingin mempercantik Blog tak ada salahnya mencoba tutorial yang 1 ini, Yaitu dengan memberi efek taburan bintang pada Blog.

 

Untuk menerapkan efek ini pada blog bisa melalui edit template, ataupun lewat gadget, silakan anda pilih cara mana yang menurut anda lebih nyaman.

Cara yang pertama melalui edit template :

• Pada dashboard blogger klik Template > Edit html
• Beri centang pada Expand Template Widget
• Cari kode </body> lalu letakkan kode script efek di atas kode </body>, berikut script-nya:
  Efek bintang berwarna kuning,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangkuning.js' type='text/javascript'/>
  Efek bintang berwarna biru,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangbiru.js' type='text/javascript'/>
  Efek bintang berwarna oren,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangoren.js' type='text/javascript'/>
  Efek bintang berwarna pink,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangpink.js' type='text/javascript'/>
• Terakhir klik Save Template.

Untuk cara kedua melalui Gadget :

• Pada dashboard klik Tata Letak > Add a gadget > HTML/JavaScript.
• Letakkan script dibawah ini pada gadget.
  Efek bintang berwarna kuning,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangkuning.js' type='text/javascript'/></script>
  Efek bintang berwarna biru,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangbiru.js' type='text/javascript'/></script>
  Efek bintang berwarna oren,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangoren.js' type='text/javascript'/></script>
  Efek bintang berwarna pink,
  
  <script src='http://wadah-tutorial.googlecode.com/files/bintangpink.js' type='text/javascript'/></script>
•  Lalu klik Simpan / Save.

Selesai,

silakan lihat hasilnya pada blog sobat.

Membuat Program Hitung Gaji Dengan Visual Basic 6.0

program sederhana hitung gaji visual basic, Aplikasi Sederhana ( Menghitung Gaji + Tunjangan ) di Visual Basic 6.0

 

  Artikel ini adalah suatu tugas dari guru saya untuk mengungkap masalah MENGHITUNG GAJI + Tunjangan, Saya Sempat bingung saat saya dirumah mencoba membuat program ini, akan tetapi gagal, tetapi setelah saya coba ulang ternyata berhasil. sebelumnya saya sudah mempost kan artikel Cara Membuat Aplikasi Pemutar Vieo Dengan Visual Basic 6.0

keterangan Program :

Dalam hal ini , kita akan membuat program hitung gaji + tunjangan dari Pegawai , Staf Direktur, Dan Direktur

Didalam program ini ada Tunjangan hadir = dalam 1 bulan berapa kali hadir x Rp.10.000

Tunjangan Jabatan :
Untuk jabatan Pegawai mendapatkan tunjangan sebesar Rp.500.000 dan Gaji Pokok sebesar Rp.2 jt
Untuk jabatan Staf Direktur mendapatkan tunjangan sebesar Rp.800.000 dan Gaji Pokok sebesar Rp.4 jt                              
Untuk jabatan Pegawai mendapatkan tunjangan sebesar Rp.1000.000 dan Gaji Pokok sebesar Rp.5 jt

Tunjangan Anak = Jumlah Anak x Rp.100.000 , dalam hal ini, anak yang diberi tunjangan maksimal hanya 2 orang anak saja.

Oke langsung saja !

1. letakkan 11 Label , 3 TextBox, 1 ComboBox , dan 1 Command button seperti dibawah ini

Properties Form1 :
StarUpPosition : 2 - CenterScreen

Properties Label1 :
Caption :  Nama
Properties Combo1 : 
Text : Pilih Jabatan

Properties Label2 :
Caption : Jumlah Anak

Properties Label3 :
Caption : Jumlah Kehadiran

Properties Label4 :
Caption : /Bulan

Properties Label 5 - Label 11 :
Caption : Kosong
BackColor : HighLight Text

Properties label 5 :
Name : lblnama



Properties label 6 :
Name : lbljabatan



Properties label 7 :
Name : lblgajipokok



Properties label 8 :
Name : lbltunjabatan


Properties label 9 :
Name : lbltunanak



Properties label 10 :
Name : lblhadir



Properties label 11 :
Name : lbltotal


Properties Command1 : 
Caption : HITUNG



Sekarang anda masuk Source Code dibawah ini

Dim tunjabatan As Single
Dim gajipokok As Single
Dim tunanak As Single
Dim jumanak As Byte
Dim tunhadir As Single
Dim jumhadir As Byte
Dim total As Double
Const anak = 100000
Const hadir = 10000

Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "MASUKKAN NAMA"
Text1.SetFocus
Exit Sub
End If


If Text2.Text = "" Then
MsgBox "MASUKKAN JUMLAH ANAK"
Text2.SetFocus
Exit Sub
End If
If Text3.Text = "" Then
MsgBox "Masukkan Jumlah Kehadiran Dalam 1 Bulan"
Text3.SetFocus
Exit Sub
End If

If Text3.Text > 32 Then
MsgBox "Anda terlalu banyak memasukkan Jumlah Kehadiran"
Exit Sub
End If




nama = Text1.Text

lblnama.Caption = "Nama :" & nama

Select Case Combo1.Text
               Case "Pegawai"
                     tunjabatan = 500000
                     gajipokok = 2000000
                   
               Case "Staf Direktur"
                   
                     tunjabatan = 800000
                     gajipokok = 4000000
                   
               Case "Direktur"
                   
                     tunjabatan = 1000000
                     gajipokok = 5000000
                   
End Select

lbljabatan.Caption = "Jabatan :" & Combo1.Text
lbltunjabatan.Caption = "Tunjangan Jabatan :" & Format(tunjabatan, "Currency")
lblgajipokok.Caption = "Gaji Pokok :" & Format(gajipokok, "Currency")

jumanak = Val(Text2.Text)
If jumanak <= 2 Then tunanak = Val(jumanak) * anak
If jumanak > 2 Then tunanak = 2 * anak


lbltunanak.Caption = "Tunjangan Anak :" & Format(tunanak, "Currency")

jumhadir = Val(Text3.Text)
tunhadir = Val(jumhadir) * Val(hadir)

lblhadir.Caption = "Tunjangan Hadir :" & Format(tunhadir, "Currency")

total = Val(tunjabatan) + Val(gajipokok) + Val(tunanak) + Val(tunhadir)
lbltotal.Caption = "Total Gaji :" & Format(total, "Currency")
                   

End Sub

Private Sub Form_Load()

Combo1.AddItem "Pegawai"
Combo1.AddItem "Staf Direktur"
Combo1.AddItem "Direktur"


End Sub


sekarang anda coba dengan menekan F5

Salam Bloger

Klik Sumber → DISINI

TV Online Indonesia Lengkap

Membuat Aplikasi Pemutar Video dengan Visual Basic 6.0

Membuat Aplikasi Pemutar Video dengan Visual Basic 6.0

Anda bisa membuat pemutar video sendiri dengan Visual Basic 6.0 Buat project standard exe lalu klik project -> komponen -> Windows Media Player Lihat gambar di bawah ini: klik tombol ok. selanjutnya di toolbox akan terlihat lambang windows media player. Double klik gambar tersebut untuk membuat komponen windows media player tersebut ke form. Setelah itu tambahkan Komponen DriveListBox, DirListBox, FileListBox,CommandButton dan Label. Selanjutnya aturlah backcolor dan forecolor untuk masing-masing komponen sehingga interface program anda akan terlihat seperti gambar di bawah ini: Berikan kode seperti dibawah ini: Private sFile As String Private Sub Command1_Click()   WindowsMediaPlayer1.openPlayer sFile End Sub Private Sub Dir1_Change()   File1.Path = Dir1.Path End Sub Private Sub Drive1_Change()   Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click()   sFile = Dir1.Path & "\" & File1.FileName   Label1.Caption = sFile End Sub Private Sub Form_Load()   File1.Pattern = "*.dat;*.mpg" End Sub

tombol Run atau F5 pemutar video kita akan tampak seperti ini:



cari file video di komputer anda dengan cara mengklik drive dan folder beserta file nya.
setelah anda menemukan videonya klik pada kontrol file kemudian tekan tombol dengan tanda panah (>) aplikasi kita akan membuka windows media player. Lihat gambar di bawah ini:



Windows media player otomatis membuka dan memutar video kesukaan anda. Wah jangan sampai memutar video porno yang mirip artis atau video kekerasan disekolah or kampus ya.

Klo puter video bola piala dunia atau putar video clip lagu keong racun nya sinta and jojo boleh juga he..he..he :)




Yang Mau Langsung Jadi, Silahkan Download → Disini

Klik Sumber : http://xbasicpro.com/visualbasic6windows7.aspx