Program Pegawai Dengan VB.Net 2008



Ini merupakan Contoh Program Pegawai Yg Saya Buat ....
Yach.....
Hanya sedikit belajar2 saja ....

Berikut Listing Program .... 

Public Class form_pegawai
    Dim x, y As String
    Dim a As String
    Dim c As String
    Dim b As MsgBoxResult

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

        For i = 1 To 8
            cmb_nip.Items.Add("10123300" & i)
        Next
    End Sub

    Sub seleksi()
        a = "Pak"
        c = "Gol"
        x = Microsoft.VisualBasic.Right(cmb_nip.Text, 3)
        Select Case x
            Case "001" : Txt_nama.Text = a & " " & "Mesran" : cmb_gol.Items.Add(c & " " & "IVA")
            Case "002" : Txt_nama.Text = a & " " & "Abdul" : cmb_gol.Items.Add(c & " " & "I")
            Case "003" : Txt_nama.Text = a & " " & "Berto" : cmb_gol.Items.Add(c & " " & "I")
            Case "004" : Txt_nama.Text = a & " " & "Paska" : cmb_gol.Items.Add(c & " " & "I")
            Case "005" : Txt_nama.Text = a & " " & "Toni" : cmb_gol.Items.Add(c & " " & "IIIB")
            Case "006" : Txt_nama.Text = a & " " & "Yasir" : cmb_gol.Items.Add(c & " " & "IIIC")
            Case "007" : Txt_nama.Text = a & " " & "Fahmy" : cmb_gol.Items.Add(c & " " & "I")
            Case "008" : Txt_nama.Text = a & " " & "Lambok" : cmb_gol.Items.Add(c & " " & "I")
        End Select
    End Sub
    Private Sub cmb_nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_nip.SelectedIndexChanged
        Call bersih()
        Call seleksi()
    End Sub
    Sub bersih()
        cmb_gol.Items.Clear()
        cmb_gol.Text = ""
        cmb_jabatan.Items.Clear()
        cmb_jabatan.Text = ""
        txt_tunjangan.Text = ""
        txt_gaji.Text = ""
    End Sub
    Sub bersih(ByVal f As Form)
        Dim x As Object
        For Each x In f.Controls
            If TypeOf x Is TextBox Then x.text = ""
            If TypeOf x Is ComboBox Then x.text = ""
        Next
    End Sub

    Private Sub Btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_bersih.Click
        Call bersih()
        Call bersih(Me)
    End Sub
    Private Sub cmb_gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_gol.SelectedIndexChanged
        x = Microsoft.VisualBasic.Right(cmb_gol.Text, 1)
        Select Case x
            Case "A" : txt_gaji.Text = 5000000 : cmb_jabatan.Items.Add("Ketua")
            Case "B" : txt_gaji.Text = 3500000 : cmb_jabatan.Items.Add("PuketI")
            Case "C" : txt_gaji.Text = 2500000 : cmb_jabatan.Items.Add("PuketII")
            Case "I" : txt_gaji.Text = 2000000 : cmb_jabatan.Items.Add("Dosen")
        End Select
    End Sub

    Private Sub cmb_jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_jabatan.SelectedIndexChanged
        y = Microsoft.VisualBasic.Left(cmb_jabatan.Text, 5)
        Select Case y
            Case "Ketua" : txt_tunjangan.Text = 1800000
            Case "Puket" : txt_tunjangan.Text = 1400000
            Case "Dosen" : txt_tunjangan.Text = 1000000
        End Select
    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
        txt_tolgaji.Text = "Rp" & " " & Val(txt_gaji.Text) + Val(txt_tunjangan.Text)
    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        b = MsgBox("Apa anda Yakin keluar dari program ini?", MsgBoxStyle.Question + _
            MsgBoxStyle.YesNo, "Program Pegawai")
        If b = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub

End Class


Ok ....
Semoga bermanfaat .....


 

Cara Membuat Tulisan Berkedip Di Blog

Cara Membuat Tulisan Berkedip Di Blog 

esuai dengan judul di atas "Cara Membuat Tulisan Berkedip Di Blog" ternyata tidak sulit. Nah, untuk membuatnya di blog anda, chekidrong aja deh ke TKP.

1. Login ke blogger

2. Pilih Tata Letak kemudian Tambah Gadget
3. Pilih HTML/JavaScript
4. Masukan kode-kode berikut ini
TERIMAKASIH TELAH BERKUNGJUNG DI BLOG Super-Bee

TERIMAKASIH TELAH BERKUNGJUNG DI BLOG Super-Bee


5. Sedang untuk yang kita sisipkan link kodenya seperti ini

"http://super-bee.blogspot.com/">TERIMAKASIH TELAH BERKUNGJUNG DI BLOG Super-Bee

TERIMAKASIH TELAH BERKUNGJUNG DI BLOG Super-Bee


6. Anda dapat menganti tulisan yang nampak SELAMAT DATANG, dengan berbagai keinginana Anda . Dan link http://super-bee.blogspot.com/ dengan URL yang Anda tuju.


7. Simpan dan lihat hasilnya.

8. Kalau udah berhasil jangn lupa ya like dan comment nya :)

 

 

New Key Avira Premium 2012


New Key Avira Premium 2012

 Klik Gambar

 

Avira Premium 2012 + Key

Download Avira Premium 2012 12.0.0.885 Full Version + Key 



         Avira Premium 2012 12.0.0.885 Full Version + Key - Anti Virus Avira sudah Update versi kembali, Sebelumnya Avira Premium 2012 12.0.0.871, dan sekarang Update versi menjadi Avira Premium 2012 12.0.0.885. Update Anti Virus Avira Premium 2012 kali ini sebenarnya menurut Saya gak ada perubahan dari  versi sebelumnya, mungkin cuma perbaikan Bugs saja. 
          Avira Antivirus Premium 2012 12.0.0.885 Perlindungan terhadap virus, malware, adware, spyware, phishing. Aplikasi Avira AntiVirus Premium ini dirancang untuk menjadi alat yang komprehensif dan fleksibel, Anda dapat mengandalkan aplikasi ini untuk melindungi komputer Anda dari virus, malware, program yang tidak diinginkan, dan bahaya lainnya. Berikut ini adalah beberapa fitur dari "Avira Antivirus Premium 2012": AntiVir stops all types of viruses AntiAd/Spyware eliminates ad/spyware AntiPhishing proactive protection against phising AntiRootkit against hidden rootkit threats AntiDrive-by prevents against downloading viruses when surfing EmailScanner enhanced email protection WebGuard protection against malicious websites RescueSystem create a bootable rescue CD QuickRemoval eliminate viruses at the push of a button NetbookSupport for laptops with low resolution 

     Requirements: 
 · At least 100 MB of free hard disk memory space (more if using Quarantine for temporary storage) 
· At least 192 MB RAM under Windows 2000/XP 
· At least 512 MB RAM under Windows Vista 
· For all installations: Windows Internet Explorer 6.0 or higher 
· Administrator rights are required for the installation

Klik Gambar For Download

Terima Kasih Telah Menggunjunggi



 

Kaspersky 2012

Malam Teman-teman Semua.....

          Sudah Lama Saya tidak pernah mengurus Blog Yang Saya Miliki. Kali ini saya akan mencoba berbagi software Antivirus Kaspersky yang cukup terkenal....
Kaspersky merupakan salah satu Antivirus terbaik yang pernah ada. Dan memiliki sensitifitas tinggi terhadap sebuah virus yang akan masuk kedalam Notebook,Netbook, dan Pc yang anda miliki. Tetapi Kaspersky sendiri merupakan antivirus yang tidak gratis dan Berbayar ......

       Maka saya akan berbagi sebuah Link download yang bisa berguna bagi teman-teman semua. Dan kini Kaspersky Lab meluncurkan Anti Virus dan Internet Security Kaspersky 2012 yang di targetkan atau di peruntukan untuk home user atau pengguna perumahan.
Beberapa teknologi perlindungan telah digabungkan oleh Kaspersky Anti Virus dan Kaspersky Internet Security 2012, yaitu teknologi perlindungan sandbox berfungsi untuk membuka aplikasi-aplikasi yang mencurigakan, modul yang dapat memantau aktivitas program di komputer anda, emulator skrip, database reputasi berbasis teknologi Cloud, dan keyboard virtual.

Fitur Baru dan Perbaikan Kaspersky Anti Virus dan Kaspersky Internet Security 2012

  1.  Tampilan baru dan mendukung untuk layar sentuh.
  2. Memanfaatkan perbaikan ”cloud” teknologi anti-malware juga dikenal sebagai Kaspersky Security Network untuk meningkatkan respon lebih cepat terhadap ancaman.
  3. Ditambahkan memeriksa reputasi file yang mencurigakan melalui Kaspersky Security Network tanpa mengeksekusi mereka (klik kanan opsi).
  4. Secara signifikan peningkatan kinerja keseluruhan dan efisiensi mengurangi beban sistem.
  5. Peningkatan perlindungan dari ancaman yang tidak diketahui dengan menganalisa aktivitas program.
  6. Smart updater baru sekarang bisa men-download pembaruan hanya untuk komponen aktif dari produk, juga proses update sekarang dioptimalkan untuk memiliki dampak minimal terhadap sumber daya komputer selama proses upgrade.
  7. Informasi tentang pola perilaku dipicu oleh software  sekarang dikumpulkan untuk analisis dan penilaian reputasi dalam database KSN.
  8. Anti-spam modul sekarang didukung oleh Kaspersky Security Network dan tidak akan lagi memerlukan pelatihan.
  9. Sangat meningkatkan teknologi untuk deteksi rootkit khususnya yang yang mencegat urutan untuk bunyi boot .      

      Klik Gambar Untuk Download

     

                                  
 

Loader Windows 7




Windows 7 Loader v2.1.0 Daz | Untuk kali ini saya share Windows 7 Loader v2.1.0 Daz. Windows 7 Loader v2.1.0 Daz adalah salah satu software untuk mengaktivkan Windows 7. Kalau Windows 7 Sobat Blogger masih dalam keadaan trial, Sobat Blogger tidak usah khawatir pakai Windows 7 Loader v2.1.0 Daz bisa kok Sobat Blogger.

Kalau menurut saya Windows 7 Loader v2.1.0 Daz ini termasuk cara yang paling mudah Sobat Blogger untuk mengaktivkan Windows 7 kita. Sobat Blogger tidak harus susah-susah mencari serial untuk mengaktifkan Windows 7 Sobat Blogger, karena Windows 7 Loader v2.1.0 Daz sudah menyediakannya.

Tapi kalau Sobat Blogger termasuk orang yang cukup kaya, maka tidak salahnya kalau Sobat Blogger langsung membeli serialnya ke pada costumernya. Ya kan Sobat Blogger harus menghargai hasil karya orang lain. Nah, bagi Sobat Blogger yang tidak punya uang silahkan pakai Windows 7 Loader v2.1.0 Daz.

Windows 7 Loader v2.1.0 Daz

Supported operating systems :

  • Windows 7 Ultimate
  • Windows 7 Ultimate E
  • Windows 7 Professional
  • Windows 7 Professional E
  • Windows 7 Home Premium
  • Windows 7 Home Premium E
  • Windows 7 Home Basic
  • Windows 7 Starter
  • Windows 7 Starter E
  • Windows Vista Ultimate
  • Windows Vista Business
  • Windows Vista Business N
  • Windows Vista Home Premium
  • Windows Vista Home Basic
  • Windows Vista Home Basic N
  • Windows Vista Starter
  • Windows Server 2008 Enterprise
  • Windows Server 2008 Foundation
  • Windows Server 2008 Standard
  • Windows Small Business Server 2008
  • Windows Storage Server 2008 Standard
  • Windows Server 2008 R2 Enterprise
  • Windows Server 2008 R2 Foundation
  • Windows Server 2008 R2 Standard
  • Windows Small Business Server 2011 Standard

What’s New Version 2.1.0 :
  • Added a new GRLDR version
  • Added CRC32 checksums to SLIC and certificate dumps
  • Enhanced serial decoding so that it supports Windows 8
  • Added EXO, ONKYO and Quanmax Home Premium serials
  • Added EXO and ONKYO SLIC's and certificates
  • Removed NEC Ultimate serial as it's not NEC
  • Other minor tweaks and fixes

Work In :
  • Windows 32-bit
  • Windows 64-bit
Silahkan Download File 

 

 

Download W7 On USB


 Install W7 melalui Flash Disk
Jadi, Anda memiliki PC tua atau Anda memiliki PC yang tidak memiliki sebuah DVD player dan Anda ingin menginstal Windows 7 karena yang keren sejak irisan roti. Apa saja pilihan Anda? Anda dapat membeli sebuah DVD player, membakar beberapa CD atau bahkan lebih baik lagi-mengapa tidak membuat bootable dan diinstal W7 USB stick! Apa yang Anda perlukan? Windows 7 file, dan USB drive dengan 4 GB (atau lebih) gratis.

Bagaimana Anda melakukannya?
Sediakan USB stick dengan kapasitas lebih dari 4 GB ruang
Buka prompt ( CMD ) Kemudian >>
 Ketikkan Perintah-perintah Berikut ini ..
  1. Type “diskpart”
  2. Enter
  3. Type “list disk”
  4. Enter
  5. Temukan disk mana merupakan USB drive Anda (lihat di kolom ukuran gratis untuk menyesuaikan itu)
  6. Type “Select Disk X” menggantikan x dengan jumlah USB drive Anda
  7. Enter
  8. Type “Clean”
  9. Enter
  10. Type “Create Partition Primary”
  11. Enter
  12. Type “Select Partition 1″
  13. Enter
  14. Type “Active”
  15. Enter
  16. Type “Format FS=NTFS QUICK”
  17. Enter
  18. Type “Assign”
  19. Enter
  20. Type “Exit”
  21. Enter
Kemudian Copy isi berkas W7 ke  USB Anda (seolah-olah bootable DVD)
REBOOT DAN MENIKMATI :)

Jika Susah Menggunakan Perintah Command Prompt Tersebut
Silahkan Download Programnya Dengan Mengklik Gambar


Terimakasih Telah Mendownload




 

Popular Posts