Kamis, 26 Januari 2012

SEJARAH HARI VALENTINE

Hari yang dirayakan sebagai simbol kasih sayang ini bermula dari Festival Lupercalia yang berlangsung di jaman kerajaan Romawi, sekitar abad ke-3. Festival yang berlangsung setiap 13-18 Februari ini diawali dengan persembahan untuk dewi cinta Juno Februata.

Tepat pada 14 Februari, para pemuda akan mengundi nama-nama gadis dari dalam kotak kaca. Gadis yang terpilih akan menjadi pasangannya selama setahun untuk kesenangan dan objek hiburan.

Sehari kemudian, mereka akan meminta perlindungan dewa Lupercalia dari gangguan makhluk jahat. Saat itu, para pemuda akan melecut para gadis dengan kulit binatang. Mereka percaya lecutan itu akan meningkatkan kesuburan para gadis.

Festival iti tak jarang membuat banyak pasangan saling jatuh cinta, berpacaran, dan akhirnya menikah. Dalam perkembangannya, penguasa dan para tokoh agama setempat mengadopsi upacara ini dengan nuansa Kristiani seiring masuknya Kristen Katolik sebagai agama kerajaan.

Saat Romawi terlibat peperangan, efek festival itu membuat Kaisar Claudius II, yang berkuasa saat itu, kesulitan merekrut pemuda untuk memperkuat pasukan perangnya. Banyak pemuda yang berat meninggalkan keluarga dan kekasihnya.

Atas kondisi itu, Claudius II akhirnya memerintahkan untuk membatalkan semua pernikahan dan pertunangan di Romawi. Kebijakan ini rupanya mendapat pertentangan dari salah satu pastor setempat bernama Valentine.

Konon, Claudius II pun murka melihat Valentine diam-diam tetap menikahkan pasangan yang jatuh cinta. Sang kaisar segera memerintahkan pengawal kerajaan untuk menangkap Valentine dan memenggalnya. Valentine meninggal tepat 14 Februari tahun 270 Masehi.

Demi mengenang perjuangan Santo Valentine, tokoh agama mengganti nama festival Lupercalia dengan festival Valentine. Dalam perkembangannya, 14 Februari menjadi momentum sakral bagi para pria untuk memilih gadis yang hendak dijadikan pasangan hidupnya.

Meski tak diketahui apakah legenda ini benar atau tidak, tapi ini adalah penjelasan yang tepat versi Kristen atas yang terjadi pada Lupercalia.

Di kehidupan modern, Valentine diabadikan sebagai hari kasih sayang. Di Amerika Serikat, kartu Valentine pertama yang diproduksi secara massal oleh Esther A Howland pada 1847. Di Jepang, Valentine dianggap sebagai hari saat para wanita memberi permen cokelat untuk pria yang mereka senangi.

Sementara di Indonesia, budaya semacam itu juga mulai menjamur terutama di kalangan anak muda. Banyak pusat perbelanjaan dan kafe yang menghias tempat mereka dengan warna pink. Cokelat dan kartu-kartu Valentine bertuliskan kata-kata cinta juga kian diminati, terutama di kota-kota besar.

Tapi tak berarti hari-hari di luar tanggal 14 Februari bukan hari yang penuh dengan kasih sayang. Toh kasih sayang selalu ada kapan saja, tak hanya di hari Valentine semata.

Menjelang Hari Kasih Sayang

Hari demi hari berganti tak terasa kini sudah Januari 2012. Bulan depan sudah bulan Februari, bulan yang sebagian orang menyebutnya bulan kasih sayang. Karena didalam bulan tersebut ada 1 hari yang disebut hari valentine dimana setiap pasangan saling memberi ucapan valentine kepada pasangannya.


Kumpulan Kata Ucapan Hari Valentine



Hari kasih sayang terlepas dari sejarah valentine days, atau tanggal 14 Februari bukankah setiap hari adalah hari kasih sayang. Dimana kita harus saling menyanyangi kepada pasangan kita, keluarga, sahabat, dan teman-teman kita yang lainnya.
Nah untuk membuktikan kasih sayang saudara, marilah kita mengirimkan SMS Valentine atau Ucapan Valentine kepada orang yang terpilih singgah di hati ini.

Selasa, 24 Januari 2012

JAWABAN KASUS (Monica Triani)

Berikut ini adalah jawaban hasil dari tugas kasus Program Penggajian Karyawan yang di berikan oleh pak mesran. Silahkan anda klik saja disini

PROGRAM PENGGAJIAN (Monica Triani)

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.Center)
        LV.Columns.Add("Tunjgn Istri", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Jlh Anak", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjgn Anak", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Center)
        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




Maka, hasil tampilannya seperti Gambar di bawah ini :



Halaman 33 ( MONICA TRIANI ZEBUA )

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)
                namabrg.Text = "Flashdisk 4GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "Toshiba"
            Case "TS002"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                namabrg.Text = "Flashdisk 2GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "Toshiba"
            Case "VG001"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                namabrg.Text = "Flashdisk 4GB"
                Microsoft.VisualBasic.Left(kode.Text, 2)
                merk.Text = "V-Gen"
            Case "VG002"
                Microsoft.VisualBasic.Right(kode.Text, 3)
                namabrg.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.nopembelian.Text)
        LST.SubItems.Add(Me.kode.Text)
        LST.SubItems.Add(Me.namabrg.Text)
        LST.SubItems.Add(Me.merk.Text)
        LST.SubItems.Add(Me.harga.Text)
        LST.SubItems.Add(Me.jumlah.Text)
        LST.SubItems.Add(Me.total.Text)

    End Sub


    Sub kosong()
        nopembelian.Text = ""
        kode.Text = ""
        namabrg.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Focus()
    End Sub

    Private Sub btnhapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdipilih.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 Btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpankelistview.Click
        Call simpan()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        kosong()
        nopembelian.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_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
        total.Text = Val(jumlah.Text) * Val(harga.Text)
    End Sub
End Class




Halaman 32 ( MONICA TRIANI ZEBUA )

Public Class Form1

    Sub buattabel()
        ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("NAMA", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("JURUSAN", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("JENJANG", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("TAHUN MASUK", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("NILAI ANGKA", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("NILAI HURUF", 80, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.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(TAHUN_MASUK.Text)
        lst.SubItems.Add(NILAI_ANGKA.Text)
        lst.SubItems.Add(NILAI_HURUF.Text)
        ListView1.Items.Add(lst)
    End Sub


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

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
        isitabel()
        NPM.Text = ""
        NAMA.Text = ""
        JURUSAN.Text = ""
        JENJANG.Text = ""
        TAHUN_MASUK.Text = ""
        NILAI_ANGKA.Text = ""
        NILAI_HURUF.Text = ""
    End Sub

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


    Private Sub Btnhapusyhdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusyhdipilih.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        ListView1.Items.Clear()
    End Sub

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




Minggu, 03 Juli 2011

JAWABAN 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 + tunjkel;
gotoxy(63,7+i);cout<
}
getch();
}