Selasa, 24 Januari 2012

Listing Program Kasus

Pak, ini tugas kasus saya.

Silahkan Klik Link berikut yah pak kasus penggajian ( Ardian Syahputra )

Kasus Penggajian ( Ardian Syahputra )

Public Class Form1
Dim LST As ListViewItem

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staff")

Dim x As Byte
For x = 1 To 10
janak.Items.Add(x)
Next

Dim y As Byte
For y = 1 To 10
jamlembur.Items.Add(y)
Next

status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")

buat_table()
kosong()

End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "Mandor" Then
gapok.Text = "1750000"
ElseIf jabatan.Text = "Kepala Bagian" Then
gapok.Text = "2500000"
ElseIf jabatan.Text = "Staff" Then
gapok.Text = "1250000"
End If
End Sub

Private Sub janak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles janak.SelectedIndexChanged
If janak.Text = "1" Then
tnjanak.Text = 3 / 100 * gapok.Text
Else
tnjanak.Text = 7 / 100 * gapok.Text
End If
End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tnjistri.Text = 9 / 100 * gapok.Text
Else
tnjistri.Text = "0"
End If
End Sub

Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
If jabatan.Text = "Staff" Then
gabur.Text = 5000 * jamlembur.Text
ElseIf jabatan.Text = "Mandor" Then
gabur.Text = 7500 * jamlembur.Text
ElseIf jabatan.Text = "Kepala Bagian" Then
gabur.Text = 10000 * jamlembur.Text
End If
End Sub


Private Sub gapok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gapok.TextChanged
pajak.Text = Val(1.5 / 100) * Val(gapok.Text)

End Sub


Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click
tgaji.Text = Val(gapok.Text) + Val(tnjistri.Text) + Val(tnjanak.Text) + Val(gabur.Text) - Val(pajak.Text)

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

.Columns.Add("NIP", 100)
.Columns.Add("Nama Karyawan", 100)
.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)
.Columns.Add(" Jumlah Anak ", 100, HorizontalAlignment.Left)
.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
.Columns.Add("Status", 100, HorizontalAlignment.Left)
.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Jam Lembur", 100, HorizontalAlignment.Left)
.Columns.Add("Gaji Lembur", 100, HorizontalAlignment.Left)
.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
.Columns.Add("Total Gaji Karyawan", 100, HorizontalAlignment.Left)

End With
End Sub
Sub simpan()
LST = Me.lv.Items.Add(Me.nip.Text)
LST.SubItems.Add(Me.nama.Text)
LST.SubItems.Add(Me.jabatan.Text)
LST.SubItems.Add(Me.gapok.Text)
LST.SubItems.Add(Me.janak.Text)
LST.SubItems.Add(Me.tnjanak.Text)
LST.SubItems.Add(Me.status.Text)
LST.SubItems.Add(Me.tnjistri.Text)
LST.SubItems.Add(Me.jamlembur.Text)
LST.SubItems.Add(Me.gabur.Text)
LST.SubItems.Add(Me.pajak.Text)
LST.SubItems.Add(Me.tgaji.Text)
End Sub
Sub kosong()
nama.Text = ""
nip.Text = ""
jabatan.Text = ""
gapok.Text = ""
janak.Text = ""
tnjanak.Text = ""
status.Text = ""
tnjistri.Text = ""
jamlembur.Text = ""
gabur.Text = ""
pajak.Text = ""
tgaji.Text = ""
nip.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()
kosong()
nip.Focus()
End Sub

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
nip.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
End Class

Halaman 33 ( Ardian Syahputra )

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()
kosong()
no.Focus()
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

Halaman 32( Ardian Syahputra )

Public Class Form1
Dim LST As ListViewItem
Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x As String
tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
If x = "1" Then
jenjang.Text = "Diploma I"
ElseIf x = "2" Then
jenjang.Text = "Diploma III"
ElseIf x = "3" Then
jenjang.Text = "Strata I"
End If

x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)
If x = "01" Then
jurusan.Text = "Manajemen Informatika"
ElseIf x = "02" Then
jurusan.Text = "Sistem Informasi"
ElseIf x = "03" Then
jurusan.Text = "Teknik Komputer"
ElseIf x = "04" Then
jurusan.Text = "Akuntansi"
End If
End Sub

Private Sub nangka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nangka.TextChanged
If nangka.Text >= "90" Then
nhuruf.Text = "A"
ElseIf nangka.Text >= "80" Then
nhuruf.Text = "B"
ElseIf nangka.Text >= "70" Then
nhuruf.Text = "C"
ElseIf nangka.Text = "60" Then
nhuruf.Text = "D"
Else
nhuruf.Text = "E"
End If
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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buat_table()
kosong()

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

.Columns.Add("npm", 100)
.Columns.Add("Nama", 100)
.Columns.Add("jurusan", 100, HorizontalAlignment.Center)
.Columns.Add("jenjang", 100, HorizontalAlignment.Left)
.Columns.Add(" Tahun Masuk ", 100, HorizontalAlignment.Left)
.Columns.Add("nilai Angka", 100, HorizontalAlignment.Left)
.Columns.Add("nilai Huruf", 100, HorizontalAlignment.Left)

End With
End Sub
Sub simpan()
LST = Me.LV.Items.Add(Me.NPM.Text)
LST.SubItems.Add(Me.NAMA.Text)
LST.SubItems.Add(Me.JURUSAN.Text)
LST.SubItems.Add(Me.jenjang.Text)
LST.SubItems.Add(Me.tahun.Text)
LST.SubItems.Add(Me.nangka.Text)
LST.SubItems.Add(Me.nhuruf.Text)

End Sub


Sub kosong()
NPM.Text = ""
NAMA.Text = ""
JURUSAN.Text = ""
jenjang.Text = ""
tahun.Text = ""
nangka.Text = ""
nhuruf.Text = ""
NPM.Focus()
End Sub

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

Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
kosong()
npm.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
End Class

Minggu, 03 Juli 2011

soal kuis no.4

PROGRAMNYA :
# 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':
baca();break;
case'5':
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<<"--------------------------------------Design By: Ardian Syhaputra";
getch();
fclose(coba);
}

soal kuis 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<<" ;
getch();
}

7 Keajaiban Dunia Kuno

Berikut ini ada keajaiban yang cukup menarik untuk di bahas.Iseng iseng buat menambah ilmu pengetahuan kita.
Menurut list kuno walaupun bukan yang pertama ato terakhir,di buat oleh Philo of Byzanthium dan ditulis pada tahun 224 SM dlm karyanya berjudul “On The Seven Wonders”. Kemudian di tulis kembali oleh seorang sejarahwan bernama Herodotus (484 SM-425 SM) dan seorang arsitek bernama Callimachus of Cyrene (350 SM- 240 SM) di Museum of Alexandria.

1. Lighthouse of Alexandria,Babylonia

Dibangun 280 SM,oleh orang2 Hellenistic Mesir,
antara 115 dan 135 meter tingginya dan dulu menjadi bangunan tertinggi selama beberapa abad,
hancur pada thn 1380-1404 akibat gempa.

Kumpulan Cerita Menarik,Cerita Unik,Cerita Aneh Aneh,Bokep,Bugil,Lighthouse of Alexandria Babylonia

2. Colossus of Rhodes

Patung Helios yang sangat besar,
dibuat sekitar tahun 292–280 SM oleh Chures, sekarang Yunani,
hancur pada 226 SM akibat gempa.

Kumpulan Cerita Menarik,Cerita Unik,Cerita Aneh Aneh,Bokep,Bugil,Colossus of Rhodes

3. Mausoleum at Halicarnassus

Makam Mausolus, satrap Persia, Caria,
dibuat pada tahun 353–351 SM, di kota Halicarnassus, sekarang Bodrum, Turki.
handur akibat gempa pada tahun 1494
Kumpulan Cerita Menarik,Cerita Unik,Cerita Aneh Aneh,Bokep,Bugil,Mausoleum at Halicarnassus

4. Temple of Artemis at Ephesus

Kumpulan Cerita Menarik,Cerita Unik,Cerita Aneh Aneh,Bokep,Bugil,Temple of Artemis at Ephesus

5. Statue of Zeus at Olympia

Berada di Olympia, dipahat oleh pemahat Yunani Fidias,
kira-kira 457 SM sekarang Yunani.
hancur pada abad ke 5-6 akibat gempa.

Kumpulan Cerita Menarik,Cerita Unik,Cerita Aneh Aneh,Bokep,Bugil,Statue of Zeus at Olympia

6. Hanging garden of Babylon

Dibuat oleh Nebukadnezar II,
sekitar abad ke-8 SM–abad ke-6 SM, sekarang Irak.
hancur akibat gempa setelah abad ke-1.

Kumpulan Cerita Menarik,Cerita Unik,Cerita Aneh Aneh,Bokep,Bugil,Hanging garden of Babylon

Ini dia jagonya yang sampai sekrang masih tetep berdiri
7. Great Pyramid of Giza

dipakai sebagai makam untuk firaun Mesir Khufu, Khafre, dan Menkaure, sekarang Mesir. Dibangun pada dinasti ke-4 Mesir (sekitar 2575– sekitar 2465 SM)
Kumpulan Cerita Menarik,Cerita Unik,Cerita Aneh Aneh,Bokep,Bugil,pyramid
Dan sampai sekarang belum hancur,padahal sudah berabad abad tahun lamanya