KUMPULAN TUTORIAL KOMPUTER: S1-TI

Tampilkan postingan dengan label S1-TI. Tampilkan semua postingan

Senin, 16 Juli 2012

PASCAL : CONTOH PROGRAM HITUNG UMUR

Listing Program :

program htg_umur;
uses crt;
var nama: string;
    th_L, umur: integer;
const th_skr:integer=2010;

begin
clrscr;
writeln('    PROGRAM HITUNG UMUR');
writeln('---------------------------');
write('Masukkan nama anda      : '); readln(nama);
write('Masukkan Tahun kelahiran: '); readln(th_L);
umur:= th_skr - th_L;
writeln('Umur anda sekarang      : ',umur);
readln;
end.

Jangan lupa tinggalkan pesan berupa saran dan kritik yang bermanfaat untuk blog ini. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama.

Minggu, 15 Juli 2012

PROGRAM CAMPUR WARNA RGB MENGGUNAKAN VB V.6

Berikut ini cara membuat campur warna atu RGB menggunakan Visual Basic v.6, Program ini biasa digunakan dalam mata kuliah Pengolahan Citra

Listing Program:

Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type

Dim Pt(0 To 2) As POINTAPI
Dim Angle As Double

Private Const PI As Double = 3.14159265358979
Private Declare Function PlgBlt Lib "gdi32" (ByVal hdcDest As Long, lpPoint As POINTAPI, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long) As Long

Private Sub Command1_Click()
Picture1.BackColor = RGB(Text1.Text, 0, 0)
Picture2.BackColor = RGB(0, Text2.Text, 0)
Picture3.BackColor = RGB(0, 0, Text3.Text)

Picture4.BackColor = RGB(Text1.Text, Text2.Text, Text3.Text)
Text4.Text = " " & Text1 & ", " & Text2 & ", " & Text3 & ""
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
End Sub

Jangan lupa tinggalin saran dan kritik yang bermanfaat untuk ini blog

Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini (http://dp082010.blogspot.com) sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama

C++ : FILE HEADER PADA C++

Berikut ini merupakan beberapa file hider dan fungsinya yang biasa digunakan didalam membuat program dalam pemograman C++:

a. graphics.h

1. bar () menggambarkan bar (perssegipanjang ) denganmenentukanposisitiaptitiksudut

2. bar3d () menggambar bar 3 dimensi (balok) denganmenentukanposisitiaptitiksudut

3. boisequip() membacacatatanrincianperangkat yang di pasang computer

4. cleardevice () membersihkanlayarpada viewport yang sedang

5. cleardeviceport() membersihkan viewport yang sedangaktif

b. stblib.h

1. bsearch () mencari data menggunakancara binary search

2. div() menghitungpembagianbilangan yang sekaligusmenghasilkanhasilbagidansisapembagian

3. ecvt() konversiangka numeric bilangan double ke string ASCII

4. Fabs () menghitungnilai absolute bilangan double

5. gcvt () konversiangka numeric bilangan double ke string ASCII

c. math.h

1. cabs() menghitunghargamutlakbilangankompleks

2. ceil () membulatkankeatassuatubilangan

3. cosh() menghitung cosines hyperbolic

4. floor () membulatkanangkabilangan double bulatkebawah

5. fmod () menghitungbilangan double X modulo y sisapembagian x/y

d. stdio.h

1. fclose() file – pointer ditutupatau di berhentikanbekerja

2. fcloseall () beberapafile_pointersekaligusditutupataudihentikan

3. fdopen() penggunaan file-pointer atau stream terhadap file-descritoratau file-handle

4. ferror () menelurusiadanya error pada pointer ke – file(apakahada error pada system)

5. fflush () pointer ke file atau stream dibersihkan,akibatnyaisi file berikutnyakosong

e. conio.h

1. getche () menyadapketikankarakterdaripapanketik di sertai echo ( huruf yang ketiktampak di layar)

2. gettext () mengutipkan data text darilayartextmodeke memory simpan

3. gettextinfo() menyimak data text darilayartextmode

4. gotoxy ()menempatkankursorpadakolom x danbaris y

5. insline () menyisipkansebuahbariskosongkelayartextmode

f. dos.h

1. int86 () melayaniperintahinterupsiperangkatlunakbaikpadalingkup BIOS 9 int 00H s/d INT 1FH ),maupunpadalingkup DOS (INT 20H s/d INT 40H)

2. intdos () melayaniperintahinterupsiperangkatlunak INT 21H padalingkup DOS secarakhusus

3. intr () melayaniperintahinterupsiperangkatlunaksebagai alternative pelayananinterupsilunaklainnya

4. getdate () membacacatatantanggaldalam DOS

5. getcbrk () menyimakkeadaanpengaktifantombol ctrl – break

g. iostream.h

1. close () file menutup yang sedang open

2. creatnew () membuat file rekaman di disk

3. eof () mencariujungakhir ( eofatau end file suatu file

4. ispunct () klasifikasikarakterapakahhuruf punctuation

5. isspace () klasifikasikarakterapakahhurufspasi

h. time.h

1. asctime ()mengubahdata tanggaldanwakktuke format ASCII

2. difftime () menghitungselisihwaktuantarapembacaanwaktuawaldanpembacaanwaktuakhir

3. settime ()menentukan jam padalingkuppelayanan DOS

4. tzset () menentukandaylight,timezonedantzname

5. time () menhitungjumlahdetiksejaktanggal 1 januari 1970 jam 00:00:00 GMT hinggasaattanggaldan jam computer yang sekarang.

i.string.h

1. strchr () mencarihuruftertentu yang dapatditemukanpertamapada string

2. strcat () menggabungtulisanpadasuatu string dengantulisanpada string lain

3. strcmp () membandingkandua string tulisan

4. strcpy ()mengutipkanisitulisanpadasuatu string kelainnya

5. strdup () mengutipkanisitulisansuatu string ke string lain yang ditentukan

Jangan lupa tinggalin saran dan kritik yang bermanfaat untuk ini blog

Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini (http://dp082010.blogspot.com) sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama

Sabtu, 14 Juli 2012

C++ : CONTOH PROGRAM BILANGAN PRIMA

Listing program :

# include
# include

void main()
{
int k;
cout<<"masukkan sebuah bilangan = "; cin>>k;

if ((k%2==1) || (k%3==1) || (k%5==1) || (k%7==1))
cout<<"bilangan prima ";
else
cout<<"bukan bilangan prima";
}

C++ : CETAK BILANGAN VIBONANCI 4

Listing Program:

# include
#include
void main()
{
char x,y;
for (x='A';x<='E';x++)
{
    for (y='A';y<='E';y++)
    {
        if (x=='C')
cout< else if (y=='C')
cout< else
cout<    }
    cout<    }}

C++ : CETAK BILANGAN VIBONANCI 3

Listing Program :

#include
#include

void main()
{
int x,y;
    for(x=5;x>=1;x--)
        {
            for( y=1;y<=x;y++)
                {    cout<                }
                cout<            }}

C++ : CETAK BILANGAN VIBONANCI 2

Listing Program :

# include

void main()

{
for (int x=1;x<=5;x++)
    {
    for (int z=5-x;z>= 1;z--)
        cout<<" ";
    for (int y=1;y<=x;y++)
        cout<<"* ";
    cout<
    }
for (int a=4;a>=1;a--)
    {
    for (int b=4-a;b>= 1;b--)
        cout<<" ";
    for (int c=1;c<=a;c++)
        cout<<" "<<"*";
    cout<
    }}

C++ : CONTOH CETAK BIL VIBONANCI 1

Listing Program :

# include
#include
void main()

{
int x,y,z,a=1;
for ( x=1;x<=3;x++)
    {
    for ( z=2;z>= x;z--)
        cout<<" ";
    for ( y=1;y<=x;y++)
        {cout<        a++;}
    cout<    }
for ( x=1;x<=2;x++)
    {
    for ( z=1;z<=x;z++)
        cout<<" ";
    for ( y=2;y>=x;y--)
        {cout<        a++;}
    cout<    }
}

C++ : CONTOH PROGRAM CETAK ANGKA MENGGUANAKAN FOR

Listing Program :

#include
#include

void main()
{
int x,y;
    for(x=10;x>=2;x-=2)
        {
            for( y=x;y>=2;y-=2)
                {    cout<                }
                cout<            }}

C++ : CONTOH PROGRAM PEMILIHAN BARANG MENGGUNAKAN CASE

Listing Program :

# include
# include

void main()
{
char KP[6], buatan[20],processor[20];
cout<<"masukkan kode produk barang (A,J,K,C,G,T),(3,4,5) : ";
cin>>KP;

switch (KP[0]){
    case 'A' : strcpy (buatan,"Amerika"); break;
    case 'J' : strcpy (buatan,"Jepang"); break;
    case 'K' : strcpy (buatan,"Korea");   break;
    case 'C' : strcpy (buatan,"China");   break;
    case 'G' : strcpy (buatan,"German"); break;
    case 'T' : strcpy (buatan,"Taiwan"); break;
    default : strcpy (buatan,"tidak diketahui");
}
switch (KP[1]){
    case '3' : strcpy (processor,"Intel 386 MHZ"); break;
    case '4' : strcpy (processor,"Intel 486 MHZ"); break;
    case '5' : strcpy (processor,"Intel pentium"); break;
    default : strcpy (processor,"salah input");
}

cout << "Spesifikasi Komputer : \n";
cout << "\tBuatan\t\t: " << buatan << endl;
cout << "\tProsesor\t: " << processor << endl;
cout << "\tHarddisk\t: " << KP[2] << KP[3] << KP[4] << " Gigabyte";
}

C++ : CONTOH PROGRAM HITUNG HARGA BARANG MENGGUNAKAN PEMILIHAN CASE

Listing Program:

#include
#include
#include

int kd; long total,jumlah,jm;void main(){do { int i=1;    cout<<" Masukkan Kode Barang [100 - 130] : "; cin>>kd;    cout<<" Masukkan jumlah Barang : "; cin>>jm;    i++;    if (kd>130)    cout<<"Maaf kode yg anda masukkan tdk terdapat pada data kami. . .!!"< else    switch(kd)    {     case 100 : cout<<" kode barang :"< total = jm * 4000;                    cout<<" Jumlah Bayar : "< case 101 : cout<<" kode barang :"< total = jm * 1500;                    cout<<" Jumlah Bayar : "< case 102 : cout<<" kode barang :"< total = jm * 3500;                    cout<<" Jumlah Bayar : "< case 103 : cout<<" kode barang :"< total = jm * 6000;                    cout<<" Jumlah Bayar : "< case 104 : cout<<" kode barang :"< total = jm * 5000;                    cout<<" Jumlah Bayar : "< case 105 : cout<<" kode barang :"< total = jm * 2000;                cout<<" Jumlah Bayar : "< case 106 : cout<<" kode barang :"< total = jm * 1500;                    cout<<" Jumlah Bayar : "< case 107 : cout<<" kode barang :"< total = jm * 1000;                    cout<<" Jumlah Bayar : "< case 108 : cout<<" kode barang :"< total = jm * 1000;                    cout<<" Jumlah Bayar : "< case 109 : cout<<" kode barang :"< total = jm * 4000;                     cout<<" Jumlah Bayar : "< case 110 : cout<<" kode barang :"< total = jm * 5000;                    cout<<" Jumlah Bayar : "< case 111 : cout<<" kode barang :"< total = jm * 4000;                    cout<<" Jumlah Bayar : "< case 112 : cout<<" kode barang :"< total = jm * 500;                    cout<<" Jumlah Bayar : "< case 113 : cout<<" kode barang :"< total = jm * 5000;                    cout<<" Jumlah Bayar : "< case 114 : cout<<" kode barang :"< total = jm * 5500;                    cout<<" Jumlah Bayar : "< case 115 : cout<<" kode barang :"< total = jm * 500;                    cout<<" Jumlah Bayar : "< case 116 : cout<<" kode barang :"< total = jm * 3000;                    cout<<" Jumlah Bayar : "< case 117 : cout<<" kode barang :"< total = jm * 4500 * 10;                    cout<<" Jumlah Bayar : "< case 118 : cout<<" kode barang :"< total = jm * 5500;                    cout<<" Jumlah Bayar : "< case 119 : cout<<" kode barang :"< total = jm * 8000;                    cout<<" Jumlah Bayar : "< case 120 : cout<<" kode barang :"< total = jm * 10000;                    cout<<" Jumlah Bayar : "< case 121 : cout<<" kode barang :"< total = jm * 5000 * 10;                    cout<<" Jumlah Bayar : "< case 122 : cout<<" kode barang :"< total = jm * 25000;                    cout<<" Jumlah Bayar : "< case 123 : cout<<" kode barang :"< total = jm * 12000;                    cout<<" Jumlah Bayar : "< case 124 : cout<<" kode barang :"< total = jm * 9000;                    cout<<" Jumlah Bayar : "<

C++ : CONTOH PROGRAM PENGGAJIAN KARYAWAN MENGGUNAKAN ARRAY

Listing Program :

#include

struct data_karyawan

{

char nip[6],nama[20],alamat[20],gol[2],jabatan[20],status[1];

long int gapok,tunjabat,tunkel,jumanak,tunanak,masa,tunmasa;

long int gator,pajak,gaber;

};

struct data_karyawan karyawan[120];

void main()

{

int i=1;

char ada;

cout<<" PROGRAM PENGGAJIAN PT.ZYX"<<"\n";

cout<<" --------------------------------------------------"<<"\n";

{

cout<<" Data ke : "<

cout<<" Input NIP karyawan : "; cin>>karyawan[i].nip;

cout<<" Input nama karyawan : "; cin>>karyawan[i].nama;

cout<<" Input Alamat : "; cin>>karyawan[i].alamat;

cout<<" Input golongan : "; cin>>karyawan[i].gol;

if ((karyawan[i].gol == "1c")||(karyawan[i].gol == "1C"))

{

karyawan[i].jabatan,"Office boy/girl";

karyawan[i].gapok = 400000;

karyawan[i].tunjabat = 0;

}

else if ((karyawan[i].gol == "2a")||(karyawan[i].gol == "2A"))

{

karyawan[i].jabatan,"Security";

karyawan[i].gapok = 425000;

karyawan[i].tunjabat = 0;

}

else if ((karyawan[i].gol == "2b")||(karyawan[i].gol == "2B"))

{

karyawan[i].jabatan,"Marketing";

karyawan[i].gapok=475000;

karyawan[i].tunjabat = 0;

}

else if ((karyawan[i].gol == "2c")||(karyawan[i].gol == "2C"))

{

karyawan[i].jabatan,"Marketing";

karyawan[i].gapok = 475000;

karyawan[i].tunjabat = 0;

}

else if ((karyawan[i].gol == "3a")||(karyawan[i].gol == "3A"))

{

karyawan[i].jabatan,"Bag. gudang";

karyawan[i].gapok = 510000;

karyawan[i].tunjabat = 0;

}

else if ((karyawan[i].gol == "3b")||(karyawan[i].gol == "3B"))

{

karyawan[i].jabatan,"administrasi";

karyawan[i].gapok = 550000;

karyawan[i].tunjabat = 0.05 * karyawan[i].gapok;

}

else if ((karyawan[i].gol == "3c")||(karyawan[i].gol == "3C"))

{

karyawan[i].jabatan,"Supervisor";

karyawan[i].gapok = 650000;

karyawan[i].tunjabat = 0.075 * karyawan[i].gapok;

}

else if ((karyawan[i].gol == "4a")||(karyawan[i].gol == "4A"))

{

karyawan[i].jabatan,"Manajer";

karyawan[i].gapok = 900000;

karyawan[i].tunjabat = 0.1 * karyawan[i].gapok;

}

else if ((karyawan[i].gol == "4b")||(karyawan[i].gol == "4B"))

{

karyawan[i].jabatan,"Wakil direktur";

karyawan[i].gapok = 1300000;

karyawan[i].tunjabat = 0.15 * karyawan[i].gapok;

}

else if ((karyawan[i].gol == "4c")||(karyawan[i].gol == "4C"))

{

karyawan[i].jabatan,"Direktur";

karyawan[i].gapok = 1500000;

karyawan[i].tunjabat = 0.175 * karyawan[i].gapok;

}

cout<<" Input status : "; cin>>karyawan[i].status;

if (karyawan[i].status == "k")

{

karyawan[i].tunkel = 0.1 * karyawan[i].gapok;

cout<< " Input jumlah anak : "; cin>>karyawan[i].jumanak;

if (karyawan[i].jumanak < 2)

karyawan[i].tunanak = 0.05 * karyawan[i].gapok * karyawan[i].jumanak;

else

karyawan[i].tunanak = 0.05 * karyawan[i].gapok * 3;

}

else

{

karyawan[i].tunkel = 0;

karyawan[i].tunanak = 0;

}

cout<<" Input Masa kerja : "; cin>>karyawan[i].masa;

if (karyawan[i].masa >= 5)

karyawan[i].tunmasa = 6.5 * karyawan[i].gapok;

else if (karyawan[i].masa > 10)

karyawan[i].tunmasa = 11.25 * karyawan[i].gapok;

else

karyawan[i].tunmasa = 0;

karyawan[i].gator = karyawan[i].gapok + karyawan[i].tunkel + karyawan[i].tunanak + karyawan[i].tunjabat;

if (karyawan[i].gator > 1000000)

{

karyawan[i].pajak = 0.1 * karyawan[i].gator;

karyawan[i].gaber = karyawan[i].gator - karyawan[i].pajak;

}

else

{

karyawan[i].pajak = 0;

karyawan[i].gaber = karyawan[i].gator;

};

cout<<" Jabatan karyawan : "<

cout<<" Gaji pokok :Rp. "<

cout<<" Tunjangan jabatan :Rp. "<

cout<<" Tunjangan Keluarga :Rp. "<

cout<<" Tunjangan Anak :Rp. "<

cout<<" Tunjangan Masa kerja :Rp. "<

cout<<" Besar gaji kotor :Rp. "<

cout<<" Besar pajak :Rp. "<

cout<<" Besar gaji bersih :Rp. "<

cout<

i++;

cout<<" Masih ada data karyawan lagi[y/t]"; cin>>ada;

cout<

} while (ada == 'y');

clrscr();

int j=1;

cout<<" Data yang telah diinput:"<<"\n";

cout<

cout<<" PROGRAM PENGGAJIAN PT.ZYX"<<"\n";

cout<<" --------------------------------------------------"<<"\n";

{

cout<<" NIP : "<

cout<<" Nama : "<

cout<<" Alamat : "<

cout<<" Jabatan : "<

cout<<" Gaji pokok :Rp. "<

cout<<" Tun. jabatan :Rp. "<

cout<<" Tun. Masa kerja :Rp. "<

cout<<" Tun. Keluarga :Rp. "<

cout<<" Tun. anak :Rp. "<

cout<

j++;

} while (j

return();

}

Jangan lupa tinggalin saran dan kritik yang bermanfaat untuk ini blog. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini (http://dp082010.blogspot.com) sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama