Kamis, 30 April 2015

Contoh Program C++ Menghitung Gaji Karyawan Berdasarkan Golongan Menggunakan fungsi Switch - Case , By ernida, 30 april 2015

ketentuan:
Buatlah Program C++ untuk menghitung gaji.
Gaji didapat dari gaji pokok + tunjangan keluarga.
Gaji pokok didapat berdasarkan Golongan.
golongan 1 : 1200000 , golongan 2 : 1500000 , golongan 3 : 2100000;
Tunjangan keluarga diberikan pada masing-masing anak sebesar 10% dari gaji pokoknya ,  dan maksimal diberikan kepada 3 anak.
case program menghitung gaji berdasarkan golongan


Program :
#include <conio.h>
#include <iostream.h>
main(){
int golongan;
int jumlah_anak, gaji_pokok, tjg_klg, total_gaji;


cout<<" Program Menghitung Gaji"<<endl;
cout<<"[1] Golongan 1 = gaji pokok 1200000"<<endl;
cout<<"[2] Golongan 2 = gaji pokok 1500000"<<endl;
cout<<"[3] Golongan 3 = gaji pokok 2100000"<<endl;
cout<<" Masukkan golongan karyawan :";cin>>golongan;
cout<<"Masukkan jml anak :" ;cin>>jumlah_anak;

switch(golongan){
case 1:
gaji_pokok = 1200000;
   break;
case 2:
gaji_pokok = 1500000;
break;
case 3:
gaji_pokok = 2100000;
break;
default:
gaji_pokok = 2100000;
   }

if(jumlah_anak <= 3) {
tjg_klg = 0.1 * jumlah_anak * gaji_pokok;
}
else{
    tjg_klg = 0.1 * 3 * gaji_pokok;
   }
total_gaji = gaji_pokok + tjg_klg;

cout<<" maka total gaji adalah (setelah ditambah tunjangan keluarga) = "<<total_gaji;

getch();
}

Tampilan:


Program Visual Basic Net Menghitung Total Nilai Penjualan Pada Isi Listview Written By ernida,30 april 2015

Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i = 1 To 5
            Kode.Items.Add("P-00" & i)
            Jumlah.Items.Add(i)
        Next

        With LV
            .Columns.Add("Kode", 50, HorizontalAlignment.Center)
            .Columns.Add("Nama", 250, HorizontalAlignment.Left)
            .Columns.Add("Harga", 50, HorizontalAlignment.Right)
            .Columns.Add("Jumlah", 50, HorizontalAlignment.Center)
            .Columns.Add("Total Harga", 100, HorizontalAlignment.Right)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Select Case Kode.Text
            Case "P-001"
                Nama.Text = "Televisi Sony 21 Inchi"
                Harga.Text = 2100000
            Case "P-002"
                Nama.Text = "Televisi Sony 14 Inchi"
                Harga.Text = 1900000
            Case "P-003"
                Nama.Text = "Televisi Sony 29 Inchi"
                Harga.Text = 2900000
            Case "P-004"
                Nama.Text = "Televisi Sony 32 Inchi"
                Harga.Text = 3500000
            Case "P-005"
                Nama.Text = "Televisi Sony 40 Inchi"
                Harga.Text = 4500000
            Case Else
                Nama.Text = ""
                Harga.Text = 0
        End Select
    End Sub

    Private Sub Jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.SelectedIndexChanged
        Total.Text = Harga.Text * Jumlah.Text
    End Sub

  
    Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
        Dim xTP As Double = 0
        Dim lst As New ListViewItem
        lst.Text = Kode.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)

        For i = 0 To LV.Items.Count - 1
            xTP = xTP + LV.Items(i).SubItems(4).Text
        Next
        TotalPenjualan.Text = xTP
    End Sub

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

Hasil Program Visual Basic Net  Menghitung Total Nilai Penjualan  Pada Isi Listview.

Program Visual Basic Net Mencari Nilai Total Harga Pada Isi Listview

Contoh Latihan Bahasa C++ untuk Program Penjualan Produk Written By ernida ,30 april 2015

Adapun program ini membahas pemakaian if() jamak

#include <iostream.h>
#include <conio.h>
#include <string.h>
void main()
{
    char    kd ;
    char    nama  [25] = ”” ;
    char    satuan [10] = ”” ;
    int       jumlah=0 ;
    float    harga=0, total=0  ;

    clrscr()  ;
    cout << “Input Data Barang CV. MESRAN IT ”  << endl ;
    cout << “———————————————————-” << endl  ;

    cout << “Input Kode Barang [A,B,C] :”  ;  cin >> kd  ;

    if (kd==’A’ || kd==’a’) {
        strcat( nama, “TV. Sony 21\”  ” ) ;
        strcat( satuan , “Unit”  ) ;
        harga  = 1500000  ;
    } else if (kd==’B’ || kd==’b’) {
        strcat( nama  , “DVD Sony” ) ;
        strcat( satuan ,  “Unit” )  ;
        harga  = 1000000  ;
    } else if (kd==’C’ || kd==’c’) {
        strcat( nama  , “Tape Compo Sony” );
        strcat( satuan , “Unit” )  ;
        harga  = 750000  ;
    } else {
        strcat( nama , “–” );
        strcat( satuan , “–” ) ;
        harga = 0 ;
    }

    cout << “Input Jumlah           :” ; cin >> jumlah  ;

    total = jumlah * harga ;

    cout << “Nama Barang   : “ <<   nama << endl ;
    cout << “Satuan              :  “ << satuan  << endl;
    cout << “Harga               :   “ << harga << endl ;
    cout << “Jumlah             :  “ << jumlah << endl;
    cout << “Total Harga     :  “ << total << endl ;
    cout << “————————————————————” << endl  ;
}

Penjelasan :

    include “iostream.h” digunakan karna kita menggunakan cout << dan cin >>
    Perintah cout<< –> untuk menampilkan
    Perintah cin>> –> untuk menginputkan
    Perintah endl –> (end of line) untuk pindah ke baris selanjutnya

MENGHITUNG NILAI SEMESTER MENGGUNAKAN PASCAL

Program pascal (menghitung nilai semester mahasiswa)

uses wincrt;
var
   nabs,nt,uts,uas,nakhir:real;
   npm,nm,prostudi,mk,grd,ket:string[25];
   grade,smtr:char;
  
begin
writeln(' Nilai Akhir Semester Mahasisiwa UPB  ');
writeln('======================================');
write  ('Nama Mahasiswa         :');readln(nm);
write  ('NPM                    :');readln(npm);
write  ('Program Studi          :');readln(prostudi);
write  ('Semester               :');readln(smtr);
write  ('Mata Kuliah            :');readln(mk);
write  ('masukan Nilai absen    :');readln(nabs);
write  ('masukan Nilai Tugas    :');readln(nt);
write  ('masukan Nilai UTS      :');readln(uts);
write  ('masukan Nilai UAS      :');readln(uas);
nakhir:=(0.15*nabs)+(0.15*nt)+(0.35*uts)+(0.4*uas);

   if (nakhir >= 80 ) and (nakhir <= 99.99) then
   grade := 'A'

   else if (nakhir >= 70) and (nakhir <= 79.99) then
   grade := 'B'

   else if (nakhir >= 60) and (nakhir <= 69.99) then
   grade := 'C'

   else if (nakhir >= 50) and (nakhir <= 59.99) then
   grade := 'D'

   else if (nakhir >= 40) and (nakhir <= 49.99) then
   grade := 'E'

   else if (nakhir >= 30) and (nakhir <= 0) then
   grade := 'F';
 
case grade of
    'A' : ket := 'Lulus Sangat Memuaskan';
    'B' : ket := 'Lulus Dengan Baik';
    'C' : ket := 'Lulus Dengan Cukup';
    'D' : ket := 'Gagal';
    'E' : ket := 'Terkapar';            
    'F' : ket := 'Ke laut ajah';
    end;