Senin, 23 Januari 2012

nurhayati

untuk masuk ke dalam kasus penggajian karyawan maka anda harus mengklik alamat ini "kasus penggajian karyawan"
Diposting oleh di Tidak ada komentar:

kasus penggajian karyawan (nurhayati)

Public Class Form1

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

        Nama.Focus()
        Jabatan.Items.Add("Mandor")
        Jabatan.Items.Add("Kepala Bagian")
        Jabatan.Items.Add("Staf")
        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")
        Call buattabel()


    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        Select Case Jabatan.Text
            Case "Mandor"
                Gaji.Text = 1750000
                Pajak.Text = 0.015 * Val(Gaji.Text)
            Case "Staf"
                Gaji.Text = 1250000
                Pajak.Text = 0.015 * Val(Gaji.Text)
            Case "Kepala Bagian"
                Gaji.Text = 2500000
                Pajak.Text = 0.015 * Val(Gaji.Text)

        End Select
        Status.Focus()

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        Dim y As String
        y = Status.Text = "Menikah"
        If Jabatan.Text = "Mandor" Then
            Tunjangan.Text = 0.09 * 1750000
        ElseIf Jabatan.Text = "Staf" Then
            Tunjangan.Text = 0.09 * 1250000
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Tunjangan.Text = 0.09 * 2500000

        End If
        If Status.Text = "Belum Menikah" Then
            Tunjangan.Text = 0

        End If
        Jumlah.Focus()
    End Sub




    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
        If Jumlah.Text = "1" Then
            Tunjangan_anak.Text = 0.03 * Val(Gaji.Text)
        ElseIf Jumlah.Text = "2" Then
            Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)
        Else
            Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)

        End If
    End Sub
    Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jam.TextChanged
        If Jabatan.Text = "Mandor" Then
            Upah.Text = 7500 * Val(Jam.Text)
        ElseIf Jabatan.Text = "Staf" Then
            Upah.Text = 5000 * Val(Jam.Text)
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Upah.Text = 10000 * Val(Jam.Text)

        End If


    End Sub
    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click
        Total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) + Val(Tunjangan_anak.Text) + Val(Upah.Text) - Val(Pajak.Text)


    End Sub
    Sub buattabel()
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Right)
        LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Right)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.FullRowSelect = True
        LV.GridLines = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nama.Text
        lst.SubItems.Add(Jabatan.Text)
        lst.SubItems.Add(Status.Text)
        lst.SubItems.Add(Gaji.Text)
        lst.SubItems.Add(Tunjangan.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Tunjangan_anak.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(jam.Text)
        lst.SubItems.Add(Upah.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        Nama.Text = ""
        Jabatan.Text = ""
        Status.Text = ""
        Gaji.Text = ""
        Tunjangan.Text = ""
        Jumlah.Text = ""
        Tunjangan_anak.Text = ""
        Pajak.Text = ""
        Jam.Text = ""
        Upah.Text = ""
        Total.Text = ""

        Nama.Focus()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        Call isitabel()
        Nama.Text = ""
        Jabatan.Text = ""
        Status.Text = ""
        Gaji.Text = ""
        Tunjangan.Text = ""
        Jumlah.Text = ""
        Tunjangan_anak.Text = ""
        Pajak.Text = ""
        Jam.Text = ""
        Upah.Text = ""
        Total.Text = ""

        Nama.Focus()

    End Sub

    Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_semua.Click
        LV.Items.Clear()


    End Sub

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

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Dim x As String
        x = MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If x = vbYes Then
            Close()

        End If
    End Sub
End Class

Diposting oleh di 2 komentar:

halaman 32 (nurhayati)

Kode Program:
Public Class Form1

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

Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""

End Sub
Sub buattabel()
lv.Columns.Add("NPM", 90, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)
lv.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nilai angka", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jrsn.Text)
lst.SubItems.Add(jjg.Text)
lst.SubItems.Add(tm.Text)
lst.SubItems.Add(na.Text)
lst.SubItems.Add(nh.Text)
lv.Items.Add(lst)

End Sub

Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Clear()
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub

Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()

End Sub

Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

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

Private Sub na_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles na.Click

End Sub

Private Sub na_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles na.KeyPress
If e.KeyChar = Chr(13) Then

End If
Select Case na.Text
Case Is >= 80
nh.Text = "A"
Case 70 To 79
nh.Text = "B"
Case 60 To 69
nh.Text = "C"
Case 50 To 59
nh.Text = "D"
Case Is <= 49 nh.Text = "E" End Select End Sub Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress Dim x As String tm.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2) x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1) If x = "1" Then jjg.Text = "Diploma 1" ElseIf x = "3" Then jjg.Text = "Diploma 3" ElseIf x = "4" Then jjg.Text = "Strata 1" End If x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2) If x = "01" Then jrsn.Text = "Manajemen Informatika" ElseIf x = "02" Then jrsn.Text = "Sistem Informasi" ElseIf x = "03" Then jrsn.Text = "Teknik Komputer" ElseIf x = "04" Then jrsn.Text = "Akuntansi" End If End Sub End Class

Diposting oleh di Tidak ada komentar:

Sabtu, 21 Januari 2012

halaman 33 (NURHAYATI)

Public Class Form1
Dim LST As ListViewItem
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "TS001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "TS002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case "VG001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-Gen"
Case "VG002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-gen"
End Select

If kode.Text = "TS001" Then
harga.Text = "105000"
ElseIf kode.Text = "TS002" Then
harga.Text = "75000"
ElseIf kode.Text = "VG001" Then
harga.Text = "90000"
ElseIf kode.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub

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_table()
kosong()

End Sub
Sub buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details

.Columns.Add("No Pembelian", 100)
.Columns.Add("Kode Barang", 100)
.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add(" Harga ", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Left)

End With
End Sub
Sub simpan()
LST = Me.lv.Items.Add(Me.no.Text)
LST.SubItems.Add(Me.kode.Text)
LST.SubItems.Add(Me.nama.Text)
LST.SubItems.Add(Me.merk.Text)
LST.SubItems.Add(Me.harga.Text)
LST.SubItems.Add(Me.jumlah.Text)
LST.SubItems.Add(Me.tharga.Text)

End Sub


Sub kosong()
nama.Text = ""
no.Text = ""
kode.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
tharga.Text = ""
no.Focus()
End Sub



Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If lv.SelectedItems.Count <> 0 Then

lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")
End If
End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call simpan()
End Sub

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
no.Focus()

End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub

Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub

Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
tharga.Text = Val(jumlah.Text) * Val(harga.Text)
End Sub

End Class

Diposting oleh di Tidak ada komentar:

VB

Visual Studio NET 2008

Visual Studio NET 2008 merupakan salah satu produk pengembangan aplikasi yang di produksi oleh Microsoft. Visual Studio NET 2008 dapat di gunakan untuk pengembangan aplikasi web ASP.NET, MXL Web Service, aplikasi desktop dan juga aplikasi mobile. Visual Studio NET 2008 terdapat beberapa tool yang dapat dipilih untuk pengembangan aplikasi. Tool-tool tersebut antara lain adalah Visual Basic, Visual C# dan Visual C++. Tool-toolpada Visual Studio NET 2008 tersebut menggunakan IDE ( Integrated Development Environment ) yang sama sehingga dapat saling berbagi pakai fasilitas dalam pengembangan aplikasi.
Pada Visual Studio NET 2008 banyak sekali faslitas wizard yang disediakan untuk memudahkan para pengembangan aplikasi. Dengan fasilitas ini, pengembangan aplikasi dapat dilakukan dengan cepat . ini memungkinkan para pemula untuk belajar lebih cepat dalam pengembangan aplikasi
Diposting oleh di Tidak ada komentar:

Minggu, 03 Juli 2011

Jawaban Soal No 4

# include
# include
# include
# include
# include

struct data {
char kode[15];
char nama[30];
char pendidikan[15];
char keahlian[30];

} pgw[50];

void menu();
void isi();
void tambah();
void baca();

void main()
{
char pil='0';
while (pil!='4')
{
menu();
pil=getche();
switch(pil)
{
case'1':
isi();break;
case'2':
tambah();break;
case'3':
baca();break;
case'4':
break;
}
}
}

void menu()
{
clrscr();
gotoxy(25,5);cout<<"MENU DATA BUDIDARMA"; gotoxy(25,6);cout<<"-------------------------------------"; gotoxy(25,7);cout<<"[1]Input data dosen"; gotoxy(25,8);cout<<"[2]Input data mahasiswa"; gotoxy(25,9);cout<<"[3]Membaca Data dosen"; gotoxy(25,10);cout<<"[4]Membaca data mahasiswa"; gotoxy(25,11);cout<<"[5]Keluar program"; gotoxy(25,12);cout<<"------------------------------------"; gotoxy(25,13);cout<<"PILIHAN :"; } void isi() { FILE *coba; char gj[10]; float atof(); int i,n=0; while(1) { clrscr(); gotoxy(35,5);cout<<"MEMASUKKAN DATA DOSEN"; gotoxy(35,6);cout<<"------------------------------------------"; gotoxy(35,7);cout<<"Kode Dosen :"; gets(pgw[n].kode); if(strlen(pgw[n].kode)==0) break; gotoxy(35,8);cout<<"Nama :"; gets(pgw[n].nama); gotoxy(35,9);cout<<"Pendidikan :"; cin>>pgw[n].pendidikan;
gotoxy(35,10);cout<<"keahlian :"; cin>>pgw[n].keahlian;
gotoxy(35,6);cout<<"--------------------------------------------"; n++; } coba=fopen("c:\\Pegawai.Dat","wb"); for(i=0;i>pgw[n].pendidikan;
gotoxy(35,10);cout<<"Keahlian :"; cin>>pgw[n].keahlian;
gotoxy(35,6);cout<<"---------------------------------------";
n++;
}
coba=fopen("c:\\Pegawai.Dat","ab");

for(i=0;i {
fwrite(&pgw[i],sizeof(pgw[i]),1,coba);
}
fclose(coba);
}

void baca()
{
FILE *coba;
int i=0,n=0;

clrscr();
coba=fopen("c:\\Pegawai.Dat","rb");
if(coba==NULL)
{
gotoxy(20,10);cout<<"File PEGAWAI.Dat belum ada";
gotoxy(20,12);cout<<"Tekan sembarang Tombol";
getch();
return;
}
gotoxy(5,1);cout<<"LAPORAN DATA PEGAWAI STMIK BUDIDARMA";
gotoxy(5,2);cout<<"----------------------------------------";
gotoxy(5,3);cout<<"NO KODE NAMA PENDIDIKAN KEAHLIAN ";
gotoxy(5,4);cout<<"----------------------------------------";
while((fread(&pgw[n],sizeof(pgw[n]),1,coba))==1)
{
i++;
gotoxy(6,4+i);cout< gotoxy(10,4+i);cout< gotoxy(19,4+i);cout< gotoxy(50,4+i);cout< gotoxy(60,4+i);cout< }
gotoxy(5,5+i);cout<<"nurhayati";
getch();
fclose(coba);
}


Diposting oleh di Tidak ada komentar:

Jawaban Soal No 3

#include
#include
#include
#include

struct pegawai
{
char nik[20];
char nama[20];
char kode[5];
char gaji[5];
char tunj[5];
char tunjkel[5];

}peg[30];

void main()
{
char lg='Y';
int hasil,i,n=0;
long gaji=0;
long tunj=0;
while(lg=='Y'||lg=='y')
{
clrscr();
cout<<"input data pegawai\n";
n++;
cout<<"nik :";
gets(peg[n].nik);
cout<<"Nama Pegawai :";
gets(peg[n].nama);
cout<<"kode jabatan :";
gets(peg[n].kode);
cout<<"gaji :";
gets(peg[n].gaji);
cout<<"tunjangan :";
gets(peg[n].tunj);
cout<<"Input lagi[Y/T] :";
lg=getche();
}


clrscr();
gotoxy(1,3);cout<<" = LAPORAN GAJI PEGAWAI =\n";
gotoxy(1,4);cout<<"----------------------------------------------------------------------";
gotoxy(1,5);cout<<"NIk Nama Kode Gaji tunjangan Total gaji";
gotoxy(1,6);cout<<"______________________________________________________________________";
for(i=1;i<=n;i++)
{
gotoxy(1,7+i);cout< gotoxy(9,7+i);cout< gotoxy(20,7+i);cout< gotoxy(40,7+i);cout<

hasil=strcmp(peg[i].kode,"1");
if (hasil==0)
gaji=2500000;

hasil=strcmp(peg[i].kode,"2");
if (hasil==0)
gaji=2000000;

hasil=strcmp(peg[i].kode,"3");
if (hasil==0)
gaji=1500000;

gotoxy(28,7+i);cout<

gotoxy(52,7+i);cout<
long tgaji=gaji+tunj+tunj kel;
gotoxy(63,7+i);cout<
}
gotoxy(1,14+i);cout<<"---------------------------------------------------------------------";
gotoxy(1,15+i);cout<<" nurhayati";
getch();
}
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)