Mlente Banget

Tugas PASCAL – LOOPING / Perulangan

Posted by: mlente on: December 14, 2008

In: Bahan Kuliah
13 Comments

Tugas Pascal tentang looping/perulangan menggunakan fungsi for

uses wincrt;

var
kata: string;
i,j,pjg : byte;

begin
write(‘Masukkan Kata:’);readln(kata);

pjg:= length(kata);

for i:=1 to pjg do
begin
for j:=1 to i do
write(kata[j]);
writeln;
end;

for i:=1 to pjg do
begin
for j:=1 to pjg-i+1 do
write(kata[j]);
writeln;
end;
end.

Silahkan bagi yang memerlukan bisa langsung copy paste

John Titor – Penjelajah Waktu

Posted by: mlente on: December 4, 2008

In: Techno
20 Comments

Seseorang yang mengaku dari tahun 2036 datang ke tahun 2000 untuk memposting di forum internet, mengaku sebagai prajurit amerika di tahun 2036 mengemban misi ke tahun 1975 untuk mengambil komputer portable pertama di dunia yaitu IBM 5100, dan mampir di tahun 2000-2001 untuk melihat keluarganya. Adapun pro dan kontra terhadap orang ini di forum menjadi topik hangat saat itu, karena dia dapat membuktikan hal-hal yang akan terjadi di masa dpn, dia juga mengupload foto mesin waktu nya, cara kerjanya, dan juga menyebarkan formula ilmiah mesin waktu tersebut di forum.

Beberapa orang di forum mulai memberondong John Titor dgn beragam pertanyaan, kesimpulan yang di dapat bahwa JOhn Titor adalah orang yg cerdas dan mempunya ilmu pengetahuan science yg mendalam, meski JOhn mengaku spesialisasi di History bukan di bidang komputer maupun science.

Read the rest of this entry »

Tags: john titor, mesin waktu, time traveller

Error Instalasi Visual Basic 6 – error launching ACMBOOT

Posted by: mlente on: November 27, 2008

In: Techno
3 Comments

Kita sering mendapati bahwa ketika kita ingin melakukan instalasi pada visual basic 6, pada saat proses setup setelah kita memasukkan kode serial number, maka error ini akan muncul, biasanya error yang muncul adalah “error launching acmboot”.

Hal ini terjadi pada saya sendiri ketika mencoba untuk melakukan proses instalasi visual basic 6 yang saya peroleh dari forum bajakan, dan setau saya problem ini terjadi ketika kita menginstall software visual basic bajakan yang bukan dari cd aslinya.

Setelah saya meminta bantuan mbah dukun google yang paling ngetop, saya menemukan solusinya, ini saya dapatkan dari forum microsoft yang mana microsoft merupakan pengembang dari visual basic, pemecahannya ternyata sangat sederhana, hanya mengganti nama folder tempat kita menyimpan file instalasi visual basic 6 itu dengan nama “eVC4″.

Dan .. JRENG ! sukses berjalan dengan lancar

padahal sebelum ini saya sudah 3 kali download visual basic 6 ini dari sumber yang berbeda dan menemukan masalah yang sama, betapa amatirnya saya kenapa tidak langsung tanya sama google

mlente banget pokoke

Tags: cara installasi visual basic 6, error acmboot, error install vb 6, error install visual basic 6, error launcing acmboot, install vb 6, vb 6 install error, visual basic 6 setup error

Pascal – Penghitungan gaji dan Tunjangan Anak Istri

Posted by: mlente on: November 19, 2008

In: Bahan Kuliah
Leave a Comment

Tugas Pascal menghitung gaji dan tunjangan anak/istri :

uses wincrt;

var
nama,jab:string[25];
noin    :string[10];
gol     :char;
stat,jmlanak:integer;
gaj,tist,tank,jmltgaj,tlgaj:real;

begin
clrscr;
writeln(‘===============================================’);
writeln(‘TUGAS PERHITUNGAN GAJI DAN TUNJANGAN ANAK ISTRI’);
writeln(‘     Nama : Mahasiswa NIM : xxxxxxxxx         ‘);
writeln(‘===============================================’);
writeln;
writeln(‘ Masukkan data sesuai pada ketentuan berikut ‘);
writeln(‘+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+’);
writeln;
writeln(‘Golongan Gaji :           Status :’);
writeln(‘a. Rp 1,000,000.00        1. Kawin’);
writeln(‘b. Rp 1,500,000.00        2. Tidak Kawin’);
writeln(‘c. Rp 2,000,000.00′);
writeln;
write(‘Nomor Induk Karyawan : ‘);readln(noin);
write(‘Nama Pegawai         : ‘);readln(nama);
write(‘Jabatan Pegawai      : ‘);readln(jab);
write(‘Golongan Gaji        : ‘);readln(gol);

case gol of
‘a’ : begin
gaj :=1000000;
write(‘Status Perkawinan    : ‘);readln(stat);
case stat of
1 : begin
tist := (10/100)*gaj;
write(‘Jumlah anak          : ‘);readln(jmlanak);
if jmlanak =1 then
tank := (10/100)*gaj
else
if jmlanak =2 then
tank := (15/100)*gaj
else
tank := (20/100)*gaj
end;
2 : begin
tist := 0;
tank := 0;
end;

end;
end;
‘b’ : begin
gaj :=1500000;
write(‘Status Perkawinan    : ‘);readln(stat);
case stat of
1 : begin
tist := (15/100)*gaj;
write(‘Jumlah anak          : ‘);readln(jmlanak);
if jmlanak =1 then
tank :=(10/100)*gaj
else
if jmlanak =2 then
tank :=(15/100)*gaj
else
tank :=(20/100)*gaj
end;
2 : begin
tist := 0;
tank := 0;
end;

end;
end;
‘c’ : begin
gaj :=2000000;
write(‘Status Perkawinan    : ‘);readln(stat);
case stat of
1 : begin
tist := (20/100)*gaj;
write(‘Jumlah anak          : ‘);readln(jmlanak);
if jmlanak =1 then
tank :=(10/100)*gaj
else
if jmlanak =2 then
tank :=(15/100)*gaj
else
tank :=(20/100)*gaj
end;
2 : begin
tist :=0;
tank :=0;
end;

end;
end;

end;

tlgaj      := gaj+tank+tist;

writeln;
writeln(‘=================oO SLIP GAJI Oo=================’);
writeln;
writeln (‘Nama          : ‘,nama);
writeln (‘No Karyawan   : ‘,noin);
writeln (‘Jabatan       : ‘,jab);
writeln (‘+===============================================+’);
writeln (‘|       Rincian Gaji         |      Jumlah      |’);
writeln (‘+===============================================+’);
writeln (‘| Gaji Pokok               : | Rp ‘,gaj:8:0,’      |’);
writeln (‘| Tunjangan Anak           : | Rp ‘,tank:8:0,’      |’);
writeln (‘| Tunjangan Istri          : | Rp ‘,tist:8:0,’      |’);
writeln (‘|                            |                  |’);
writeln (‘+———————————————–+’);
writeln (‘| Total Gaji Bersih        : | Rp ‘,tlgaj:8:0,’      |’);
writeln (‘+———————————————–+’);

readln;

end.

Selamat Mencoba

Tags: menghitung gaji dan tunjangan, pascal gaji dan tunjangan, tugas pascal

Logo Amikom Purwokerto

Posted by: mlente on: November 14, 2008

In: Bahan Kuliah
4 Comments

Bagi rekan-rekan yang membutuhkan logo amikom purwokerto untuk penulisan tugas/laporan, silahkan download logo amikom purwokerto berikut ini :

Silahkan klik pada gambar untuk mendapatkan resolusi yang lebih besar

Sumber logo : Oki Febrian – duniakreatif.com

Tags: amikom purwokerto, logo amikom, logo amikom purwokerto

Pascal – Menghitung Nilai Faktorial

Posted by: mlente on: November 9, 2008

In: Bahan Kuliah
5 Comments

Tugas pascal menghitung nilai faktorial :

uses wincrt;
function fak(x:word):real;
begin
if x=0 then fak:=1
else fak:=x*fak(x-1);
end;

var n:word;z:real;
begin
writeln(‘=========================================’);
writeln(‘Tugas Algoritma – Nama/NIM Mahasiswa’);
writeln(‘=========================================’);
writeln;
write(‘Hitung Nilai Faktorial dari : ‘);
readln(n);
z:=fak(n);
writeln(‘Nilai Faktorial Dari ‘,n,’ adalah’,z:4:0);
writeln;
writeln(‘=========================================’);
end.

Apabila digambarkan sebagai berikut :

fak(5) => x<>0 => fak=5*fak(4) => fak=5*24 => 120
fak(4) => x<>0 => fak=4*abc(3) => fak=4*6 => 24
fak(31) => x<>0 => fak=3*abc(2) => fak=3*2 => 6
fak(2) => x<>0 => fak=2*abc(1) => fak=2*1 => 2
fak(1) => x=0 => fak=1 => fak=1 => 1
Proses rekursi dihentikan karena b=0 dan abc(5,0)=1.
Bila disimpulkan : fak(5) = 5*(4*(3*(2*(1))))
= 120

Selamat Mencoba

Tags: deklarasi fungsi, menghitung nilai faktorial, pascal, rekursi, tugas menghitung nilai faktorial, tugas pascal

Turbo Pascal 1.5 For Windows

Posted by: mlente on: November 5, 2008

In: Techno
18 Comments

Mungkin saat ini cukup sulit untuk mendapatkan software turbo pascal dari internet, kecuali hasil ngopi dari komputer lab, tapi kalau kejadiannya seperti saya yang lupa ngopi dari lab, lalu ada tugas untuk bikin program dari pascal, akhirnya repot juga, walau saya juga pernah denger2 kalo pake delphi juga bisa karena mereka pada prinsipnya satu turunan, tapi karena saya sendiri juga blm pernah belajar delphi jadi ya masih pede untuk cari program turbo pascal. Bagi teman-teman yang membutuhkan program Turbo Pascal 1.5 for Windows silahkan download melalui link dibawah ini :

(link update)

http://www.4shared.com/file/106374605/6f7f30bd/TPW.html

Password : “mlente.wordpress.com” (tanpa tanda kutip)

Tags: pascal for windows, turbo pascal, turbo pascal 1.5, turbo pascal 1.5 for windows, turbo pascal for windows

8 Pertanyaan Jebakan Saat Wawancara

Posted by: mlente on: November 1, 2008

In: Information
1 Comment

Berikut 8 Pertanyaan Jebakan Saat Wawancara
1. Mengapa kami harus mempekerjakan Anda?
Ini peluang Anda untuk “menjual” diri Anda. Uraikan dengan singkat dan jelas kelebihan yang Anda miliki, kualifikasi Anda dan apa yang dapat Anda sumbangkan bagi perusahaan tersebut. Hati-hati , jangan memberikan jawaban yang terlalu umum. Hampir setiap orang mengatakan mereka merupakan seorang pekerja keras dan memiliki motivasi. Berikanlah jawaban yang memperlihatkan keunikan yang Anda miliki.

2. Mengapa tertarik bekerja di perusahaan ini?
Pertanyaan ini merupakan salah satu alat bagi si pewawancara untuk mengetahui apakah Anda mempersiapkan diri anda dengan baik. Jangan pernah datang untuk sebuah wawancara pekerjaan tanpa mengetahui latar belakang perusahaan. Dengan memiliki informasi yang cukup mengenai latar belakang perusahaan tersebut maka pertanyaan di atas memberikan kesempatan kepada Anda untuk memperlihatkan inisiatif, dan menunjukkan apakah pengalaman serta kualifikasi yang Anda miliki sepadan dengan posisi yang diperlukan.
Read the rest of this entry »

Cara Nokia Memberi Nama Tipe Handphone Produknya

Posted by: mlente on: November 1, 2008

In: Techno
Leave a Comment

Nokia adalah Brand ternama untuk gadget handphone di Indonesia. Anda juga mungkin memiliki handphone bermerek Nokia. Tapi tahukah anda bagaimana hanphone-handphone tersebut diberi nama? Tahukah anda kenapa ponsel anda bernama N-gage, kenapa type ponsel anda diawali angka 6 dan type ponsel teman anda diawali dengan angka 7?

Berikut Penjelasannya:

1. 1000 “Ultrabasic” semua hp nokia yang diawali dengan angka 1 atau dalam orde 1000 dst. Type ini adalah type nokia yang paling murah yang semula di luncurkan untuk menguasai pasar. Seri ini sudah dapat degunakan untuk telepon dan sms dengan cukup baik. Ponsel Nokia seri ini kurang mendapat sentuhan teknologi high-end.

2. 2000 “Basic” Ponsel atau Handphone Nokia seri 2000 atau yang diawali dengan angka 2 adalah type hp nokia yang juga masih dalam kategori murah. Bedanya dengan seri 1000, ponsel seri ini sudah tersentuh teknologi high-end seperti bluetooth dan kamera.

3. 3000 “Expression” Seri 3000 adalah seri murah yang ditampilkan secara kreatif oleh Nokia. Dengan layar warna dan kemampuan mengambil gamba, memainkan musik dan sudah mempunyai konektifitas dengan Komputer (PC)

4. 4000 Untuk alasan tertentu, tidak ada Handphone Nokia yang diawali dengan angka 4. Kenapa? Ya meneh ketehek…

5. 5000 “Active” Seri 5000 atau handphone Nokia yang diawali dengan angka 5 adalah ponsel yang ditujukan untuk mereka yang aktif. Produk dibawah bendera seri ini biasanya didesain untuk menemani anda yang sedang jogging atau untuk menaungi seri handphone nokia yang “musik abisss”

6. 6000 “Classic Business” Seri ini sudah mulai menyentuh daerah Bisnis. Walaupun masih basic, seri hp ini sudah dilengkapi dengan sentuhan teknologi high-end. Seri 6000 seperti mulai kehilangan ke-niche-an karena banyaknya hp nokia dengan kepala 6 yang diluncurkan.

7. 7000 “Experimental” Kata yang paling tepat untuk menggambarkan seri ini adalah “kelinci percobaan” jadi, jangan heran kalau hp nokia dengan huruf depan 7 memiliki banyak kejanggalan disana-sini

8. 8000 “Premium” Seri 8000 ini sudah premium, bukan pertamax, apalagi solar. Maksudnya, ya mulai tidak murah lagi gitu loh..

9. 9000 “Communicator” Seri ini booming sekitar tahun 2005. Waktu itu seri komunikator merupakan seri yang keren dan menjadi lambang kekayaan. Seri 9000 adalah cikal bakan munculnya E-series (dibawah). Seri ini menggunakan OS GEOS, bukan Symbian.

10. E-Series huruf E menyatakan kata Enterprise. Berorientasi bisnis, dengan desain yang minimalis, fitur yang lengkap, dan sangat responsif.

11. N-Series – Pada N series ini, nokia berusaha memasukkan semua hal ke dalam gadget berupa handphone. Handphone Dengan nama awal N adalah HP impian yang pada zaman dahulu cuma ada di film fiksi ilmiah. Pada seri ini daya tahan Baterei juga sangat baik untuk seukuran fitur yang dijalankan.