Syair

Senin, 16 Maret 2009

untukmu

terpancarkan keindahan
terlukiskan kenangan
tersimpan kerinduan
tercipta sayang
hanya untukmu

Jumat, 27 Februari 2009

Hiasi aku

Disaat Hatiku Begitu Gelap

aku ingin kau hadir

menerangi hatiku.

Disaat aku rindu

aku ingin kau dekat denganku.

karena kaulah darahku

karena kaulah nadiku

jiwaku

hatiku

hanya kamu

kaulah segalanya untukku

hidup dan mati hanya untukmu

hiasi aku

wahay pujaanku

dengan setia

cinta dan sayangmu

Puisi Cinta Untukmu

Syair Cinta untukmu.

Dari Lubuk Htiku.

Hanyalah Dirimu

Satu Sayang untukmu.

Syair Cinta Untukmu

Yang ku Cipta untukmu

Hanyalah padamu

Satu Cinta matiku

Takkan aku Biyarkan

Engkau jauh dariku

Karena aku takmampu

Bila Hidup Tanpamu

Jangan engkau BErsedih

Dan Janganlah Menagis

Hapus Air Matamu

Ku Ingin kau Tersenyum

Selamanya Sayangku

Suci Untuk Dirimu

Karena Hanya kamu

Satu Sayang Untukmu

Selasa, 24 Februari 2009

ice cilimber

Download Ice Climber, Ice Climber 1.0 Download

You are here > Home > Games > Action > Ice Climber 1.0 Download

Ice Climber 1.0

Download (402KB)

Last Updated: 2008-11-06
License: Freeware Free
OS: Windows XP, 2000, 98, Me

Requirements: No special requirements
Publisher: NINTENDO CO. LTD. More Products
Homepage: http://www.nintendo.com/
Downloads of Last week:

Ice Climber 1.0

Bookmark

Ice Climber 1.0

Description

"Play classic game Ice Climber on PC."
The first player controls Popo, a boy wearing a blue Eskimo parka, while the second player controls Nana, a girl wearing a pink Eskimo parka. The only tool they carry is a wooden mallet to carve openings in the ice above and to club enemies. Each mountain consists of eight levels of colorful ice and a bonus stage. Standard, dull ice blocks pose no threat other than an easily disposed of barrier. Ice blocks that appear more square and detailed are indestructible forcing the player to take another path. Darker ice with diagonal lines act as a conveyor belt sliding the Eskimo either to the left or right. Finally, many mountains include cloud-shaped, moving platforms as an additional hurdle. The bonus stage takes place at the peak. With a time limit of 40 seconds and no enemies, the Ice Climbers often face trickier jumps and multiple moving platforms. It is also the only place they can take back their stolen vegetables, most notably eggplants. Collecting just one piece of corn from the fifth bonus stage is the only way to gain an extra life.[4] At the top of the peak, the condor flies overhead. Grabbing its talons before time runs out gives the player a large bonus.

Enemies encounter on their way up the mountains include the Topi, Nitpicker, and polar bear. Toppies come in two varieties: the seal featured in the Japanese version and the small yeti seen in western copies. While early U.S. releases featured the seal design, they were redone as a more imaginary creature over concerns of animal cruelty (seal clubbing). Toppies are the least threatening of the Ice Climbers' adversaries. Their aim is to keep the duo from reaching further up the peak by filling in gaps in the ice. To do this, a Topi scouts out a place the player has carved through the floor, runs back to its cave, and reemerges pushing an icicle to fill in two blocks. This process repeats till no more openings on their ice level exist. you can free download Ice Climber 1.0 now.

Ice Climber 1.0 Screenshot (4)

View More Screenshots

Download Now

Ice Climber 1.0

Related Software

Hot Ice 1.0

Stunning animated screen saver w/ MP3 player.

Ice Clock 3D Screensaver 1.0

Ice Clock 3D Screensaver shows real and exact time at any moment when you need.

ICE.TCP Pro 5.0.43

Connects 32-bit Windows PCs to UNIX hosts via TCP/IP

131 Ice Cream Recipes 1.0

Homemade Ice Cream has not lost any of its good, old-fashioned appeal

7art Ice Age Clock ScreenSaver 3.1

Always know the current time with lovely creatures from the Ice Age movie!

Ice Climber 1.0
Publisher's Products(115)

Pokemon - Ruby Version -

Play classic game Pokemon - Ruby Version on PC.

Pokemon - Sapphire Version -

Play classic game Pokemon - Sapphire Version on PC.

Mario Bros -

Play classic game Mario Bros on PC.

Donkey Kong Jr -

Play classic game Donkey Kong Jr on PC.

Super Mario World 2 Yoshi's Island

Play classic game Super Mario World 2 - Yoshi's Island on PC.

Senin, 23 Februari 2009

cinta dan sayang

cinta hanya untuk sesaat
sedangkan kasih sayang
akan abadi selamanya

Kamis, 08 Januari 2009

Rabu, 07 Januari 2009

DEFINISI

merupakan kumpulan dari data yang saling berhubungan satu dengan lainnya yang tersimpan di komputer dan diperlukan software untuk memanipulasi.
atau
pengorganisasian sekumpulan data yang saling terkait sehingga memudahkan aktifitas untuk memperoleh informasi.

STRUKTUR DATA DAN BASIS DATA

* karakter yaitu berupa angka,huruf,atau karakter khusus
* field yaitu menyatakan data terkecil yang memiliki makna
* record yaitu kumpulan dari sejumlah elemen data yang saling terkait
* tabel yaitu menghimpun sejumlah record
* basis data (data base)

DBMS

adalah sistim yang secara khusus dibuat untuk memudahkan pemakai dalam pengola basis data.

keuntungan penggunaan DBMS :

* independensi data
* pengaksessan yang efisien terhadap data
* keamanan dalam interitaS Data
* akses bersamaan dan pemulihan terhadap kegagalan
* waktu pengembangan aplikasi diperpendek

jenis database menurut pengaksesan
dapat dibedakan menjadi empat jenis yaitu
basis data individual,basis data perusahaan,basis data terdistribusi dan bank data publik.

MODEL DATA
ADALAH SEKUMPULAN KONSEP TERINTGRASI YANG DIPAKAI UNTUK MENJABARKAN DATA,HUBUNGAN ANTAR DATA.
terdiri dari :

1. model data hirarkhis
2. model data jaringan
3. model data retational
4. model data berbasis objek

DATA MINING

adalah perangkat lunak yang ditujukan untuk mengidenfikasi trend atau pola yang terdapat pada himpunan data yang sangat banyak dengan sedikit masukan dari pemakai.

ERP
merupakan perangkat lunak yang berfungsi untuk menangani manajemen produksi dalam perusahaan
menurut deloitte dan touche ERP sebagai paket sistem perangkat lunak bisnis yang memungkinkan perusahaan-perusahaan untuk(1)mengotomasikan dan mengintregasikan kebanyakan proses bisnis mereka,(2)berbagi data yang umum dan praktis dalam keseluruhan perusahaan,(3)menghasilkan dan mengakses informasi di dalam lingkungan waktu nyata.

Komponen DBMS
dapat terdiri dari :

1. kamus data
2. untilitas
3. pembakit laporan
4. pembakit aplikasi
5. pengatur keamanan akses
6. pemulihan sistem

SQL
Adalah bahasa yang digunakan untuk mengakses basis data yang tergolong relasional.
pernyataan SQL dapat berupa SELECT,INSERT,UPDATE,DELETE,CREATE TEBLE,DROP TABEL,GRANT,REVOKE.

•DBMS Adalah sistem yang secara khusus dibuat untuk memudahkan pemakai dalam mengelola basis data.

Keuntungan penggunaan DBMS :

•Independensi Data

Perubahan yang terjadi pada data tidak membuat program harus dirubah.

•Pengaksesan Yang Efisien terhadap Data

DBMS meyediakan teknik yang canggih sehingga penyimpanan dan pengambilan data dilakukan secara effisien

•Keamana dan Integritas Data

Data dikendalikan oleh DBMS. Sehingga data yang diinputkan yang tidak sesuai dengan definisi suatu field akan ditolak.

•Administrasi Data

Jika sejumlah pemakai berbagi data (administrasi data terpusat) maka duplikasi/redudansi data dapat diminimalkan.

•Akses Bersamaan dan Pemulihan terhadap Kegagalan

DBMS meyediakan mekanisme data yang sama dapat diakses oleh sejumlah orang dalam waktu yang sama

Jika terjadi kegagalan maka DBMS akan mengembalikan data seperti semula.

•Waktu Pengembangan Aplikasi Diperpendek.

Adanya fasilitas dalam DBMS yang memudahkan dalam membuat aplikasi.

Jenis Database Menurut Pengaksesan yaitu :

•Basis Data Individual,

Basis data yang digunakan oleh perseorangan.(mengelola basis data untuk keperluan pribadi) dirancang oleh pribadi.

•Basis Data Perusahaan,

Basis data yang dapat diakses oleh sejumlah karyawan dalam sebuah perusahaan dalam sebuah lokasi.

Database ditempatkan pada computer server

•Basis Data Terdistribusi

Basis data yang disimpan pada sejumlah computer yang terletak pada beberapa lokasi.

Contoh : transaksi BANK online.

•Bank Data Publik.

Basis data yang dapat di akses oleh pubik.

Contoh : database yahoo.com

•Basis Data Perusahaan, Basis Data Terdistribusi dan Bank Data Publik. Dirancang oleh Database Administrator (DBA) dan dikelola oleh Data Administrator(DA).

Model Data / Struktur data logis.

1. Model Data Hirarkhis

•Model ini dijabarkan dalam bentuk pohon yang terbalik, dalam model ini dikenal istilah orang tua /parent dan anak/child

•Setiap simpul tadi terdapat hubungan bahwa setiap anak anak hanya bisa memiliki satu orang tua dan orang tua dapat memiliki sejumlah anak.

•Simpul teratas yang tidak memiliki orangtua disebut akar

2. Model Data Jaringan

•Model data ini dibuat untuk mengatasi masalah pada model hirarkis. Bentuknya mnyerupau hirarki tetapi perbedaannya :

•tidak mengenal akar

•Setiap anak bisa memiliki lebih dari satu orang tua.

3. Model Data Relational

•Model data relasional menggunakan sekumpulan tabel berdimensi dua (disebut relasi/tabel). Dan masing-masing tabel tersusun atas baris dan kolom.

•Kolom è datuan data terkecil dalam sebuah tabel yang mempunyai makna

•Baris è kumpulan kolom yang menyatakan suatu data yang saling terkait.

•Dalam model data relational hubungan antara 2 tabel disebut relationship.

•Relaltionship : 1 ke1 dan 1 ke M

•1 ke 1 à satu data pada tabel berpasangan dengan satu data pada tabel lain.

Contoh : tabel Pegawai dengan tabel Jabatan

•1 pegawai memiliki 1 jabatan

•1 ke M à satu data pada tabel berpasangan dengan banyak data pada tabel lainnya

Contoh : tabel Jurusan dan Mahasiswa

•1 jurusan di isi banyak Mahasiwa

4. Model Data Berbasis Objek.

•à model data yang menerapkan teknik pemrograman berorientasi objek.

•Model ini mengemas data dan fungsi untuk mengakses data/metode kedalam bentuk objek.

DATA MINING

•Data mining adalah serangkaian proses untuk menggali nilai tambah dari suatu kumpulan data berupa pengetahuan yang selama ini tidak diketahui secara manual

•Makna mining sendiri berarti usaha untuk mendapatkan sedikit barang berharga dari sejumlah besar material dasar.

•beberapa faktor yang mendefinisikan data mining:

•data mining adalah proses otomatis terhadap data yang dikumpulkan di masa lalu.

•objek dari data mining adalah data yang berjumlah besar atau kompleks

•tujuan dari data mining adalah menemukan hubungan-hubungan atau pola-pola yang mungkin memberikan indikasi yang bermanfaat

•Data mining adalah perangkat lunak yang ditujukan untuk mengidentifikasi tren (kecenderungan) atau pola yang terdapat pada himpunan data yang sangat banyak dengan sedikit masukan dari pemakai

ERP

•ERP(Enterprise Resource Planning) System adalah sistem informasi yang diperuntukkan bagi perusahan manufaktur maupun jasa yang berperan mengintegrasikan dan mengotomasikan proses bisnis yang berhubungan dengan aspek operasi, poduksi maupun distribusi di perusahaan bersangkutan

Data warehouse

•Data warehouse adalah suatu basis data. Rentang waktu data yaitu 5 sampai 10 tahun, data warehouse menampung data sejarah yang cukup panjang.

•Sumber data bagi data warehouse adalah data internal dan data eksternal yang berasal dari sumber-sumber di luar perusahaan. Ukurannya berkisar antara giga dan terabyte

Data mart

•Data mart : adalah data warehouse yang mendukung kebutuhan pada tingkat departemean atau fungsi bisnis tertentu dalam perusahaan.

•Data mart : memfokuskan pada kebutuhan-kebutuhan pemakai yang terkait dalam sebuah departemen atau fungsi bisnis

Olap (online analytical processing)

•Olap adalah jenis perangkat lunak yang digunakan untuk melakukan permintaan terhadap data dalam bentuk yang kompleksdan bersifat sementara serta sewaktu-waktu

•Olap memanipulasi dan menganalisa data bervolume besar dari berbagai perspektif (multidimensi)

Teknik olap

•Konsolidasi : melibatkan pengelompokan data.

•Drill-down : kebalikan konsolidasi, memungkinkan data yang ringkas dijabarkan menjadi data yang lebih detail.

•Slicing and dicing : menjabarkan pada kemampuan untuk melihat data dari berbagai sudut pandang. Data dapat diiris-iris berdasarkan kebutuhan.

Komponen DBMS Dapat terdiri dari

1. Kamus Data

•Digunakan untuk menyimpan deskripsi data yang digunakan dalam basis data.

•Setiap element data memiliki tipe dan ukuran.

•Kamus data juga berisi ketentuan yang mengatur nilai yang dimasukan kedalam field/kolom.

2. Utilitas

•Digunakan untuk memudahkan pemakai dalam menciptakan basis data dan tabel serta dalam memanipulasi data.

•Contoh dalam MS Access.

3. Pembangkit Laporan

•Pembangkit laporan adalah fasilitas yang disediakan kepadqa pemakai untuk membuat laporan dengan mudah.

4. Pembangkit Aplikasi

•Fasilitas yang digunakan untuk membuat tampilan yang digunakan oleh pemakaiyang akan menggunakan aplikasi basis data. (formulir).

5. Pengatur Keamanan Akses

•Digunakan untuk mengatur hak akses pemakai

6. Pemulihan Sistem

•Digunakan untuk mengembalikan data semula ke basis data sekiranya terjadi kegagalan system.

Teknik yang digunakan :

•mirroring : teknik penyimpanan data pada 2 penyimpanan eksternal yang berbeda.

•Reprocessing : metode yang melakukan pemrosesan dimulai dari suatu titik di masa lalu / check point. Sebelum kegagalan system terjadi.

•Rollback : Teknik untuk mengembalikan ke keadaan sebelum transaksi yang diproses mengalami kegagalan.

SQL (Structured Query Language)

•Bahasa yang digunakan untuk mengakses basidata yang tergolong relasional.

•Bahasa SQL tidak hanya tidak hanya digunakan untuk proses query (mengambil data) tetapi juga bisa digunakan untuk menciptakan tabel, menghapus tabel dsb.

SELECT à untuk mengambil data

INSERT à untuk menambahkan data

UPDATE à untuk merubah data

DELETE à untuk menghapus data

CREATE TABLE à untuk menciptakan tabel.

DROP TABLE à untuk menghapus tabel

GRANT à untuk mengatur wewenang pemakai

REVOKE à untuk mencabut hak pemakai

Senin, 05 Januari 2009

D-CD-Lyla-MantanKekasihku-StafaBand
.info.mp3
D-CD-Lyla-MantanKekasihku-Staf
aBand
2009-01-01
1.60 MB

Play

Download

Minggu, 28 Desember 2008

Syair

http://sites.google.com/site/qoidar/
http://qoidar.blogspot.com
http://qoidar-bsw.blogspot.com

qoidar
Bsw
BaSu
Syamar
wasu
LOVE
Syair
pedrosa
niki hayden
Honda
asmirandah
Yoha
Alooooooooowhaaaaaa

Sabtu, 27 Desember 2008

persahabatan

Graphics & Myspace layouts

Awesome MySpace Comments & Myspace Layouts

MySpace Graphics & Free Myspace Layouts

Kamis, 25 Desember 2008

kucoba tepis semua rinduku

kucoba hapus semua khayalku

berharap semua cepat berlalu

khayalku tu miliki dirimu

lupakanmu… jauh

tinggalkanmu dari hidupku

bangunkanku dari mimpiku

yakinkan semua ini hanya khayalku

jauh ……….

tinggalkan mu dari hidupku

bangunkanku dari mimpiku

yakinkan semua ini hanya khayalku

download mp3

Rabu, 24 Desember 2008

Buat Website Part 1 by Padro Widjaja Www.RahasiaScript.com - Watch more amazing videos here

gure B-3 Structure of Example Pascal Program
Structure of Example Pascal Program

$uslinit$
$standard_level 'HP3000'; tables on; code_offsets on; xref on$
$global 'SPL'$
$PAGE$

program credit(input,output);

{ Date written: August, 1987.}
{ Date compiled: August, 1987.}

const
ACCEPT_CODE = '3';
DATA_COMPLETE = 1;
FULL_RECORD = 80;
LENGTH_REMOTE_TPNAME = 4;
NO_SW = false;
YES_SW = true;
ON = 2;
CONVSYNCLEVEL = 0;
SEND = 4;
SOC_SEC_ERROR_CD = 1;
SYSTEM_ERROR_CD = 3;
TRANSLATE_TO_ASCII = 1;
TRANSLATE_TO_EBCDIC = 2;
TRANSLENGTH = 30;
YES = ['y', 'Y'];

AllocateErrMsg = text ['Allocate Error '];
CTranslateErrMsg = text ['CTranslate Error '];
DeallocateErrMsg = text ['Deallocate Error '];
EndedErrMsg = text ['TP Ended Error '];
RcvAndWaitErrMsg = text ['RcvAndWait Error '];
SendDataErrMsg = text ['Send Data Error '];
StartedErrMsg = text ['TP Started Error '];
WhatReceivedErrMsg = text ['What Received Error '];

type
shortint = -32768..32767;
pac4type = packed array [1..4] of char;
nametype = packed array [1..10] of char;
errmsgtype = packed array [1..20] of char;
ssnumtype = packed array [1..9] of char;
balancetype = packed array [1..6] of char;

MasterDataType = record
case shortint of
0: (SocSecMaster : ssnumtype;
LastNameMaster : nametype;
FirstNameMaster : nametype;
MINameMaster : char;
CoCodeMaster1 : char;
BalanceMaster1 : balancetype;
CoCodeMaster2 : char;
BalanceMaster2 : balancetype;
CoCodeMaster3 : char;
BalanceMaster3 : balancetype;
CoCodeMaster4 : char;
BalanceMaster4 : balancetype;
CoCodeMaster5 : char;
BalanceMaster5 : balancetype;
Filler : packed array [1..14] of char;
RiskCodeMaster : char);
1: (ErrorCode : pac4type;
ErrorFiller : packed array [1..76] of char);
end;

short_text = packed array [1..8] of char;
text = packed array [1..20] of char;
TPNameType = packed array [1..LENGTH_REMOTE_TPNAME] of char;

TransDataType = record
SocSecTrans : ssnumtype;
LastNameTrans : nametype;
FirstNameTrans: nametype;
MINameTrans : char;
end;
hpe_status = record
case integer of
0 : (all : integer);
1 : (info : shortint;
subsys : shortint);
end;

var
LocalTPName,
SessionType : short_text;
RemoteTPNameASCII : TPNameType;
ResourceID,
TPID,
TraceOn,
ReceiveLength,
WhatReceived,
DeallocateType : shortint;
TransData : TransDataType;
Ready : char;
Quit_SW : boolean;

procedure TPStarted; intrinsic;
procedure TPEnded; intrinsic;
procedure MCAllocate; intrinsic;
procedure MCDeallocate; intrinsic;
procedure MCSendData; intrinsic;
procedure MCRcvAndWait; intrinsic;
procedure CTranslate; intrinsic;
function bin $alias 'binary'$ : shortint; intrinsic;
$PAGE$

{************************************************************
ErrorHandler
This procedure returns the error message associated
with a status info value.
************************************************************}

procedure ErrorHandler (IntrinsicMsg : text;
Status : shortint;
var Quit_SW : boolean);

begin
Quit_SW := YES_SW;
writeln (IntrinsicMsg, Status:3);
end;

$PAGE$

{************************************************************
GetFullScreenData
This procedure prompts the user for data and receives
the data from the terminal. ************************************************************}

procedure GetFullScreenData (var TransData : TransDataType);

begin
with TransData do
begin
SocSecTrans := ' ';
LastNameTrans := ' ';
FirstNameTrans := ' ';
MINameTrans := ' ';

writeln ('Credit Risk Check.');
writeln;

writeln ('Social Security Number:');
readln (SocSecTrans);

writeln ('Last Name:');
readln (LastNameTrans);

writeln ('First Name:');
readln (FirstNameTrans);

writeln ('Middle Initial:');
readln (MINameTrans);

end;
end;

$PAGE$

{************************************************************
BeginHouseKeeping
This procedure calls TPStarted to initialize resources
for the local TP, and then it calls MCAllocate to
allocate a conversation with the remote TP. ************************************************************}

procedure BeginHouseKeeping (LocalTPName : short_text;
RemoteTPNameASCII : TPNameType;
SessionType : short_text;
var TPID, ResourceID : shortint;
TraceOn : shortint;
var Quit_SW : boolean);

var
IntrinsicStatus : hpe_status;
RemoteTPNameEBCDIC : TPNameType;

begin
Quit_SW := NO_SW;

TPStarted (LocalTPName, TPID, IntrinsicStatus, TraceOn);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (StartedErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
CTranslate (TRANSLATE_TO_EBCDIC, RemoteTPNameASCII,
RemoteTPNameEBCDIC, LENGTH_REMOTE_TP_NAME);

if CCode = 1 then
begin
Quit_SW := YES_SW;
writeln (CTranslateErrMsg, 'CCL - Remote TP Name not translated.');
end

else
begin
MCAllocate (TPID, SessionType, RemoteTPNameEBCDIC,
LENGTH_REMOTE_TP_NAME, ResourceID, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (AllocateErrMsg, IntrinsicStatus.info, Quit_SW);

end;
end;
end;

$PAGE$

{************************************************************
SendData
This procedure translates the data received from the
user's screen into EBCDIC and sends it to the remote TP. ************************************************************}

procedure SendData (ResourceID : shortint;
TransData : TransDataType;
var Quit_SW : boolean);

var
IntrinsicStatus : hpe_status;
ReqToSendRec : shortint;

begin
CTranslate (TRANSLATE_TO_EBCDIC, TransData, TransData, TRANSLENGTH);

if CCode = 1 then
begin
Quit_SW := YES_SW;
writeln (CTranslateErrMsg, 'CCL - TransData not translated.');
end

else
begin
MCSendData (ResourceID, TransData, TRANSLENGTH,
ReqToSendRec, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (SendDataErrMsg, IntrinsicStatus.info, Quit_SW);
end;
end;

$PAGE$

{************************************************************
QuitScreen
This procedure asks the user if he or she is ready to
quit. If the user responds 'Y', this procedure changes
Quit_SW to YES_SW. ************************************************************}

procedure QuitScreen (var Quit_SW : boolean);

begin
writeln ('Ready to quit (Y/N)?');
readln (Ready);

if Ready in YES then
Quit_SW := YES_SW;
end;

$PAGE$

{************************************************************
DisplayAcceptance
This procedure evaluates the Risk Code received from the
remote TP to determine whether to approve or deny credit,
and then it writes a message to the user's terminal. ************************************************************}

procedure DisplayAcceptance (RiskCode : shortint;
var Quit_SW : boolean);

begin
if ord(RiskCode) << ord(ACCEPT_CODE) then
writeln ('Credit Denied.')

else
writeln ('Credit Approved.');

QuitScreen (Quit_SW);
end;

$PAGE$

{************************************************************
DisplayErrorMessage
This procedure evaluates the errorcode returned by the
remote TP and writes an error message to the user's
terminal. The remote TP can return any of 3 error codes:
001 - The SS# is not in the database.
002 - The SS# is in the database, but the name does
not match the name sent by the HP 3000.
003 - Miscellaneous system errors.
Error codes 001 and 002 cause this procedure to call
QuitScreen. Error code 003 causes this procedure to
set Quit_SW to YES_SW. ************************************************************}

procedure DisplayErrorMessage (ErrorCode : shortint;
var Quit_SW : boolean);

begin
if ErrorCode = SYSTEM_ERROR_CD then
begin
writeln (errorcode:4);
Quit_SW := YES_SW;
end

else
begin
if ErrorCode = SOCSEC_ERROR_CD then
writeln ('SS# not on file - Credit Denied.')
else
writeln ('Invalid Name');
QuitScreen (Quit_SW);
end;
end;

$PAGE$

{************************************************************
ReceiveData
This procedure calls MCRcvAndWait twice: once to
receive a data record from the remote TP and once to
receive the instruction to change to Send state. If
this procedure receives a complete data record, it
calls CTranslate to translate it to ASCII. ************************************************************}

procedure ReceiveData (ResourceID : shortint;
var Quit_SW : boolean);

var
IntrinsicStatus : hpe_status;
MasterData : MasterDataType;
ReqToSendRec : shortint;

begin
ReceiveLength := FULL_RECORD;

MCRcvAndWait (ResourceID, ReceiveLength, ReqToSendRec, MasterData,
WhatReceived, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (RcvAndWaitErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
if WhatReceived <<>> DATA_COMPLETE then
ErrorHandler (WhatReceivedErrMsg, WhatReceived, Quit_SW)

else
begin
MCRcvAndWait (ResourceID, ReceiveLength, ReqToSendRec,
MasterData, WhatReceived, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (RcvAndWaitErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
if WhatReceived <<>> SEND then
ErrorHandler (WhatReceivedErrMsg, WhatReceived,
Quit_SW)

else
begin
CTranslate (TRANSLATE_TO_ASCII, MasterData, MasterData,
ReceiveLength);

if CCode = 1 then
begin
Quit_SW := YES_SW;
writeln (CTranslateErrMsg,
'CCL - MasterData not translated.');
end;

if not Quit_SW then
begin
if ReceiveLength = FULL_RECORD then
DisplayAcceptance (MasterData.RiskCodeMaster,
Quit_SW)

else
DisplayErrorMessage (bin(MasterData.ErrorCode, 4),
Quit_SW);
end
end
end
end
end
end;

$PAGE$

{************************************************************
ProcessRecords
This procedure calls GetFullScreenData, SendData, and
ReceiveData.
************************************************************}

procedure ProcessRecords (ResourceID : shortint;
var Quit_SW : boolean);

begin
GetFullScreenData (TransData);
SendData (ResourceID, TransData, Quit_SW);

if not Quit_SW then
ReceiveData (ResourceID, Quit_SW);
end;

$PAGE$

{************************************************************
EndHousekeeping
This procedure deallocates the conversation and calls
TPEnded to free the resources used by the local TP.
************************************************************}

procedure EndHousekeeping (ResourceID, TPID : shortint);

var
IntrinsicStatus : hpe_status;

begin
MCDeallocate (ResourceID, DeallocateType, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (DeallocateErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
TPEnded (TPID, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (EndedErrMsg, IntrinsicStatus.info, Quit_SW)
end;
end;

$PAGE$

{************************************************************
Main Program
************************************************************}

begin
LocalTPName := 'USERTP ';
RemoteTPNameASCII := 'Z027';
Traceon := ON;
SessionType := 'APISESS ';
DeallocateType := CONVSYNCLEVEL;

BeginHousekeeping (LocalTPName, RemoteTPNameASCII, SessionType,
TPID, ResourceID, Traceon, Quit_SW);

While not Quit_SW do
ProcessRecords (ResourceID, Quit_SW);

EndHousekeeping (ResourceID, TPID, DeallocateType);

end.

javascript:void(0)

Contoh Penghitungan Gaji

Ketentuan Soal :
1. Nama Di input
2. Jabatan di input ,
Jabatan Gaji Tunjangan
Direktur 3000000 10 % dari gaji
Manager 2000000 5% dari gaji
Karyawan 1000000 2% dari gaji
OB 800000 1% dari gaji

3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn

Jawabannya:

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan : ‘); readln(nama);
Write(‘Masukkan Jabatan : ‘); readln(jabatan);
If (jabatan=’Direktur’) or (jabatan=’direktur’) then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan=’Manager’) or (jabatan=’manager’) then
Begin
Gaji:=2000000;
Tunj:=0.05* gaji;
End
Else If (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;
Writeln(‘Gaji Bersih : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji : Rp.‘,total:9:2);
Readln;
End.

Senin, 22 Desember 2008

Friendster Comment / Friendster Layout / Myspace Comments

smadav

Lencana Facebook

Selamat Datang

Total Tayangan Halaman

link

harga

Rangking

home

Entri Populer

Blog Archive

Senin, 16 Maret 2009

Jumat, 27 Februari 2009

Selasa, 24 Februari 2009

Ice Climber 1.0 Download

Ice Climber 1.0

Ice Climber 1.0

Ice Climber 1.0

Ice Climber 1.0

Senin, 23 Februari 2009

Kamis, 08 Januari 2009

Rabu, 07 Januari 2009

Senin, 05 Januari 2009

Minggu, 28 Desember 2008

Sabtu, 27 Desember 2008

Kamis, 25 Desember 2008

Rabu, 24 Desember 2008

Senin, 22 Desember 2008

page rangking

Anda Pengunjung Ke

About Me

Pengikut

Pages