Minggu, 29 Januari 2012

Soal No 3 ( Dedi Muhardi "0911085 " )

LISTING PROGRAM Formlogin

Kasus mengenai penggajian karyawan/pegawai,, untuk mengetahui soal nya klik diSINI

Public Class Formlogin

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If username.Text = "Dedi Muhardi" And password.Text = "0911085" Then
            menuutama.Show()
            Me.Hide()
        Else
            MsgBox("maaf saudara, password yang anda masukkan tidak di temukan")
            username.Text = ""
            password.Text = ""

        End If
    End Sub

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


HASIL PROGRAM Formlogin











 
LISTING PROGRAM menuutama
Public Class menuutama

    Private Sub gajipegawai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pegawai.Click
        gajipegawai.Show()
    End Sub

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

HASIL PROGRAM menuutama
















LISTING PROGRAM  gajipegawai
Public Class gajipegawai
        
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("B10")
        nip.Items.Add("B11")
        nip.Items.Add("B12")
        jabatan.Items.Add("mandor")
        jabatan.Items.Add("kepala bagian")
        jabatan.Items.Add("staff")
        status.Items.Add("Belum Menikah")
        status.Items.Add("menikah")
        jalem.Items.Add("1")
        jalem.Items.Add("2")
        jalem.Items.Add("3")
        jalem.Items.Add("4")
        jalem.Items.Add("5")
        jalem.Items.Add("6")
        jalem.Items.Add("7")
        jalem.Items.Add("8")
        jalem.Items.Add("9")
        jalem.Items.Add("10")
        jalem.Items.Add("11")
        jalem.Items.Add("12")
        jalem.Items.Add("13")
        jalem.Items.Add("14")
        jalem.Items.Add("15")
        jalem.Items.Add("16")
        jalem.Items.Add("17")
        jalem.Items.Add("18")
        jalem.Items.Add("19")
        jalem.Items.Add("20")
        jalem.Items.Add("21")
        jalem.Items.Add("22")
        jalem.Items.Add("23")
        jalem.Items.Add("24")
    End Sub

Soal No 2 ( Dedi Muhardi "0911085 " )

LISTING PROGRAM HAL 32
untuk melihat soal nya klik diSINI

Public Class Form1
    Sub buattabel()
        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("JURUSAN", 90, HorizontalAlignment.Left)
        Lv.Columns.Add("JENJANG", 90, HorizontalAlignment.Left)
        Lv.Columns.Add("TAHUN MASUK", 110, HorizontalAlignment.Left)
        Lv.Columns.Add("NILAI ANGKA", 110, HorizontalAlignment.Left)
        Lv.Columns.Add("NILAI HURUF", 110, HorizontalAlignment.Left)
        Lv.Columns.Add("BOBOT", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jurusan.Text)
        lst.SubItems.Add(jenjang.Text)
        lst.SubItems.Add(tahunmasuk.Text)
        lst.SubItems.Add(angka.Text)
        lst.SubItems.Add(huruf.Text)
        lst.SubItems.Add(bobot.Text)
        Lv.Items.Add(lst)
    End Sub

Selasa, 03 Januari 2012

Membuat Aplikasi Absensi Menggunakan Visual Basic

Membuat Aplikasi Absensi Menggunakan Visual Basic

Siapa yang enggak tahu  sih tentang absensi ?, sekolah  bahkan perusahan tak terlepas dari yang anamanya absensi ini ,  kalau biasanya absensi hanya menggunakan secarik kertas tapi kali ini kita coba aplikasikan dengan program komputer , ya …biar lebih keren lah,,,,he….he… :) .
Sebenernya Aplikasi ini bisa dibuat menggunakan banyak program
misalnya