PROGRAM SEDERHANA PEMBAYARAN REKENING LISTRIK DENGAN Vb 2008

hay sobat blogger... dalam rangka masih dalam tahap pemula saya akan mencoba membuat program sederhana tentang pembayaran rekening listrikdengan mengunakan program vb 2008

langsung saja ke TKP. sebelum Waktu Habis saya,  :D


bagi agan-agan yang sudah mahir dalam dunia programing, saya harap sudah bisa lah ya, untuk mendesain program kaya disamping, jadi langsung saja ketik listing berikut.....

PROGRAM VISUAL BASIC MENGHITUNG GAJI KARYAWAN

Program Visual Basic Menghitung Gaji Karyawan

Berikut ini merupakan program Visual Basic untuk menghitung gaji karyawan. Program ini masih dasar sekali yang mengulas pemakaian Select Case.

PENGGAJIAN MENGGUNAKAN VB.NET

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        nik.Items.Add("kk-001")
        nik.Items.Add("ks-002")
        nik.Items.Add("as-001")
        nik.Items.Add("as-002")
        nik.Items.Add("sk-001")
        nik.Items.Add("ss-001")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")
        anak.Items.Add("0")
        anak.Items.Add("1")
        anak.Items.Add("2")
        ANAK.Items.Add("3")
        anak.Items.Add("4")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles nik.SelectedIndexChanged
        Dim x As String
        x = Mid(nik.Text, 2, 1)
        If x = "k" Then
            jabatan.Text = "kabag"
        ElseIf x = "s" Then
            jabatan.Text = "staf"
        Else
            jabatan.Text = "-"
        End If
        x = Mid(nik.Text, 1, 1)
        If x = "k" Then
            bagian.Text = "keuangan"
        ElseIf x = "s" Then
            bagian.Text = "security"
        ElseIf x = "a" Then
            bagian.Text = "administrasi"
        Else
            bagian.Text = "-"
        End If

        If nik.Text = "kk-001" Then
            nama.Text = "angga"
        ElseIf nik.Text = "ks-002" Then
            nama.Text = "oscar"
        ElseIf nik.Text = "as-001" Then
            nama.Text = "hendri"
        ElseIf nik.Text = "as-002" Then
            nama.Text = "joko"
        ElseIf nik.Text = "sk-001" Then
            nama.Text = "fai"
        ElseIf nik.Text = "ss-001" Then
            nama.Text = "ade"
        End If

        If jabatan.Text = "kabag" And bagian.Text = "keuangan" Then
            gaji.Text = 4000000
        ElseIf jabatan.Text = "staf" And bagian.Text = "keuangan" Then
            gaji.Text = 2000000
        ElseIf jabatan.Text = "kabag" And bagian.Text = "security" Then
            gaji.Text = 3000000
        ElseIf jabatan.Text = "staf" And bagian.Text = "security" Then
            gaji.Text = 1700000
        ElseIf jabatan.Text = "kabag" And bagian.Text = "administrasi" Then
            gaji.Text = 2500000
        ElseIf jabatan.Text = "staf" And bagian.Text = "administrasi" Then
            gaji.Text = 1900000

        End If
    End Sub

    Private Sub proses_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BPROSES.Click
        If JABATAN.Text = "kabag" Then
            TJABATAN.Text = 0.25 * Val(GAJI.Text)
        Else
            TJABATAN.Text = 0
        End If

        If STATUS.Text = "menikah" Then
            TISTRI.Text = 0.15 * Val(GAJI.Text)
        Else
            TISTRI.Text = 0
        End If

        If ANAK.Text = "0" Then
            TUNJANGANANAK.Text = "0" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "1" Then
            TUNJANGANANAK.Text = "1" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "2" Then
            TUNJANGANANAK.Text = "2" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "3" Then
            TUNJANGANANAK.Text = "3" * 0.2 * Val(GAJI.Text)
        ElseIf ANAK.Text = "4" Then
            TUNJANGANANAK.Text = "4" * 0.2 * Val(GAJI.Text)
        Else
            TUNJANGANANAK.Text = 0
        End If


        TGAJI.Text = Val(GAJI.Text) + Val(TJABATAN.Text) + Val(TISTRI.Text) + Val(TUNJANGANANAK.Text)

    End Sub

    Private Sub hapus_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BHAPUS.Click
        NIK.Text = " "
        NAMA.Text = " "
        BAGIAN.Text = " "
        JABATAN.Text = " "
        GAJI.Text = " "
        STATUS.Text = " "
        ANAK.Text = " "
        TJABATAN.Text = " "
        TISTRI.Text = " "
        TUNJANGANANAK.Text = " "
        TGAJI.Text = " "
    End Sub

    Private Sub keluar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BKELUAR.Click
        End
    End Sub

End Class

Contoh Program Kelipatan 5 Repeat Until Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
a:=5;

perkembangan komputer dari generasi pertama sampai sekarang

perkembangan komputer dari generasi pertama sampai sekarang

GENERASI PERTAMA
Komputer generasi pertama masih sangat sederhana dan belum kompleks penggunaanya. Komputer generasi pertama belum dapat memperoses masalah-masalah yang rumit. Ukuran komputer generasi pertama sangat besar dan prosesnya pun masih lambat

gerbang logika dasar

GERBANG LOGIKA DASAR

Tabel Kebenaran
gerbang NANDGerbang Logika => blok dasar untuk membentuk rangkaian elektronika digital
-->

·         Sebuah gerbang logika mempunyaisatu terminal output dan satu atau lebih terminal  input

·         Output-outputnya bisa bernilaiHIGH (1) atau LOW (0) tergantung dari level-level digital pada terminal inputnya.

·       

langkah-langkah menginstall windows 8

Langkah-langkah Menginstall Windows 8

Windows 8 versi final sekarang sudah dirilis oleh Microsoft, setelah sebelumya diluncurkan dan dibuat secara bertahap melalui saluran yang berbeda. untuk yang belum begitu mengerti tentang windows 8, berikut ini langkah demi langkah cara menginstall windows 8 final ke komputer ataupun ke laptop, baik itu dilakukan melalui media DVD windows 8 ataupun dengan memakai USB Flashdisk.

cara instal ulang windows 7

Cara Install Ulang Windows 7 Lengkap+Gambar

Haiii,, Halooooo, saya akan share ilmu tentang Cara Install Ulang Windows 7 Lengkap+Gambar, dalam hal install windows ini masih banyak yang tidak mengetahui caranya, tapi kalau bagi siswa SMK yang mengambil jurusan komputer rata-rata bisa menginstall ulang komputer/laptop nya sendiri, bagi kamu yang belum bisa, ayo ikuti langkah2 menginstall ulang windows 7 dibawah ini. gampang kok :D

cara instal ulang windows xp

Cara install ulang windows XP beserta gambar – Bagi Anda yang sering menggunakan komputer, pasti sudah mengenal yang namanya Windows XP. Windows XP adalah

SEJARAH PERKEMBANGAN KOMPUTER

Sejarah Perkembangan Komputer

Istilah Komputer berasal dari bahasa latin "computare", yang berarti alat hitung, karena awalnya komputer lebih digunakan sebagai perangkat bantu dalam hal penghitungan angka-angka sebelum akhirnya menjadi perangkat multifungsi

konsep dasar pemograman dan bahasa pemograman

KONSEP DASAR PEMROGRAMAN DAN BAHASA PEMROGRAMAN

1. Pengenalan

Komputer  adalah  mesin  yang  dapat  melaksanakan  seperangkat  perintah  dasar  (instruction  set).  Agar  komputer  dapat  melakukan  sesuatu hal, harus diberikan perintah yang dapat dilaksanakannya,

belajar c++ pemula

Belajar C++ Untuk Pemula

Langkah pertama yang harus dilakukan adalah menginstal Software Aplikasi yang dibutuhkan yaitu MinGW atau yang lebih tinggi dari software tersebut seperti Visual Studio 2008/2011 atau Microsoft Visual C++ 2010 express bisa di download di www.microsoft.com its free

pemograman

Pemrograman adalah proses menulis, menguji dan memperbaiki (debug), dan memelihara kode yang membangun sebuah program komputer. Kode ini ditulis dalam berbagai bahasa pemrograman. Tujuan dari pemrograman adalah untuk memuat suatu program yang dapat melakukan suatu perhitungan atau 'pekerjaan' sesuai dengan keinginan si pemrogram (programmer). Untuk dapat melakukan pemrograman, diperlukan keterampilan dalam algoritma, logika, bahasa pemrograman, dan di banyak kasus, pengetahuan-pengetahuan lain seperti matematika.